Histórico da Página

DECL QUANTDIAS;
DECL QUANTDIASRETORNO;
DECL QUANTMES;
DECL DATARETORNO;
DECL JORMENSAL;
DECL PERC;
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 (JORMENSAL, TABFUNC('JORNADAMENSAL','I'));
SETVAR (PERC, TABFUNC('PERCENTUALREDUCAOBEM', 'I'));

SE QUANTDIAS > 0;
(((JORMENSAL - (JORMENSAL * (PERC/100))) + (((JORMENSAL * (PERC/100))/ ND) * QUANTDIAS)) /(JORMENSAL/ND))
SENAO
SE QUANTDIASRETORNO > 0 E (DATARETORNO > MTDATA(01,MES,ANO) E DATARETORNO < MTDATA(30,MES,ANO));
(((JORMENSAL - (JORMENSAL * (PERC/100))) + (((JORMENSAL * (PERC/100))/ ND) * QUANTDIASRETORNO)) /(JORMENSAL/ND))
SENAO
SE QUANTDIAS < 0 E QUANTDIASRETORNO < 0;
(JORMENSAL - (JORMENSAL * (PERC/100))) /(JORMENSAL/ND)
SENAO
JORMENSAL/(JORMENSAL/ND)