[firebase-br] ajuda com stored procedure

[Hélio Oliveira]

Boa tarde Reijanio!

Aparentemente nada de errado com a procedure - faça um teste executando 
os select separadamente utilizando o código de um determinado produto e 
veja os resultados retornados. Ah! você também pode depurar sua 
procedure linha a linha utilizando o IBExperte e verificar onde possa 
esta o problema.

> CREATE OR ALTER PROCEDURE REPROCESSA (
>      pcod varchar(20))
> returns (
>      psaldo numeric(10,2),
>      pentradas numeric(10,2),
>      psaidas numeric(10,2))
> as
> begin
>    /* Procedure Text */
>    for select E.codprod from ESTOQUE E
>    order by E.codprod
>    into :pcod
>    do begin
>      /*total de entradas*/
>      select SUM(M.qtde) FROM movimento_estoq m
>       where M.CODPROD = :pcod AND M.tp_mov = 'E'
>      into :pentradas;
>      if (pentradas IS NULL) then pentradas = 0;
>      /*TOTAL DE SAIDAS*/
>      select SUM(M.qtde) FROM movimento_estoq m
>       where M.CODPROD = :pcod AND M.tp_mov = 'S'
>      into :psaidas;
>      if (psaidas IS NULL) then psaidas = 0;
>      /*SALDO*/
>      psaldo = pentradas - psaidas;
>        suspend;
>      end
> end


-- 
[]'s,

Hélio Oliveira
Bel. Ciência da Computação
Técnico em Contabilidade
e-mail : hpensador em gmail.com
Skype : hpensador
http://hpensador.blogspot.com/
www.hpensador.net
(71) 9975-9176