Stok listesindeki son hareket zaman alanının doldurulması için aşağıdaki sql kodunun çalıştırılması gerekiyor
execute block returns (xstok_k type of k, xzaman type of zaman)
as
begin
for select k from stok into :xstok_k do
begin
xzaman = '2000-01-01';
select max(b.zaman) from belge b join belgedetay bd on b.k=bd.belge_k join vstokbarkod v on bd.barkod=v.barkod and v.stok_k=:xstok_k into :xzaman;
update stokfiyat set sonhareketzaman=:xzaman where stok_k=:xstok_k and konum_k=2;
suspend;
end
end