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

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.

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.

No modelo FPCF001.ANU, na seção “6. Informações Complementares”:

<div class="Code"><p>}</p><p>Cur_R036DEPcpl.Proximo();</p><p>AlteraControle("DStrAux", "Descrição", "");</p><p>ListaSecao("Ad_Pensao");</p><p>FNumCpfDep = Cur_R036DEPcpl.NUMCPF;</p><p>AlteraControle("DNomDep", "Descrição", Cur_R036DEPcpl.NOMDEP);</p><p>{</p><p>Enquanto (Cur_R036DEPcpl.Achou)</p></div>

Código (Antes)

<div class="Code"><p>RetornaPenJudDep(xNumEmp, xTipCol, xNumCad, Cur_R036DEPcpl.CodDep, xDatIni, EDatRef, Formula001, Formula002);</p></div>

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

<div class="Code"><p>Enquanto (Cur_R036DEPcpl.Achou)</p><p>{</p><p>AlteraControle("DNomDep", "Descrição", Cur_R036DEPcpl.NOMDEP);</p><p>FNumCpfDep = Cur_R036DEPcpl.NUMCPF;</p><p></p><p>RetornaPenJudDep(xNumEmp, xTipCol, xNumCad, Cur_R036DEPcpl.CodDep, xDatIni, EDatRef, Formula001, Formula002, Formula003);</p><p><span class="comentario">// Se o parâmetro x13sCpl não for informado, ele é considerado como "N"</span></p><p></p><p>ListaSecao("Ad_Pensao");</p><p>AlteraControle("DStrAux", "Descrição", "");</p><p>Cur_R036DEPcpl.Proximo();</p><p>}</p></div>

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.