From 597fa4d9c7b72d6cc4752d71a4c6ca47d9d56724 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 28 Jul 2020 23:14:18 -0700 Subject: [PATCH] -- parametros globaldtuentas usuarios --- App_Code/ClsBancos.vb | 3 ++- App_Code/ClsPaginas.vb | 10 ++-------- App_Code/Modelos.vb | 2 +- 3 files changed, 5 insertions(+), 10 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index b4ce6e00d..8990aaf81 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -611,12 +611,13 @@ Public Class ClsBancos #Region " B A N C O S - C U E N T A S - U S U A R I O S" - Public Function GetBancosCuentasUsuarios(CveCuenta As Integer) As Boolean + Public Function GetBancosCuentasUsuarios(CveCuenta As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Banc_BancosCuentasUsuariosGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 26260d8a2..2c81af9be 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1459,14 +1459,8 @@ Public Class ClsPaginas 'sino existe, recarga los datos If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then Dim ObjBancos As New ClsBancos - If ObjBancos.GetBancosCuentasUsuarios(-1) Then - - If CveEmpresa > 0 Then - Application(AppNombre) = ObjBancos.DtResultados.FiltraParametros($"CveEmpresa = { CveEmpresa }") - Else - Application(AppNombre) = ObjBancos.DtResultados - End If - + If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then + Application(AppNombre) = ObjBancos.DtResultados Else Application(AppNombre) = Nothing End If diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 32b6b6183..ad137e7d5 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -7199,7 +7199,7 @@ Namespace Modelos 'sino existe, recarga los datos If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then Dim ObjBancos As New ClsBancos - If ObjBancos.GetBancosCuentasUsuarios(-1) Then + If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjBancos.DtResultados Else HttpContext.Current.Application(AppNombre) = Nothing