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

RetornaAdicionaisColaborador

Função responsavél por interar sobre os adicionais do colaborador e que deve ser utilizada com a função CarregarAdicionaisColaborador.

Parâmetros de Entrada: Tipo da Operação. "I" Inicio dos adicionais, "F" Fim dos adicionais, "P" Próximo adicional e "A" Adicional anterior;

Parametros de Saída: Inicio do Adicional, Fim do adicional, Tipo do adicional (0 - S/ adicional, 1 - Adicional por Colaborador (R038HAD), 2 - Adicional por Posto de Trabalho (R017ADI), 3 - Adicional por Local e Cargo (R038LAC), 4 - Adicional por Local (R038LAD) e 5 - Adicional por Cargo (R038LAG)), % de Insalubridade, % de Periculosidade, Fator de Tempo Serviço e Aposentadoria Especial)

Sintaxe: Funcao RetornaAdicioanisColaborador(Alfa aOperacao, Data End aInicio, Data End aFim, Numero End aTipo, Numero End aPerIns, Numero End aPerPer, Numero End aFatSer, Numero End aApoEsp);

Retorno: Retorna 0 se encontrou um adicional, 1 se já encontrou todos os adicionais ou 2 se o colaborador não tiver adicionais.

Exemplo:

CarregarAdicionaisColaborador(xNumEmp, xTipCol, xNumcad, xDataInicio, xDataFim, "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.