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. |
Chama a função:
<div class="Code"><p>Definir Data EAuxDat;VerificaDiaUtil(EDatIni, ETabFer, "A", EAuxDat);</p></div>
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:
<div class="Code"><p>Definir Data EAuxDat;</p><p>Definir Alfa Aux;</p><p>VerificaDiaUtil(EDatIni, ETabFer, "A", EAuxDat);</p><p>ConverteDataBanco(EAuxDat, Aux);</p><p>Aux = "Retorno = " + Aux;</p><p>Mensagem(Retorna, Aux);</p></div>
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:
<div class="Code"><p>Definir Data EAuxDat;</p><p>Definir Alfa Aux;</p><p>VerificaDiaUtil(EDatIni, ETabFer, "P", EAuxDat);</p><p>ConverteDataBanco(EAuxDat, Aux);</p><p>Aux = "Retorno = " + Aux;</p><p>Mensagem(Retorna, Aux);</p></div>
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:
<div class="Code"><p>Definir Data EAuxDat;</p><p>Definir Alfa Aux;</p><p>VerificaDiaUtil(EDatIni, 0, "A", EAuxDat);</p><p>ConverteDataBanco(EAuxDat, Aux);</p><p>Aux = "Retorno = " + Aux;</p><p>Mensagem(Retorna, Aux);</p></div>
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:
<div class="Code"><p>Definir Data EAuxDat;</p><p>Definir Alfa Aux;</p><p>VerificaDiaUtil(EDatIni, 0, "P", EAuxDat);</p></div>
Para buscar o primeiro dia útil posterior sem consultar a tabela de feriados:
<div class="Code"><p>ConverteDataBanco(EAuxDat, Aux);</p><p>Aux = "Retorno = " + Aux;</p><p>Mensagem(Retorna, Aux);</p></div>
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:
<div class="Code"><p>Definir Data EAuxDat;</p><p>Definir Alfa Aux;</p><p>VerificaDiaUtil(EDatIni, 0, "", EAuxDat);</p><p>ConverteDataBanco(EAuxDat, Aux);</p><p>Aux = "Retorno = " + Aux;</p><p>Mensagem(Retorna, Aux);</p></div>
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
