Назначить весовой штрихкод всем весовым товарам

[admin]

execute block
as
declare variable ves_pref varchar(2);
declare variable id_tovar integer;
declare variable plu bigint;
begin
plu = 1;
ves_pref = coalesce((select g.PARAMVALUE from global_options g where g.PARAMNAME='vesprefix'),'21');
for select bd_tovar.field_key from bd_tovar join bd_ed_izm on bd_ed_izm.field_key = bd_tovar.fk_bd_ed_izm and bd_ed_izm.accuracy > 0
where not exists(select 1 from bd_scan where bd_scan.fk_bd_tovar = bd_tovar.field_key and bd_scan.scancod starting with :ves_pref)
and bd_tovar.in_price_flag = 1 and bd_tovar.is_old_flag = 0
into :id_tovar do
begin
while (exists(select 1 from bd_scan where scancod = :ves_pref||lpad(:plu, 5, '0'))) do
begin
plu = :plu + 1;
end
if (:plu > 9999) then break;
insert into bd_scan (fk_bd_tovar, scancod, main_flag) values (:id_tovar, :ves_pref||lpad(:plu, 5, '0'), 1);
end
end

[admin]

а вот этой командой можно удалить из базы все весовые штрихкоды
delete from bd_scan where scancod starting with '21'