From 4b2d0697465cafe5d3e37add6bfb7f77219605f7 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Tue, 2 Feb 2021 07:18:50 -0700 Subject: [PATCH] --- AF/CatTiposServiciosActividades.aspx.cs | 8 +-- AF/ValesCombustible.aspx.vb | 28 +++++----- App_Code/ClsPaginas.vb | 70 +++++++++++++++++-------- App_Code/Log Tareas.txt | 3 -- App_Code/LogicNominas.vb | 5 +- Compras/eFacturas.aspx | 2 +- LogIn.aspx.vb | 10 ++-- Nomina/Nomina2.aspx.cs | 6 ++- RH/Personal.aspx.vb | 26 ++++++--- vwd.webinfo | 2 + 10 files changed, 102 insertions(+), 58 deletions(-) delete mode 100644 App_Code/Log Tareas.txt diff --git a/AF/CatTiposServiciosActividades.aspx.cs b/AF/CatTiposServiciosActividades.aspx.cs index 1c4801f17..a9eb08dc8 100644 --- a/AF/CatTiposServiciosActividades.aspx.cs +++ b/AF/CatTiposServiciosActividades.aspx.cs @@ -96,10 +96,10 @@ public partial class AF_CatTiposServiciosActividades : ClsPaginas } else { - if (ObjAF.UpdateActividades(DdlActividades.SelectedValue.ToEntero(),TxtDuracion.Text.ToEntero(),TxtObservaciones.Text)) - { - Alert("Se actualizó la Actividad del Tipo de Servicio correctamente"); - } + //if (ObjAF.UpdateActividades(DdlActividades.SelectedValue.ToEntero(),TxtDuracion.Text.ToEntero(),TxtObservaciones.Text,)) + //{ + // Alert("Se actualizó la Actividad del Tipo de Servicio correctamente"); + //} } ObjAF.Dispose(); CargaDatos(); diff --git a/AF/ValesCombustible.aspx.vb b/AF/ValesCombustible.aspx.vb index 468a24ed8..c95960131 100644 --- a/AF/ValesCombustible.aspx.vb +++ b/AF/ValesCombustible.aspx.vb @@ -47,21 +47,21 @@ Partial Class AF_ValesCombustible DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - If UsuarioActual.Empresa.GralSoloProyecto Then + 'If UsuarioActual.Empresa.GralSoloProyecto Then - LtlSubProyecto.Text = "Proyecto" - DdlSubProyecto.Items.Clear() - DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) - DdlSubProyecto.DataBind() - DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - DivProyecto.Visible = False - 'DdlProyecto.Items(0).Text = "" - Else - DivProyecto.Visible = True - DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.CveEmpresa) - DdlProyecto.DataBind() - DdlProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - End If + ' LtlSubProyecto.Text = "Proyecto" + ' DdlSubProyecto.Items.Clear() + ' DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) + ' DdlSubProyecto.DataBind() + ' DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) + ' DivProyecto.Visible = False + ' 'DdlProyecto.Items(0).Text = "" + 'Else + DivProyecto.Visible = True + DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.CveEmpresa) + DdlProyecto.DataBind() + DdlProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'End If DdlCombustible.DataSource = GlobalDTCombustibles(UsuarioActual.CveEmpresa) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index ec50c30d6..fa913b16f 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7881,6 +7881,7 @@ Public Class ClsPaginas ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/Nomina/{4}.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, ObjNomina.SerieFolio) + Dim cQr As Byte() = Nothing Try Dim CadenaOriginalCFD As String = "||1.0|" + FolioFiscal + "|" + FechaCertificacion.ToString("yyyy-MM-dd") + "T" + FechaCertificacion.ToString("HH:mm:ss") + "|" + SelloCFDi + "|" + NoSerieCertificado + "||" @@ -7897,7 +7898,7 @@ Public Class ClsPaginas RptParametro.Add(New ReportParameter("RFC", ObjPersonal.RFC)) RptParametro.Add(New ReportParameter("CURP", ObjPersonal.CURP)) - RptParametro.Add(New ReportParameter("NombreCompleto", ObjPersonal.NombreCompleto)) + RptParametro.Add(New ReportParameter("NombreCompleto", String.Format("{0} {1} {2}", ObjPersonal.Nombres, ObjPersonal.APaterno, ObjPersonal.AMaterno).Trim())) RptParametro.Add(New ReportParameter("Regimen", ObjPersonal.RegimenContratacion)) RptParametro.Add(New ReportParameter("RiesgoPuesto", ObjPersonal.RiesgoPuesto)) @@ -7924,23 +7925,18 @@ Public Class ClsPaginas RptParametro.Add(New ReportParameter("Periodo", ObjNomina.TipoPeriodo)) RptParametro.Add(New ReportParameter("DiasPagados", ObjNomina.DiasPagados.ToString)) - RptParametro.Add(New ReportParameter("MetodoPago", ObjNomina.MetodoPago)) - RptParametro.Add(New ReportParameter("FormaPago", ObjNomina.FormaPago)) + RptParametro.Add(New ReportParameter("MetodoPago", """PUE"" (Pago en una sola exhibición)")) + RptParametro.Add(New ReportParameter("FormaPago", """99"" (Por definir)")) RptParametro.Add(New ReportParameter("Cantidad", "1")) - RptParametro.Add(New ReportParameter("Unidad", "SERVICIO")) + RptParametro.Add(New ReportParameter("Unidad", "ACT")) RptParametro.Add(New ReportParameter("Descripcion", "PAGO DE NÓMINA")) - RptParametro.Add(New ReportParameter("PU", ObjNomina.SubTotal.ToString)) - RptParametro.Add(New ReportParameter("Importe", ObjNomina.SubTotal.ToString)) - - RptParametro.Add(New ReportParameter("SubTotal", ObjNomina.SubTotal.ToString)) - RptParametro.Add(New ReportParameter("Descuentos", ObjNomina.Descuento.ToString)) - RptParametro.Add(New ReportParameter("ISR", ObjNomina.RetISR.ToString)) - RptParametro.Add(New ReportParameter("Total", ObjNomina.Total.ToString)) - + RptParametro.Add(New ReportParameter("Total", ObjNomina.Total.ToString())) + Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar() + cQr = CBB.GenerarCBBBytes(UsuarioActual.Empresa.RFC, ObjPersonal.RFC, ObjNomina.Total.ToString().ToDecimal(), FolioFiscal) RptParametro.Add(New ReportParameter("ImporteLetra", ObjNomina.Total.ToString.ToDouble.Texto2Letras)) - RptParametro.Add(New ReportParameter("Clave", "")) + RptParametro.Add(New ReportParameter("Clave", "84111505")) Else TieneError = True End If @@ -7957,7 +7953,28 @@ Public Class ClsPaginas End If End If + 'PERCECIONES - DEDUCCIONES + If ObjNomina.GetNom_NominasDetalles(CveNomina, CvePersonal, CvePeriodo, "-1") Then + DTPercepciones = ObjNomina.DtResultados.FiltraParametros("(Tipo = 'P' OR (Tipo = 'D' AND Importe <0)) AND Importe <>0 AND EsPadre = 1 AND SoloVisible =0") + DTDeducciones = ObjNomina.DtResultados.FiltraParametros("Tipo = 'D' AND Importe >0 AND EsPadre = 1 AND SoloVisible =0") + For Each row As DataRow In DTPercepciones.Rows + If row("Tipo").ToString() = "D" Then + row("Codigo") = row("Codigo").ToString().Replace("D", "OP") + row("Importe") = row("Importe").ToString().ToDecimal() * -1 + End If + Next + Else + DTPercepciones = Nothing + DTDeducciones = Nothing + End If + + RptParametro.Add(New ReportParameter("PU", DTPercepciones.SUM("Importe").ToString())) + RptParametro.Add(New ReportParameter("Importe", DTPercepciones.SUM("Importe").ToString())) + + RptParametro.Add(New ReportParameter("SubTotal", DTPercepciones.SUM("Importe").ToString())) + RptParametro.Add(New ReportParameter("Descuentos", DTDeducciones.SUM("Importe", "SATCveConcepto <> '002'").ToString())) + RptParametro.Add(New ReportParameter("ISR", DTDeducciones.SUM("Importe", "SATCveConcepto = '002'").ToString())) 'Timbrado RptParametro.Add(New ReportParameter("FolioFiscal", FolioFiscal)) RptParametro.Add(New ReportParameter("CertificadoSAT", NoSerieCertificado)) @@ -7967,16 +7984,18 @@ Public Class ClsPaginas RptParametro.Add(New ReportParameter("CadenaOriginal", CadenaOriginalCFD)) RptParametro.Add(New ReportParameter("QR", ImgCBB.ToString)) - 'PERCECIONES - DEDUCCIONES - If ObjNomina.GetNom_NominasDetalles(CveNomina, CvePersonal, CvePeriodo, "-1") Then - DTPercepciones = ObjNomina.DtResultados.FiltraParametros("Tipo = 'P' AND EsPadre = 1") - DTDeducciones = ObjNomina.DtResultados.FiltraParametros("Tipo = 'D' AND EsPadre = 1") - Else - DTPercepciones = Nothing - DTDeducciones = Nothing - End If Dim LSRds As New List(Of ReportDataSource) + + + Dim rds2 = New ReportDataSource() + Dim limagenes = New List(Of utilImage)() + limagenes.Add(New utilImage(cQr)) + rds2.Name = "dsImagenes" + rds2.Value = limagenes + LSRds.Add(rds2) + + Dim RptDS As New ReportDataSource RptDS.Name = "DsOC" RptDS.Value = DTPercepciones @@ -8002,7 +8021,7 @@ Public Class ClsPaginas End Try End If Else - ImprimirPDF(String.Format("{0}\Formatos\Nomina.rdlc", RutaEmpresa), LSRds, RptParametro, ObjNomina.SerieFolio) + 'ImprimirPDF(String.Format("{0}\Formatos\Nomina.rdlc", RutaEmpresa), LSRds, RptParametro, ObjNomina.SerieFolio) End If Else Alert("Ocurrio un error al obtener los datos de la Nomina") @@ -8018,6 +8037,13 @@ Public Class ClsPaginas Return Retorno End Function + + Public Class utilImage + Public Sub New(imagenByte As Byte()) + Me.ImagenByte = imagenByte + End Sub + Public Property ImagenByte As Byte() + End Class #End Region #Region "PDF PAGOS" diff --git a/App_Code/Log Tareas.txt b/App_Code/Log Tareas.txt deleted file mode 100644 index 241eb710e..000000000 --- a/App_Code/Log Tareas.txt +++ /dev/null @@ -1,3 +0,0 @@ -Log tareas: -Llamada de consulta: 11 minutos -Temperatura comienzo: 7 pm \ No newline at end of file diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index 9e99e3c97..430dc0473 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -249,13 +249,16 @@ Public Class LogicNominas If DtDeducciones IsNot Nothing AndAlso DtDeducciones.Rows.Count > 0 Then For Each Row As DataRow In DtDeducciones.Rows - If Row("Importe").ToString().ToDecimal > 0 Then + If Row("Importe").ToString().ToDecimal <> 0 Then If Row("CveSATConcepto").ToString() = "" Then cfdi.AddMsg(String.Format("Concepto No registrado ({0})", Row("Concepto").ToString())) : Exit For If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 17 Then ObjPercepciones.Add(New CFDINominaPercepciones With {.TipoPercepcion = Row("SATCveConcepto").ToString(), .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(), .ImporteGravado = Row("ImporteGravado").ToString().ToDecimal(), .ImporteExento = Row("ImporteExento").ToString().ToDecimal()}) + ElseIf Row("Importe").ToString().ToDecimal() < 0 AndAlso Row("Concepto").ToString() = "Ajuste al neto" Then + ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = "999", .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(), + .Importe = Row("Importe").ToString().ToDecimal() * -1}) Else ObjDeducciones.Add(New CFDINominaDeducciones With {.TipoDeduccion = Row("SATCveConcepto").ToString(), .Clave = Row("Codigo").ToString(), diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index 9b8a0ed78..3f7b5b01f 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -250,7 +250,7 @@ <%----%> - + diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb index 24098a9de..bff8ad86f 100644 --- a/LogIn.aspx.vb +++ b/LogIn.aspx.vb @@ -204,8 +204,13 @@ Partial Class LogIn ADSSessionConfig.sessionUser = Usuario ADSSessionConfig.sessionDpage = False ObjUsuario.Dispose() - - If Usuario IsNot Nothing Then + Dim isgps = Request.Url.Host.ToUpper().Contains("SIGNALSGPS".ToUpper()) + If Usuario IsNot Nothing AndAlso ( + Usuario.CveRol = 1 OrElse ( + (isgps AndAlso (Usuario.CvePlataforma = 3 OrElse Usuario.CveRol = 1200)) OrElse + ((Not isgps) AndAlso (Usuario.CvePlataforma <> 3 AndAlso Usuario.CveRol <> 1200)) + ) + ) Then If Not Usuario.AutorizadoxIP OrElse (HddAdsCodex.Text.Length > 0 AndAlso Usuario.CodigoAutorizado = HddAdsCodex.Text) Then CreaObjetoEmpresa(Usuario) @@ -265,7 +270,6 @@ Partial Class LogIn End If End If End Sub - Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario) Dim ObjEmpresa As New ClsSisEmpresas() diff --git a/Nomina/Nomina2.aspx.cs b/Nomina/Nomina2.aspx.cs index 936840f8f..1b4a6e3b2 100644 --- a/Nomina/Nomina2.aspx.cs +++ b/Nomina/Nomina2.aspx.cs @@ -319,6 +319,7 @@ public partial class Nomina_Nomina2 : ClsPaginas protected void DdlTipoPeriodo_SelectedIndexChanged(object sender, EventArgs e) { cargaPeriodos(); + DdlEjercicios.AutoPostBack = true; } protected void DdlPeriodo_SelectedIndexChanged(object sender, EventArgs e) @@ -3974,7 +3975,9 @@ public partial class Nomina_Nomina2 : ClsPaginas { bool continuar = true; - DataTable dtr = dtempleados.FiltraParametros(string.Format("(CvePersonal={0} OR {0}=-1) AND CvePersonal > 0 AND NomAutorizado =0", FiltroCvePersonal), "", new string[] { "CvePersonal", "CveMetodoPago" }); + string[] getcolumnas = new string[] { "CvePersonal", "CveMetodoPago", "SumaPercepciones", "Total", "SalarioDiario", "SalarioDiarioIMSS", "SalarioDiarioIntegrado", "DiasLaborados", "DiasFaltados", "DiasVacaciones", "DiasIncapacidad" }; + + DataTable dtr = dtempleados.FiltraParametros(string.Format("(CvePersonal={0} OR {0}=-1) AND CvePersonal > 0 AND NomAutorizado =0", FiltroCvePersonal), "", getcolumnas); DataTable dtconp = null; int CvePeriodoSeleccionado = DdlPeriodo.SelectedValue.ToEntero();//cambiar reparar #region PropNomina @@ -4003,7 +4006,6 @@ public partial class Nomina_Nomina2 : ClsPaginas Total = rtemp["Total"].ToString().ToDouble(); if (CvePersonal > 0) { - if (continuar) { if (objNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodoSeleccionado, -1, UsuarioActual.CveEmpresa)) diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 2b7ec2eb7..55f7be7e1 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -943,17 +943,26 @@ Partial Class RH_Personal DdlClienteAsistenciaC.Attributes.Add("onclick", "CargaClientes();") DdlClienteAsistenciaA.Attributes.Add("onclick", "CargaClientes();") CargaClientes() - + Dim fechainicioasistencia As String + Dim fechaFinasistencia As String + If Now.Day >= 15 Then + fechainicioasistencia = String.Format("{0:01/MM/yyyy}", Now) + fechaFinasistencia = String.Format("{0:15/MM/yyyy}", Now) + Else + Dim dateendasis As DateTime = String.Format("{0:01/MM/yyyy}", Now).ToDateTime().AddDays(-1) + fechainicioasistencia = String.Format("{0:16/MM/yyyy}", dateendasis) + fechaFinasistencia = String.Format("{0:dd/MM/yyyy}", dateendasis) + End If If Request("FechaI") IsNot Nothing AndAlso IsDate(Request("FechaI")) Then txtFechaI.Text = Request("FechaI") Else - txtFechaI.Text = Now.ToShortDateString + txtFechaI.Text = fechainicioasistencia End If If Request("FechaF") IsNot Nothing AndAlso IsDate(Request("FechaF")) Then txtFechaF.Text = Request("FechaF") Else - txtFechaF.Text = Now.ToShortDateString + txtFechaF.Text = fechaFinasistencia End If If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then @@ -3177,13 +3186,14 @@ Partial Class RH_Personal #End Region -#Region "I M P R I M I R N O M I N A" +#Region "I M P R I M I R N O M I N A" + Protected Sub LbPDF_Click(sender As Object, e As EventArgs) - Dim LB = CType(sender, LinkButton) - - ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "Recibo") - + Dim LB = CType(sender, LinkButton) + ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "recibo") + ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "recibo") + End Sub #End Region diff --git a/vwd.webinfo b/vwd.webinfo index bd42eb477..37b42e3cc 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -172,6 +172,8 @@ + +