Код: Выделить всё
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