From 72afa5097e9f1cc67921f0bbaca859f14c3d5602 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Sat, 11 Jul 2020 12:41:01 -0700
Subject: [PATCH] -globaldtusuarioalmacen

---
 Inventarios/CatAlmacenes.aspx.vb | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

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)