diff --git a/RH/RepChecadorPreAsistencia.aspx.vb b/RH/RepChecadorPreAsistencia.aspx.vb
index 7885505c1..636d3956a 100644
--- a/RH/RepChecadorPreAsistencia.aspx.vb
+++ b/RH/RepChecadorPreAsistencia.aspx.vb
@@ -359,7 +359,19 @@ Partial Class RH_RepChecadorPreAsistencia
                 FiltroSubProyecto = $" CveTipoPeriodo = {DdlTipoPeriodo.SelectedValue }  {filtroturno} "
             End If
 
-            DtPersonal = GlobalDTRHPersonal(UsuarioActual.Empresa.CveEmpresa).FiltraParametros(FiltroSubProyecto)
+            'DtPersonal = GlobalDTRHPersonal(UsuarioActual.Empresa.CveEmpresa).FiltraParametros(FiltroSubProyecto)
+
+            Dim DtTempPeriodo As DataTable = DTPeridos.FiltraParametros("CvePeriodo = " & DdlRango.SelectedValue.ToEntero)
+            Dim FechaInicioPeriodoFiltro = DtTempPeriodo(0)("FechaInicio").ToString().ToDate
+
+            Dim FilasFiltradas = From fila In GlobalDTRHPersonal(UsuarioActual.Empresa.CveEmpresa).FiltraParametros(FiltroSubProyecto).AsEnumerable()
+                                 Let Inicio = fila.Field(Of Date)("FechaInicio")
+                                 Let FechaFinOriginal = fila.Field(Of Date?)("FechaFin")
+                                 Let FechaFin = If(FechaFinOriginal.HasValue, FechaFinOriginal.Value, Now)
+                                 Where Inicio <= FechaInicioPeriodoFiltro AndAlso FechaInicioPeriodoFiltro <= FechaFin
+                                 Select fila
+
+            DtPersonal = FilasFiltradas.CopyToDataTable()
 
             If objRH.ChecadorHorariosGet(-1, 1, UsuarioActual.Empresa.CveEmpresa) Then
                 DTHorarios = objRH.DtResultados
@@ -992,6 +1004,18 @@ Partial Class RH_RepChecadorPreAsistencia
                 DTAsistenciasInasistencias = objRH.DtResultados
             End If
 
+            Dim DtTempPeriodo As DataTable = DTPeridos.FiltraParametros("CvePeriodo = " & DdlRango.SelectedValue.ToEntero)
+            Dim FechaInicioPeriodoFiltro = DtTempPeriodo(0)("FechaInicio").ToString().ToDate
+
+            Dim FilasFiltradas = From fila In GlobalDTRHPersonal(UsuarioActual.Empresa.CveEmpresa).FiltraParametros($" CveTipoPeriodo = { DdlTipoPeriodo.SelectedValue} AND  CveEstado = 1  " & If(DdlTurno.SelectedValue = "-1", "", $" AND CveTurno = {DdlTurno.SelectedValue}")).AsEnumerable()
+                                 Let Inicio = fila.Field(Of Date)("FechaInicio")
+                                 Let FechaFinOriginal = fila.Field(Of Date?)("FechaFin")
+                                 Let FechaFin = If(FechaFinOriginal.HasValue, FechaFinOriginal.Value, Now)
+                                 Where Inicio <= FechaInicioPeriodoFiltro AndAlso FechaInicioPeriodoFiltro <= FechaFin
+                                 Select fila
+
+            'DtPersonal = FilasFiltradas.CopyToDataTable()
+
             DtPersonal = GlobalDTRHPersonal(UsuarioActual.Empresa.CveEmpresa).FiltraParametros($" CveTipoPeriodo = { DdlTipoPeriodo.SelectedValue} AND  CveEstado = 1  " & If(DdlTurno.SelectedValue = "-1", "", $" AND CveTurno = {DdlTurno.SelectedValue}"))
 
             dt.Columns.Add("CvePersonal")