diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index a3d763c62..eb0be2aa0 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1809,6 +1809,13 @@ Public Class ClsPaginas
 
     Property GlobalDTAlmacen(CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = -1, Optional CveEstatus As Integer = 1, Optional CveAlmacen As Integer = -1) As DataTable
         Get
+            Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa)
+            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjUsr As New ClsInventarios
+                If ObjUsr.GetAlmacenes(-1, -1, CveEmpresa, -1) Then Application(AppNombre) = ObjUsr.DtResultados
+                ObjUsr.Dispose()
+            End If
 
             Dim Str As New StringBuilder
             Str.Append("1=1 AND ")
@@ -1817,14 +1824,31 @@ Public Class ClsPaginas
             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(Application("GlobalDTAlmacen"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
             GlobalDTAlmacen = Dv.ToTable
             Dv.Dispose()
-
         End Get
         Set(value As DataTable)
-            Application("GlobalDTAlmacen") = value
+            Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa)
+            Application(AppNombre) = value
         End Set
+        'Get
+
+        '    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(Application("GlobalDTAlmacen"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+        '    GlobalDTAlmacen = Dv.ToTable
+        '    Dv.Dispose()
+
+        'End Get
+        'Set(value As DataTable)
+        '    Application("GlobalDTAlmacen") = value
+        'End Set
     End Property
     Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1, Optional CveEstatus As Integer = 1) As DataTable
         Get
diff --git a/Global.asax b/Global.asax
index 857349e12..f095b7118 100644
--- a/Global.asax
+++ b/Global.asax
@@ -208,7 +208,7 @@
         'I N V E N T A R I O S 
 
         Using Objinventarios As New ClsInventarios
-            If Objinventarios.GetAlmacenes(-1, -1, -1, -1) Then Application("GlobalDTAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTAlmacen") = Nothing
+            'If Objinventarios.GetAlmacenes(-1, -1, -1, -1) Then Application("GlobalDTAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTAlmacen") = Nothing
             If Objinventarios.GetSeccionesAlmacenes(-1, -1) Then Application("GlobalDTSeccionAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTSeccionAlmacen") = Nothing
             If Objinventarios.GetTiposAlmacenes Then Application("GlobalDTTipoAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTTipoAlmacen") = Nothing
             If Objinventarios.GetConceptos Then Application("GlobalDTInvConceptos") = Objinventarios.DtResultados Else Application("GlobalDTInvConceptos") = Nothing