如何在查询准备()中使用last-of？

Question

我写了一个很大的代码，这需要很长的时间来处理。根据这里的建议，我让它变得更短更好，现在它运行得更快了。然而，我注意到我应该得到值的总和，而我只是得到值。我尝试使用ACCUMULATE TOTAL，但它不起作用，因为LAST-OF只能与BREAK BY一起使用，而我的break by是在QUERY-PREPARE()中。

如何获得以下值的总和？

doc-fiscal.vl-cont-doc
doc-fiscal.vl-bicms
doc-fiscal.vl-icms
doc-fiscal.vl-icmsou
doc-fiscal.vl-ipiou
doc-fiscal.vl-ipi

Bellow是我正在使用的代码，它几乎工作得很好。

//Query
cQuery = "FOR EACH doc-fiscal WHERE doc-fiscal.dt-docto >= " + QUOTER(pd-data-1) + " AND doc-fiscal.dt-docto <= " + QUOTER(pd-data-2) + " AND (doc-fiscal.cod-observa <> 4 OR doc-fiscal.tipo-nat <> 3) AND doc-fiscal.cd-situacao <> 06 AND doc-fiscal.cd-situacao <> 22".
cQuery = cQuery + semCodEmitente + comCodEmitente + CheckBoxindSitDoc.
cQuery = cQuery + ", EACH natur-oper USE-INDEX natureza WHERE doc-fiscal.nat-operacao = natur-oper.nat-operacao" + modeloEletronico + tipoEntrada + natOper.
cQuery = cQuery + " BREAK BY doc-fiscal.dt-docto BY doc-fiscal.nr-doc-fis ".

QUERY qRelatorio:QUERY-PREPARE(cQuery).

QUERY qRelatorio:QUERY-OPEN().

GET FIRST qRelatorio.
DEF VAR soma-vl-cont-doc AS DECIMAL.
DO WHILE AVAILABLE doc-fiscal:
    
    soma-vl-cont-doc = soma-vl-cont-doc + doc-fiscal.vl-cont-doc.

    IF LAST-OF(doc-fiscal.nr-doc-fis) THEN DO:
    CREATE tt-relatorio.
    ASSIGN
    tt-relatorio.nr-doc-fis = doc-fiscal.nr-doc-fis
    tt-relatorio.serie = doc-fiscal.serie
    tt-relatorio.char-2 = SUBSTRING(doc-fiscal.char-2,155,44, "CHAR")
    tt-relatorio.cod-model-nf-eletro = natur-oper.cod-model-nf-eletro
    tt-relatorio.tipo = natur-oper.tipo
    tt-relatorio.cod-estabel = doc-fiscal.cod-estabel
    tt-relatorio.cod-emitente = doc-fiscal.cod-emitente
    tt-relatorio.nome-ab-emi = doc-fiscal.nome-ab-emi
    tt-relatorio.cgc = doc-fiscal.cgc
    tt-relatorio.dt-emis-doc = doc-fiscal.dt-emis-doc
    tt-relatorio.dt-docto = doc-fiscal.dt-docto
    tt-relatorio.ind-sit-doc = doc-fiscal.ind-sit-doc
    tt-relatorio.vl-cont-doc = doc-fiscal.vl-cont-doc
    tt-relatorio.vl-bicms = doc-fiscal.vl-bicms
    tt-relatorio.vl-icms = doc-fiscal.vl-icms
    tt-relatorio.vl-icmsou = doc-fiscal.vl-icmsou
    tt-relatorio.vl-ipiou = doc-fiscal.vl-ipiou
    tt-relatorio.vl-ipi = doc-fiscal.vl-ipi
    tt-relatorio.imp-nota = natur-oper.imp-nota.
    
    GET NEXT qRelatorio.
    END.
END.

QUERY qRelatorio:QUERY-CLOSE().

谢谢你的帮助，很抱歉我还是个新手。我希望我的问题能帮助其他人。

Answer 1

我设法做到了。我使用了LAST-OF()方法。我的代码如下所示。

DEF VAR soma-vl-cont-doc AS DECIMAL. //INICIO DAS SOMAS
DEF VAR soma-vl-bicms AS DECIMAL.
DEF VAR soma-vl-icms AS DECIMAL.
DEF VAR soma-vl-icmsou AS DECIMAL.
DEF VAR soma-vl-ipiou AS DECIMAL.
DEF VAR soma-vl-ipi AS DECIMAL.

DO WHILE AVAILABLE doc-fiscal:
    
    soma-vl-cont-doc = soma-vl-cont-doc + doc-fiscal.vl-cont-doc.
    soma-vl-bicms = soma-vl-bicms + doc-fiscal.vl-bicms.
    soma-vl-icms = soma-vl-icms + doc-fiscal.vl-icms.
    soma-vl-icmsou = soma-vl-icmsou + doc-fiscal.vl-icmsou.
    soma-vl-ipiou = soma-vl-ipiou + doc-fiscal.vl-ipiou.
    soma-vl-ipi = soma-vl-ipi + doc-fiscal.vl-ipi.
   
    IF QUERY qRelatorio:LAST-OF(2) THEN DO:

    CREATE tt-relatorio.
    ASSIGN
    tt-relatorio.nr-doc-fis = doc-fiscal.nr-doc-fis
    tt-relatorio.serie = doc-fiscal.serie
    tt-relatorio.char-2 = SUBSTRING(doc-fiscal.char-2,155,44, "CHAR")
    tt-relatorio.cod-model-nf-eletro = natur-oper.cod-model-nf-eletro
    tt-relatorio.tipo = natur-oper.tipo
    tt-relatorio.cod-estabel = doc-fiscal.cod-estabel
    tt-relatorio.cod-emitente = doc-fiscal.cod-emitente
    tt-relatorio.nome-ab-emi = doc-fiscal.nome-ab-emi
    tt-relatorio.cgc = doc-fiscal.cgc
    tt-relatorio.dt-emis-doc = doc-fiscal.dt-emis-doc
    tt-relatorio.dt-docto = doc-fiscal.dt-docto
    tt-relatorio.ind-sit-doc = doc-fiscal.ind-sit-doc
    tt-relatorio.vl-cont-doc = soma-vl-cont-doc
    tt-relatorio.vl-bicms = soma-vl-bicms
    tt-relatorio.vl-icms = soma-vl-icms
    tt-relatorio.vl-icmsou = soma-vl-icmsou
    tt-relatorio.vl-ipiou = soma-vl-ipiou
    tt-relatorio.vl-ipi = soma-vl-ipi
    //tt-relatorio.idi-sit-nf-eletro = nota-fiscal.idi-sit-nf-eletro
    tt-relatorio.imp-nota = natur-oper.imp-nota.
    soma-vl-cont-doc = 0.
    soma-vl-bicms = 0.
    soma-vl-icms = 0.
    soma-vl-icmsou = 0.
    soma-vl-ipiou = 0.
    soma-vl-ipi = 0.
    END.
    GET NEXT qRelatorio.
END.

有了这个，我设法得到了我想要的答案，并且查询速度很快。如果有任何关于如何让它更快的建议，我愿意接受他们。谢谢。