Correciones solicitud de vacaciones, clic en calendario

RH/Personal.aspx.vb

@@ -7844,6 +7844,15 @@ Partial Class RH_Personal
         Dim diaDescanso As Integer = GlobalDTTurno(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DiaDescanso", $" CveTurno = {DdlTurno.SelectedValue.ToEntero}").ToEntero
         diaDescanso = If(diaDescanso <= 0, 1, diaDescanso)
 
+        If fechaFinParametro <> Nothing Then
+            If fechaInicioParametro > fechaFinParametro Then
+                Alert("La fecha fin no  puede ser mayor a la fecha inicial", TipoMensaje.MsgAdvertencia)
+                fechaFinParametro = Nothing
+                TxtVacDiasPago.Text = VacDiasDisponibles.ToString
+            End If
+        End If
+
+
 
         If fechaFinParametro <> Nothing Then
 
@@ -7880,6 +7889,7 @@ Partial Class RH_Personal
 
         If TxtVacDiasPago.Text.ToEntero > VacDiasDisponibles Then
             TxtVacDiasPago.Text = VacDiasDisponibles.ToString
+            diasVacaciones = VacDiasDisponibles
         End If