English
Español
CalculaDataLimiteFerias
Calcula o último dia em que o colaborador deve sair de férias, sem que a empresa tenha que pagar a multa em dobro. A função leva em consideração a quantidade de saldo das férias que o colaborador tem no período informado por parâmetro.
- Esta função verifica o assinalamento existente no cadastro do Sindicato, em Tabelas > Sindicatos > Cadastro, guia Férias, campo Projeta Afast. Multa Dobro, para projetar ou não os dias de afastamento na data limite para gozo das férias sem o cálculo de multa;
- Esta função não considera o campo Consistência Início Férias, em Tabelas > Sindicatos > Cadastro, guia Férias.
Sintaxe: CalculaDataLimiteFerias (Numero xNumEmp, Numero xTipCol, Numero xNumCad, Numero xIniPer, Numero End Data_Retorno);
Parâmetros:
xNumEmp - Variável numérica com o número da empresa;
xTipCol - Variável numérica com o tipo do colaborador;
xNumCad - Variável numérica com o cadastro (código) do colaborador;
xIniPer - Início período das férias;
Data_Retorno - Retorna o último dia em que o colaborador pode sair de férias sem que a empresa pague a multa de dobro de férias.
Retorno: Retorna o ultimo dia em que o colaborador pode sair de férias sem que a empresa pague a multa de dobro de férias, se ocorrer algum erro, retorna zero.
Exemplo:
/* Deseja-se saber qual o ultimo dia em que o usuário deve sair de férias sem que a empresa pague a multa em dobro */
CalculaDataLimiteFerias (R034FUN.NumEmp, R034FUN.TipCol, R034FUN.NumCad,DataIniPer, xDatRet);
se ( xDatRet <> 0 )
ultimaDataFerias = xDatRet;
senao
Mensagem(retorna, "Não encontrado" );
O campo de retorno xDatRet, foi utilizado para verificar se existiu algum retorno, pois se o mesmo for 0, então não foi encontrado.
Para a variável ultimaDataFerias, foi atribuído o ultimo dia em que o colaborador pode sair de férias sem a empresa pagar a multa em dobro.
Observação: Para a execução correta da função deve existir um período com data de inicio igual a do parâmetro xIniPer.
Disponível para o módulo: Administração de Pessoal.
English
Español
