From 4e0bf2629ff66bf23aa4a20c0eab40292af219fc Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 12 May 2023 19:41:31 -0700
Subject: [PATCH] -- parametro empresa para indidencias

---
 App_Code/ClsRH.vb | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index ee95fedd3..03d71dc26 100644
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -314,11 +314,13 @@ Public Class ClsRH
 #End Region
 
 #Region "ClsRHAsistenciasInasistencias"
-    Public Function GetAsistenciasInasistencias() As Boolean
+    Public Function GetAsistenciasInasistencias(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_RH_AsistenciasInasistenciasGet")
-
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True