Histórico da Página
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
DECL FIMPERAQUIS1; DECL DATAPGTOFERIAS; DECL DATAINICIOFERIAS; DECL VALOREVENTO; DECL CH; DECL QUANTDIAS; SETVAR (CH, ''); SE EXECSQL('DTFIMPERVENC_2') = 1; ENTAO REPITA SE RESULTSQL('DTFIMPERVENC_2','CHAPA') = CHAPA ENTAO SETVAR (CH, CHAPA); SETVAR (FIMPERAQUIS1, RESULTSQL('DTFIMPERVENC_2','FIMPERAQUIS')); SETVAR (DATAPGTOFERIAS, RESULTSQL('DTFIMPERVENC_2','DATAPAGTO')); SETVAR (DATAINICIOFERIAS, RESULTSQL('DTFIMPERVENC_2','DATAINICIO')); SETVAR (VALOREVENTO, RESULTSQL('DTFIMPERVENC_2','VALOR')); FIMSE ATE PROXREGSQL('DTFIMPERVENC_2') = FALSO; FIMSE; SE CH <> CHAPA ENTAO 0 SENAO SETVAR (QUANTDIAS, SUBTRAIDATAS(MTDATA(01,MES,ANO),FIMPERAQUIS1)); SE QUANTDIAS > 365 E (DATAPGTOFERIAS >= MTDATA(28,04,2021) E DATAPGTOFERIAS <= MTDATA(2625,08,2021)) ENTAO VALOREVENTO * ARRED(QUANTDIAS/365); FIMSE; FIMSE; |
Bloco de código | ||||
---|---|---|---|---|
| ||||
DECL FIMPERAQUIS1; DECL DATAPGTOFERIAS; DECL DATAINICIOFERIAS; DECL VALOREVENTO; DECL CH; DECL QUANTDIAS; SETVAR (CH, ''); SE EXECSQL('DTFIMPERVENC_1') = 1; ENTAO REPITA SE RESULTSQL('DTFIMPERVENC_1','CHAPA') = CHAPA ENTAO SETVAR (CH, CHAPA); SETVAR (FIMPERAQUIS1, RESULTSQL('DTFIMPERVENC_1','FIMPERAQUIS')); SETVAR (DATAPGTOFERIAS, RESULTSQL('DTFIMPERVENC_1','DATAPAGTO')); SETVAR (DATAINICIOFERIAS, RESULTSQL('DTFIMPERVENC_1','DATAINICIO')); SETVAR (VALOREVENTO, RESULTSQL('DTFIMPERVENC_1','VALOR')); FIMSE ATE PROXREGSQL('DTFIMPERVENC_1') = FALSO; FIMSE; SE CH <> CHAPA ENTAO 0 SENAO SETVAR (QUANTDIAS, SUBTRAIDATAS(MTDATA(01,MES,ANO),FIMPERAQUIS1)); SE QUANTDIAS > 365 E (DATAPGTOFERIAS >= MTDATA(28,04,2021) E DATAPGTOFERIAS <= MTDATA(2625,08,2021)) ENTAO VALOREVENTO * ARRED(QUANTDIAS/365); FIMSE; FIMSE; |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas