Fórmulas Pensão por Dependente

Eventos

Os Eventos de pensão devem ter sequência de cálculo 4 (menor que do evento de IRRF da respectiva folha), ser do Tipo Desconto e ter a Unidade igual a Quantidade.

Fórmulas

1 - Pensão Normal/Rescisão

XXXX - Auxiliar 1 Folha Normal

((FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'M',
QueMovimento.SEQUENCIA) - (((FBASEPENSDEP(QueFuncionario.CODEMP,
QueFuncionario.CODFUNC, 'M', QueMovimento.SEQUENCIA) - &E999) * (FTF(2,
1,(FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'M',
QueMovimento.SEQUENCIA) - &E999), &REFEREPAGTO,
QueFuncionario.TIPTAB)/100)) - FTF(2,
2,(FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'M',
QueMovimento.SEQUENCIA) - &E999), &REFEREPAGTO, QueFuncionario.TIPTAB))) *
(QueMovimento.INDICE/100))/(1 - ((QueMovimento.INDICE/100)* (FTF(2,
1,(FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'M',
QueMovimento.SEQUENCIA) - &E999), &REFEREPAGTO,
QueFuncionario.TIPTAB)/100)))

YYYY - Pensão Folha Normal/Rescisão (essa fórmula deverá ser associada ao evento de desconto de pensão)

IF((&TIPFOL='N') OR (&TIPFOL='R'),((FBASEPENSDEP(QueFuncionario.CODEMP,
QueFuncionario.CODFUNC, 'M', QueMovimento.SEQUENCIA) -
(((FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'M',
QueMovimento.SEQUENCIA) - &E999) * (FTF(2,
1,(FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'M',
QueMovimento.SEQUENCIA) - &E999 - &FXXXX), &REFEREPAGTO,
QueFuncionario.TIPTAB)/100)) - FTF(2,
2,(FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'M',
QueMovimento.SEQUENCIA) - &E999 - &FXXXX), &REFEREPAGTO,
QueFuncionario.TIPTAB))) * (QueMovimento.INDICE/100))/(1 -
((QueMovimento.INDICE/100)* (FTF(2, 1,(FBASEPENSDEP(QueFuncionario.CODEMP,
QueFuncionario.CODFUNC, 'M', QueMovimento.SEQUENCIA) - &E999 - &FXXXX),
 &REFEREPAGTO, QueFuncionario.TIPTAB)/100))),0)

Fórmula Indice

QueMovimento.INDICE

Observação: &FXXXX - código da fórmula Auxiliar 1

2- Pensão Folha de Férias

XXXX - Auxiliar 1 Férias

((FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'F',
QueMovimento.SEQUENCIA) - (((FBASEPENSDEP(QueFuncionario.CODEMP,
QueFuncionario.CODFUNC, 'F', QueMovimento.SEQUENCIA) - &E999) * (FTF(2,
1,(FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'F',
QueMovimento.SEQUENCIA) - &E999), &REFEREPAGTO,
QueFuncionario.TIPTAB)/100)) - FTF(2,
2,(FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'F',
QueMovimento.SEQUENCIA) - &E999), &REFEREPAGTO, QueFuncionario.TIPTAB))) *
(QueMovimento.INDICE/100))/(1 - ((QueMovimento.INDICE/100)* (FTF(2,
1,(FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'F',
QueMovimento.SEQUENCIA) - &E999), &REFEREPAGTO,
QueFuncionario.TIPTAB)/100)))

YYYY - Pensão Folha Férias (essa fórmula deverá ser associada ao evento de desconto de pensão)

IF((&TIPFOL='F'),((FBASEPENSDEP(QueFuncionario.CODEMP,
QueFuncionario.CODFUNC, 'F', QueMovimento.SEQUENCIA) -
(((FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'F',
QueMovimento.SEQUENCIA) - &E999) * (FTF(2,
1,(FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'F',
QueMovimento.SEQUENCIA) - &E999 - &FXXXX), &REFEREPAGTO,
QueFuncionario.TIPTAB)/100)) - FTF(2, 2,
(FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'F',
QueMovimento.SEQUENCIA) - &E999 - &FXXXX), &REFEREPAGTO,
QueFuncionario.TIPTAB))) * (QueMovimento.INDICE/100))/(1 -
((QueMovimento.INDICE/100)* (FTF(2, 1,(FBASEPENSDEP(QueFuncionario.CODEMP,
QueFuncionario.CODFUNC, 'F', QueMovimento.SEQUENCIA) - &E999 - &FXXXX),
&REFEREPAGTO, QueFuncionario.TIPTAB)/100))),0)

Fórmula Indice

QueMovimento.INDICE

Observação: &FXXXX - código da fórmula Auxiliar 1

3 - Pensão Décimo Terceiro

XXXX - Auxiliar 1 Décimo Terceiro

((FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'D',
QueMovimento.SEQUENCIA) - (((FBASEPENSDEP(QueFuncionario.CODEMP,
QueFuncionario.CODFUNC, 'D', QueMovimento.SEQUENCIA) - &E999) * (FTF(2,
1,(FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'D',
QueMovimento.SEQUENCIA) - &E999), &REFEREPAGTO,
QueFuncionario.TIPTAB)/100)) - FTF(2,
2,(FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'D',
QueMovimento.SEQUENCIA) - &E999), &REFEREPAGTO, QueFuncionario.TIPTAB))) *
(QueMovimento.INDICE/100))/(1 - ((QueMovimento.INDICE/100)* (FTF(2,
1,(FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'D',
QueMovimento.SEQUENCIA) - &E999), &REFEREPAGTO,
QueFuncionario.TIPTAB)/100)))

YYYY - Pensão Décimo Terceiro (essa fórmula deverá ser associada ao evento de desconto de pensão)

IF((&TIPFOL='D'),((FBASEPENSDEP(QueFuncionario.CODEMP,
QueFuncionario.CODFUNC, 'D', QueMovimento.SEQUENCIA) -
(((FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'D',
QueMovimento.SEQUENCIA) - &E999) * (FTF(2,
1,(FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'D',
QueMovimento.SEQUENCIA) - &E999 - &FXXXX), &REFEREPAGTO,
QueFuncionario.TIPTAB)/100)) - FTF(2,
2,(FBASEPENSDEP(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'D',
QueMovimento.SEQUENCIA) - &E999 - &FXXXX), &REFEREPAGTO,
QueFuncionario.TIPTAB))) * (QueMovimento.INDICE/100))/(1 -
((QueMovimento.INDICE/100)* (FTF(2, 1,(FBASEPENSDEP(QueFuncionario.CODEMP,
QueFuncionario.CODFUNC, 'D', QueMovimento.SEQUENCIA) - &E999 - &FXXXX),
&REFEREPAGTO, QueFuncionario.TIPTAB)/100))),0)

Fórmula Indice

QueMovimento.INDICE

Observação: &FXXXX - código da fórmula Auxiliar 1

Planilha Conferência dos 7 cálculos

https://docs.google.com/spreadsheets/d/1IM2GOBjFBiWWMdtKEPBjOVntn6WdSi5B/editusp=sharing&ouid=115559160932353771197&rtpof=true&sd=true

Acesse também: 

Cadastro de Dependente com Pensão Alimentícia