Histórico da Página

DECL QUANTDIAS;
DECL QUANTDIASRETORNO;
DECL QUANTMES;
DECL DATARETORNO;
DECL PERC;
DECL SALRED;
SETVAR (QUANTDIAS, SUBTRAIDATAS(TABFUNC('DTACORDOBEM','D'),MTDATA(01,MES,ANO)));
SETVAR (QUANTMES , TABFUNC('MESESDURACAOBEM','I'));
SETVAR (DATARETORNO, (TABFUNC('DTACORDOBEM','D')+ (QUANTMES*30)));
SETVAR (QUANTDIASRETORNO, SUBTRAIDATAS(MTDATA(30,MES,ANO), DATARETORNO));
SETVAR (PERC, TABFUNC('PERCENTUALREDUCAOBEM', 'I'));
SETVAR (SALRED, TABFUNC ('VALORREDUZIDOBEM', 'I'));
SE QUANTDIAS> 0 E (TABFUNC('DTACORDOBEM','D') > MTDATA(01,MES,ANO) E TABFUNC('DTACORDOBEM','D') < MTDATA(30,MES,ANO));
SALRED - ((SALRED / ND) * QUANTDIAS)
SENAO
SE QUANTDIASRETORNO > 0 E (DATARETORNO > MTDATA(01,MES,ANO) E DATARETORNO < MTDATA(30,MES,ANO));
SALRED - ((SALRED / ND) * QUANTDIASRETORNO)
SENAO
SE QUANTDIAS < 0 E QUANTDIASRETORNO < 0;
SALRED
SENAO
0