From 52bd3dff620110259e484c0a11a66683deec3453 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 14 Oct 2021 12:44:35 -0700
Subject: [PATCH] -

---
 App_Code/ClsPaginas.vb | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 16a836392..57d834854 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -3178,6 +3178,27 @@ Public Class ClsPaginas
             Application("GlobalDTContaPlantillasPolizasDetalle") = value
         End Set
     End Property
+    'Property GlobalDTContaPlantillasPolizasDetalle(CvePlantillaPoliza As Integer, CveEmpresa As Integer) As DataTable
+    '    Get
+    '        Dim AppNombre As String = String.Format("GlobalDTContaPlantillasPolizas-{0}", CveEmpresa)
+    '        'sino existe, recarga los datos
+    '        If Application(AppNombre) Is Nothing Then
+    '            Using ObjContabilidad As New ClsContabilidad
+    '                If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, CveEmpresa) Then Application(AppNombre) = ObjContabilidad.DtResultados Else Application(AppNombre) = Nothing
+    '            End Using
+    '        End If
+
+    '        Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Format("CvePlantillaPoliza = {0}", CvePlantillaPoliza), "Orden", DataViewRowState.CurrentRows)
+    '        GlobalDTContaPlantillasPolizasDetalle = Dv.ToTable
+    '        Dv.Dispose()
+
+
+    '    End Get
+    '    Set(value As DataTable)
+    '        Dim AppNombre As String = String.Format("GlobalDTContaPlantillasPolizas-{0}", CveEmpresa)
+    '        Application(AppNombre) = value
+    '    End Set
+    'End Property