diff --git a/Sistemas/PopUpCambiaUsuario.aspx.vb b/Sistemas/PopUpCambiaUsuario.aspx.vb
index 316610be5..07253366e 100644
--- a/Sistemas/PopUpCambiaUsuario.aspx.vb
+++ b/Sistemas/PopUpCambiaUsuario.aspx.vb
@@ -25,59 +25,65 @@ 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
+                    ''condición para ocultar los nombres de las empresas y ponerles "mi empresa de venta (xxx)"
+                    ''If UsuarioActual.CveUsuario = 100 Then
 
-            ''    Dim customerRow() As Data.DataRow
-            ''    customerRow = DtEmp.Select("")
+                    ''    Dim customerRow() As Data.DataRow
+                    ''    customerRow = DtEmp.Select("")
 
-            ''    For Each drt As DataRow In customerRow
-            ''        drt("Empresa") = "Mi Empresa de ventas (" & drt("CveEmpresa") & ")"
-            ''    Next
+                    ''    For Each drt As DataRow In customerRow
+                    ''        drt("Empresa") = "Mi Empresa de ventas (" & drt("CveEmpresa") & ")"
+                    ''    Next
 
 
-            ''End If
+                    ''End If
 
-            CType(Me.Master, BaseMasterPage).EsPopup = True
-            LblUsuario.Text = String.Format("{0} - {1}", UsuarioActual.Nombre, UsuarioActual.Empresa.Empresa)
+                    CType(Me.Master, BaseMasterPage).EsPopup = True
+                    LblUsuario.Text = String.Format("{0} - {1}", UsuarioActual.Nombre, UsuarioActual.Empresa.Empresa)
 
 
-            DdlEmpresa.DataSource = DtEmp '.FiltraParametros(If(UsuarioActual.CveRol = 1, "CvePlataforma IN (1,2)", $"CvePlataforma={UsuarioActual.Empresa.CvePlataforma}"))
-            Dim CveEmpresa As String = UsuarioActual.CveEmpresa.ToString()
+                    DdlEmpresa.DataSource = DtEmp '.FiltraParametros(If(UsuarioActual.CveRol = 1, "CvePlataforma IN (1,2)", $"CvePlataforma={UsuarioActual.Empresa.CvePlataforma}"))
+                    Dim CveEmpresa As String = UsuarioActual.CveEmpresa.ToString()
 
-            Dim splitedtext As String() = Request.Url.AbsoluteUri.Replace("http://", "").Replace("https://", "").Split("."c)
+                    Dim splitedtext As String() = Request.Url.AbsoluteUri.Replace("http://", "").Replace("https://", "").Split("."c)
 
-            If splitedtext.Length > 0 Then
-                Select Case splitedtext(0).ToUpper()
-                    Case "VSH" : CveEmpresa = "7"
-                    Case "JAM" : CveEmpresa = "119"
-                    Case "COMPUPROVEEDORES" : CveEmpresa = "72"
-                    Case "DNDIFUSA" : CveEmpresa = "80"
-                    Case "SOGO" : CveEmpresa = "8"
-                    Case "BDH" : CveEmpresa = "140"
-                    Case "ECONOLLANTAS" : CveEmpresa = "141"
-                    Case "SERVEC" : CveEmpresa = "153"
-                    Case "CITRUS" : CveEmpresa = "172"
-                    Case "KINO" : CveEmpresa = "173"
-                End Select
-            End If
-            If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then
-                CveEmpresa = "158"
-            End If
-            DdlEmpresa.DataBind()
-            DdlEmpresa.SelectedValue = CveEmpresa
+                    If splitedtext.Length > 0 Then
+                        Select Case splitedtext(0).ToUpper()
+                            Case "VSH" : CveEmpresa = "7"
+                            Case "JAM" : CveEmpresa = "119"
+                            Case "COMPUPROVEEDORES" : CveEmpresa = "72"
+                            Case "DNDIFUSA" : CveEmpresa = "80"
+                            Case "SOGO" : CveEmpresa = "8"
+                            Case "BDH" : CveEmpresa = "140"
+                            Case "ECONOLLANTAS" : CveEmpresa = "141"
+                            Case "SERVEC" : CveEmpresa = "153"
+                            Case "CITRUS" : CveEmpresa = "172"
+                            Case "KINO" : CveEmpresa = "173"
+                        End Select
+                    End If
+                    If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then
+                        CveEmpresa = "158"
+                    End If
+                    DdlEmpresa.DataBind()
+                    DdlEmpresa.SelectedValue = CveEmpresa
 
-            'DdlRol.DataSource = GlobalDTRoles(DdlEmpresa.SelectedValue.ToEntero)
-            'DdlRol.DataBind()
-            'DdlRol.Items.Insert(0, New ListItem("Todos", "-1"))
+                    'DdlRol.DataSource = GlobalDTRoles(DdlEmpresa.SelectedValue.ToEntero)
+                    'DdlRol.DataBind()
+                    'DdlRol.Items.Insert(0, New ListItem("Todos", "-1"))
 
 
-            CargaUsuarios()
-            'LblUsuario.Text = usuarioactual.
+                    CargaUsuarios()
+                    'LblUsuario.Text = usuarioactual.
 
-        End If
+                End If
     End Sub