Histórico da Página

DECL DTREDUZIDA;
DECL DTRET;
DECL QUANTDIAS;
DECL SALRED;
DECL PERCENTUAL; 
DECL TPDEMISSAO;
DECL SALCONSIDERADOQUANTMES;
DECL TPDEMISSAODIASDIREITO;
SETVAR (DTREDUZIDA, TABCOMPLTABFUNC('DTJORREDUZIDADTACORDOBEM','D'));
SETVAR (QUANTMES , TABFUNC('MESESDURACAOBEM','I'));
SETVAR (DTRET, TABCOMPL(TABFUNC('DTRETORNODTACORDOBEM','D')+ (QUANTMES*30)));
SETVAR (SALRED, TABCOMPLTABFUNC('SALREDUZIDOVALORREDUZIDOBEM', 'I'));
SETVAR (PERCENTUAL, TABCOMPLTABFUNC('PRECREDUTORPERCENTUALREDUCAOBEM', '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 (SALCONSIDERADODIASDIREITO, SUBTRAIDATAS(RC - SALREDDTD, DTREDUZIDA));
SE (DTRET+QUANTDIAS) > DTD E PERCENTUAL < 50
ENTAO
SALCONSIDERADOSALRED * (DIASDIREITO/30) * 0.50
SENAO
SE (DTRET+QUANTDIAS) > DTD E PERCENTUAL < 70
ENTAO
SALCONSIDERADOSALRED * (DIASDIREITO/30) * 0.70
SENAO
SE (DTRET+QUANTDIAS) > DTD E PERCENTUAL >= 70
ENTAO
SALCONSIDERADOSALRED * (DIASDIREITO/30)