-- cambios en la toma de valores de tolerancia

RH/RepChecadorPreAsistencia.aspx.vb

@@ -419,6 +419,14 @@ Partial Class RH_RepChecadorPreAsistencia
                             TolSalidaAntesMin = DtHorarioTemp(0)("TolSalidaAntesMin").ToString().ToEntero
                         End If
                     End If
+                Else
+                    If DTHorarios.Rows.Count > 0 Then
+                        TolRetAcumulados = DTHorarios(0)("TolRetAcumulados").ToString().ToEntero
+                        TolRetEntradaMin = DTHorarios(0)("TolRetEntradaMin").ToString().ToEntero
+                        TolFalEntradaMin = DTHorarios(0)("TolFalEntradaMin").ToString().ToEntero
+                        RetSalidaAntes = Boolean.Parse(DTHorarios(0)("RetSalidaAntes").ToString())
+                        TolSalidaAntesMin = DTHorarios(0)("TolSalidaAntesMin").ToString().ToEntero
+                    End If
                 End If
 
             End If
@@ -454,7 +462,7 @@ Partial Class RH_RepChecadorPreAsistencia
 
 
             If RdbChecador.Checked Then
-
+                'DtPersonal = DtPersonal.FiltraParametros("CvePersonal = 21271")
                 For Each dRow As DataRow In DtPersonal.Rows
 
                     Dim Fecha As Date = FechaInicioPeriodo