-- filtros preasistencia

App_Code/ClsNominas.vb

@@ -2858,7 +2858,7 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
-    Public Function GetchecadorAsistencia(FechaInicio As DateTime, FechaFin As DateTime, CveEmpresa As Integer) As Boolean
+    Public Function GetchecadorAsistencia(FechaInicio As DateTime, FechaFin As DateTime, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
         Dim retorno As Boolean = False
 
         Try
@@ -2867,6 +2867,7 @@ Public Class ClsNominas
             With SqlAdapter.SelectCommand.Parameters
                 .Add("@FechaInicio", SqlDbType.DateTime).Value = FechaInicio
                 .Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin
+                .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
                 .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             End With
             SqlAdapter.Fill(DTSet)