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

-- limpieza de código de mandar idcta de contpaq

Browse Source
This commit is contained in:
rrene
2023-08-09 19:00:12 -07:00
parent eb4abbe9a5
commit 4e13b96c3a
90 changed files with 1583 additions and 10362 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
AC/RegRecaudado.aspx.vb
View File

@@ -89,11 +89,6 @@ Partial Class AC_RegRecaudado
Dim CtaCliente, CveCliente As Integer
CveCliente = DdlCliente.SelectedValue.ToEntero
If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then
CtaCliente = ObjCliente.IdCtaContClientes
End If
Dim CuentaAbono As Integer
If CtaCliente <= 0 Then
@@ -104,16 +99,14 @@ Partial Class AC_RegRecaudado
CuentaAbono = drCuenta("Id").ToString.ToEntero
Dim FolioProveedor = ObjContaAC.GetFolioProveedores("011220000000000000").ToString
CtaCliente = ObjContaAC.AddCuenta(String.Format("01122{0}000000000", FolioProveedor.PadLeft(4, "0"c)), DdlCliente.SelectedItem.Text, "A", 2, 0, 1, 0, "", 1, CuentaAbono)
ObjCliente.UpdateClienteIdCuenta(CveCliente, CtaCliente)
'ObjCliente.UpdateClienteIdCuenta(CveCliente, CtaCliente)
Else
ErrorAC = True
End If
Else
ErrorAC = True
End If
End If
'CARGO la deuda del cliente