Firebird SQL Update or Insert mit Addition?

[IBExpert]

ist mit einem execute block auch kein Hexenwerk

Code:

execute block
as
declare variable id integer;
declare variable val integer;
begin
  for select id, val from srctbl into id, val
  do
    if (exists(select id from tgttbl where id=:id))
    then 
      update tgttbl set val=val+:val where id=:id;
    else
      insert into tgttbl(id,val) values (:id,:val);

end

einfach mal so runtergetippt, sollte aber nachvollziehbar sein, was man braucht
und wie das geht. Ausführen kann das jede T*query in sql property mit execsql o.ä.