Histórico da Página

DECL DTREDUZIDA;
DECL DTRET;
DECL QUANTDIAS;
DECL SAL;
DECL PERCENTUAL;
DECL TPDEMISSAO;
DECL QUANTMES;
DECL DIASDIREITO;
DECl DIASABTIDOS;
SETVAR (DTREDUZIDA, TABFUNC('DTACORDOBEM','D'));
SETVAR (QUANTMES , TABFUNC('DURACAOBEM','I') + TABFUNC ('DIASPRORROGACAOBEM','I'));
SETVAR (DTRET, (TABFUNC('DTACORDOBEM','D')+ (QUANTMES)));
SETVAR (SAL, TABFUNC('SALARIO', 'I'));
SETVAR (PERCENTUAL, TABFUNC('PERCENTUALREDUCAOBEM', 'I'));
SETVAR (TPDEMISSAO, TABFUNC ('TIPODEMISSAO',''));
SE DTRET = '01/01/0001' E DTREDUZIDA = '01/01/0001'
ENTAO
0
SENAO
SE DTRET = '01/01/0001' E DTREDUZIDA <> '01/01/0001'
ENTAO
0
SENAO
SE DTRET <> '01/01/0001' E DTREDUZIDA <> '01/01/0001' E TPDEMISSAO = 2
ENTAO
SETVAR (QUANTDIAS, SUBTRAIDATAS(DTRET, DTREDUZIDA));
SETVAR (DIASABTIDOS, SUBTRAIDATAS (DTD, DTRET));
SE DIASABTIDOS > 0 E (QUANTDIAS - DIASABTIDOS) > 0
ENTAO
SETVAR (DIASDIREITO, (QUANTDIAS - DIASABTIDOS));
SENAO
SETVAR (DIASDIREITO, SUBTRAIDATAS(DTD, DTREDUZIDA));
FIMSE;
SE (DTRET+QUANTDIAS) > DTD E PERCENTUAL < 50
ENTAO
SAL * (DIASDIREITO/30) * 0.50
SENAO
SE (DTRET+QUANTDIAS) > DTD E PERCENTUAL < 70
ENTAO
SAL * (DIASDIREITO/30) * 0.75
SENAO
SE (DTRET+QUANTDIAS) > DTD E PERCENTUAL >= 70
ENTAO
SAL * (DIASDIREITO/30)