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

columna de préstamos empleados

Browse Source
This commit is contained in:
rrene
2021-06-25 07:34:30 -07:00
parent 3278709e48
commit 14d211f071
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
AC/RegNomina.aspx
View File

@@ -107,7 +107,7 @@
<td> <td>
<asp:TextBox ID="TxtSindical" runat="server" Width="75px"></asp:TextBox></td> <asp:TextBox ID="TxtSindical" runat="server" Width="75px"></asp:TextBox></td>
<td> </td><td> </td> <td>P. Empleados:</td><td><asp:TextBox ID="TxtPrestamoEmpleados" runat="server" Width="75px"></asp:TextBox></td>
</tr> </tr>
</table> </table>
</asp:Panel> </asp:Panel>

4
AC/RegNomina.aspx.vb
View File

@@ -379,6 +379,7 @@ Partial Class AC_RegNomina
Dim IdCtaServicioMedico As Integer = 643 Dim IdCtaServicioMedico As Integer = 643
Dim IdCtaPension As Integer = 643 Dim IdCtaPension As Integer = 643
Dim IdCtaISRAsimilados As Integer = 4442 Dim IdCtaISRAsimilados As Integer = 4442
Dim IdCtaPrestamoEmpleados As Integer = 4477
Dim Importe As Double Dim Importe As Double
Dim MsgError As String = "" Dim MsgError As String = ""
@@ -617,6 +618,9 @@ Partial Class AC_RegNomina
Importe = TxtISRAsimilados.Text.ToDouble Importe = TxtISRAsimilados.Text.ToDouble
If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaISRAsimilados, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaISRAsimilados, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True
'Registro Prestamo Empleados
Importe = TxtPrestamoEmpleados.Text.ToDouble
If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaPrestamoEmpleados, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True
''Registro del Mov Devolución ''Registro del Mov Devolución
'Importe = TxtISPT.Text.ToDouble - TxtCredSalario.Text.ToDouble 'Importe = TxtISPT.Text.ToDouble - TxtCredSalario.Text.ToDouble