Este conteúdo não recebe atualizações, pois é referente a uma versão do sistema que foi descontinuada. Acesse a documentação da versão 6.10.1 aqui

Gestão de Pessoas - Manual do Usuário / Customizações / Funções / VerificaDiaUtil

VerificaDiaUtil

Esta função verifica se a data informada como parâmetro é um dia útil.

Se a data não for um dia útil a função retornará o primeiro dia útil anterior ou posterior, dependendo da direção de busca informada, e consultando ou não uma tabela de feriados, dependendo dos parâmetros passados em regra.

Sintaxe: VerificaDiaUtil(aData, aTabFer, aTipoIncremento, aRetDat);

Parâmetros:

Nome	Tipo	Descrição
aData	Numérico	Data a ser verificada se é dia útil.
aTabFer	Numérico	Código da tabela de feriados para ser usada na consulta (0 não consulta na tabela de feriados).
aTipoIncremento	Alfa	Direção da busca: "A" busca o primeiro dia útil anterior; "P" busca o primeiro dia útil posterior. Observação: se passar o comando "" será buscado o primeiro dia útil posterior.
aRetDat	Numérico	Retorna a data útil conforme os parâmetros passados.

Exemplos:

Chama a função:

Definir Data EAuxDat;VerificaDiaUtil(EDatIni, ETabFer, "A", EAuxDat);

A função pode ser usada das seguintes formas:

Verifica se a data é um dia útil consultando uma tabela de feriados e traz o primeiro dia útil anterior se a data passada não for um dia útil:

Definir Data EAuxDat;

Definir Alfa Aux;

VerificaDiaUtil(EDatIni, ETabFer, "A", EAuxDat);

ConverteDataBanco(EAuxDat, Aux);

Aux = "Retorno = " + Aux;

Mensagem(Retorna, Aux);

Verifica se a data é um dia útil consultando uma tabela de feriados e traz o primeiro dia útil posterior se a data passada não for um dia útil:

Definir Data EAuxDat;

Definir Alfa Aux;

VerificaDiaUtil(EDatIni, ETabFer, "P", EAuxDat);

ConverteDataBanco(EAuxDat, Aux);

Aux = "Retorno = " + Aux;

Mensagem(Retorna, Aux);

Verifica se a data é um dia útil sem consultar a tabela de feriados e traz o primeiro dia útil anterior se a data passada não for um dia útil:

Definir Data EAuxDat;

Definir Alfa Aux;

VerificaDiaUtil(EDatIni, 0, "A", EAuxDat);

ConverteDataBanco(EAuxDat, Aux);

Aux = "Retorno = " + Aux;

Mensagem(Retorna, Aux);

Verifica se a data é um dia útil sem consultar a tabela de feriados e traz o primeiro dia útil posterior se a data passada não for um dia útil:

Definir Data EAuxDat;

Definir Alfa Aux;

VerificaDiaUtil(EDatIni, 0, "P", EAuxDat);

Para buscar o primeiro dia útil posterior sem consultar a tabela de feriados:

ConverteDataBanco(EAuxDat, Aux);

Aux = "Retorno = " + Aux;

Mensagem(Retorna, Aux);

Verifica se a data é um dia útil sem consultar a tabela de feriados e sem passar a direção da busca ele traz o primeiro dia útil posterior se a data passada não for um dia útil:

Definir Data EAuxDat;

Definir Alfa Aux;

VerificaDiaUtil(EDatIni, 0, "", EAuxDat);

ConverteDataBanco(EAuxDat, Aux);

Aux = "Retorno = " + Aux;

Mensagem(Retorna, Aux);

Utilização: Gerador de Relatórios e Regras.

Disponível para os módulos: Todos os módulos do Gestão de Pessoas | HCM.