From 30e0decf3efe5b1d3d642e0d19b1fb405ca304f6 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 1 Aug 2024 11:08:02 -0700
Subject: [PATCH] =?UTF-8?q?--=20aqui=20aplica=20el=20GlobalDTUsuarios(-1,?=
 =?UTF-8?q?=20-1)=20,=20=C3=BAnico=20lugar?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Sistemas/PopUpSeleccionarEmpresa.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
index 7a25e1e90..fd4dd7351 100644
--- a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
+++ b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
@@ -14,8 +14,8 @@ Partial Class PopUpSeleccionarEmpresa
     End Sub
 
     Private Sub GetEmpresas()
-        GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
-        Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        GlobalDTUsuarios(-1, -1) = Nothing
+        Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, -1)
 
         If Dt IsNot Nothing Then
             If Dt.Rows.Count > 0 Then