English
Español
RetornaPenJudDep
Retorna os valores de Pensão Judicial normal e sobre 13º Salário para cada dependente.
Sintaxe: RetornaPenJudDep (Numero xNumEmp, Numero xTipCol, Numero xNumCad, Numero xCodDep, Numero xDatIni, Numero xDatRef, Alfa x13sCpl, Numero End xPenJud, Numero End xPen13s, Numero End xPenPLR);
Parâmetros:
xNumEmp: Número da empresa;
xTipCol: Tipo do colaborador;
xNumCad: Cadastro do colaborador;
xCodDep: Código do dependente;
xDatIni: Data Inicial;
xDatRef: Data Final;
x13sCpl: Salário Complementar, por padrão, deve ser utilizado o valor "N";
xPenJud: Retorna o valor de pensão judicial mensal;
xPen13s: Retorna o valor de pensão judicial s/ 13º salário.
xPenPLR: Retorna o valor de pensão judicial do PLR.
Retorno:
xPenJud: Retorna o valor de pensão judicial mensal;
xPen13s: Retorna o valor de pensão judicial s/ 13º salário.
xPenPLR: Retorna o valor de pensão judicial do PLR.
Exemplo:
No modelo FPCF001.ANU, na seção "6. Informações Complementares":
}
Cur_R036DEPcpl.Proximo();
AlteraControle("DStrAux", "Descrição", "");
ListaSecao("Ad_Pensao");
FNumCpfDep = Cur_R036DEPcpl.NUMCPF;
AlteraControle("DNomDep", "Descrição", Cur_R036DEPcpl.NOMDEP);
{
Enquanto (Cur_R036DEPcpl.Achou)
Código (Antes)
RetornaPenJudDep(xNumEmp, xTipCol, xNumCad, Cur_R036DEPcpl.CodDep, xDatIni, EDatRef, Formula001, Formula002);
- Adicionar dois componentes do tipo Fórmula na seção Ad_Compl (6. Informações Complementares), para que estes exibam os valores retornados;
- Editar o evento Depois de Imprimir da seção Ad_Compl;
- Localizar o código que imprime os dependentes de pensão judicial;
- Adicionar a seguinte linha de código:
Código (Depois)
Enquanto (Cur_R036DEPcpl.Achou)
{
AlteraControle("DNomDep", "Descrição", Cur_R036DEPcpl.NOMDEP);
FNumCpfDep = Cur_R036DEPcpl.NUMCPF;
RetornaPenJudDep(xNumEmp, xTipCol, xNumCad, Cur_R036DEPcpl.CodDep, xDatIni, EDatRef, Formula001, Formula002, Formula003);
// Se o parâmetro x13sCpl não for informado, ele é considerado como "N"
ListaSecao("Ad_Pensao");
AlteraControle("DStrAux", "Descrição", "");
Cur_R036DEPcpl.Proximo();
}
Alterar os nomes Formula001, Formula002 e Formula003 dos componentes na chamada da função RetornaPenJudDep.
Utilização: Gerador de Relatórios - Informe de Rendimentos
Disponível para o módulo: Administração de Pessoal.
English
Español
