From 8070a634786f4f1e2470384a9a6f772ee209c7e5 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 2 Nov 2024 10:46:59 -0700
Subject: [PATCH] mejora en tipos de periodos

---
 App_Code/ClsPaginas.vb | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index b85352d4c..d6093e399 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -2248,15 +2248,25 @@ Public Class ClsPaginas
     'Fin Bancos
     'Fin EstadoCIvil
     'TipoPerioso
-    Property GlobalDTTipoPeriodo() As DataTable
+    Property GlobalDTTipoPeriodo(Optional Estatus As Integer = 1) As DataTable
         Get
             Dim AppNombre As String = "GlobalDTTipoPeriodo"
             If HttpContext.Current.Application(AppNombre) Is Nothing Then
                 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 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
         Set(value As DataTable)