-- parametros globaldtuentas usuarios

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)

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

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