Histórico da Página

...

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 REPITA SE TABDEP ('DTNASCIMENTO','V',CONT) <>0 E TABDEP ('INCPENSAO','S',CONT) ='1' ENTAO                     SETVAR SETVAR (PERC, TABDEP ('PERCENTUAL' , 'V', CONT) / 100);                       SETVAR SETVAR (X,1)             SENAO SENAO ""             FIMSE;            FIMSE; SETVAR (CONT,CONT+1)  ATE X=1 OU TABDEP ('DTNASCIMENTO' ,'V' ,CONT) =0 FIMSE; 
SE X>0 ENTAO           DECL DECL LIQUIDO, VLRBASEIRRF, VLRINSS, VLRINSS2, VLR,CONTADOR;           SETVAR SETVAR (LIQUIDO, C('8001') + C('8005'));

/*Se quiser deduzir o valor adiantado basta diminuir o valor do evento cc 35*/           SETVAR SETVAR (VLRINSS, TI (LIQUIDO));           SETVAR SETVAR (VLRINSS2, TI2(LIQUIDO));           SETVAR SETVAR (VLRBASEIRRF, LIQUIDO);           REPITA                     SETVAR REPITA SETVAR (VLR, ((LIQUIDO-VLRINSS- TR (VLRBASEIRRF-VLRINSS2-VLR)) * PERC));                     SETVAR SETVAR (CONTADOR, CONTADOR+1)           ATE ATE CONTADOR= 7;           VLR 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 

Código: A0014

Título: IRRF DE ANTECIPAÇÃO DE 13º SALÁRIO

Texto:

EXECSQL('13SALARIO'); DECL BCALC;

          SETVAR(BCALC,FOR('A0012')+FOR('A0013')+RESULTSQL('13SALARIO','VALOR'));           TR

TR(BCALC-TI(BCALC)-  FORFOR('PENS13PR'))

 
Código: A0015

Título: DESCONTO DE INSS E IRRF ANTECIPADO

Texto: MV(15,ANO,'8003')+MV(15,ANO,'8002')

...