[firebase-br] For Select

[Edvaldo (BOL)]

SE VC TIRAR O SUSPEND DE DENTRO DO BEGIN QUEM SABE FUNCIONE ...

EDVALDO

----- Original Message ----- 
From: "Adalberto Sousa Monteiro" <asm190 em gmail.com>
To: "FireBase" <lista em firebase.com.br>
Sent: Monday, June 27, 2005 10:10 AM
Subject: [firebase-br] For Select


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
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa