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

-- cambio en variables cvecuenta

Browse Source
This commit is contained in:
rrene
2021-07-07 06:54:17 -07:00
parent 4d6aceeab3
commit 21b8719da4
2 changed files with 8 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
PortalCliente/PortalCliente.aspx.vb
View File

@@ -726,28 +726,20 @@ Partial Class Ventas_PortalCliente
Dim MensajeAlert As New StringBuilder
Dim ObjConta As New ClsContabilidad
Dim ObjCliente As New ClsClientes(ObjConta.IniciaTransacSQL)
Dim CveCuentacliente = -1
Dim ObjCliente As New ClsClientes(ObjConta.IniciaTransacSQL)
Dim IdCuentaCliente = -1
Dim IdCtaContMonedaExtranjera = -1
Dim CveCuentaComplementaria = -1
Dim CveCuentaMonedaExtranjera = -1
Dim IdCtaContMonedaExtranjera = -1
Dim IdCtaContRetIVA = -1
Dim IdCtaContRetISR = -1
Dim CveCuentaRetIVA = -1
Dim CveCuentaRetISR = -1
Dim IdCtaContRetISR = -1
If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) AndAlso ObjCliente.DtResultados.Rows.Count > 0 Then
IdCuentaCliente = ObjCliente.IdCtaContClientes
CveCuentacliente = ObjCliente.CveCuentaClientes
IdCtaContMonedaExtranjera = ObjCliente.IdCtaContMonedaExtranjera
CveCuentaMonedaExtranjera = ObjCliente.CveCuentaMonedaExtranjera
CveCuentaComplementaria = ObjCliente.CveCuentaComplementaria
IdCtaContRetIVA = ObjCliente.IdCtaContRetIVA
IdCtaContRetISR = ObjCliente.IdCtaContRetISR
CveCuentaRetIVA = ObjCliente.CveCuentaRetIVA
CveCuentaRetISR = ObjCliente.CveCuentaRetISR
Else
TieneError = True
MensajeError.Append("Ocurrió un error al cargar la información contable del cliente. Por favor vuelva a intentar<br>")
@@ -3154,9 +3146,7 @@ Partial Class Ventas_PortalCliente
End If
ViewState("IdCtaContRetIVA") = ObjCliente.IdCtaContRetIVA
ViewState("CveCuentaRetIVA") = ObjCliente.CveCuentaRetIVA
ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
ViewState("CveCuentaRetISR") = ObjCliente.CveCuentaRetISR
End If
End If
ObjCliente.Dispose()