AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

filtro porconcepto de globaldtconceptos

Browse Source
This commit is contained in:
rrene
2021-07-14 12:49:18 -07:00
parent b4207f844a
commit 0d9fd0e77b
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
App_Code/ClsPaginas.vb
View File

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