Processo IRRF 2023 (MP 1171/2023)

CÓDIGO FÓRMULA	DESCRIÇÃO FÓRMULA
998	DEPENDENTES IRRF 13 SAL
993	DEPENDENTES IRRF FERIAS
999	DEPENDENTES - IRRF
1851	BASE IRRF REDUZIDA TRANSPORTE
9330	PROVISÃO DE DESCONTO INSS
9040	IRRF
9050	IRRF - FERIAS
9060	IRRF 13 SALARIO
9130	IRRF AUTONOMO SERVIÇOS
9140	IRRF AUTONOMO TRANSPORTADOR
9150	IRRF PRO LABORE
9101	RECOMPOSICAO IRRF RETIDO
9102	RECOMPOSICAO BASE IRRF
9103	RECOMPOSICAO BASE IRRF FERIAS
9104	RECOMPOSICAO IRRF RETIDO FERIAS
5060	RECOMPOSICAO BASE IRRF 13
5070	RECOMPOSICAO IRRF RETIDO 13
4107	RECOMPOSICAO BASE IRRF SERVICOS
4108	RECOMPOSICAO IRRF RETIDO SERVICOS
4105	RECOMPOSICAO BASE IRRF TRANSPORTE
4106	RECOMPOSICAO IRRF RETIDO TRANSPORTE

 

IMPORTANTE: 

Se na sua base não tiver algum desses eventos, o mesmo deverá ser criado. 

 

 Processo de atualização de eventos e fórmulas no Pessoal+:

• Acesse a tela “Eventos” e irá aparecer a popup abaixo, indicando que tem uma atualização a ser feita, clique em "Sim", conforme print abaixo:

 

 

Caso não apareça essa popup, clique no ícone “Atualizar eventos e fórmulas padrão”, no canto superior esquerdo da tela Eventos, conforme indicado abaixo:

 

 

Caso o sistema esteja na versão 4.17, acesse a tela “Fórmulas” e repita o mesmo processo realizado anteriormente na tela Eventos:

 

 

Caso não apareça essa popup, clique no ícone Atualizar eventos e fórmulas padrão no canto superior esquerdo da tela Fórmulas, conforme indicado abaixo:

 

 

Como verificar se o evento ou fórmula é padrão Sankhya?

Eventos:

MGE

Se o campo “Protegido”, que fica abaixo da descrição do evento, estiver marcado, o evento é protegido.

 

 

Pessoal+:

Se no card do evento houver o símbolo de um “cadeado”, no canto inferior direito, ele é um evento protegido.

 

 

Fórmulas

MGE

 

 

Pessoal+:

Se a fórmula estiver aparecendo na aba “Fórmulas Padrão” da tela de “Fórmulas” ela está protegida no Pessoal+.

 

 

 IMPORTANTE:

Caso os eventos e fórmulas não estejam protegidos, alterações deverão ser realizadas manualmente. Segue abaixo todas as configurações que deverão ser feitas e, caso necessário, a unidade responsável deverá ser acionada para prestação de serviço de consultoria.

Fórmulas e Eventos:

Fórmulas IRRF (Principais e Auxiliares):

999 - DEPENDENTES IRRF

IF((QueFuncionario.AFASTFGTS = 43) OR (QueFuncionario.AFASTFGTS = 41) OR (&TIPFOL = 'A'), 0, FQD(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, 'I', &REFEREPAGTO) * FTF(2, 3, 0, &REFEREPAGTO, QueFuncionario.TIPTAB))

9101 -RECOMPOSIÇÃO IRRF RETIDO

IF((&FOLHACPL = 'S') AND (&TIPFOL <> 'O'), 0, IF((ABS(FBE(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, Fsomames(&Refere,-1), 'N', '651')) = 0) OR (ABS(FBE(QueFuncionario.CODEMPORIG, QueFuncionario.CODFUNCORIG, Fsomames(&Refere,-1), 'N', '651')) = 0),ABS(FBEDTPAG(queFuncionario.CODEMP, queFuncionario.CODFUNC, &DataPagamento, '9040, 904')) + IF((QueFuncionario.CODEMPORIG > 0) AND (QueFuncionario.CODFUNCORIG > 0), MemSetVar('varTransfIRRFRet', ABS(FBEDTPAG(QueFuncionario.CODEMPORIG, QueFuncionario.CODFUNCORIG, &DataPagamento, '9040, 904'))), 0) , 0))

 

9102 - RECOMPOSIÇÃO BASE IRRF

IF((&FOLHACPL = 'S') AND (&TIPFOL <> 'O'), 0, &E1904 + ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosIdentificados('12'))) + IF(isBaseSimplificadaMP1171(12), IF(ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosIdentificados('202'))) > 0, ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosIdentificados('202'))), ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosDescontoBase('12')))), IF(ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosIdentificados('202'))) > 0, ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosIdentificados('202'))) - ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosDescontoBase('12'))) + IF(&E999 > 0, ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosIdentificados('176'))), 0), IF(&E999 > 0, ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosIdentificados('176'))), 0))))

 

9040 - IRRF

IF((QueFuncionario.CODCATEGESOCIAL = 111) OR (QueFuncionario.VINCULO = 90) OR ((&TIPFOL = 'A') AND (&REGIMEIRRFCAIXA = 'N')) OR (CTOI(PDESPARAM('1', 'TFPFUN', 'CODEMP = :INT_CODEMP AND CODFUNC = :INT_CODFUNC AND DTLAUDORRA IS NOT NULL', STR(QueFuncionario.CODEMP), STR(QueFuncionario.CODFUNC))) = 1), 0, IF(((((&F9102 * FTF(2, 1, &F9102, &DataPagamento, QueFuncionario.TIPTAB)) / 100) - FTF(2, 2, &F9102, &DataPagamento, QueFuncionario.TIPTAB)) - &F9101) < queEventos.VLREVENTO, 0, (((&F9102 * FTF(2, 1, &F9102, &DataPagamento, QueFuncionario.TIPTAB)) / 100) - FTF(2, 2, &F9102, &DataPagamento, QueFuncionario.TIPTAB)) - &F9101))

 

Fórmula Índice

FTF(2, 1, &F9102, &DataPagamento, queFuncionario.TIPTAB)

 

9103 - RECOMPOSIÇÃO BASE IRRF FÉRIAS

IF((&FOLHACPL = 'S') AND (&TIPFOL <> 'O'), 0, &E1905 + ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosIdentificados('13'))) + IF(isBaseSimplificadaMP1171(13), IF(ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosIdentificados('204'))) > 0, ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosIdentificados('204'))), ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosDescontoBase('13')))), IF(ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosIdentificados('204'))) > 0, ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosIdentificados('204'))) - ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosDescontoBase('13'))) + IF(&E999 > 0, ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosIdentificados('151'))), 0), IF(&E999 > 0, ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosIdentificados('151'))), 0))))

 

9104 - RECOMPOSIÇÃO IRRF RETIDO FÉRIAS

IF((&FOLHACPL = 'S') AND (&TIPFOL <> 'O'), 0, ABS(FBEDTPAG(queFuncionario.CODEMP, queFuncionario.CODFUNC, &DataPagamento,'9050'))) + IF(QueFuncionario.CODEMPORIG > 0, ABS(FBEDTPAG(QueFuncionario.CODEMPORIG, QueFuncionario.CODFUNCORIG, &DataPagamento, '9050')), 0)

 

9050 - IRRF - FÉRIAS

IF((QueFuncionario.CODCATEGESOCIAL = 111) OR (QueFuncionario.VINCULO = 90) OR (CTOI(PDESPARAM('1', 'TFPFUN', 'CODEMP = :INT_CODEMP AND CODFUNC = :INT_CODFUNC AND DTLAUDORRA IS NOT NULL', STR(QueFuncionario.CODEMP), STR(QueFuncionario.CODFUNC))) = 1), 0, IF(((((&F9103 * FTF(2, 1, &F9103, &DataPagamento, QueFuncionario.TIPTAB)) / 100) - FTF(2, 2, &F9103, &DataPagamento, QueFuncionario.TIPTAB)) - &F9104) < queEventos.VLREVENTO, 0, (((&F9103 * FTF(2, 1, &F9103, &DataPagamento, QueFuncionario.TIPTAB)) / 100) - FTF(2, 2, &F9103, &DataPagamento, QueFuncionario.TIPTAB)) - &F9104))

 

Fórmula Índice

FTF(2, 1, &F9103, &DataPagamento, queFuncionario.TIPTAB)

 

5060 - RECOMPOSICAO BASE IRRF 13

IF((&FOLHACPL = 'S') AND (&TIPFOL <> 'O'), 0, &E1906 + ABS(FBE(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'DS', getEventosDescontoBase('13'))) + IF(isBaseSimplificadaMP1171(13), IF(ABS(FBE(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'DS', getEventosIdentificados('203'))) > 0, ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosIdentificados('203'))), ABS(FBE(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'DS', getEventosDescontoBase('13')))), IF(ABS(FBE(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'DS', getEventosIdentificados('203'))) > 0, ABS(FBEDTPAG(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, getEventosIdentificados('203'))) - ABS(FBE(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'DS', getEventosDescontoBase('13'))) + IF(&E998 > 0, ABS(FBE(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'DS', getEventosIdentificados('177'))), 0), IF(&E998 > 0, ABS(FBE(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'DS', getEventosIdentificados('177'))), 0))))

 

5070 - RECOMPOSICAO IRRF RETIDO 13

IF((&FOLHACPL = 'S') AND (&TIPFOL <> 'O'), 0, ABS(FBE(QueFuncionario.CODEMP,QueFuncionario.CODFUNC,&DataPagamento,'O','9060')) + IF(&TIPFOL = 'R',FBE(QueFuncionario.CODEMP,QueFuncionario.CODFUNC,&DataPagamento,'DS','9060') + IF(QueFuncionario.CODEMPORIG > 0,ABS(FBE(QueFuncionario.CODEMPORIG,QueFuncionario.CODFUNCORIG,&DataPagamento,'DS','9060')),0),0) + IF(&TIPFOL = 'N',ABS(FBE(QueFuncionario.CODEMP,QueFuncionario.CODFUNC,&REFERE,'D','9060')),0) + IF(&TIPFOL = 'C',ABS(FBE(QueFuncionario.CODEMP,QueFuncionario.CODFUNC,&DataPagamento,'R','9060') + ABS(FBE(QueFuncionario.CODEMP,QueFuncionario.CODFUNC,&DataPagamento,'DS','9060'))) + IF(QueFuncionario.CODEMPORIG > 0,ABS(FBE(QueFuncionario.CODEMPORIG,QueFuncionario.CODFUNCORIG,&DataPagamento,'DS','9060')) + ABS(FBE(QueFuncionario.CODEMPORIG,QueFuncionario.CODFUNCORIG,&DataPagamento,'R','9060')),0),0))

 

9060 - IRRF - 13 SALARIO

IF((QueFuncionario.CODCATEGESOCIAL = 111) OR (QueFuncionario.VINCULO = 90) OR (CTOI(PDESPARAM('1', 'TFPFUN', 'CODEMP = :INT_CODEMP AND CODFUNC = :INT_CODFUNC AND DTLAUDORRA IS NOT NULL', STR(QueFuncionario.CODEMP), STR(QueFuncionario.CODFUNC))) = 1), 0, IF(((((&F5060 * FTF(2, 1, &F5060, &DataPagamento, QueFuncionario.TIPTAB)) / 100) - FTF(2, 2, &F5060, &DataPagamento, QueFuncionario.TIPTAB)) - &F5070) < queEventos.VLREVENTO, 0, (((&F5060 * FTF(2, 1, &F5060, &DataPagamento, QueFuncionario.TIPTAB)) / 100) - FTF(2, 2, &F5060, &DataPagamento, QueFuncionario.TIPTAB)) - &F5070))

 

Fórmula Índice

FTF(2, 1, &E5060, &DataPagamento, queFuncionario.TIPTAB)

 

4107 - RECOMPOSICAO BASE IRRF SERVICOS

IF((QueFuncionario.VINCULO = 90) AND ((queFuncionario.CODOCORRFGTS = '13') OR (queFuncionario.CODOCORRFGTS = '24')) AND (QueFuncionario.MEI = 'N'), &E1913 + ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('15'))) + IF(isBaseSimplificadaMP1171(15), IF(ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('202'))) > 0, ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('202'))), ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosDescontoBase('15')))), IF(ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('202'))) > 0, ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('202'))) - ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosDescontoBase('15'))) + IF(&E999 > 0, ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('176'))), 0), IF(&E999 > 0, ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('176'))), 0))), 0)

 

4108 - RECOMPOSICAO IRRF RETIDO SERVIÇOS

IF((QueFuncionario.VINCULO = 90) AND ((queFuncionario.CODOCORRFGTS = '13') OR (queFuncionario.CODOCORRFGTS = '24')) AND (QueFuncionario.MEI = 'N'), ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &Refere, 'N,R', '9130')), 0)

9130 - IRRF AUTÔNOMO SERVIÇOS

IF((QueFuncionario.VINCULO = 90) AND ((queFuncionario.CODOCORRFGTS = '13') OR (queFuncionario.CODOCORRFGTS = '24')) AND (QueFuncionario.MEI = 'N'), IF((MemSetVar('varIRRFServicos', (((&F4107 * FTF(2, 1, &F4107, &DataPagamento, queFuncionario.TIPTAB) / 100) - FTF(2, 2, &F4107, &DataPagamento, queFuncionario.TIPTAB)) - &F4108)) < queEventos.VLREVENTO), 0, MemGetVar('varIRRFServicos')), 0)

 

Fórmula Índice:

FTF(2, 1, &F4107, &DataPagamento, queFuncionario.TIPTAB)

 

987 - IRRF ACUMULADO NA REF AUTÔNOMO
IF((QueFuncionario.VINCULO = 90) AND ((queFuncionario.CODOCORRFGTS = '13') OR (queFuncionario.CODOCORRFGTS = '24')) AND (QueFuncionario.MEI = 'N'), ABS(FBM(queFuncionario.CODEMP, queFuncionario.CODFUNC, &REFERE, 'S', '9130', 'V')), 0)

  1851 - BASE IRRF REDUZIDA TRANSPORTE

IF((QueFuncionario.VINCULO = 90) AND ((queFuncionario.CODOCORRFGTS = '15') OR (queFuncionario.CODOCORRFGTS = '25')), (&E5 * 10 / 100) - ABS(&E9110) - ABS(&E999), 0)

 

4105 - RECOMPOSIÇÃO BASE IRRF TRANSPORTE

IF((QueFuncionario.VINCULO = 90) AND ((queFuncionario.CODOCORRFGTS = '15') OR (queFuncionario.CODOCORRFGTS = '25')), &E1851 + ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('32'))) + IF(isBaseSimplificadaMP1171(32), IF(ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('202'))) > 0, ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('202'))), ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosDescontoBase('32')))), IF(ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('202'))) > 0, ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('202'))) - ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosDescontoBase('32'))) + IF(&E999 > 0, ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('176'))), 0), IF(&E999 > 0, ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('176'))), 0))), 0)

 

4106 - RECOMPOSIÇÃO IRRF RETIDO TRANSPORTE

IF((QueFuncionario.VINCULO = 90) AND ((queFuncionario.CODOCORRFGTS = '15') OR (queFuncionario.CODOCORRFGTS = '25')), ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &Refere, 'N,R', '9140')), 0)

 

9140 - IRRF AUTÔNOMO TRANSPORTADOR

IF((QueFuncionario.VINCULO = 90) AND ((queFuncionario.CODOCORRFGTS = '15') OR (queFuncionario.CODOCORRFGTS = '25')), IF((MemSetVar('varIRRFTransporte', (((&F4105 * FTF(2, 1, &F4105, &DataPagamento, queFuncionario.TIPTAB) / 100) - FTF(2, 2, &F4105, &DataPagamento, queFuncionario.TIPTAB)) - &F4106)) < queEventos.VLREVENTO), 0, MemGetVar('varIRRFTransporte')), 0)

 

Fórmula Índice:

FTF(2, 1, &F4105, &DataPagamento, queFuncionario.TIPTAB)

 

977 - IRRF ACUMULADO NA REF TRANSPORTADOR

IF((QueFuncionario.VINCULO = 90) AND ((queFuncionario.CODOCORRFGTS = '15') OR (queFuncionario.CODOCORRFGTS = '25')), ABS(FBM(queFuncionario.CODEMP, queFuncionario.CODFUNC, &REFERE, 'S', '9140', 'V')), 0)

 

5160 - RECOMPOSICAO BASE IRRF INTERMITENTE

IF((&FOLHACPL = 'S') AND (&TIPFOL <> 'O') AND (QueFuncionario.CODCATEGESOCIAL <> 111), 0, &E1904 + ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('12'))) + IF(isBaseSimplificadaMP1171(12), IF(ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('202'))) > 0, ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('202'))), ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosDescontoBase('12')))), IF(ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('202'))) > 0, ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('202'))) - ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosDescontoBase('12'))) + IF(&E999 > 0, ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('176'))), 0), IF(&E999 > 0, ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('176'))), 0))))

 

5170 - RECOMPOSIÇÃO IRRF RETIDO INTERMITENTE

IF((&FOLHACPL = 'S') AND (&TIPFOL <> 'O') AND (QueFuncionario.CODCATEGESOCIAL <> 111), 0, ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &Refere, 'N,R', '9180')))

 

9180 - IRRF INTERMITENTE

IF((QueFuncionario.CODCATEGESOCIAL = 111), IF((MemSetVar('varIRRFintermitente', (((&F5160 * FTF(2, 1, &F5160, &DataPagamento, queFuncionario.TIPTAB) / 100) - FTF(2, 2, &F5160, &DataPagamento, queFuncionario.TIPTAB)) - &F5170)) < queEventos.VLREVENTO), 0, MemGetVar('varIRRFintermitente')), 0)

 

5220 - RECOMPOSIÇÃO BASE IRRF 13° INTERMITENTE

IF((&FOLHACPL = 'S') AND (&TIPFOL <> 'O') AND (QueFuncionario.CODCATEGESOCIAL <> 111), 0, &E1906 + ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('13'))) + IF(isBaseSimplificadaMP1171(13), IF(ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('203'))) > 0, ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('203'))), ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosDescontoBase('13')))), IF(ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('203'))) > 0, ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('203'))) - ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosDescontoBase('13'))) + IF(&E998 > 0, ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('177'))), 0), IF(&E998 > 0, ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &DataPagamento, 'N,R', getEventosIdentificados('177'))), 0))))

 

5230 - RECOMPOSIÇÃO IRRF 13° RETIDO INTERMITENTE

IF((&FOLHACPL = 'S') AND (&TIPFOL <> 'O') AND (QueFuncionario.CODCATEGESOCIAL <> 111), 0, ABS(FBES(QueFuncionario.CODEMP, QueFuncionario.CODFUNC, &Refere, 'N,R', '9200')))

 

9200 - IRRF 13° INTERMITENTE

IF((QueFuncionario.CODCATEGESOCIAL = 111), IF((MemSetVar('varIRRFintermitente13', (((&F5220 * FTF(2, 1, &F5220, &DataPagamento, queFuncionario.TIPTAB) / 100) - FTF(2, 2, &F5220, &DataPagamento, queFuncionario.TIPTAB)) - &F5230)) < queEventos.VLREVENTO), 0, MemGetVar('varIRRFintermitente13')), 0)

 

Novas Fórmulas (Desconto Simplificado)

XXXX - DESCONTO SIMPLIFICADO
IF((QueFuncionario.VINCULO = 90) AND (isBaseSimplificadaMP1171(32) OR isBaseSimplificadaMP1171(15)), &VLRSIMPLIRRF, IF(isBaseSimplificadaMP1171(12), &VLRSIMPLIRRF, 0))

 

XXXX - DESCONTO SIMPLIFICADO 13

IF(isBaseSimplificadaMP1171(13), &VLRSIMPLIRRF, 0)

 

XXXX - DESCONTO SIMPLIFICADO FÉRIAS

IF(isBaseSimplificadaMP1171(22), &VLRSIMPLIRRF, 0)

 

Eventos Alterados

Foi criada uma nova identificação “201 - Provisão INSS de Férias” que foi associada ao evento “PROVISÃO DE DESCONTO INSS”

 

Pessoal+

 

 

 

 

 

 

MGE Pessoal

 

 

 

 

Foi criada uma nova identificação “32 - Base IRRF Reduzida Transporte ” que foi associada ao evento 1851 - “Base IRRF Reduzida Transporte”

 

Pessoal+

 

 

MGE Pessoal

 

 

Novos Eventos (Desconto Simplificado)

XXXX - Desconto simplificado 

Foi criada uma nova identificação “202 - Dedução Simplificada de IRRF - MP1171”, que foi associada ao evento “DESCONTO SIMPLIFICADO”

 

 

 

MGE Pessoal

 

 

 

  XXXX - Desconto simplificado 13

Foi criada uma nova identificação “203 - Dedução Simplificada de IRRF de 13º - MP1171”, que foi associada ao evento “DESCONTO SIMPLIFICADO 13”

 

Pessoal+

 

 

 

MGE Pessoal

 

 

 

XXXX - Desconto simplificado férias 

Foi criada uma nova identificação “204 - Dedução Simplificada de Férias - MP1171”, que foi associada ao evento “DESCONTO SIMPLIFICADO FÉRIAS"

 

Pessoal+

 

 

 

MGE Pessoal

 

 

 

Identificação dos Eventos

Para que o cálculo funcione corretamente, verifique se os eventos estão associados à identificação correta. As identificações devem estar obrigatoriamente associadas aos eventos para que o cálculo funcione corretamente.