From 5b84211e8f3d27547610ef9cd1862be12ce11167 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 20 Oct 2020 21:34:56 -0700
Subject: [PATCH] - GlobalDTAlmacen

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

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 1a6d06c81..6171e138d 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -7505,17 +7505,28 @@ Namespace Modelos
         End Property
         Property GlobalDTAlmacen(CveEmpresa As Integer) As DataTable
             Get
-                If CveEmpresa <> -1 Then
-                    Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTAlmacen"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
-                    GlobalDTAlmacen = Dv.ToTable
-                    Dv.Dispose()
-                Else
-                    GlobalDTAlmacen = DirectCast(HttpContext.Current.Application("GlobalDTAlmacen"), DataTable)
+                Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa)
+                'sino existe, recarga los datos
+                If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                    Dim ObjUsr As New ClsInventarios
+                    If ObjUsr.GetAlmacenes(-1, -1, CveEmpresa, -1) Then HttpContext.Current.Application(AppNombre) = ObjUsr.DtResultados
+                    ObjUsr.Dispose()
                 End If
 
+                Dim Str As New StringBuilder
+                Str.Append("1=1 AND ")
+                If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
+                ' If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
+                If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus)
+                If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
+
+                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+                GlobalDTAlmacen = Dv.ToTable
+                Dv.Dispose()
             End Get
             Set(value As DataTable)
-                HttpContext.Current.Application("GlobalDTAlmacen") = value
+                Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa)
+                HttpContext.Current.Application(AppNombre) = value
             End Set
         End Property
         Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1) As DataTable