Hareket görmemiş stokların silinmesi için aşağıdaki sql kodu çalıştırılabilir
execute block
as
declare xstok_k k;
begin
for select distinct vsbb.stok_k from vstokbirimbarkod vsbb
join belgedetay bd on bd.barkod=vsbb.barkod
into
:xstok_k
do
begin
insert into tmpk(k) values(:xstok_k);
end
delete from stok where k not in (select k from tmpk);
end