Борьба с фактическими остатками : Супермаг Плюс (Супермаг 2000)

SELECT * from SUPERMAG.SASTOREPROPDEF

ID	NAME	DATATYPE	LIMITCHOICE	PRESET	STATUS
VL_TYPE_PROGRAMM	Вид учетной системы	0	1	0	1
VL_LOCKIL	Блокировать Инвентаризационные Описи	0	1	0	1
VL_PERESORT	Контроль отрицательного остатка	1	0	0	1

create or replace trigger SUPERMAG.SMDOCUMENTS_PERESORT
before insert or update	of DocState
ON SUPERMAG.SMDOCUMENTS
for each row 
when (new.DocType = 'WI')
declare
	CountGoods NUMBER(10);  -- количество отрицательных артикулов(остатков)
  ExceptEnabled NUMBER(10); --разрешен контроль отрицательного остатка
  FirstChangeStatus NUMBER(10); -- первая смена статуса - разрешен контроль
  DayofNow NUMBER(10);  -- текущий день недели
begin

 SELECT MOD(TO_NUMBER(TO_CHAR(SYSDATE,'J')),7)+1 INTO DayofNow FROM DUAL;

--если это не суббота и воскресенье тогда работаем дальше иначе НАХ
 if NVL(DayofNow,1) in (6,7)
 then return;
 end if;

--если текущая дата праздник тогда тоже НАХ
 if to_char(SYSDATE,'DDMM') in ('0101','0201','0301','0401','0501','0701','2302','0803','0105','0905','1206','0411')
 then return;
 end if;

  
--если это не поднятие статуса до принят на складе тогда нафик
 if NVL(:new.DocState,0) <> 2 and NVL(:old.DocState,0) <> 1
 then return;
 end if;

--если документ не сегодняшним числом  тогда нафик
 if TRUNC(:old.CreateDat) <> TRUNC(SYSDATE)
 then return;
 end if;

 SELECT nvl(count(*),0) INTO FirstChangeStatus
 FROM SUPERMAG.SMDOCLOG L
 WHERE L.OLDSTATE=1 AND L.NEWSTATE=2
 AND L.DOCTYPE='WI' AND L.ID=:old.ID;
 
--если это не первая смена статуса документа то есть он пришел на корректировку то выход
 if FirstChangeStatus>0
 then return;
 end if;
 
--если это не операция прихода тогда невыполняю триггер
 if NVL(:new.OpCode,-1)<>0 or NVL(:old.OpCode,-1)<>0
 then return;
 end if;
 
--если  VL_PERESORT не существует тогда нафик
 BEGIN
         SELECT PROPVAL into ExceptEnabled 
         FROM SUPERMAG.SMSTOREPROPERTIES 
         WHERE PROPID='VL_PERESORT' AND STORELOC= :new.LocationTo;
 EXCEPTION
     WHEN NO_DATA_FOUND THEN Return;
 END;
 
--если  VL_PERESORT=-1 тогда нафик
 If ExceptEnabled = -1 
 then return;
 end if;
         
 If ExceptEnabled>-1 then
    SELECT COUNT(G.ARTICLE) into CountGoods
    FROM SUPERMAG.SMGOODS G,
         SUPERMAG.SACARDCLASS T,
         SUPERMAG.SMCARD C
    WHERE G.ARTICLE=C.ARTICLE 
          AND T.ID=C.IDCLASS 
          AND NOT T.TREE LIKE ('11.%') 
          AND NOT T.TREE LIKE ('27.%')
          AND G.QUANTITY<0 AND G.STORELOC= :new.LocationTo;
 End If;
 
 If (ExceptEnabled>-1) and (CountGoods>ExceptEnabled)  then
    RAISE_APPLICATION_ERROR(-20100, 'В Вашем магазине количество артикулов в отрицательных остатках '||CountGoods||'. Центральным Офисом разрешено не более '||ExceptEnabled||'. Принятие Приходной Накладной на склад запрещено. Срочно проводите инвентаризацию!!!'); 
 End If;
end;