diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 5bf96f3ea..85023349d 100644
--- a/RH/Personal.aspx.vb
+++ b/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 {diaDescanso}"
+ LblModalAddVacacionesTitulo.Text = $"Agregar Vacaciones - días disponibles {VacDiasDisponibles}"
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)
diff --git a/Sistemas/RolesDetalle.aspx b/Sistemas/RolesDetalle.aspx
index 933b3aefa..4ea8a87c9 100644
--- a/Sistemas/RolesDetalle.aspx
+++ b/Sistemas/RolesDetalle.aspx
@@ -26,7 +26,7 @@