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

Empresas Zona Horaria

Browse Source
This commit is contained in:
rakcsle
2023-10-09 11:54:42 -07:00
parent 2df7c3976c
commit f43b7759a8
649 changed files with 11445 additions and 11105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
RH/RepChecadorPreAsistencia.aspx.vb
View File

@@ -523,7 +523,7 @@ Partial Class RH_RepChecadorPreAsistencia
End If
If Fecha >= Now Then
If Fecha >= NowADS() Then
ReRow("Asistio") = "True"
ReRow("CveAsistenciasInasistencias") = CveASistenciaInasistenciaAsistio
ReRow("PorcentajePago") = "100"
@@ -643,7 +643,7 @@ Partial Class RH_RepChecadorPreAsistencia
DTHorarioPersonal = DTHorarios.FiltraParametros(" CveChecadorHorario = " & dRow("CveChecadorHorario").ToString().ToEntero & "")
If Fecha >= Now Then
If Fecha >= NowADS() Then
ReRow("Asistio") = "True"
ReRow("CveAsistenciasInasistencias") = CveASistenciaInasistenciaAsistio
Else
@@ -859,7 +859,7 @@ Partial Class RH_RepChecadorPreAsistencia
ColumN = ColumN + 1
Next
Dim medida As DateTime = Now
Dim medida As DateTime = NowADS()
For Each pRow As DataRow In DtPersonal.Rows
@@ -941,7 +941,7 @@ Partial Class RH_RepChecadorPreAsistencia
Next
Dim SalidaTiempo As Integer = (Now - medida).TotalSeconds.ToString().ToEntero
Dim SalidaTiempo As Integer = (NowADS() - medida).TotalSeconds.ToString().ToEntero
SalidaTiempo = SalidaTiempo
DtDatosTabla = dt
@@ -1326,7 +1326,7 @@ Partial Class RH_RepChecadorPreAsistencia
FechaLoop = FechaInicialPeriodos
While FechaLoop <= Now
While FechaLoop <= NowADS()
Dim Drow As DataRow = DTRespuesta.NewRow
Drow("Orden") = ContadorOrden.ToString()
ContadorOrden += 1