Obrigatório estar a partir das versões 4.17b117, 4.18b44 ou 4.19b5 do SankhyaOm
No MGE Pessoal 4.48.0.14 ou 4.49.0.7.
Verificações e Configurações a serem realizadas no sistema:
Nova Tabela de IRRF
Pessoal+
MGE Pessoal
Verificações a serem realizadas antes da atualização de versão:
Eventos e fórmulas de IRRF e auxiliares estão protegidos (Padrão Sankhya): Os eventos e fórmulas que estão protegidos serão atualizados automaticamente através da atualização de versão no MGE e no Pessoal+ através da atualização de eventos e fórmulas.
Eventos:
| CÓDIGO EVENTO | DESCRIÇÃO EVENTO |
| 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 - FÉRIAS |
| 9060 | IRRF 13 SALARIO |
| 9130 | IRRF AUTÔNOMO SERVIÇOS |
| 9140 | IRRF AUTÔNOMO TRANSPORTADOR |
| 9150 | IRRF PRÓ LABORE |
Fórmulas:
|
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 (®IMEIRRFCAIXA = '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.
|
CÓDIGO EVENTO |
DESCRIÇÃO EVENTO |
CÓDIGO IDENTIFICAÇÃO |
|---|---|---|
|
998 |
DEPENDENTES IRRF 13 SAL |
177 |
|
993 |
DEPENDENTES IRRF FERIAS |
151 |
|
999 |
DEPENDENTES - IRRF |
176 |
|
1851 |
BASE IRRF REDUZIDA TRANSPORTE |
32 |
|
9330 |
PROVISÃO DE DESCONTO INSS |
201 |
|
9040 |
IRRF |
103 |
|
9050 |
IRRF - FÉRIAS |
103 |
|
9060 |
IRRF 13 SALARIO |
106 |
|
9130 |
IRRF AUTÔNOMO SERVIÇOS |
110 |
|
9140 |
IRRF AUTÔNOMO TRANSPORTADOR |
112 |
|
9150 |
IRRF PRÓ LABORE |
108 |
|
9358 |
DESCONTO SIMPLIFICADO FÉRIAS |
204 |
|
9356 |
DESCONTO SIMPLIFICADO |
202 |
|
9357 |
DESCONTO SIMPLIFICADO 13 |
203 |
|
1904 |
BASE IRRF |
12 |
|
1905 |
BASE IRRF FÉRIAS |
22 |
|
1906 |
BASE IRRF 13 |
13 |
|
1913 |
BASE IRRF AUTÔNOMO SERVIÇOS |
15 |
|
1914 |
BASE IRRF AUTÔNOMO TRANSPORTES |
16 |
|
1915 |
BASE IRRF PRÓ LABORE |
14 |
Casos de uso da aplicabilidade da nova regra:
Exemplo¹:
-
Cálculo com Deduções Legais: Salário de R$ 2.640,00 (sem dependentes e sem pensão)
IR: R$ 2.640,00 - R$ 220,12 (CP) = R$ 2.419,88
R$ 2.419,88 x 7,5% = R$ 181,49 - R$ 158,40 = R$ 23,09 (IRRF)
-
Cálculo com Desconto Simplificado: Salário de R$ 2.640,00 (sem dependentes e sem pensão)
IR: R$ 2.640,00 - R$ 528,00 (DS) = R$ 2.112,00
R$ 2.112,00 x 0,0% = R$ 0,00 - R$ 0,00 = R$ 0,00 (IRRF)
Pessoal+
MGE
Exemplo²:
-
Cálculo com Deduções Legais: Salário de R$ 3.000,00 (com 1 dependente e sem pensão)
IR: R$ 3.000,00 - R$ 263,32 (CP) - R$ 189,59 (DP) = R$ 2.547,09
R$ 2.547,09 x 7,5% = R$ 191,03 - R$ 158,40 = R$ 32,63 (IRRF)
-
Cálculo com Desconto Simplificado: Salário de R$ 3.000,00 (com 1 dependente e sem pensão)
IR: R$ 3.000,00 - R$ 528,00 (DS) = R$ 2.472,00
R$ 2.472,00 x 7,5% = R$ 185,40 - R$ 158,40 = R$ 27,00 (IRRF)
Pessoal+
MGE
Exemplo³:
-
Cálculo com Deduções Legais: Salário de R$ 3.500,00 (com 2 dependentes e sem pensão)
IR: R$ 3.500,00 - R$ 323,32 (CP) - R$ 379,18 (DP) = R$ 2.797,50
R$ 2.797,50 x 7,5% = R$ 209,81 - R$ 158,40 = R$ 51,41 (IRRF)
-
Cálculo com Desconto Simplificado: Salário de R$ 3.500,00 (com 2 dependentes e sem pensão)
IR: R$ 3.500,00 - R$ 528,00 (DS) = R$ 2.972,00
R$ 2.972,00 x 15% = R$ 445,80 - R$ 370,40 = R$ 75,40 (IRRF)
Pessoal+
MGE
Legenda:
CP - Contribuição Previdenciária
DP - Dependentes
DS - Desconto Simplificado
IMPORTANTE:
Nos exemplos 1 e 2, a aplicação do Desconto Simplificado é mais vantajosa ao empregado, pois o empregador irá reter menos IR, mas no exemplo 3 não. Então, no exemplo 3, o sistema deverá continuar aplicando as deduções legais em vez de utilizar o Desconto Simplificado Mensal fixo de R$ 528,00.
Comentários
0 comentário
Escreva seu comentário aqui
Por favor, entre para comentar.