Correcion personal vacaiones, reacomodo rolesDetalle

RH/Personal.aspx.vb

@@ -7825,7 +7825,7 @@ Partial Class RH_Personal
         Dim diaDescanso As Integer = GlobalDTTurno(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DiaDescanso", $" CveTurno = {DdlTurno.SelectedValue.ToEntero}").ToEntero
         diaDescanso = If(diaDescanso <= 0, 1, diaDescanso)
 
-        LblModalAddVacacionesTitulo.Text = $"Agregar Vacaciones - días disponibles <b>{diaDescanso}</b>"
+        LblModalAddVacacionesTitulo.Text = $"Agregar Vacaciones - días disponibles <b>{VacDiasDisponibles}</b>"
 
         UpModalAddVacacionesTitulo.Update()
 
@@ -7868,12 +7868,13 @@ Partial Class RH_Personal
             Next x
 
 
-            If diasVacaciones >= (DiferenciaEntreFechas - DiasNolavorales) Then
+            If (DiferenciaEntreFechas - DiasNolavorales) >= VacDiasDisponibles Then
+                diasVacaciones = VacDiasDisponibles
+            Else
                 diasVacaciones = DiferenciaEntreFechas - DiasNolavorales
-                TxtVacDiasPago.Text = diasVacaciones.ToString
             End If
 
-
+            TxtVacDiasPago.Text = diasVacaciones.ToString
 
         End If
 
@@ -7917,7 +7918,7 @@ Partial Class RH_Personal
 
     Protected Sub LnkCalculaFechasVacacionesFechaFin_Click(sender As Object, e As EventArgs)
 
-        If Not validaFehcasVaciones() Then
+        If Not validaFechasVaciones() Then
             Exit Sub
         End If
 
@@ -7925,7 +7926,7 @@ Partial Class RH_Personal
 
     End Sub
 
-    Private Function validaFehcasVaciones() As Boolean
+    Private Function validaFechasVaciones() As Boolean
 
         If Not IsDate(TxtFechaFinVac.Text) Then
             Alert("Fecha fin invalida", TipoMensaje.MsgAdvertencia)