Старый акт переоценки меняет розничную цену : Супермаг Плюс (Супермаг 2000)

-- исправление розничных цен - берем по последнему акту переоценки
declare

  v_storeloc number := 22;
  v_cnt number := 0;

begin
  
execute immediate 'alter trigger smpriced disable'; 
execute immediate 'alter trigger smpriceusave disable';
  
for c in (  
          select pricetype, name, locid, article, rozn_price, rozn_price_ac
            from (
          select pt.id pricetype, pt.name, lp.locid, smcard.article, p.price rozn_price, get_rozn_price_act(smcard.article, lp.locid) rozn_price_ac
           from SMLocPrices lp, smpricetypes pt, smcard, smprices p
           where lp.pricetype = pt.id
           and BITAND(Lp.Flags,1)<>0
           and lp.locid = v_storeloc
           --and smcard.article != '032796'
           and p.savedprice is null -- нет маркетинговых акций
           and p.storeloc = lp.locid
           and p.pricetype = lp.pricetype
           and p.article = smcard.article

               )
           where rozn_price_ac != 0
             and rozn_price_ac != rozn_price
         ) loop
         
    update smprices set price = c.rozn_price_ac
     where storeloc = v_storeloc
       and article = c.article
       and pricetype = c.pricetype;
    --create table t_drop_me (article varchar2(10));
    --insert into t_drop_me values (c.article);
    --drop table t_drop_me;
    if sql%rowcount != 1 then
      dbms_output.put_line('Ашыпка! article: '||c.article);
    end if;
    v_cnt := v_cnt + 1;
end loop;     
execute immediate 'alter trigger smpriced enable'; 
execute immediate 'alter trigger smpriceusave enable';
dbms_output.put_line('count: '||v_cnt);
 
end;
/