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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-10-30 02:03:44 -07:00
parent 757f5b63a9 c00470671e
commit 9c29659a0f
686 changed files with 20999 additions and 20970 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
RH/Asistencias.aspx.vb
View File

@@ -29,7 +29,7 @@ Partial Class RH_Asistencias
GV.Columns(2).Visible = False
GV.Columns(3).Visible = True
End If
txtFechaAsistencia.Text = Now.ToShortDateString
txtFechaAsistencia.Text = NowADS().ToShortDateString
If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveUsuario = 2343 Then
PnlMasivo.Visible = True
End If
@@ -94,7 +94,7 @@ Partial Class RH_Asistencias
txtFechaAsistencia.Enabled = False
Calendario.Enabled = False
btnconsultarnew.Visible = True
If txtFechaAsistencia.Text.Trim.ToDate.Year.Contiene(Now.Year - 1, Now.Year, Now.Year + 1) Then
If txtFechaAsistencia.Text.Trim.ToDate.Year.Contiene(NowADS().Year - 1, NowADS().Year, NowADS().Year + 1) Then
Dim objpersonal As New ClsRH
If objpersonal.GetAsistencias(-1, DdlCliente.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, 1, DdlTipoPeriodo.SelectedValue.ToEntero, txtFechaAsistencia.Text.Trim.ToDate, txtFechaAsistencia.Text.Trim.ToDate, UsuarioActual.CveEmpresa, DdlPuesto.SelectedValue.ToEntero) Then
Dim dt As DataTable = objpersonal.DtResultados
@@ -157,7 +157,7 @@ Partial Class RH_Asistencias
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Fecha", Fecha))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy HH:mm")))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy HH:mm")))
params.Add(New ReportParameter("Filtros", Filtros))
Dim lrds As New List(Of ReportDataSource)