Cambio en GLOBAL Almacen

2020-10-17 14:29:08 -07:00
parent befde50d25
commit 1e030e7eec
2 changed files with 41 additions and 13 deletions
--- a/Inventarios/CatAlmacenes.aspx.vb
+++ b/Inventarios/CatAlmacenes.aspx.vb
@@ -215,11 +215,11 @@ Partial Class Inventarios_CatAlmacenes

    Private Sub RecargaGlobalAlmacenes()
        GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing
-        'Dim ObjAlmacen As New ClsInventarios
-        'If ObjAlmacen.GetAlmacenes(-1, -1, -1, -1) Then
-        '    GlobalDTAlmacen(-1) = ObjAlmacen.DtResultados
-        'End If
-        'ObjAlmacen.Dispose()
+        Dim ObjAlmacen As New ClsInventarios
+        If ObjAlmacen.GetAlmacenes(-1, -1, -1, -1) Then
+            HttpContext.Current.Application("GlobalDTAlmacen") = ObjAlmacen.DtResultados
+        End If
+        ObjAlmacen.Dispose()
    End Sub

    Private Sub RecargaGlobalAlmacenesUsuarios()