Como fazer um loop para ler Query, dentro de uma Tri

Firebird

16/09/2004

Olá!
Uso FB/IB + D7 + DBExpress.

Como fazer um loop para ler Query, dentro de
uma Trigger /ou Procedure no estilo Delphi ?
Pois preciso após um After Post no TABELA_MASTER, ler o arquivo
TABELA_DETALHE e atualizar o estoque.

Exemplo:
//...No Delphi faço assim
//-----------------------
With Sqlx do Begin
Close;
Sql.Add(´Select * From Estoque_Peps´);
Open;
WHILE NOT EOF do Begin
.
....
Sqlx.Next; //...como faco isso numa Procedure
End;
End;

//...como fazer dentro de uma Procedure
// para fazer o Next
//----------------------------------------
FOR SELECT QTDE,DTVALIDADE,CODPROD,CODESTP
FROM ESTOQUE_PEPS
WHERE CODPROD =:P_CODPROD
ORDER BY CODPROD,DTVALIDADE
INTO :QTD_EM_ESTOQ,:DTVALID,:CODPROX,:PCODESTP;
DO BEGIN
X....

END;


Desde já meus agradecimentos.

ANT.CARLOS/SP


Ant.carlos/sp

Ant.carlos/sp

Curtidas 0

Respostas

Fsflorencio

Fsflorencio

16/09/2004

O Next é automático Ex:

declare variable CODIGO INTEGER;
BEGIN

FOR SELECT COD_PRODUTO
FROM PRODUTOS
WHERE COD_GRUPO BETWEEN 1 AN 2
INTO :CODIGO DO
BEGIN

UPDATE PRODUTOS SET DT_ALTERACAO = CURRENT_DATE
WHERE COD_PRODUTO = :CODIGO;

END

END


GOSTEI 0
POSTAR