RH/Personal.aspx.vb

@@ -4455,15 +4455,17 @@ Partial Class RH_Personal
     End Sub
 
     Protected Sub BtnSolicitarVacaciones_Click(sender As Object, e As EventArgs) Handles BtnSolicitarVacaciones.Click
-        Dim fInicio As Date = TxtFechaInicioVac.Text.ToDate
-        Dim fFin As Date = TxtFechaFinVac.Text.ToDate
+        Dim fInicio As Date = TxtFechaInicioVac.Text.ToDate()
+        Dim fFin As Date = TxtFechaFinVac.Text.ToDate()
+        Dim fechapago As String = TxtFechaPago.Text.ToDate().ToString("yyyy/MM/dd")
+        Dim diasinhabil As Integer = Txtdiasinabiles.Text.ToEntero()
         'Dim motivoVacaciones As String = TxtMotivoVacaciones.Text
         If fInicio <= fFin Then
 
             VacFolioActual = VacFolioActual + 1
             Dim objRH As New ClsRH
             'Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, motivoVacaciones)
-            Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual)
+            Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago:=fechapago, diasinabiles:=diasinhabil)
             If objRH.DtResultados.Rows.Count > 0 Then
                 Dim ShowError As String = objRH.DtResultados.Rows(0)("ShowError").ToString()
                 If ShowError.Length > 0 Then