Histórico da Página

DECL FIMPERAQUIS1;
DECL DATAPGTOFERIAS;
DECL DATAINICIOFERIAS;
DECL VALOREVENTO;
DECL CH;
DECL QUANTDIAS;

SETVAR (CH, '');

SE EXECSQL('DTFIMPERVENC') = 1;
ENTAO
REPITA
SE RESULTSQL('DTFIMPERVENC','CHAPA') = CHAPA
ENTAO
SETVAR (CH, CHAPA);
SETVAR (FIMPERAQUIS1, RESULTSQL('DTFIMPERVENC','FIMPERAQUIS'));
SETVAR (DATAPGTOFERIAS, RESULTSQL('DTFIMPERVENC','DATAPAGTO'));
SETVAR (DATAINICIOFERIAS, RESULTSQL('DTFIMPERVENC','DATAINICIO'));
SETVAR (VALOREVENTO, RESULTSQL('DTFIMPERVENC','VALOR'));
FIMSE
ATE PROXREGSQL('DTFIMPERVENC') = FALSO;
FIMSE
SETVAR (QUANTDIAS, SUBTRAIDATAS(MTDATA(01,MES,ANO),FIMPERAQUIS1));

SE CH <> CHAPA
ENTAO
0
SENAO
SE QUANTDIAS > 365 E (DATAPGTOFERIAS >= MTDATA(22,03,2020) E DATAPGTOFERIAS <= MTDATA(22,07,2020))
ENTAO
VALOREVENTO * ARRED(QUANTDIAS/365);