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

6
Bancos/DepositosCaja.aspx.vb
View File

@@ -213,13 +213,11 @@ Partial Class Bancos_DepositosCaja
Dim CveProveedorIntermediario As Integer = -1
If drOrigen IsNot Nothing Then
CveMoneda = drOrigen("CveMoneda").ToString.ToEntero
IdCuentaBancariaOrigen = drOrigen("IdCtaContable").ToString.ToEntero
CveMoneda = drOrigen("CveMoneda").ToString.ToEntero
End If
If drDestino IsNot Nothing Then
CveMoneda = drDestino("CveMoneda").ToString.ToEntero
IdCuentaBancariaDestino = drDestino("IdCtaContable").ToString.ToEntero
CveMoneda = drDestino("CveMoneda").ToString.ToEntero
End If
NuevaCvePrePoliza = ObjConta.AddPrePolizas("DepCaja", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, "Depósito Bancario", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=1)