From 49712e2c1c93b5574b7c1dc03b9caad506232c20 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 7 Jul 2020 08:46:45 -0700
Subject: [PATCH] - cambio globaldtalmacenusuarios

---
 App_Code/Modelos.vb | 25 ++++++++++++++-----------
 1 file changed, 14 insertions(+), 11 deletions(-)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 8c878fb6a..5d28a3a5a 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -7478,21 +7478,24 @@ Namespace Modelos
         End Property
         Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1) As DataTable
             Get
-                If CveEmpresa <> -1 Then
-                    Dim Str As New StringBuilder
-                    Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa)
-                    If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
-
-                    Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
-                    GlobalDTAlmacenUsuarios = Dv.ToTable
-                    Dv.Dispose()
-                Else
-                    GlobalDTAlmacenUsuarios = DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable)
+                Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa)
+                'sino existe, recarga los datos
+                If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                    Dim ObjUsr As New ClsSisUsuarios
+                    If ObjUsr.GetAlmacen(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjUsr.DtResultados
+                    ObjUsr.Dispose()
                 End If
+                Dim Str As New StringBuilder
+                Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa)
+                If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
 
+                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+                GlobalDTAlmacenUsuarios = Dv.ToTable
+                Dv.Dispose()
             End Get
             Set(value As DataTable)
-                HttpContext.Current.Application("GlobalDTAlmacenUsuarios") = value
+                Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa)
+                HttpContext.Current.Application(AppNombre) = value
             End Set
         End Property
         Property GlobalDTNom_Periodos() As DataTable