AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- cambios en la toma de valores de tolerancia

Browse Source
This commit is contained in:
rrene
2024-04-12 20:17:51 -07:00
parent ba3bad0f70
commit 46bef91bc0
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
RH/RepChecadorPreAsistencia.aspx.vb
View File

@@ -419,6 +419,14 @@ Partial Class RH_RepChecadorPreAsistencia
TolSalidaAntesMin = DtHorarioTemp(0)("TolSalidaAntesMin").ToString().ToEntero TolSalidaAntesMin = DtHorarioTemp(0)("TolSalidaAntesMin").ToString().ToEntero
End If End If
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
End If End If
@@ -454,7 +462,7 @@ Partial Class RH_RepChecadorPreAsistencia
If RdbChecador.Checked Then If RdbChecador.Checked Then
'DtPersonal = DtPersonal.FiltraParametros("CvePersonal = 21271")
For Each dRow As DataRow In DtPersonal.Rows For Each dRow As DataRow In DtPersonal.Rows
Dim Fecha As Date = FechaInicioPeriodo Dim Fecha As Date = FechaInicioPeriodo