English
Español
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.
English
Español
