diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 5dbc2169f..285a6d765 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,30 @@ 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(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 + 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 +1898,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 +1952,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/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/Grales/Formatos/RepUniformesResguardo.rdlc b/Empresas/Grales/Formatos/RepUniformesResguardo.rdlc index 037690300..82f16f2b2 100644 --- a/Empresas/Grales/Formatos/RepUniformesResguardo.rdlc +++ b/Empresas/Grales/Formatos/RepUniformesResguardo.rdlc @@ -1,980 +1,5 @@  - - - - - true - true - - - - - =Parameters!AgrupadoPor.Value - HTML - - - - - - 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 +