-- признание всех ценников напечатанными (для вида цены для кассы, для локальных МХ)
declare
begin
delete from SMPricerPrinted;
commit;
for vRec in (select p.LocID, p.PriceType, pc.ID PricerCategory
from SMDepots d, SMLocPrices p, SAPricerCategory pc
where p.LocID=d.DepID
and bitand(p.Flags, 2)!=0)
loop
insert into SMPricerPrinted(StoreLoc, Article, PriceType, PricerCategory)
select vRec.LocID, c.Article, vRec.PriceType, vRec.PricerCategory
from SMCard c
where c.Accepted = 1
and exists (select 1 from SMPrices p
where p.Article = c.Article
and p.StoreLoc = vRec.LocID
and p.PriceType = vRec.PriceType
and p.Price > 0);
commit;
end loop;
end;
/
Начиная с версии 1.49:
