diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index 3c769756c..1465720ec 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/Sistemas/UsuarioDetalle.aspx.vb
@@ -1323,7 +1323,7 @@ Partial Class Sistemas_UsuarioDetalle
 
 
         'RECARGA GLOBAL ALMACEN
-        If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
+        If ObjUsuarios.GetAlmacen(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
 
 
         'RECARGA GLOBAL EMPRESAS USUARIOS
@@ -2068,7 +2068,7 @@ Partial Class Sistemas_UsuarioDetalle
     Private Sub CargaDtAlmacen()
         Dim ClsUsuarios As New ClsSisUsuarios
 
-        If ClsUsuarios.GetAlmacen(CveUsuario) Then
+        If ClsUsuarios.GetAlmacen(CveUsuario, UsuarioActual.CveEmpresa) Then
             DtAlmacenes = ClsUsuarios.DtResultados.FiltraParametros(String.Format("CveUsuario = {0}", CveUsuario))
         Else
             DtAlmacenes = Nothing