Correcion personal vacaiones, reacomodo rolesDetalle

RH/Personal.aspx

@@ -3030,6 +3030,8 @@
                                                                 <br />
                                                             </div>
                                                             <br />
+
+
                                                             <div id="ModalAddVacaciones" class="modal ADS fade" role="dialog">
                                                                 <div class="modal-dialog">
                                                                     <div class="modal-content" style="width: 700px;">
@@ -3188,6 +3190,11 @@
                                                                     </div>
                                                                 </div>
                                                             </div>
+
+
+
+
+
                                                             <div id="DvPermisosMotivos2" runat="server" visible="false">
                                                                 <div class="form-group form-md-line-input input-iconright">
                                                                     <asp:TextBox CssClass="form-control" ID="TxtPermisoMotivo" runat="server" MaxLength="200"></asp:TextBox>

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)