diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 8b7a8ebff..e00c34042 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -4627,7 +4627,8 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function AddCuenta(CvePadre As Integer, Codigo As String, Nombre As String, Tipo As String, CtaMayor As Integer, CveMoneda As Integer, Optional DigAgrupador As Integer = -1, Optional CveAgrupadorSAT As Integer = -1, Optional NomIdioma As String = "") As Integer + Public Function AddCuenta(CvePadre As Integer, Codigo As String, Nombre As String, Tipo As String, CtaMayor As Integer, CveMoneda As Integer, Optional DigAgrupador As Integer = -1, + Optional CveAgrupadorSAT As Integer = -1, Optional NomIdioma As String = "", Optional CveEmpresaParam As Integer = -1) As Integer Dim Retorno As Integer = 0 DataAdapter("PA_Conta_AddCuentas") @@ -4641,6 +4642,7 @@ Public Class ClsContabilidad .Add("@DigAgrupador", SqlDbType.Int).Value = DigAgrupador .Add("@NomIdioma", SqlDbType.VarChar).Value = NomIdioma .Add("@CveAgrupadorSAT", SqlDbType.Int).Value = CveAgrupadorSAT + .Add("@CveEmpresaParam", SqlDbType.Int).Value = CveEmpresaParam '.Add("@CveCuenta", SqlDbType.Int).Value = 0 '.Add("@Error", SqlDbType.VarChar).Value = "" '.Add("@Error", SqlDbType.VarChar).Direction = ParameterDirection.Output diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 5dbc2169f..e64998d23 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -171,6 +171,32 @@ Public Class ClsNominas #End Region #Region "ClsNominas_Nominas" + Public Function AddComprobantesEmitidos(ByVal cveEmpresa As Integer, ByVal folioFiscal As String, ByVal tipoDocto As String, ByVal importeTotal As Decimal, ByVal estatus As Integer, ByVal fecha As String, ByVal moneda As String, ByVal rFCReceptor As String, ByVal rutaXml As String, ByVal rFCEmisor As String, ByVal serie As String, ByVal folio As String) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Vta_Sat_ComprobantesAdd", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@cveEmpresa", SqlDbType.Int).Value = cveEmpresa + .Add("@folioFiscal", SqlDbType.VarChar).Value = folioFiscal + .Add("@tipoDocto", SqlDbType.VarChar).Value = tipoDocto + .Add("@importeTotal", SqlDbType.Decimal).Value = importeTotal + .Add("@estatus", SqlDbType.Int).Value = estatus + .Add("@fecha", SqlDbType.VarChar).Value = fecha + .Add("@moneda", SqlDbType.VarChar).Value = moneda + .Add("@rFCReceptor", SqlDbType.VarChar).Value = rFCReceptor + .Add("@rFCEmisor", SqlDbType.VarChar).Value = rFCEmisor + .Add("@rutaXml", SqlDbType.VarChar).Value = rutaXml + .Add("@serie", SqlDbType.VarChar).Value = serie + .Add("@folio", SqlDbType.VarChar).Value = folio + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al Realizar el calculo del Aguinaldo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + + End Function Public Function GetCalculoAguinaldo(ejercicio As Int32, cveEmpresa As Int32, importe As Double, CveTipoPeriodo As Integer, CvePeriodo As Integer) As Boolean Dim retorno As Boolean = False @@ -1835,7 +1861,32 @@ Public Class ClsNominas #End Region - Public Function AddUPNom_NominasDetalles(CveNomina As Integer, CvePeriodo As Integer, CvePersonal As Integer, CveConcepto As Integer, Importe As Decimal, ImporteGravado As Decimal, ImporteExento As Decimal, CveUsuario As Integer) As Boolean + Public Function GetInversionNomina(CveEmpresa As Integer, Optional FechaInicio As String = "", Optional FechaFin As String = "", + Optional CveProyecto As Integer = -1, Optional CveSubProyecto As Integer = -1, + Optional Cve1 As Integer = -1, Optional Cve2 As Integer = -1, + Optional CveStr1 As String = "-1", Optional CveStr2 As String = "-1") As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Nom_InversionNominaGET") + With SqlAdapter.SelectCommand.Parameters + .Add("FechaInicio", SqlDbType.Int).Value = FechaInicio + .Add("FechaFin", SqlDbType.Int).Value = FechaFin + .Add("CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("Cve1", SqlDbType.Int).Value = Cve1 + .Add("Cve2", SqlDbType.Int).Value = Cve2 + .Add("CveStr1", SqlDbType.Int).Value = CveStr1 + .Add("CveStr2", SqlDbType.Int).Value = CveStr2 + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al obtener el reporte de inversión de nomina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + Public Function AddUPNom_NominasDetalles(CveNomina As Integer, CvePeriodo As Integer, CvePersonal As Integer, CveConcepto As Integer, Importe As Decimal, ImporteGravado As Decimal, ImporteExento As Decimal, CveUsuario As Integer, Optional IsEdited As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Nom_NominasDetallesAddUP") @@ -1849,6 +1900,7 @@ Public Class ClsNominas .Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado .Add("ImporteExento", SqlDbType.Float).Value = ImporteExento .Add("CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("IsEdited", SqlDbType.Bit).Value = IsEdited End With Try @@ -1902,10 +1954,10 @@ Public Class ClsNominas retorno = True Catch sqEx As SqlException retorno = False - OnError("Ocurrió un error al obtener las tablas.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception retorno = False - OnError("Ocurrió un error al obtener las tablas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index b072d702b..2d5c46f6a 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -5933,7 +5933,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error al Consultar el catalogo de Uniformes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error al agregar permiso.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index aba1c1776..db3f0d7a9 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -110,14 +110,17 @@

- +
+ Importe seleccionado: $00.00 +
+
- + diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index 3d6394fca..b6f7ace0e 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -48,6 +48,7 @@ Partial Class Bancos_DepositosCaja UpGvFacturas.Update() GvFacturas.DataBind() + divLabelTotal.Visible = True End Sub Private Sub BtnDepositar_Click(sender As Object, e As EventArgs) Handles BtnDepositar.Click @@ -157,4 +158,20 @@ Partial Class Bancos_DepositosCaja ObjContabilidad.Dispose() End Sub + Private Sub ObtenerTotalImporta() + + Dim Total As Double = 0 + For Each Gvr As GridViewRow In GvFacturas.Rows + If Gvr.FCCheckBox("ChkFactura").Checked Then + Total += Gvr.DataKey("Importe").ToDouble + End If + Next + lblValorTotal.Text = Total.ToString + UpGvFacturas.Update() + End Sub + + Public Sub ChkFactura_Click(sender As Object, e As EventArgs) + ObtenerTotalImporta() + End Sub + End Class \ No newline at end of file diff --git a/Empresas/72/Formatos/PermisoSolicitud.docx b/Empresas/72/Formatos/PermisoSolicitud.docx index 61a595160..073a4f76f 100644 Binary files a/Empresas/72/Formatos/PermisoSolicitud.docx and b/Empresas/72/Formatos/PermisoSolicitud.docx differ diff --git a/Empresas/80/Formatos/RH_FormatoVacaciones.docx b/Empresas/80/Formatos/RH_FormatoVacaciones.docx new file mode 100644 index 000000000..a87e8fa14 Binary files /dev/null and b/Empresas/80/Formatos/RH_FormatoVacaciones.docx differ diff --git a/Empresas/Grales/Formatos/RepProductosServiciosDetalle.rdlc b/Empresas/Grales/Formatos/RepProductosServiciosDetalle.rdlc index c9bcd8e99..5a2c9f653 100644 --- a/Empresas/Grales/Formatos/RepProductosServiciosDetalle.rdlc +++ b/Empresas/Grales/Formatos/RepProductosServiciosDetalle.rdlc @@ -15,11 +15,14 @@ 1.67447cm - 6.57043cm + 2.82586cm 1.94532cm + + 2.89687cm + 5.49064cm @@ -225,7 +228,7 @@ - + true true @@ -244,6 +247,42 @@ + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Código Producto/Servicio + + + + + + Textbox22 - true @@ -616,6 +654,40 @@ + + + + true + true + + + + + =Fields!PS.Value + + + + + + =iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","#67809F","#cccccc"), "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + @@ -851,6 +923,7 @@ + @@ -866,7 +939,7 @@ DataSet1 0.06614cm 0.90467cm - 28.36649cm + 27.51879cm @@ -877,7 +950,7 @@ 0.59228in - - - - - 2pt - 2pt - 2pt - 2pt - - - - 0.84237cm - 0.20849cm - 0cm - 27.38607cm - 1 - - - - - - - - - 5.86021cm - - - 1.40551cm - - - 1.83854cm - - - 11.45172cm - - - 2.34042cm - - - 2.91042cm - - - 1.70625cm - - - - - 0.6cm - - - - - true - true - - - - - Nombre Completo - - - - - - - Textbox4 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Folio - - - - - - - Textbox15 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha - - - - - - - Textbox17 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Descripción - - - - - - - Textbox3 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Sucursal - - - - - - - Textbox5 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Departamento - - - - - - - Textbox13 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cantidad - - - - - - - Textbox14 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - =Fields!NombreCompleto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Folio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!FechaMovto.Value - - - - - - - FechaMovto - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!CodigoPS.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SubProyecto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Departamento.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Surtir - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DataSet1 - 1.10695cm - 0.08149cm - 1.2cm - 27.51307cm - 2 - - - - - - 0.94992in - - - - - - - Textbox1 - 0.18521cm - 6.07218cm - 0.6cm - 14.02238cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - REPORTE UNIFORMES - - - - - - - - - - - - - - - - Textbox2 - 1.10271cm - 6.07218cm - 0.52945cm - 14.02238cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.06614cm - 2.22362cm - 2.33715cm - 2 - - - - - - - - - - - 0.76376cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.08291cm - 25.20741cm - 0.68085cm - 2.09233cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 21cm - 29.7cm - 1cm - 1cm - 0.25cm - 0.25cm - 0.13cm - + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.20849cm + 0cm + 27.38607cm + 1 + + + + + + + + + 5.86021cm + + + 1.40551cm + + + 1.83854cm + + + 9.56026cm + + + 2.34042cm + + + 2.91042cm + + + 1.70625cm + + + 1.89146cm + + + + + 0.6cm + + + + + true + true + + + + + Nombre Completo + + + + + + + Textbox4 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio + + + + + + + Textbox15 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox17 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox3 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sucursal + + + + + + + Textbox5 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Departamento + + + + + + + Textbox13 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cantidad + + + + + + + Textbox14 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total + + + + + + + Textbox18 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!NombreCompleto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Folio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaMovto.Value + + + + + + + FechaMovto + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CodigoPS.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SubProyecto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Departamento.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Surtir + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Precio.Value + + + + + + + Precio + + + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.10695cm + 0.08149cm + 1.2cm + 27.51307cm + 2 + + + + + + 0.94992in + + + + + + + Textbox1 + 0.18521cm + 6.07218cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE UNIFORMES + + + + + + + + + + + + + + + + Textbox2 + 1.10271cm + 6.07218cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 25.20741cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 21cm + 29.7cm + 1cm + 1cm + 0.25cm + 0.25cm + 0.13cm +