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