[firebase-br] Stored procedure não funciona

[Reijanio Nunes Ribeiro]

alguém pode me dar uma ideia do porque desta sp não funcionar
CREATE OR ALTER PROCEDURE ATLZ_ESTOQUE (
    pcodnota integer)
as
declare variable vprod integer;
declare variable vqtde numeric(10,2);
BEGIN
FOR SELECT D.CODPROD, D.QTDEPROD FROM D_NFENTRADA D
WHERE D.CODNOTA = :pcodnota
INTO :PCODNOTA, :vqtde
DO
BEGIN
UPDATE ESTOQUE E SET E.QTDE_EST = E.QTDE_EST + :VQTDE
 WHERE E.CODPROD = :VPROD;
END
END^
SET TERM ; ^

desde já grato pela ajuda

-- 
Reijanio Nunes Ribeiro
Desenvolvedor Delphi/Php
Suporte em TI