Hareket görmeyen stokların silinmesi

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
3 Beğeni