diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index bf5d3e6f6..cb66a38d5 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3079,16 +3079,17 @@ Public Class ClsPaginas - Property GlobalDTContaConceptosContables(CvePlantillaPoliza As Integer) As DataTable + Property GlobalDTContaConceptosContables(CveConceptoContable As Integer) As DataTable Get - If CvePlantillaPoliza <> -1 Then - Dim Dv As New DataView(DirectCast(Application("GlobalDTContaConceptosContables"), DataTable), String.Format("CvePlantillaPoliza = {0}", CvePlantillaPoliza), "", DataViewRowState.CurrentRows) + If CveConceptoContable <> -1 Then + Dim Dv As New DataView(DirectCast(Application("GlobalDTContaConceptosContables"), DataTable), String.Format("CveConceptoContable = {0}", CveConceptoContable), "", DataViewRowState.CurrentRows) GlobalDTContaConceptosContables = Dv.ToTable Dv.Dispose() Else GlobalDTContaConceptosContables = DirectCast(Application("GlobalDTContaConceptosContables"), DataTable) End If + End Get Set(value As DataTable) Application("GlobalDTContaConceptosContables") = value