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);

<div class="Code"><p>CarregarAdicionaisColaborador(xNumEmp, xTipCol, xNumcad, xDataInicio, xDataFim, "S"<MadCap:conditionalText>, "S"</MadCap:conditionalText>);</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.