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
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
Curtir tópico
+ 0
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
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
Clique aqui para fazer login e interagir na Comunidade :)