DatValid

Tempo aproximado para leitura: 02 min

Descrição
Ponto de entrada que possibilita incluir dados no array de feriados

Programa Fonte
datavali.prg

Retorno
aFeriados - Array contendo as datas de feriados

Exemplo

user function DatValid()
local aFeriados as array
local cHoje as char
cHoje := DtoS(Date())
//Pega o array de feriados, esse array é criado com base na SX5, tabela 63
aFeriados := PARAMIXB


//Adiciona o dia atual no array de feriados, tornando sempre o dia atual um feriado
if aScan(aFeriados, cHoje) == 0
    aAdd(aFeriados, cHoje)
endif

return aFeriados

Observações
O ponto de entrada DATVALID permite a edição do array de feriados, recebendo no PARAMIXB o próprio array. Esse ponto de entrada precisa retornar um array com os feriados que será utilizado no cálculo de dia útil.