Martijn Tonies,
thank you for replying,
here my code, I get the error when executing ExecSql :

-->>>>>
procedure tform1.crea_batch;
var kkk:integer;
aaaa,mm,gg:word;
begin
yupdate.SQL.Clear;
yupdate.SQL.Add('SELECT GEN_ID(GEN_bat_provvig_ID, 1) FROM
RDB$DATABASE');
yupdate.ExecSql;
yupdate.active:=true;

kkk:=yupdate.FieldByName('gen_id').AsINteger;


with yupdate do begin
SQL.Clear;
SQL.Add('INSERT into bat_provvig ');
SQL.Add('(kkk, ditta, amm, agente_mas, agente_par, docum_f_a,
docum_aa, ');
SQL.Add('docum_num, docum_data, tipo_movim, cliente_mas,
cliente_par, pagamento, ');
SQL.Add('netto_fattura, trasporto, zona_geog, q_deposito,
provvigioni, ');
SQL.Add('cod_spettanza, age2_mas, age2_par, scadenza_fatt,
provvig_age2, tipo_ordine)');
SQL.Add('values (:kkk, :ditta, :amm, ');
SQL.Add(':agente_mas, :agente_par, :docum_f_a, :docum_aa, ');
SQL.Add
(':docum_num, :docum_data, :tipo_movim, :cliente_mas, :cliente_par, :p
agamento, ');
SQL.Add
(':netto_fattura, :trasporto, :zona_geog, :q_deposito, :provvigioni, '
);
SQL.Add
(':cod_spettanza, :age2_mas, :age2_par, :scadenza_fatt, :provvig_age2,
:tipo_ordine)');
ParambyName('kkk').AsInteger :=kkk;
ParambyName('ditta').AsInteger :=yinput.fieldbyname
('ditta').asinteger;
ParambyName('amm').AsInteger :=yinput.fieldbyname
('amministrazione').asinteger;
.....
.....
ParambyName('tipo_ordine').Asinteger :=yinput.fieldbyname
('tipo_ordine').asinteger;
ExecSQL;
end;
end;

-----<<<<<
The error messagge does not tell which field caused the exeption;
kind regards,
Gianni Filippini