diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index a67afdb37..d4e4b6413 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/Sistemas/UsuarioDetalle.aspx.vb
@@ -1384,8 +1384,10 @@ Partial Class Sistemas_UsuarioDetalle
         GlobalDTAlmacenUsuarios(-1, tCveEmpresa) = Nothing
         GlobalDTUsuarioResponsable(tCveEmpresa) = Nothing
         GlobalDTUsuarios(CveEmpresa:=tCveEmpresa) = Nothing
-        GlobalDTUsuarios(CveEmpresa:=-1) = Nothing
+        GlobalDTUsuarios(CveEmpresa:=tCveEmpresa) = Nothing
 
+        'si hay diferencia en la empresa asignada y la asociada.
+        If tCveEmpresa <> DdlEmpresa.SelectedValue.ToEntero Then GlobalDTUsuarios(CveEmpresa:=DdlEmpresa.SelectedValue.ToEntero) = Nothing
 
         'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then
         '    Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados