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

-- se quitó referencia de cvecuenta de proveedores

Browse Source
This commit is contained in:
rrene
2021-05-26 07:38:01 -07:00
parent e8d4e20df3
commit f2cd8f5f4a
2 changed files with 3 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Bancos/PopIEVentas.aspx.vb
View File

@@ -942,7 +942,7 @@ Partial Class Bancos_PopIEVentas
If CveProveedor > 0 Then
If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", RFCCliente, "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
'Conta SIG
'Conta ContPAQ
ViewState("CtaProveedor") = ObjProveedor.IdCtaContProveedores
ViewState("CtaProveedorDeudores") = ObjProveedor.IdCtaContDeudor
ViewState("CtaProveedorAcreedores") = ObjProveedor.IdCtaContAcreedor
@@ -951,16 +951,8 @@ Partial Class Bancos_PopIEVentas
ViewState("IdCtaContRetIVAProveedor") = ObjProveedor.IdCtaContRetIVA
ViewState("IdCtaContRetIVAAcreditableProveedor") = ObjProveedor.IdCtaContRetIVAAcreditable
ViewState("IdCtaProveedorExtranjera") = ObjProveedor.IdCtaContProveedoresExtranjera
ViewState("IdCtaContComplementariaProveedor") = ObjProveedor.IdCtaContProveedoresComplementaria
'Conta ContPAQ
ViewState("CveCuentaProveedor") = ObjProveedor.CveCuentaProveedores
ViewState("CveCuentaProveedorDeudores") = ObjProveedor.CveCuentaDeudor
ViewState("CveCuentaProveedorAcreedores") = ObjProveedor.CveCuentaAcreedor
ViewState("CveCuentaRetISRProveedor") = ObjProveedor.CveCuentaRetISR
ViewState("CveCuentaRetIVAProveedor") = ObjProveedor.CveCuentaRetIVA
ViewState("CveCuentaProveedorExtranjera") = ObjProveedor.CveCuentaProveedoresExtranjera
ViewState("CveCuentaComplementariaProveedor") = ObjProveedor.CveCuentaProveedoresComplementaria
ViewState("IdCtaContComplementariaProveedor") = ObjProveedor.IdCtaContProveedoresComplementaria
End If
End If

7
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -528,9 +528,6 @@ Partial Class Bancos_ProveedoresAbonar
ViewState("IdCtaContRetISR") = ObjProveedor.IdCtaContRetISR
ViewState("IdCtaContRetISRAcreditable") = ObjProveedor.IdCtaContRetISRAcreditable
ViewState("CveCuentaRetIVA") = ObjProveedor.CveCuentaRetIVA
ViewState("CveCuentaRetISR") = ObjProveedor.CveCuentaRetISR
'Sección de pago a proveedor
LtlNombreProveedor.Text = ObjProveedor.RazonSocial
LtlRFCProveedor.Text = ObjProveedor.RFC
@@ -542,10 +539,6 @@ Partial Class Bancos_ProveedoresAbonar
ViewState("IdCtaContComplementaria") = ObjProveedor.IdCtaContProveedoresComplementaria
ViewState("IdCtaAcreedorComplementaria") = ObjProveedor.IdCtaContAcreedorComplementaria
ViewState("CveCuentaProveedor") = ObjProveedor.CveCuentaProveedores
ViewState("CveCuentaProveedorExtranjera") = ObjProveedor.CveCuentaProveedoresExtranjera
ViewState("CveCuentaComplementaria") = ObjProveedor.CveCuentaProveedoresComplementaria
If Serie <> "" AndAlso Serie <> "-1" Then
Dim dr As DataRow = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("Serie = '{0}'", Serie))
If dr IsNot Nothing Then