RetPrxDatUti
Esta função retorna a próxima data útil em relação à data informada.
Sintaxe: RetPrxDatUti(Numero IndPrxAnt, NumEmp, TipCol, NumCad, DatEntrada, DatRetorno);
Parâmetros: IndPrxAnt - Índice do Próximo ou Anterior:
- Busca a data anterior.
- (Diferente de 1) Busca a próxima data.
NumEmp: Número da empresa;
TipCol: Tipo do colaborador;
NumCad: Cadastro (código) do colaborador;
DatEntrada: Data informada para verificar se é data útil.
Retorno: DatRetorno: Retorna a próxima data útil, se a data de entrada não for dia útil. Caso contrário, retornará a própria data de Entrada.
Observações: Verificará o tipo de horário do colaborador no dia. Sendo maior que 990, não será considerado como data útil para o colaborador;
Verificará se a data é um feriado, conforme a tabela de feriados:
- Será utilizada a tabela de feriados diurna cadastrada na filial se:
- - no cadastro da empresa estiver assinalado para não utilizar escala horária;
- - o turno do colaborador for diferente de 3;
- - na escala estiver assinalado para utilizar a tabela de feriados da Filial.
- Será utilizada a tabela de feriados noturna cadastrada na filial se:
- - no cadastro da empresa está assinalado que não utilizada escala horária;
- - o turno do colaborador for igual a 3;
- - na escala estiver assinalado para utilizar a tabela de feriados da Filial.
- Será utilizada a tabela de feriados cadastrada na escala do colaborador se:
- - no cadastro da escala estiver assinalado para utilizar tabela de feriados própria.
Exemplo:
/* Deseja-se saber qual é a próxima data útil em relação à data de admissão dos colaboradores */
Definir Data xdatautil;
RetPrxDatUti(2, R034FUN.NumEmp, R034FUN.TipCol, R034FUN.NumCad, R034FUN.DatAdm, xdatautil);
Utilização: Gerador de Relatórios e Regras do módulo Administração de Pessoal.
Disponível para o módulo: Administração de Pessoal.