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