Fórum concatenar um group de registro #58100

DECLARE VARIABLE DSNOTA INTEGER;
DECLARE VL_NOTAFISCAL NUMERIC(10,2);
DECLARE VL_FRETE NUMERIC(10,2);
DECLARE QT_MERCADORIA NUMERIC(10,4);
DECLARE QT_PESOS NUMERIC(10,4);
DECLARE VARIABLE AGRUPANF VARCHAR(100);
DECLARE VARIABLE VIRGULA VARCHAR(100);
BEGIN
 VIRGULA=´,´;
 AGRUPANF=´´;
 FOR
   SELECT NR_NF
   FROM ITEM_CARGA, NOTAFISCAL
   WHERE CD_ITCARGA_FILIAL=:FILIAL AND
         CD_ITCARGA_CARGA=:CARGA AND
         CD_NF_REMETENTE=:REMETENTE AND
         CD_NF_DESTINATARIO=:DESTINATARIO AND
         CD_ITCARGA_NOTAFISCAL= CD_NF
   INTO :DSNOTA DO
   BEGIN
     AGRUPANF=:AGRUPANF||:DSNOTA||:VIRGULA;
   END
   NOTAFISCAL=:AGRUPANF;
   SUSPEND;
 END

 select NF.cd_nf_remetente,  NF.cd_nf_destinatario,
  (SELECT NOTAFISCAL FROM GERAR_NF_CONHECIMENTO(IT.CD_ITCARGA_FILIAL,IT.CD_ITCARGA_CARGA,NF.CD_NF_REMETENTE,NF.CD_NF_DESTINATARIO)) AS NOTAS,
   SUM(IT.QT_ITCARGA_TOTAL_PESOS) AS PESOS,
   SUM(IT.QT_ITCARGA_TOTAL_MERCADORIA) AS MERCADORIA,
   SUM(NF.VL_NF_FRETE) as FRETE,
   SUM(NF.VL_NF) as VLNOTAS
    from item_carga IT, notafiscal NF
where cd_itcarga_notafiscal=cd_nf
GROUP BY NF.cd_nf_remetente,  NF.cd_nf_destinatario, IT.CD_ITCARGA_FILIAL,IT.CD_ITCARGA_CARGA,NF.CD_NF_REMETENTE,NF.CD_NF_DESTINATARIO