AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- conceptos de descuento de nomina

Browse Source
This commit is contained in:
rrene
2021-05-05 12:11:15 -07:00
parent 584cca327c
commit 161e2f8877
2 changed files with 49 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
AC/RegNomina.aspx
View File

@@ -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" >

38
AC/RegNomina.aspx.vb
View File

@@ -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