From db22ffbcf178bfedfe845363c13a68f7f8afed01 Mon Sep 17 00:00:00 2001
From: Oscar Irigoyen <rakcsle@outlook.com>
Date: Sat, 15 Jul 2023 15:14:40 -0700
Subject: [PATCH] Correcion maximo de dias de vacaiones permitidos

---
 RH/Personal.aspx.vb | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 4feea3f48..4f9b277b3 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -7837,6 +7837,11 @@ Partial Class RH_Personal
 
     Private Sub ContarDiasDeLaSemana(fechaInicio As Date, diasVacaciones As Integer)
 
+
+        If TxtVacDiasPago.Text.ToEntero > VacDiasDisponibles Then
+            TxtVacDiasPago.Text = VacDiasDisponibles.ToString
+        End If
+
         Dim diaDescanso As Integer = GlobalDTTurno(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DiaDescanso", $" CveTurno = {DdlTurno.SelectedValue.ToEntero}").ToEntero
         diaDescanso = If(diaDescanso <= 0, 1, diaDescanso)