Отчет с исключением товаров из маркетинговых контрактов или оплатой бонусами (скидка в УКМ) : Супермаг Плюс (Супермаг 2000)

--получение для артикула id маркетинговых акций за период . 
--если акций несколько, возврат нескольких значений через разделитель (,). 
--если акций нет, то возврат null
--MyArticle - артикул
Create or Replace Function RAD_Get_AU_ID_By_Date(ADateFrom in date, ADateTo in date, ALocID in supermag.smstorelocations.id%type,AArticle in supermag.smcard.article%type) 
return varchar2 is
    l_str  varchar2(2000) default null;
    l_sep  varchar2(1) default null;
BEGIN

for x in ( select au.id from  supermag.SMSpecMA sp,supermag.smauctions au,supermag.smdocuments d 
            where ((ADateFrom between trunc(au.datebegin) and trunc(au.dateend)) or (ADateTo between trunc(au.datebegin) and trunc(au.dateend))) 
            and sp.DOCID=au.ID and sp.Article=AArticle and d.Location=ALocID and d.ID=AU.ID and D.doctype=AU.doctype and d.doctype='MA') loop
            l_str :=  l_str||l_sep||x.id;
           l_sep := ',';
       end loop;
       return l_str;
EXCEPTION WHEN OTHERS THEN RETURN NULL;
end RAD_Get_AU_ID_By_Date;
/
commit;

--Проверка наличия скидки на товар в чеках за определенный период
--вход. параметры: дата начала периода, дата конца периода, код места хранения, артикул, КОД СКИДКИ ИЗ УКМ4 (можно посмотреть в чеках в СМ+ или в параметрах скидки в укм4)
--Возврат =0 (нет чеков с такой скидкой) =1(есть чеки с такой скидкой)
create or replace function RAD_Is_Card_In_Check_Discounts(ADateFrom in date, ADateTo in date, ALocID in supermag.smstorelocations.id%type,
  AArticle in supermag.smcard.article%type, AProgramID in integer) return integer 
is
  res integer:=0;
  begin
select count(*) into res from dual 
 where exists (SELECT (S.Article), UKM4.PROGRAMID
 FROM SVAnalyticsCheckItems S,SVAnalyticsCheck Z,SMCASHITEMSDISCUKM4 UKM4
 WHERE S.LocID=UKM4.LocID(+) and S.DeskNum=UKM4.DeskNum(+) and S.ZNum=UKM4.ZNum(+) and S.CheckNum=UKM4.CheckNum(+)  and S.Item=UKM4.Item(+) 
 and Z.LocID=S.LocID  and Z.DeskNum=S.DeskNum and Z.ZNum=S.ZNum  and Z.CheckNum=S.CheckNum  
 and S.article=AArticle and Z.CheckDate between trunc(ADateFrom) and trunc(AdateTo)
 and Z.LocID=ALocID
 and UKM4.PROGRAMID=AProgramID);
 return (res);
 exception when no_data_found then
    return(0);
end RAD_Is_Card_In_Check_Discounts;
/  
commit;