From bb293cdeffc33c78cdf999acb73dc23d55ef7ff0 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 29 Nov 2024 07:11:28 -0700 Subject: [PATCH] -- parametro empresa --- Proveedores/PortalProveedor.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Proveedores/PortalProveedor.aspx.vb b/Proveedores/PortalProveedor.aspx.vb index 48f866941..f38214abf 100644 --- a/Proveedores/PortalProveedor.aspx.vb +++ b/Proveedores/PortalProveedor.aspx.vb @@ -124,7 +124,7 @@ Partial Class Portal_PortalProveedor #Region "C A R G A - D A T O S" Protected Sub CargaDatos() - GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimero($"CveProveedor = {CveProveedor}") + Dim ObjProveedor As New ClsCompProveedores() If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", 1, UsuarioActual.CveEmpresa) Then If ObjProveedor.DtResultados.Rows.Count > 0 Then @@ -259,7 +259,7 @@ Partial Class Portal_PortalProveedor Private Sub CargaBancos(SerieSucursal As String, SelectTop As Integer) Dim ObjMovtos As New ClsMovimientos() 'CxC Activas - If ObjMovtos.GetProveedorBancos(CveProveedor, CveProveedorSucursal:=-1, SelectTop:=SelectTop) AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then + If ObjMovtos.GetProveedorBancos(CveProveedor, UsuarioActual.CveEmpresa, CveProveedorSucursal:=-1, SelectTop:=SelectTop) AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then GvBancos.DataSource = ObjMovtos.DtResultados BtnVerMasBancos.Visible = ObjMovtos.DtResultados.Rows.Count > 19 DtBancos = ObjMovtos.DtResultados