RH/Personal.aspx.vb

@@ -7976,11 +7976,18 @@ Partial Class RH_Personal
         'If UltimoDiamasUno = diaDescanso Then
         '    FechaFin = FechaFin.AddDays(1)
         '    DiasAgregados = DiasAgregados + 1
-        'End If
-
+        'End If 
         'TxtFechaFinVac.Text = FechaFin.ToString
         'Txtdiasinabiles.Text = DiasAgregados.ToString
-
+        Using onom As New ClsNominas
+            If onom.CalculaDiasFeriados(fechaInicioParametro.ToDateTime().ToString("yyyy-MM-dd"), "", diasVacaciones, 0, UsuarioActual.CveEmpresa, UsuarioActual.CvePersonal) Then
+                If Not IsNothing(onom.DtResultados) AndAlso onom.DtResultados.Rows.Count > 0 Then
+                    Dim drow As DataRow = onom.DtResultados.Rows(0)
+                    TxtFechaFinVac.Text = String.Format("{0:dd/MM/yyyy}", drow("FechaInicio"))
+                    Txtdiasinabiles.Text = String.Format("{0}", drow("DiaFeriadoB"))
+                End If
+            End If
+        End Using
         UpSolicitarVacaciones.Update()
 
     End Sub