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

--- установить цену по последнему приходу, пофигу в каком МХ

declare
 p number;
begin
  for c in (select article from smspecco where doctype = 'CO' and docid = '0000000004') loop
    begin
      select itemprice
      into p
      from (
            select s.itemprice
              from smdocuments d, smspec s
             where s.article = c.article
               and d.doctype = 'WI'
               and s.doctype = d.doctype
               and s.docid = d.id
               and d.docstate >= 2
               --and d.locationto = p_storeloc
             order by d.createdat desc
            )
     where rownum = 1;
    exception when NO_DATA_FOUND then
      p := 0;
    end;

    update smspecco set itemprice = p where doctype = 'CO' and docid = '0000000004' and article = c.article;
  end loop;
end;