-- conceptos de descuento de nomina

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