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

-- limpieza de variables de cuentas.

Browse Source
This commit is contained in:
rrene
2022-06-30 16:59:43 -07:00
parent fa57f67cff
commit 12f174c945
9 changed files with 19 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Bancos/RegistroPagoIntermediario.aspx.vb
View File

@@ -22,14 +22,6 @@ Partial Class Bancos_PagosIntermediarios
ViewState("IdCuentaBancaria") = value
End Set
End Property
Private Property CveCuentaBancaria As Integer
Get
Return ViewState("CveCuentaBancaria").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveCuentaBancaria") = value
End Set
End Property
Private Property CveMoneda As Integer
Get
Return ViewState("CveMoneda").ToString.ToEntero
@@ -89,7 +81,6 @@ Partial Class Bancos_PagosIntermediarios
If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
End If
If UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then
@@ -215,7 +206,7 @@ Partial Class Bancos_PagosIntermediarios
End If
Next
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtTotalBancos.Text.ToDecimal, ConceptoMovimientoBancos, 30, ConceptoMovimientoBancos, FechaMovimiento, IdCuentaBancaria, -1, CveIE, -1, -1, -1, CveCliente, ImporteMX:=TxtTotalBancos.Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaBancaria) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtTotalBancos.Text.ToDecimal, ConceptoMovimientoBancos, 30, ConceptoMovimientoBancos, FechaMovimiento, IdCuentaBancaria, -1, CveIE, -1, -1, -1, CveCliente, ImporteMX:=TxtTotalBancos.Text.ToDecimal * tipoCambio) Then
MsgError = "No se pudo insertar la póliza"
End If