cambio en globaldt

AF/CatSubTipos.aspx.vb

@@ -23,11 +23,12 @@ Partial Class AF_CatSubTipos
     End Sub
 
     Private Sub CargaGlobal()
-        Dim ObjSubTipos As New ClsAF
-        If ObjSubTipos.GetSubTiposActivosFijos(-1) Then
-            GlobalDTSubTipoActivoFijo(-1) = ObjSubTipos.DtResultados
-        End If
-        ObjSubTipos.Dispose()
+        'Dim ObjSubTipos As New ClsAF
+        'If ObjSubTipos.GetSubTiposActivosFijos(-1) Then
+        '    GlobalDTSubTipoActivoFijo(-1) = ObjSubTipos.DtResultados
+        'End If
+        'ObjSubTipos.Dispose()
+        GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing
     End Sub
 
     Public Sub CargaDatos()

App_Code/ClsPaginas.vb

@@ -2184,19 +2184,43 @@ Public Class ClsPaginas
         End Set
     End Property
 
-    Property GlobalDTSubTipoActivoFijo(CveEmpresa As Integer) As DataTable
+    Property GlobalDTSubTipoActivoFijo(CveEmpresa As Integer, Optional CveTipoActivoFijo As Integer = -1) As DataTable
+
         Get
-            If CveEmpresa <> -1 Then
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTSubTipoActivoFijo"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
-                GlobalDTSubTipoActivoFijo = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTSubTipoActivoFijo = DirectCast(Application("GlobalDTSubTipoActivoFijo"), DataTable)
+            Dim AppNombre As String = String.Format("GlobalDTSubTipoActivoFijo-{0}", CveEmpresa)
+            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjSubTipos As New ClsAF
+                If ObjSubTipos.GetSubTiposActivosFijos(CveEmpresa) Then Application(AppNombre) = ObjSubTipos.DtResultados
+                ObjSubTipos.Dispose()
             End If
+
+            Dim Str As New StringBuilder
+
+            If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
+            If CveTipoActivoFijo > 0 Then Str.AppendFormat("AND CveTipoActivoFijo = {0}", CveTipoActivoFijo)
+            Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            GlobalDTSubTipoActivoFijo = Dv.ToTable
+            Dv.Dispose()
+
         End Get
         Set(value As DataTable)
-            Application("GlobalDTSubTipoActivoFijo") = value
+            Dim AppNombre As String = String.Format("GlobalDTSubTipoActivoFijo-{0}", CveEmpresa)
+            Application(AppNombre) = value
         End Set
+
+        'Get
+        '    If CveEmpresa <> -1 Then
+        '        Dim Dv As New DataView(DirectCast(Application("GlobalDTSubTipoActivoFijo"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
+        '        GlobalDTSubTipoActivoFijo = Dv.ToTable
+        '        Dv.Dispose()
+        '    Else
+        '        GlobalDTSubTipoActivoFijo = DirectCast(Application("GlobalDTSubTipoActivoFijo"), DataTable)
+        '    End If
+        'End Get
+        'Set(value As DataTable)
+        '    Application("GlobalDTSubTipoActivoFijo") = value
+        'End Set
     End Property
     Property GlobalDTTipoActivoFijo(CveEmpresa As Integer) As DataTable
         Get