diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index 883f8b75b..6a35f980b 100644
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -5584,7 +5584,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Return Retorno
     End Function
 
-    Public Function SolicitudVacacionesAdd(CvePersonal As Integer, Fecha As Date, FechaFin As Date, Estatus As Integer, CveUsuario As Integer, CveAutoriza As Integer, Folio As Integer, Optional Motivo As String = "", Optional FechaPago As String = "", Optional diasinabiles As Integer = 0) As Boolean
+    Public Function SolicitudVacacionesAdd(CvePersonal As Integer, Fecha As Date, FechaFin As Date, Estatus As Integer, CveUsuario As Integer, CveAutoriza As Integer, Folio As Integer, Optional Motivo As String = "", Optional FechaPago As String = "", Optional diasinabiles As Integer = 0, Optional PorcentajePrimaVac As Decimal = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_RH_SolicitudVacacionesAdd")
@@ -5598,6 +5598,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@CveAutoriza", SqlDbType.Int).Value = CveAutoriza
             .Add("@Folio", SqlDbType.Int).Value = Folio
             .Add("@diasinabiles", SqlDbType.Int).Value = diasinabiles
+            .Add("@PorcentajePrimaVac", SqlDbType.Money).Value = PorcentajePrimaVac
             .Add("@FechaPago", SqlDbType.VarChar).Value = FechaPago
             '.Add("@Motivo", SqlDbType.VarChar).Value = MotivoFechaPago As String = "", Optional diasinabiles 
         End With