[firebase-br] Ajuda com Stored Procedure!

[Ricardo]

Alguém sabe como eu posso dar um Commit dentro de uma Procedure sem ter que ficar comitando por fora?

A minha Procedure:

SET TERM ^ ;

CREATE PROCEDURE ATUA_ESTOQUE (
    IDPEDIDO INTEGER,
    TIPO CHAR(1) CHARACTER SET NONE)
AS
DECLARE VARIABLE VIDPROD CHAR(14) CHARACTER SET NONE;
DECLARE VARIABLE VPQTDE NUMERIC(15,3);
begin
  /*Tratamento quando for requição*/
  if (Tipo = 'R') then
  begin
    For
      Select i.idproduto, i.qtde
        From ItemPedido i
        where i.idpedido = :idpedido
        into :vidprod, :vpqtde do
    begin
      Update produto p set p.est_atual = (p.est_atual - :vpqtde) where (p.codigo = :vidprod);
    end/*For*/
    exit;
  end/*if (Tipo = 'R') then*/
end
^

SET TERM ; ^