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