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

GlobalDTOCEstatusUsuarios, GlobalDTBancosCuentas, OC anticpos

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-07-16 15:23:10 -07:00
parent 2188c6b8ce
commit 7cf2df795a
74 changed files with 855 additions and 363 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/RepCreditos.aspx.vb
View File

@@ -472,7 +472,7 @@ Partial Class Bancos_RepCreditos
''obtengo la cuenta de pago, de crediproveedores
Dim CveCuenta As Integer
Dim drBC As DataRow = GlobalDTBancosCuentas(-1).FiltroPrimero("CveTipoCuenta = 7") 'obtiene la primer cuenta de crediproveedores
Dim drBC As DataRow = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveTipoCuenta = 7") 'obtiene la primer cuenta de crediproveedores
If drBC IsNot Nothing Then CveCuenta = drBC("CveCuenta").ToString.ToEntero
Dim CveCredito As Integer = ObjCredito.AddCreditos(1, drE("Referencia").ToString.Trim, "-1", CveCuenta, CveCompra, -1, 1, drE("FechaInicio").ToString.ToDate, drE("FechaVencimiento").ToString.ToDate, drE("Tasa").ToString.ToDouble, drE("SobreTasa").ToString.ToDouble, 0.16, drE("Plazo").ToString.ToEntero,