CarregarInfoFicFin
Esta função busca informações do cálculo de um colaborador (tabela R046INF). Caso estas informações não sejam encontradas, as informações do histórico salarial são buscadas.
Sintaxe: CarregarInfoFicFin(Numero xNumEmp, Numero xTipCol, Numero xNumCad, Numero xNTipCal, Data xPerIni, Numero xQtdMes);
Parâmetros:
xNumEmp: Empresa do colaborador;
xTipCol: Tipo do colaborador;
xNumCad: Cadastro do colaborador;
xNTipCal: Tipo de cálculo, podendo ser:
- Todos os Tipos de Cálculos
- Cálculos de Folha
- Folha + 13º Salário
- Folha + Adiantamentos
- Folha + Participação nos Resultados
- Cálculos de 13º Salário
- Cálculos de Adiantamentos
- Cálculos de Participação nos Resultados
- Cálculos de Complementar Dissídio
- Cálculos de Pagamento Dissídio
- Cálculos de Rescisão Complementar
- Folha + Complementar Dissídio
- Folha + Pagamento Dissídio
- Desconsidera Cálculo Complementar Dissídio
xPerIni: Competência inicial;
xQtdMes: Quantidade de competências que devem ser carregadas a partir de xPerIni (1 a 12).
Retorno: A seguinte variável de sistema é carregada: InfSalEmp
Exemplo:
Definir Numero cont;
Definir Numero xTotSalario;
Definir Data xCmpIni;
@- Recebe a competência inicial informada na tela de entrada -@ xCmpIni = ECmpIni;
@- Carrega as informações dos cálculos da folha de 6 meses a partir da competência informada na tela de entrada -@ CarregarInfoFicFin(R034FUN.NumEmp, R034FUN.TipCol, R034FUN.NumCad, 2, xCmpIni, 6);
xTotSalario = 0;
cont = 1;
Enquanto (cont <= 6)
Inicio
@- Soma o salário base das competências -@
xTotSalario = xTotSalario + InfSalEmp[cont];
cont = cont + 1;
Fim;
@- Atribui a soma para uma fórmula -@
FTotInfSalEmp = xTotSalario;
Utilização: Gerador de relatórios.
Disponível para o módulo: Administração de Pessoal.