-- mejora

Sistemas/PopUpCambiaUsuario.aspx.vb

@@ -25,7 +25,13 @@ Partial Class Sistemas_PopUpCambiaUsuario
                 RegistraScript("window.close();")
             End If
 
-            Dim DtEmp As DataTable = GlobalDTEmpresas(CveEmpresa:=-1).Copy
+            Dim DtEmp As DataTable = Nothing '= GlobalDTEmpresas(CveEmpresa:=-1, tUsrActual:=UsuarioActual).Copy
+            Using ObjEmpresas As New ClsSisEmpresas()
+                If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then
+                    DtEmp = ObjEmpresas.DtResultados
+                End If
+            End Using
+
             Dim NombreEmp As String = UsuarioActual.Empresa.Empresa
                     ''condición para ocultar los nombres de las empresas y ponerles "mi empresa de venta (xxx)"
                     ''If UsuarioActual.CveUsuario = 100 Then