Histórico da Página
COMO FAZER - Pagamento de 13º Salário -
...
...
2015
Produto | : | TOTVS Folha de Pagamento Versão: 11.8X e 12.X |
Processo | : | 13º Salário |
Subprocesso | : | Cálculo e Lançamento do 13º |
Data da publicação | : | 1827/1110/20132015 |
○ Parametrização 13º Salário – Com Média
...
(CALCMED(2)/12)*(NROAVOS13)
FIMSE
• 3º Passo: Criar as fórmulas abaixo através do módulo "Cadastro | Fórmulas".
Código: A0013
Título: INSS DE ANTECIPAÇÃO DE 13º SALARIO
Texto:
execsql('13SALARIO');
TI(FOR('A0012') + FOR('A0016') - resultsql('13SALARIO','valor'))
Código: PENS13PR Título: Pensão sobre líquido de 13º salário antecipado (liquido) DELPHI: DECL PERC, CONT, X; SETVAR (CONT,1); SE TABDEP ('DTNASCIMENTO' ,'V' ,CONT) <>0 ENTAO REPITA SE TABDEP ('DTNASCIMENTO','V',CONT) <>0 E TABDEP ('INCPENSAO','S',CONT) ='1' ENTAO SETVAR (PERC, TABDEP ('PERCENTUAL' , 'V', CONT) / 100); SETVAR (X,1) SENAO "" FIMSE; SETVAR (CONT,CONT+1) ATE X=1 OU TABDEP ('DTNASCIMENTO' ,'V' ,CONT) =0 FIMSE;
SE X>0 ENTAO DECL LIQUIDO, VLRBASEIRRF, VLRINSS, VLRINSS2, VLR,CONTADOR; SETVAR (LIQUIDO, C('8001') + C('8005')); /Se quiser deduzir o valor adiantado basta diminuir o valor do evento cc 35/ SETVAR (VLRINSS, TI (LIQUIDO)); SETVAR (VLRINSS2, TI2(LIQUIDO)); SETVAR (VLRBASEIRRF, LIQUIDO); REPITA SETVAR (VLR, ((LIQUIDO-VLRINSS- TR (VLRBASEIRRF-VLRINSS2-VLR)) * PERC)); SETVAR (CONTADOR, CONTADOR+1) ATE CONTADOR= 7; VLR SENAO 0 FIMSE
.NET: DECL PERC, CONT, X;
SETVAR (CONT,1);
SE TABDEP ('DTNASCIMENTO' ,'D' ,CONT) <> DATANULA ENTAO
REPITA
SE TABDEP ('DTNASCIMENTO','D',CONT) <> DATANULA E TABDEP ('INCPENSAO','S',CONT) ='1' ENTAO
SETVAR (PERC, TABDEP ('PERCENTUAL' , 'V', CONT) / 100);
SETVAR (X,1)
SENAO ''
FIMSE;
SETVAR (CONT,CONT+1)
ATE X=1 OU TABDEP ('DTNASCIMENTO' ,'D' ,CONT) = DATANULA
FIMSE;
SE X>0 ENTAO
DECL LIQUIDO, VLRBASEIRRF, VLRINSS, VLRINSS2, VLR,CONTADOR;
SETVAR (LIQUIDO, C('8001') + C('8005')); /Se quiser deduzir o valor adiantado basta diminuir o valor do evento cc 35/
SETVAR (VLRINSS, TI (LIQUIDO));
SETVAR (VLRINSS2, TI2(LIQUIDO));
SETVAR (VLRBASEIRRF, LIQUIDO);
REPITA
SETVAR (VLR, ((LIQUIDO-VLRINSS- TR (VLRBASEIRRF-VLRINSS2-VLR)) * PERC)); SETVAR (CONTADOR, CONTADOR+1)
ATE CONTADOR= 7; VLR
SENAO 0
FIMSE
...