-

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