Код: Выделить всё
execute block 
as
declare variable fk_grt integer;
declare variable  lb integer;
declare variable  rb integer;
begin
  for select g.field_key, g.lb, g.rb from bd_grt_tovar g
  into :fk_grt, :lb, :rb do
  begin
    update bd_tovar set grp_lb=:lb, grp_rb=:rb  where fk_grt=:fk_grt;
  end 
end