Gestão de Pessoas - Manual do Usuário > Customizações > Funções > CarregaExamesPrevistos

CarregarAdicionaisColaborador

Função responsável por carregar os adicionais do colaborador e que deve ser utilizada com a função RetornaAdicionaisColaborador.

Esta função não possui parâmetros de saída, e possui os seguintes parâmetros de entrada:

Empresa
Tipo do Colaborador
Código do Colaborador
Data de Inicio da busca dos adicionais
data de Fim da busca dos adicionais
Considera o Histórico da Admissão ("S" para sim e "N" para não considerar)
Considera apenas último histórico do período (aConsApenasUltHist). Valores aceitos:
- S: retorna adicionais considerando apenas o local, cargo e/ou posto vigente na data de fim informada.
- N: retorna adicionais considerando todos os locais, cargos e/ou postos do colaborador durante o período informado.

Sintaxe: Funcao CarregarAdicionaisColaborador(Numero aNumEmp, Numero aTipCol, Numero aNumCad, Data aDatIni, Data aDatFim, Alfa aHistoricoAdmissao, Alfa aConsApenasUltHist);

Exemplo:

CarregarAdicionaisColaborador(xNumEmp, xTipCol, xNumcad, xDataInicio, xDataFim, "S", "S");

xIteraAdicionais = RetornaAdicioanisColaborador("I", xRetDatIniAdicional, xRetDatFimAdicional, xRetTipoAdicional, xRetPerIns, xRetPerPer, xRetFatSer, xRetApoEsp);

Enquanto (xIteraAdicionais = 0)

Inicio

Lst.Adicionar();

Lst.DatIni = xRetDatIniAdicional;

Lst.DatFim = xRetDatFimAdicional;

Lst.Tipo = xRetTipoAdicional;

Lst.PERINS = xRetPerIns;

Lst.PERPER = xRetPerPer;

Lst.FATSER = xRetFatSer;

Lst.APOESP = xRetApoEsp;

Lst.Gravar();

xIteraAdicionais = RetornaAdicioanisColaborador("P", xRetDatIniAdicional, xRetDatFimAdicional, xRetTipoAdicional, xRetPerIns, xRetPerPer, xRetFatSer, xRetApoEsp);

Fim;

Disponível para o Módulo: Todos.