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

mejora en tipos de periodos

Browse Source
This commit is contained in:
rrene
2024-11-02 10:46:59 -07:00
parent 81c2c36a14
commit 8070a63478
1 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
App_Code/ClsPaginas.vb
View File

@@ -2248,15 +2248,25 @@ Public Class ClsPaginas
'Fin Bancos 'Fin Bancos
'Fin EstadoCIvil 'Fin EstadoCIvil
'TipoPerioso 'TipoPerioso
Property GlobalDTTipoPeriodo() As DataTable Property GlobalDTTipoPeriodo(Optional Estatus As Integer = 1) As DataTable
Get Get
Dim AppNombre As String = "GlobalDTTipoPeriodo" Dim AppNombre As String = "GlobalDTTipoPeriodo"
If HttpContext.Current.Application(AppNombre) Is Nothing Then If HttpContext.Current.Application(AppNombre) Is Nothing Then
Using ObjNom As New ClsNominas() Using ObjNom As New ClsNominas()
If ObjNom.GetTiposPeriodos() Then Application(AppNombre) = ObjNom.DtResultados If ObjNom.GetTiposPeriodos(-1) Then Application(AppNombre) = ObjNom.DtResultados
End Using End Using
End If End If
GlobalDTTipoPeriodo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Dim filtros As New List(Of String)
If Estatus <> -1 Then filtros.Add($"CveEstatus = {Estatus}")
If filtros.Count > 0 Then
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows)
GlobalDTTipoPeriodo = Dv.ToTable
Dv.Dispose()
Else
GlobalDTTipoPeriodo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End If
End Get End Get
Set(value As DataTable) Set(value As DataTable)