Empresas Zona Horaria

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

View File

@@ -16,8 +16,8 @@ Partial Class RH_RepAsistencias
CargaTurnos()
CargaTiposPeriodo()
TxtFechaAsistenciaFin.Text = Now.ToShortDateString
TxtFechaAsistencia.Text = $"01/{Now.ToString("MM")}/{Now.Year}"
TxtFechaAsistenciaFin.Text = NowADS().ToShortDateString
TxtFechaAsistencia.Text = $"01/{NowADS().ToString("MM")}/{NowADS().Year}"
If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then ' emp citricola
divCliente.Visible = False
LblCliente.Visible = False
@@ -106,7 +106,7 @@ Partial Class RH_RepAsistencias
LnkExportar.Visible = False
GvOcultarColumnas()
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
Dim dtTemp As New DataTable