RetDiasFer

Retorna a data de inicio e fim das férias do colaborador.

Sintaxe: RetDiasFer (Numero xNumEmp, Numero xTipCol, Numero xNumCad, Numero IniPer, Numero IniFer, Numero end RetIniFer, Numero end RetFimFer)

Parâmetros:

NumEmp: Variável numérica com o número da empresa;

TipCol: Variável numérica com o tipo do colaborador;

NumCad: Variável numérica com o cadastro (código) do colaborador;

IniPer: Início do Período de Férias;

IniFer: Início das férias (Campo de Cadastro);

RetIniFer: Retorna a data de inicio das férias (ajustada);

RetFimFer: Retorna a data de fim das férias.

Variáveis de sistema: RetDes: Retorna uma descrição dos dias inválidos compreendidos neste recibo de férias;

Exemplo: Supondo que o colaborador numcad = 5 tenha os seguintes recibos de férias:

INIPER INIFER DIAFER

02-OCT-98 01-MAY-00 5 = Coletivas

02-NOV-98 01-MAY-00 24 = Coletivas

Regra:

MontaData(02,10,1998,vIniPer);

MontaData(01,05,2000,vIniFer);

RetDiasFer(R034FUN.NumEmp, R034FUN.TipCol, R034FUN.NumCad, vIniPer, vIniFer, RetIniFer, RetFimFer);

Retorna:

RetIniFer = 01/05/2000

RetFimFer = 05/05/2000

RetDes = ""

Regra:

MontaData(02,11,1998,vIniPer);

MontaData(01,05,2000,vIniFer);

RetDiasFer(R034FUN.NumEmp, R034FUN.TipCol, R034FUN.NumCad, vIniPer, vIniFer, RetIniFer, RetFimFer);

Retorna:

RetIniFer = 06/05/2000

RetFimFer = 25/05/2000

RetDes = "10/05/2000"

Observação: Neste caso, a data de inicio de férias (RetIniFer) foi ajustada pois já existia um recibo referente ao período anterior (02-OCT-98) com início de férias = (01-MAY-00).

Esta situação pode ocorrer quando são geradas férias coletivas para colaboradores com saldo de dias férias insuficientes.

Utilização: Gerador de Relatórios

Disponível para o módulo: Administração de Pessoal.