Fórum procedure que não funciona o que fazer ? #38186

a procedure em si não dá nenhum erro ... mas não insere valores... foi constatado que está recebendo os valores. Mas não grava. O que fazer ?
---------------------------------
with Dm_locadora.SProcedure do
begin
ParamByName(´codrecibo´).AsInteger:=i_contador;
ParamByName(´codclien´).AsInteger:=strtoint(Editcodigo.Text);
parambyname(´codprod´).AsInteger:=StrToInt(Editcodfita.Text);
parambyname(´dtloc´).AsDate:=dt_hoje;
ParamByName(´dtdev´).AsDate:=dt_hoje+Dm_locadora.Qry1.Fields[6].value;
parambyname(´valor´).AsCurrency:=Dm_locadora.Qry1.Fields[5].Value;
parambyname(´vltotal´).AsCurrency:=strtofloat(Edittotal.Text);
try
ExecProc;
Dm_locadora.TransactionLocad.CommitRetaining;
except
Dm_locadora.TransactionLocad.RollbackRetaining;
erro3;
end;
end;

esta é a procedure no firebird
------------------------------------------
set term^;
create procedure sp_locacao
(
:codrecibo integer, :codclien integer, :codprod integer, :dtloc date, :dtdev date,
:valor decimal(9,2), vltotal decimal(9,2)
)
insert into recibo (cod_recib,cod_clien,cod_prod,dtloc_recib,dtdev_recib,vl_recib,
vltot_recib) values (:codrecibo, :codclien, :codprod, :dtloc, :dtdev, :valor, vltotal );
end^
set term ;^

a procedure foi criada como conforme acima !