From e5fcdd523ed418cec293198510dc2ce8931f70f5 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 31 Oct 2024 16:52:15 -0700
Subject: [PATCH] -- parametro estatus para estatus de tipo de nomina

---
 App_Code/ClsNominas.vb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index ecf2cdbd3..e65a5ad75 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -1894,9 +1894,12 @@ Public Class ClsNominas
 #End Region
 
 #Region "ClsNominasTiposPeriodo"
-    Public Function GetTiposPeriodos() As Boolean
+    Public Function GetTiposPeriodos(Optional Estatus As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Nom_TiposPeriodosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Estatus", SqlDbType.VarChar).Value = Estatus
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True