mejora en tipos de periodos

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)