From 1232384b62624c85c1a9a9ce85787a56fccaa6f7 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 28 Nov 2024 20:30:53 -0700 Subject: [PATCH] --- parametro de empresa --- Compras/Proveedores.aspx.vb | 2 +- PortalProveedor/PortalProveedor.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 618b6ce5f..e5548a436 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -1135,7 +1135,7 @@ Partial Class Compras_Proveedores Private Sub CargaBancos(CveProveedorSucursal As Integer, Optional SelectTop As Integer = 21) Dim ObjMovtos As New ClsMovimientos() 'CxC Activas - If ObjMovtos.GetProveedorBancos(CveProveedor, CveMoneda:=CveMonedaFiltro, CveProveedorSucursal:=If(CveProveedorSucursal = 0, -1, CveProveedorSucursal), SelectTop:=SelectTop) Then + If ObjMovtos.GetProveedorBancos(CveProveedor, UsuarioActual.CveEmpresa, CveMoneda:=CveMonedaFiltro, CveProveedorSucursal:=If(CveProveedorSucursal = 0, -1, CveProveedorSucursal), SelectTop:=SelectTop) Then DTCobrosRealizados = ObjMovtos.DtResultados GvBancos.DataSource = DTCobrosRealizados End If diff --git a/PortalProveedor/PortalProveedor.aspx.vb b/PortalProveedor/PortalProveedor.aspx.vb index d1ae59790..5bf0426ce 100644 --- a/PortalProveedor/PortalProveedor.aspx.vb +++ b/PortalProveedor/PortalProveedor.aspx.vb @@ -439,7 +439,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