English
Español
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,
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.
English
Español
