Histórico da Página

DECL AA,MM;
DECL SAL;
SETVAR (MM,DECMES(MES,1));
SETVAR (AA,DECANO(MES,ANO,1));
SETVAR (SAL, RANT(MTDATA(0131,MM,AA))+ (MV(MM,AA,'0084')+MV(MM,AA,'0083')+MV(MM,AA,'0082')));
SE SAL > 0
ENTAO SAL 
SENAO SE ACUMFF(MM,AA,'4')> 0
ENTAO ACUMFF(MM,AA,'4')
SENAO ''
FIMSE

DECL AA,MM;
DECL SAL;
SETVAR (MM,DECMES(MES,2));
SETVAR (AA,DECANO(MES,ANO,2));
SETVAR (SAL, RANT(MTDATA(0131,MM,AA)) + (MV(MM,AA,'0084')+MV(MM,AA,'0083')+MV(MM,AA,'0082')));
SE SAL > 0 
ENTAO SAL
SENAO 
SE ACUMFF(MM,AA,'4')> 0
ENTAO ACUMFF(MM,AA,'4')
SENAO ''
FIMSE