From aa1d793cb1fd2968dfe1ab1040503bc2cc579a23 Mon Sep 17 00:00:00 2001
From: Oscar Irigoyen <rakcsle@outlook.com>
Date: Mon, 17 Jul 2023 10:30:35 -0700
Subject: [PATCH] =?UTF-8?q?Personal=20solicitud=20vacaiones=20correcion=20?=
 =?UTF-8?q?d=C3=ADas=20feriados?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 RH/Personal.aspx.vb | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 4f9b277b3..ab70b76b3 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -7847,7 +7847,7 @@ Partial Class RH_Personal
 
         Dim DiasAgregados As Integer = 0
         Dim FechaFin As Date = fechaInicio
-
+        Dim Contador As Integer = 0
         For x = 2 To diasVacaciones
             Dim day_of_week = CType(FechaFin.DayOfWeek, Integer) + 1
             If day_of_week = diaDescanso Then
@@ -7856,12 +7856,13 @@ Partial Class RH_Personal
             Else
                 FechaFin = FechaFin.AddDays(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
                 End If
 
             End If
-
+            Contador = Contador + 1
         Next
 
         TxtFechaFinVac.Text = FechaFin.ToString