From 161e2f8877b276483b8827e0d3362f0d3723f491 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 5 May 2021 12:11:15 -0700
Subject: [PATCH] -- conceptos de descuento de nomina

---
 AC/RegNomina.aspx    | 17 ++++++++++++++---
 AC/RegNomina.aspx.vb | 38 +++++++++++++++++++++++++++++++++++---
 2 files changed, 49 insertions(+), 6 deletions(-)

diff --git a/AC/RegNomina.aspx b/AC/RegNomina.aspx
index 5f660dfe7..db1709f12 100644
--- a/AC/RegNomina.aspx
+++ b/AC/RegNomina.aspx
@@ -93,12 +93,23 @@
                             <table><tr><td>ISPT</td>
                                 <td>
                                     <asp:TextBox ID="TxtISPT" runat="server" Width="75px"></asp:TextBox></td>
-                               
+                                <td>Servicio Médico:</td><td><asp:TextBox ID="TxtServicioMedico" runat="server" Width="75px"></asp:TextBox></td>
+                                <td>Fonacot:</td><td><asp:TextBox ID="TxtFonacot" runat="server" Width="75px"></asp:TextBox></td>
                             </tr><tr> <td>Crédito al Salario</td>
                                 <td>
                                     <asp:TextBox ID="TxtCredSalario" runat="server" Width="75px"></asp:TextBox></td>
-                                
-                                 </tr></table>
+                                <td>Pensión:</td><td><asp:TextBox ID="TxtPension" runat="server" Width="75px"></asp:TextBox></td>
+                                <td>P. Infonavit:</td><td><asp:TextBox ID="TxtInfonavit" runat="server" Width="75px"></asp:TextBox></td>
+                                 </tr>
+                             </tr><tr> 
+                                  <td>ISR Asimilados</td><td>  <asp:TextBox ID="TxtISRAsimilados" runat="server" Width="75px"></asp:TextBox></td>
+                                 <td>C. Sindical</td>
+                                <td>
+                                    <asp:TextBox ID="TxtSindical" runat="server" Width="75px"></asp:TextBox></td>
+                               
+                                <td> </td><td> </td>
+                                 </tr>
+                            </table>
                         </asp:Panel>
                         <asp:Panel ID="PnlFiniquito" runat="server" Visible="true">
                             <table border="0" id="TbIEPersonal" runat="server" Visible="false" >
diff --git a/AC/RegNomina.aspx.vb b/AC/RegNomina.aspx.vb
index 2d6a6cd3d..cc9ed0b49 100644
--- a/AC/RegNomina.aspx.vb
+++ b/AC/RegNomina.aspx.vb
@@ -373,6 +373,12 @@ Partial Class AC_RegNomina
         Dim IdCtaCreditoSalario As Integer = 635
         Dim IdCtaDevolucionISPT As Integer = 1745
         Dim IdCtaMatriz As Integer
+        Dim IdCtaCuotaSindical As Integer = 644
+        Dim IdCtaInfonavit As Integer = 2018
+        Dim IdCtaFonacot As Integer = 646
+        Dim IdCtaServicioMedico As Integer = 643
+        Dim IdCtaPension As Integer = 643
+        Dim IdCtaISRAsimilados As Integer = 4442
 
         Dim Importe As Double
         Dim MsgError As String = ""
@@ -564,6 +570,7 @@ Partial Class AC_RegNomina
 
                     ObjIE.UpdateIEPrePoliza(Fecha, objAC.Folio.ToString, IDPoliza, CvePrePoliza, CveIE, -1)
                 Else
+                    MsgError = "no se pudo agregar el movimiento bancario"
                     TieneError = True
                 End If
 
@@ -586,9 +593,34 @@ Partial Class AC_RegNomina
             If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaCreditoSalario, False, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True
 
 
-            'Registro del Mov Devolución 
-            Importe = TxtISPT.Text.ToDouble - TxtCredSalario.Text.ToDouble
-            If Importe <> 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaDevolucionISPT, If(Importe > 0, False, True), Math.Abs(Importe), "", Concepto, 0, Fecha, "") Then TieneError = True
+            'Registro Cuotas Sindicales
+            Importe = TxtSindical.Text.ToDouble
+            If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaCuotaSindical, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True
+
+            'Registro Prestamo infonavit
+            Importe = txtInfonavit.Text.ToDouble
+            If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaInfonavit, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True
+
+            'Registro Fonacot
+            Importe = txtFonacot.Text.ToDouble
+            If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaFonacot, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True
+
+            'Registro Servicio Medico
+            Importe = txtServicioMedico.Text.ToDouble
+            If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaServicioMedico, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True
+
+            'Registro Pensión
+            Importe = txtPension.Text.ToDouble
+            If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaPension, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True
+
+            'Registro ISR Asimilados
+            Importe = TxtISRAsimilados.Text.ToDouble
+            If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaISRAsimilados, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True
+
+
+            ''Registro del Mov Devolución 
+            'Importe = TxtISPT.Text.ToDouble - TxtCredSalario.Text.ToDouble
+            'If Importe <> 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaDevolucionISPT, If(Importe > 0, False, True), Math.Abs(Importe), "", Concepto, 0, Fecha, "") Then TieneError = True
 
         Else
             TieneError = True