-- conceptos de descuento de nomina

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>
-                                
+                                <td>Pensión:</td><td><asp:TextBox ID="TxtPension" runat="server" Width="75px"></asp:TextBox></td>
-                                 </tr></table>
+                                <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" >

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 
+            'Registro Cuotas Sindicales
-            Importe = TxtISPT.Text.ToDouble - TxtCredSalario.Text.ToDouble
+            Importe = TxtSindical.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
+            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