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

-- cambios en prepolizasdetalle

Browse Source
This commit is contained in:
rrene
2023-08-14 18:11:11 -07:00
parent 292f882458
commit 4bce2fcc28
58 changed files with 726 additions and 2259 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
AC/RegNomina.aspx.vb
View File

@@ -558,8 +558,8 @@ Partial Class AC_RegNomina
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, Folio, Obs, Total, 1, 1.0, Obs, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CveIE > 0 Then
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Total, "", CveConceptoCargo, Obs, Fecha, 0, -1, CveIE, CvePersonal:=DdlNominaPersonal.SelectedValue.ToEntero, ImporteMX:=Total) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Total, "", CveConceptoAbono, Obs, Fecha, 0, -1, CveIE, CvePersonal:=DdlNominaPersonal.SelectedValue.ToEntero, ImporteMX:=Total) Then
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Total, Total, CveConceptoCargo, "", Obs, CveIE:=CveIE, CvePersonal:=DdlNominaPersonal.SelectedValue.ToEntero) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Total, Total, CveConceptoAbono, "", Obs, CveIE:=CveIE, CvePersonal:=DdlNominaPersonal.SelectedValue.ToEntero) Then
MsgError = "no se pudo insertar el detalle de la póliza 2"
End If
Else