diff --git a/Inventarios/CatAlmacenes.aspx.vb b/Inventarios/CatAlmacenes.aspx.vb
index c600d6351..b1fc5a922 100644
--- a/Inventarios/CatAlmacenes.aspx.vb
+++ b/Inventarios/CatAlmacenes.aspx.vb
@@ -205,11 +205,8 @@ Partial Class Inventarios_CatAlmacenes
     End Sub
 
     Private Sub RecargaGlobalAlmacenesUsuarios()
-        Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetAlmacen(-1) Then
-            Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados
-        End If
-        ObjUsuarios.Dispose()
+        GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
+
     End Sub
     'Private Sub CargaSucursal()
     '    DtSubProyectos = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto =" & DdlSubProyecto.SelectedValue.ToEntero)