[firebase-br] For Select

[Adalberto Sousa Monteiro]

Bom dia a todos, alguem poderia me ajudar com a seguinte duvida.
Montei a procedure abaixo, para que seja chamada pela aplicação para estar gerando uma movimentação de vendas.

Gostaria de saber como faço para 'varrer' todos os registros retornado pelo SELECT, dentro da propria de procedure ?
Como faço para a procedure dar o 'insert' de todos os registros ?
Ele so gera um unico registro no insert, e não todos que foram retornados pelo select.

Desde ja agradeço
Adalberto

For SELECT EXTRACT(YEAR  FROM PED.DT_PEDIDO),
       EXTRACT(MONTH FROM PED.DT_PEDIDO),
       ITEM.CD_FORNECEDOR,
       ITEM.CD_PRODUTO,
       PED.CD_CLIENTE,
       PED.CD_REPRESENTANTE,
       SUM((ITEM.QT_VENDA * ITEM.PR_UNITARIO)) VL_TOTVENDABRT,
       SUM(ITEM.VL_TOTAL) VL_TOTVENDALIQ,
       SUM(ITEM.QT_VENDA) QT_TOTVENDA,
       SUM(ITEM.VL_COMISSAO) VL_TOTCOMIS,
       SUM(ITEM.VL_DESCONTO) VL_TOTDESC
FROM   ITEMPEDIDO ITEM, PEDIDO PED, CLIENTE CLI
WHERE  ITEM.NR_PEDIDO = PED.NR_PEDIDO AND
       CLI.CD_CLIENTE = PED.CD_CLIENTE
GROUP BY EXTRACT(YEAR  FROM PED.DT_PEDIDO),
         EXTRACT(MONTH FROM PED.DT_PEDIDO),
         ITEM.CD_FORNECEDOR,
         ITEM.CD_PRODUTO,
         PED.CD_CLIENTE,
         PED.CD_REPRESENTANTE
Into :var1, var2, var3 ... etc etc
Do Begin
    Insert into ... etc etc etc
    Suspend;
End