diff --git a/Sistemas/PopUpCambiaUsuario.aspx.vb b/Sistemas/PopUpCambiaUsuario.aspx.vb
index fcf77c1d4..e84b800d4 100644
--- a/Sistemas/PopUpCambiaUsuario.aspx.vb
+++ b/Sistemas/PopUpCambiaUsuario.aspx.vb
@@ -106,7 +106,7 @@ Partial Class Sistemas_PopUpCambiaUsuario
                 ObjUsuario.Dispose()
 
                 If Usuario IsNot Nothing Then
-                    Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
+                    Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario, CveEmpresa:=tCveEmpresa)
                     ADSSessionConfig.sessionUser = Usuario
                     ADSSessionConfig.sessionUser.CvePlataforma = 1
                     If Usuario.CveRol = 1200 Then
diff --git a/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb b/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb
index ad903f0d1..3a81bbd96 100644
--- a/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb
+++ b/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb
@@ -105,7 +105,7 @@ Partial Class Sistemas_PopUpCambiaUsuarioEmpresa
                 ObjUsuario.Dispose()
 
                 If Usuario IsNot Nothing Then
-                    Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
+                    Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario, CveEmpresa:=tCveEmpresa)
                     ADSSessionConfig.sessionUser = Usuario
                     ADSSessionConfig.sessionUser.CvePlataforma = 1
                     If Usuario.CveRol = 1200 Then
@@ -123,11 +123,8 @@ Partial Class Sistemas_PopUpCambiaUsuarioEmpresa
                         CargaZonasHorarias(UsuarioActual)
                     End If
                 End If
-
                 RegistraScript("gotourl();")
-
             End If
-
         End If
     End Sub
     Private Sub CargaZonasHorarias(ByRef UsuarioActual As Usuario)
@@ -174,7 +171,7 @@ Partial Class Sistemas_PopUpCambiaUsuarioEmpresa
     End Sub
 
     Private Sub CargaUsuarios(Optional Orden As String = "Nombre")
-        Dim dtt As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("CveRol <> 1")
+        Dim dtt As DataTable = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol <> 1")
         dtt = dtt.FiltraParametros("Estatus = 1", Orden, {"CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol"})
         gvUsuarios.DataSource = dtt
         gvUsuarios.DataBind()