Correcion maximo de dias de vacaiones permitidos

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)