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

Personal solicitud vacaiones correcion días feriados

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-07-17 10:30:35 -07:00
parent 5fa9a3e268
commit aa1d793cb1
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
RH/Personal.aspx.vb
View File

@@ -7847,7 +7847,7 @@ Partial Class RH_Personal
Dim DiasAgregados As Integer = 0 Dim DiasAgregados As Integer = 0
Dim FechaFin As Date = fechaInicio Dim FechaFin As Date = fechaInicio
Dim Contador As Integer = 0
For x = 2 To diasVacaciones For x = 2 To diasVacaciones
Dim day_of_week = CType(FechaFin.DayOfWeek, Integer) + 1 Dim day_of_week = CType(FechaFin.DayOfWeek, Integer) + 1
If day_of_week = diaDescanso Then If day_of_week = diaDescanso Then
@@ -7856,12 +7856,13 @@ Partial Class RH_Personal
Else Else
FechaFin = FechaFin.AddDays(1) FechaFin = FechaFin.AddDays(1)
day_of_week = CType(FechaFin.DayOfWeek, Integer) + 1 day_of_week = CType(FechaFin.DayOfWeek, Integer) + 1
If day_of_week = diaDescanso Then If (diasVacaciones = Contador + 2) AndAlso day_of_week = diaDescanso Then
FechaFin = FechaFin.AddDays(1)
DiasAgregados = DiasAgregados + 1 DiasAgregados = DiasAgregados + 1
End If End If
End If End If
Contador = Contador + 1
Next Next
TxtFechaFinVac.Text = FechaFin.ToString TxtFechaFinVac.Text = FechaFin.ToString