Как вытащить цены из акта переоценки. : Супермаг Плюс (Супермаг 2000)

BEGIN
  FOR c IN (SELECT d.location, a.pricetype, s.article, max(sa.oldprice) AS price
            FROM supermag.smdocuments d, supermag.smacts a, supermag.smspec s, supermag.smspecacts sa
            WHERE d.doctype = 'AC' 
              AND d.createdat = TO_DATE('20081201', 'YYYYMMDD')
              AND d.docstate = 3
              AND a.doctype = d.doctype
              AND a.id = d.id
              AND s.doctype = d.doctype
              AND s.docid = d.id
              AND sa.doctype = s.doctype
              AND sa.docid = s.docid
              AND sa.specitem = s.specitem
              AND sa.oldprice != 0
            GROUP BY d.location, a.pricetype, s.article)
  LOOP
    INSERT INTO supermag.smprices(storeloc, article, pricetype, price, savedprice)
    VALUES(c.location, c.article, c.pricetype, c.price, NULL);
    INSERT INTO supermag.smpricehistory(storeloc, article, pricetype, eventtime, price, doctype, docid, employee, wsname, username, osuser)
    VALUES(c.location, c.article, c.pricetype, SYSDATE, c.price, null, null, null, null, null, NULL);
    COMMIT;
  END LOOP;
END;

DECLARE
-- выборка последних ненулевых цен из истории
 
-- выборка цен из истории
-- выбираются с сортировкой по артикулу и по времени записи (в обратном 
-- порядке - сначала самые поздние, исключая сегдняшние); только ненулевые 
-- с отборкой по месту хранения и виду цен
cursor smph is
select t.pricetype, t.storeloc, t.article, t.price, t.eventtime 
from smpricehistory t
where t.pricetype=9 
  and t.storeloc=17
  and t.price<>0
  and t.eventtime<to_date('06/01/2009','DD/MM/YYYY')
order by t.article, t.eventtime desc;
t_pt number(5);
t_sl number(10);
t_art varchar2(50);
t_pr number(19,4);
t_et date;
dn varchar2(50) := 'Название акта переоценки';
af number(16);
pos number(8):=1;
 
BEGIN
 OPEN smph; -- открываем выборку
   LOOP
 -- считываем записи
     FETCH smph INTO t_pt, t_sl, t_art, t_pr, t_et;
     EXIT WHEN smph%NOTFOUND; -- пока не кончится выборка
 
 -- проверяем, нет ли уже этого артикула в акте переоценки
 select count(*) into af
   from smspec s 
   where s.doctype='AC' and s.docid=dn and s.article=t_art;
 -- если артикула в акте еще нет - вставляем
 if af=0 then 
   begin
     insert into smspec (doctype, docid, specitem, displayitem, article, quantity, expquantity, itemprice, totalprice, totalpricecur)
       values ('AC', dn, pos, pos, t_art, 1, 1, t_pr, t_pr, t_pr );
     commit;
     pos := pos+1;
   end;
 end if;
 
 END LOOP;
 CLOSE smph; -- закрываем выборку
END;
/
-- exit;