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)