From 15ad2e8f9fd7fa4b3803f5f7940c90e833a95a07 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 9 Mar 2021 19:35:49 -0700
Subject: [PATCH] cambio en globaldt

---
 AF/CatSubTipos.aspx.vb | 11 ++++++-----
 App_Code/ClsPaginas.vb | 40 ++++++++++++++++++++++++++++++++--------
 2 files changed, 38 insertions(+), 13 deletions(-)

diff --git a/AF/CatSubTipos.aspx.vb b/AF/CatSubTipos.aspx.vb
index b5c9d5f6f..cc023e732 100644
--- a/AF/CatSubTipos.aspx.vb
+++ b/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()
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 148b96b30..fb0c57bdf 100644
--- a/App_Code/ClsPaginas.vb
+++ b/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