From 3faf02bc6ededd3347e4f2c2543136ec95b49d72 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 9 Oct 2020 12:20:01 -0700 Subject: [PATCH] parametro global bancos --- Sistemas/CatSesiones.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index 88f01e6ec..d37d08cc2 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -419,7 +419,7 @@ Partial Class Sistemas_CatSesiones Private Sub CargaBancosCuentas() Dim Banc As New ClsBancos - If Banc.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = Banc.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing + If Banc.GetBancosCuentasUsuarios(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTBancosCuentas") = Banc.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing Banc.Dispose() End Sub