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

--- parametro de empresa

Browse Source
This commit is contained in:
rrene
2024-11-28 20:30:53 -07:00
parent 1211fe3543
commit 1232384b62
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/Proveedores.aspx.vb
View File

@@ -1135,7 +1135,7 @@ Partial Class Compras_Proveedores
Private Sub CargaBancos(CveProveedorSucursal As Integer, Optional SelectTop As Integer = 21) Private Sub CargaBancos(CveProveedorSucursal As Integer, Optional SelectTop As Integer = 21)
Dim ObjMovtos As New ClsMovimientos() Dim ObjMovtos As New ClsMovimientos()
'CxC Activas '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 DTCobrosRealizados = ObjMovtos.DtResultados
GvBancos.DataSource = DTCobrosRealizados GvBancos.DataSource = DTCobrosRealizados
End If End If

2
PortalProveedor/PortalProveedor.aspx.vb
View File

@@ -439,7 +439,7 @@ Partial Class Portal_PortalProveedor
Private Sub CargaBancos(SerieSucursal As String, SelectTop As Integer) Private Sub CargaBancos(SerieSucursal As String, SelectTop As Integer)
Dim ObjMovtos As New ClsMovimientos() Dim ObjMovtos As New ClsMovimientos()
'CxC Activas '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 GvBancos.DataSource = ObjMovtos.DtResultados
BtnVerMasBancos.Visible = ObjMovtos.DtResultados.Rows.Count > 19 BtnVerMasBancos.Visible = ObjMovtos.DtResultados.Rows.Count > 19
DtBancos = ObjMovtos.DtResultados DtBancos = ObjMovtos.DtResultados