From 5c1030a7c15cc1a79a826f1300bedca98a0af855 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 10 Apr 2024 06:28:02 -0700 Subject: [PATCH] --- App_Code/ClsNominas.vb | 11 +- App_Code/ClsPaginas.vb | 6 +- Nomina/Nomina.aspx | 182 +++++++- Nomina/Nomina.aspx.cs | 942 ++++++++++++++++++++++++----------------- 4 files changed, 753 insertions(+), 388 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 0e34fcd2f..418df87c3 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -372,7 +372,16 @@ Public Class ClsNominas SqlAdapter.Fill(DTSetResultados) retorno = True Catch ex As Exception - OnError("Ocurrió un error al actualizar forma de pago.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Dim msgerror As String = "Ocurrió un error al actualizar forma de pago." + If String.IsNullOrEmpty(BancoNumCuenta) Then + msgerror = "El campo numero de cuenta es necesario" + + End If + If String.IsNullOrEmpty(CLABE) Then + msgerror = "El campo numero de CLABE es necesario" + + End If + OnError(msgerror, ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index b433d440c..487f2a677 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -8267,9 +8267,9 @@ Public Class ClsPaginas filtrop = "AND CveSistema IN(10,11,32)" friltrod = " AND CveSistema =47" End If - DTPercepciones = ObjNomina.DtResultados.FiltraParametros($"((Tipo = 'P' OR (Tipo = 'D' AND Importe <0)) AND Importe <>0 AND EsPadre = 1 AND SoloVisible =0) {filtrop}") - DTDeducciones = ObjNomina.DtResultados.FiltraParametros($"(Tipo = 'D' AND Importe >0 AND EsPadre = 1 AND SoloVisible =0) {friltrod}") - DTDeducciones2 = ObjNomina.DtResultados.FiltraParametros($"((Tipo = 'D' AND Importe >0 AND EsPadre = 1 AND SoloVisible =0) OR CveSistema IN (20,21) OR CveConcepto =4714){friltrod}") + DTPercepciones = ObjNomina.DtResultados.FiltraParametros($"((Tipo = 'P' OR (Tipo = 'D' AND Importe <0)) AND ((Importe <>0 AND EsPadre = 1 AND SoloVisible =0) OR Imprimir =1)) {filtrop}") + DTDeducciones = ObjNomina.DtResultados.FiltraParametros($"(Tipo = 'D' AND ((Importe >0 AND EsPadre = 1 AND SoloVisible =0) OR Imprimir =1) ) {friltrod}") + DTDeducciones2 = ObjNomina.DtResultados.FiltraParametros($"(Tipo = 'D' AND (( Importe >0 AND EsPadre = 1 AND SoloVisible =0) OR Imprimir =1) ){friltrod}") ajusteindemnizacion = ObjNomina.DtResultados.FiltraParametros($"((Tipo = 'P' OR (Tipo = 'D' AND Importe <0)) AND Importe <>0 AND EsPadre = 1 AND SoloVisible =0) AND CveSistema IN(10,11,32)").SUM("Importe") - ObjNomina.DtResultados.FiltraParametros($"(Tipo = 'D' AND Importe >0 AND EsPadre = 1 AND SoloVisible =0) AND CveSistema =47").SUM("Importe") For Each row As DataRow In DTPercepciones.Rows diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index 57d521871..1abdbca12 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -216,6 +216,15 @@ +
  • + Ordenar +
  • +
  • + Ocultar / Mostrar +
  • +
  • + Ordenar +
  • Autorizar
  • @@ -3948,6 +3957,8 @@ Cargar + + @@ -4728,8 +4739,6 @@