-- parametro empresa para indidencias

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