"localhost:/firebird/data/ILICHEVSK2.FDB". Триггеры

IT_CHECK_DELETE

Описание

(Нет описания для триггера IT_CHECK_DELETE)

Определение

CREATE TRIGGER IT_CHECK_DELETE FOR IT
ACTIVE BEFORE DELETE POSITION 0
as
declare variable TRANSPORTTYPEID integer;

begin
  select ITTRANSPORT.TRANSPORTTYPEID from ITTRANSPORT
    where (ITTRANSPORT.INVENTORYID = old.INVENTORYID)
  into :TRANSPORTTYPEID;

  if (TRANSPORTTYPEID in (0,1,2) and (old.OPERATIONID <> 22)) then
    Exception IT_NO_DELETE;
end