- cambio globaldtalmacenusuarios

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