Fórum Como fazer um loop para ler Query, dentro de uma Tri #46720

16/09/2004

0

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

Responder

Posts

16/09/2004

Fsflorencio

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar