[firebase-br] ajuda com stored procedure

[Reijanio Nunes Ribeiro]

boa tarde a todos esou com um pequeno problema com uma SP que não funciona
poderiam me ajudar

a ideia era fazer o reprocessamento de estoque, eta sintaxe me foi enviada
por um colega da lista então gostaria muito da ajuda dos amigos para
entender o que acontece pois ela sempre retorna 0

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

sempre retorna zero e gostaria de saber se assim  faz o recalculo do estoque
ou preciso usar um update nesta sentença