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.

<div class="Code"><p>CarregarAdicionaisColaborador(xNumEmp, xTipCol, xNumcad, xDataInicio, xDataFim, "S");</p><p>xIteraAdicionais = RetornaAdicioanisColaborador("I", xRetDatIniAdicional, xRetDatFimAdicional, xRetTipoAdicional, xRetPerIns, xRetPerPer, xRetFatSer, xRetApoEsp);</p><p>Enquanto (xIteraAdicionais = 0)</p><p>Inicio</p><p>Lst.Adicionar();</p><p>Lst.DatIni = xRetDatIniAdicional;</p><p>Lst.DatFim = xRetDatFimAdicional;</p><p>Lst.Tipo = xRetTipoAdicional;</p><p>Lst.PERINS = xRetPerIns;</p><p>Lst.PERPER = xRetPerPer;</p><p>Lst.FATSER = xRetFatSer;</p><p>Lst.APOESP = xRetApoEsp;</p><p>Lst.Gravar();</p><p>xIteraAdicionais = RetornaAdicioanisColaborador("P", xRetDatIniAdicional, xRetDatFimAdicional, xRetTipoAdicional, xRetPerIns, xRetPerPer, xRetFatSer, xRetApoEsp);</p><p>Fim;</p></div>

Disponível para o Módulo: Todos.