[firebase-br] Procedure não grava.

[auriston geronimo lopes]

Boa Tarde a todos.

Estou fazendo esta procedure e ela nao grava os dados passados atraves do
update.
Se eu commitar atraves do IBExpert, ela grava, como faço para ela gravar,
sendo que não posso usar o commit na procedure.

 CREATE PROCEDURE SOMAPIS_COFINS (
    NPEDIDO INTEGER,
    NSERIE VARCHAR(2),
    NCLIFOR INTEGER,
    TIPO VARCHAR(1))
RETURNS (
    TOTALBASE_PIS_COFINS NUMERIC(15,2),
    TOTAL_PIS NUMERIC(15,2),
    TOTAL_COFINS NUMERIC(15,2))
AS
begin
  select sum(totalprod) from movprodutos where (pedido = :NPEDIDO) and
(serie = :NSERIE) and (COD_CLI = :nclifor) into totalbase_pis_cofins;

  select sum(vr_pis)    from movprodutos where (pedido = :NPEDIDO) and
(serie = :NSERIE) and (COD_CLI = :nclifor) into total_pis;

  select sum(vr_cofins) from movprodutos where (pedido = :NPEDIDO) and
(serie = :NSERIE) and (COD_CLI = :nclifor) into total_cofins;

   if (:TIPO = 'E') then
     Begin
        update entradas set BASE_COFINS = :totalbase_pis_cofins,VR_COFINS =
:total_cofins,BASE_PIS = :totalbase_pis_cofins,VR_PIS = :total_pis,
TOTALPROD = :totalbase_pis_cofins where (nota = :NPEDIDO) and (serie =
:NSERIE) and (CODFOR = :nclifor);

     End
  else
     Begin
        update saidas set BASE_COFINS = :totalbase_pis_cofins,VR_COFINS =
:total_cofins,BASE_PIS = :totalbase_pis_cofins,VR_PIS = :total_pis,
TOTALPROD = :totalbase_pis_cofins where (pedido = :NPEDIDO) and (serie =
:NSERIE) and (COD_CLI = :nclifor);
     End
  suspend;
end