CREATE TRIGGER BI_OBJECTSTREE FOR OBJECTS_TREE ACTIVE BEFORE INSERT POSITION 5 AS DECLARE VARIABLE C INTEGER; DECLARE VARIABLE IDTHIS_ISROOT VARCHAR(40) CHARACTER SET WIN1251; DECLARE VARIABLE D1 DATE; DECLARE VARIABLE D2 DATE; DECLARE VARIABLE T1 VARCHAR(8) CHARACTER SET WIN1251; DECLARE VARIABLE T2 VARCHAR(8) CHARACTER SET WIN1251; DECLARE VARIABLE NAMEMAX VARCHAR(200) CHARACTER SET WIN1251; DECLARE VARIABLE DELIM_LEFT VARCHAR(1) CHARACTER SET WIN1251; DECLARE VARIABLE DELIM_RIGHT VARCHAR(1) CHARACTER SET WIN1251; BEGIN /* ===================================== */ /* Control info for Error */ /* Контроль важной информации на предмет ошибок */ IF (NEW.IDUSER_CREATE IS NOT NULL) THEN BEGIN /* Control User Exist */ /* Контроль, чтобы Пользователь существовал в базе данных */ EXECUTE PROCEDURE USER_EXIST (NEW.IDUSER_CREATE) RETURNING_VALUES (:C); IF (:C<=0) THEN EXCEPTION USER_NOT_EXIST; END IF (NEW.ID_PACKET IS NULL) THEN NEW.ID_PACKET = ''; IF (NEW.NAME_MAX IS NULL) THEN NEW.NAME_MAX = ''; IF (NEW.NOTE IS NULL) THEN NEW.NOTE = ''; /* Уникальность Мнемо-кода - НЕ котнролируем */ IF (NEW.MNEMO_CODE IS NULL) THEN NEW.MNEMO_CODE = ''; /* ------------------------- */ /* разделители (правая и левая квадратные скобки) */ EXECUTE PROCEDURE GET_DELIMITERLEFT_001 RETURNING_VALUES :DELIM_LEFT; EXECUTE PROCEDURE GET_DELIMITERRIGHT_001 RETURNING_VALUES :DELIM_RIGHT; /* ------------------------- */ /* ------------------------- */ /* Контроль ссылочности */ NEW.ITS_BASE = 1; /* Признак: что это базовый объект */ NEW.ID_REF = ''; /* ссылка на базовый объект */ IF (NEW.ID_REF_NEAR IS NULL) THEN NEW.ID_REF_NEAR = ''; /* ссылка на ближайший объект пустая */ IF (NEW.ID_REF_NEAR = '') THEN NEW.ID_REF_NEAR = NEW.ID_THIS; /* ссылка на ближайший объект не существует, значит это Базовый объект */ IF (NEW.ID_REF_NEAR <> NEW.ID_THIS) THEN BEGIN /* Ссылочный объект */ NEW.ITS_BASE = 0; /* Признак: что это ссылочный объект */ EXECUTE PROCEDURE OBJECT_EXIST (NEW.ID_REF_NEAR) RETURNING_VALUES (:C); /* проверка существования объекта, на кот. ссылаемся */ IF (:C <= 0) THEN BEGIN /* Такой объект не существует - генерируем исключение */ EXCEPTION OBJECT_NOT_EXIST; END ELSE BEGIN /* ------------------------------------------ */ /* Наследуем у Объекта, на кот. ссылаемся нужную нам информацию */ SELECT ID_REF, ID_TYPE, NAME_MAX FROM OBJECTS_TREE WHERE OBJECTS_TREE.ID_THIS = NEW.ID_REF_NEAR INTO NEW.ID_REF, NEW.ID_TYPE, :NAMEMAX; /* ------------------------------------------ */ IF (NEW.ID_REF IS NULL) THEN NEW.ID_REF = ''; /* ссылка на базовый объект */ IF (NEW.ID_REF = '') THEN NEW.ID_REF = NEW.ID_REF_NEAR; IF (:NAMEMAX IS NULL) THEN NAMEMAX = ''; IF (:NAMEMAX = '') THEN NAMEMAX = '???'; IF (NEW.NAME_MAX = '') THEN NEW.NAME_MAX = :NAMEMAX; END END ELSE BEGIN NEW.ID_REF = NEW.ID_REF_NEAR; END /* ------------------------- */ /* ===================================== */ /* ------------------------- */ /* Control TypeObj exist */ /* Контроль, чтобы значение ID_TYPE было корректным */ EXECUTE PROCEDURE CONTROL_TYPEOBJ (NEW.ID_TYPE) RETURNING_VALUES (NEW.ID_TYPE); /* ------------------------- */ IF (NEW.IDUSER_UPDATE IS NULL) THEN NEW.IDUSER_UPDATE = ''; IF (NEW.ITS_GLOBAL IS NULL) THEN NEW.ITS_GLOBAL = 0; IF (NEW.NUMPP IS NULL) THEN NEW.NUMPP = 0; IF (NEW.NUMPP < 0) THEN NEW.NUMPP = 0; NEW.DATE_CREATE = "NOW"; NEW.DATE_UPDATE = "NOW"; /* ===================================== */ /* Calc NUMPP for new-record */ /* Вычислить значение поля NUMPP по умолчанию (порядок сортировки) */ IF (NEW.NUMPP = 0) THEN BEGIN SELECT MAX(NUMPP) FROM OBJECTS_TREE WHERE OBJECTS_TREE.ID_PARENT = NEW.ID_PARENT INTO :C; IF (:C IS NULL) THEN C = 0; NEW.NUMPP = :C+1; END /* ===================================== */ NEW.LEVEL_THIS = 0; NEW.YESUPDATE_CHILD = 0; NEW.YESEDIT_THIS = 0; IF (NEW.ID_PARENT IS NULL) THEN NEW.ID_PARENT = ''; IF (NEW.ID_PARENT = '') THEN BEGIN /* если Родитель не задан - значит это КОРНЕВОЙ объект */ /* назначаем ID */ EXECUTE PROCEDURE GET_IDTHIS_ISROOT RETURNING_VALUES (:IDTHIS_ISROOT); NEW.ID_THIS = :IDTHIS_ISROOT; IDTHIS_ISROOT = ''; EXECUTE PROCEDURE GET_IDPARENT_ISROOT RETURNING_VALUES (:IDTHIS_ISROOT); NEW.ID_PARENT = :IDTHIS_ISROOT; NEW.LEVEL_THIS = 0; IF(NEW.NAME_MAX = '') THEN NEW.NAME_MAX = 'Корневой объект'; /* ------------------------------------------ */ /* Включаем в перечень НЕ существующего предка */ NEW.PARENTS_ID = :DELIM_LEFT || NEW.ID_PARENT || :DELIM_RIGHT; /* ------------------------------------------ */ /* ------------------------------------------ */ /* в этом случае ссылаемся сами на себя */ NEW.ID_REF_NEAR = NEW.ID_THIS; NEW.ID_REF = NEW.ID_REF_NEAR; NEW.ITS_BASE = 1; /* Признак: что это базовый объект */ /* ------------------------------------------ */ END ELSE BEGIN /* Это не корневой объект */ /* Control Parent Exist */ /* Контроль, чтобы Родитель существовал в базе данных */ EXECUTE PROCEDURE OBJECT_EXIST (NEW.ID_PARENT) RETURNING_VALUES (:C); IF (:C<=0) THEN EXCEPTION OBJECT_NOT_EXIST; /* ------------------------------------------ */ /* Берем у Родителя нужную нам информацию */ SELECT LEVEL_THIS, DATE_1, TIME_1, DATE_2, TIME_2, PARENTS_ID FROM OBJECTS_TREE WHERE OBJECTS_TREE.ID_THIS = NEW.ID_PARENT INTO NEW.LEVEL_THIS, :D1, :T1, :D2, :T2, NEW.PARENTS_ID; /* ------------------------------------------ */ /* ------------------------------------------ */ /* вычисляем наш уровень иерархии в дереве */ IF (NEW.LEVEL_THIS IS NULL) THEN NEW.LEVEL_THIS = 0; NEW.LEVEL_THIS = NEW.LEVEL_THIS + 1; /* ------------------------------------------ */ /* ------------------------------------------ */ /* перечисляем всех предков */ NEW.PARENTS_ID = NEW.PARENTS_ID || :DELIM_LEFT || NEW.ID_PARENT || :DELIM_RIGHT; /* ------------------------------------------ */ IF (:T1 IS NULL) THEN T1 = ''; IF (:T2 IS NULL) THEN T2 = ''; IF (NEW.DATE_1 IS NULL) THEN BEGIN /* Значение нач.даты не указано - берем у Предка */ NEW.DATE_1 = :D1; NEW.TIME_1 = :T1; END IF (NEW.DATE_2 IS NULL) THEN BEGIN /* Значение кон.даты не указано - берем у Предка */ NEW.DATE_2 = :D2; NEW.TIME_2 = :T2; END IF (NEW.TIME_1 IS NULL) THEN NEW.TIME_1 = :T1; IF (NEW.TIME_2 IS NULL) THEN NEW.TIME_2 = :T2; EXECUTE PROCEDURE THIS_ID_IS_EMPTY(NEW.ID_THIS) RETURNING_VALUES :C; /* Проверяем, задан ли ID в ПО */ IF (:C>0) THEN BEGIN /* ID не задан - вычисляем */ /* ===================================== */ /* Calc ID_THIS for new-record */ /* Вычислить значение поля ID_THIS для новой записи (с учетом ID-узла и id-DB) */ EXECUTE PROCEDURE GET_ID_OBJECT RETURNING_VALUES (NEW.ID_THIS); /* ===================================== */ END END END

CREATE TRIGGER BU_OBJECTSTREE FOR OBJECTS_TREE ACTIVE BEFORE UPDATE POSITION 5 AS DECLARE VARIABLE C INTEGER; DECLARE VARIABLE IDTHIS_ISROOT VARCHAR(40) CHARACTER SET WIN1251; DECLARE VARIABLE D1 DATE; DECLARE VARIABLE D2 DATE; DECLARE VARIABLE T1 VARCHAR(8) CHARACTER SET WIN1251; DECLARE VARIABLE T2 VARCHAR(8) CHARACTER SET WIN1251; DECLARE VARIABLE NAMEMAX VARCHAR(200) CHARACTER SET WIN1251; DECLARE VARIABLE DELIM_LEFT VARCHAR(1) CHARACTER SET WIN1251; DECLARE VARIABLE DELIM_RIGHT VARCHAR(1) CHARACTER SET WIN1251; BEGIN /* =================================== */ /* not change THIS */ /* нельзя изменять значения этих полей */ NEW.ID_THIS = OLD.ID_THIS; NEW.ITS_GLOBAL = OLD.ITS_GLOBAL; NEW.DATE_CREATE = OLD.DATE_CREATE; NEW.IDUSER_CREATE = OLD.IDUSER_CREATE; /* =================================== */ IF (NEW.YES_TREE_UPDATE IS NULL) THEN NEW.YES_TREE_UPDATE = 0; IF (NEW.YES_TREE_UPDATE >0) THEN BEGIN /* Обработка дерева */ /* ------------------------- */ /* разделители (правая и левая квадратные скобки) */ EXECUTE PROCEDURE GET_DELIMITERLEFT_001 RETURNING_VALUES :DELIM_LEFT; EXECUTE PROCEDURE GET_DELIMITERRIGHT_001 RETURNING_VALUES :DELIM_RIGHT; /* ------------------------- */ /* ===================================== */ /* Control info for Error */ /* Контроль важной информации на предмет ошибок */ IF (NEW.YES_TREE_UPDATE <> 99) THEN BEGIN /* <> 99 - Контроль глобальности */ IF (NEW.ITS_GLOBAL IS NULL) THEN NEW.ITS_GLOBAL = 0; /* Cannot edit if GLOBAL */ /* нельзя редактировать глобальность */ IF (NEW.ITS_GLOBAL>0) THEN EXCEPTION ITS_GLOBAL_NOT_EDIT; END IF (NEW.IDUSER_UPDATE IS NOT NULL) THEN BEGIN /* Control User Exist */ /* Контроль, чтобы Пользователь существовал в базе данных */ EXECUTE PROCEDURE USER_EXIST (NEW.IDUSER_UPDATE) RETURNING_VALUES (:C); IF (:C<=0) THEN EXCEPTION USER_NOT_EXIST; END /* ------------------------- */ /* Контроль ссылочности */ NEW.ITS_BASE = 1; /* Признак: что это базовый объект */ NEW.ID_REF = ''; /* ссылка на базовый объект */ IF (NEW.ID_REF_NEAR IS NULL) THEN NEW.ID_REF_NEAR = ''; /* ссылка на ближайший объект */ IF (NEW.ID_REF_NEAR = '') THEN NEW.ID_REF_NEAR = NEW.ID_THIS; /* если ссылка разорвана - ссылаемся на себя */ IF (NEW.ID_REF_NEAR = NEW.ID_THIS) THEN BEGIN NEW.ID_REF = NEW.ID_REF_NEAR; /* ссылка на базовый объект */ END ELSE BEGIN NEW.ITS_BASE = 0; /* Признак: что это ссылочный объект */ EXECUTE PROCEDURE OBJECT_EXIST (NEW.ID_REF_NEAR) RETURNING_VALUES (:C); /* проверка существования объекта, на кот. ссылаемся */ IF (:C <= 0) THEN BEGIN /* Такой объект не существует - генерируем исключение */ EXCEPTION OBJECT_NOT_EXIST; END ELSE BEGIN /* ------------------------------------------ */ /* Берем у Объекта, на кот. ссылаемся нужную нам информацию */ SELECT ID_REF, ID_TYPE, NAME_MAX FROM OBJECTS_TREE WHERE OBJECTS_TREE.ID_THIS = NEW.ID_REF_NEAR INTO NEW.ID_REF, NEW.ID_TYPE, :NAMEMAX; /* ------------------------------------------ */ IF (NEW.ID_REF IS NULL) THEN NEW.ID_REF = ''; /* ссылка на базовый объект */ IF (:NAMEMAX IS NULL) THEN NAMEMAX = ''; IF (:NAMEMAX = '') THEN NAMEMAX = '???'; NEW.NAME_MAX = :NAMEMAX; END END /* ------------------------- */ /* ------------------------- */ /* Control TypeObj exist */ /* Контроль, чтобы значение ID_TYPE было корректным */ EXECUTE PROCEDURE CONTROL_TYPEOBJ (NEW.ID_TYPE) RETURNING_VALUES (NEW.ID_TYPE); /* ------------------------- */ /* Уникальность Мнемо-кода - НЕ котнролируем */ IF (NEW.MNEMO_CODE IS NULL) THEN NEW.MNEMO_CODE = ''; /* ===================================== */ IF (NEW.NAME_MAX IS NULL) THEN NEW.NAME_MAX = ''; IF (NEW.NAME_MAX = '') THEN NEW.NAME_MAX = '???'; IF (NEW.NOTE IS NULL) THEN NEW.NOTE = ''; IF (NEW.NUMPP IS NULL) THEN NEW.NUMPP = 0; IF (NEW.NUMPP < 0) THEN NEW.NUMPP = 0; NEW.DATE_UPDATE = "NOW"; /* ------------------------------------------ */ /* Читаем ID родителя корневого объекта (родитель у корневого объекта не существует) */ IDTHIS_ISROOT = ''; EXECUTE PROCEDURE GET_IDPARENT_ISROOT RETURNING_VALUES (:IDTHIS_ISROOT); /* ------------------------------------------ */ IF (NEW.ID_PARENT = :IDTHIS_ISROOT) THEN BEGIN /* Это корневой объект */ NEW.LEVEL_THIS = 0; NEW.PARENTS_ID = :DELIM_LEFT || NEW.ID_PARENT || :DELIM_RIGHT; /* ------------------------------------------ */ /* в этом случае ссылаемся сами на себя */ NEW.ID_REF_NEAR = NEW.ID_THIS; NEW.ID_REF = NEW.ID_REF_NEAR; NEW.ITS_BASE = 1; /* Признак: что это базовый объект */ /* ------------------------------------------ */ END ELSE BEGIN /* Это НЕ корневой объект */ /* Control Parent Exist */ /* Контроль, чтобы Родитель существовал в базе данных */ EXECUTE PROCEDURE OBJECT_EXIST (NEW.ID_PARENT) RETURNING_VALUES (:C); IF (:C<=0) THEN EXCEPTION OBJECT_NOT_EXIST; /* ------------------------------------------ */ /* Берем у Родителя нужную нам информацию */ SELECT LEVEL_THIS, PARENTS_ID FROM OBJECTS_TREE WHERE OBJECTS_TREE.ID_THIS = NEW.ID_PARENT INTO NEW.LEVEL_THIS, NEW.PARENTS_ID; /* ------------------------------------------ */ IF (NEW.LEVEL_THIS IS NULL) THEN NEW.LEVEL_THIS = 0; NEW.LEVEL_THIS = NEW.LEVEL_THIS + 1; /* это НЕ для корневого объекта */ IF (NEW.PARENTS_ID IS NULL) THEN NEW.PARENTS_ID = ''; /* ------------------------------------------ */ /* перечисляем всех предков */ NEW.PARENTS_ID = NEW.PARENTS_ID || :DELIM_LEFT || NEW.ID_PARENT || :DELIM_RIGHT; /* ------------------------------------------ */ END /* ------------------------------------------ */ END NEW.YESUPDATE_CHILD = 0; /* ------------------------------------------------------------------------------ */ /* изменилась иерархия, надо обновить дочерние для пересчета LEVEL_THIS, PARENTS_ID и прочего */ IF (NEW.ID_PARENT<>OLD.ID_PARENT) THEN NEW.YESUPDATE_CHILD = 1; /* ------------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------------ */ /* изменилась ссылочность, надо обновить ссылающиеся объекты для пересчета ID_TYPE, ID_REF и прочего */ IF (NEW.ID_REF_NEAR<>OLD.ID_REF_NEAR) THEN NEW.YESUPDATE_CHILD = 2; IF (NEW.ID_REF<>OLD.ID_REF) THEN NEW.YESUPDATE_CHILD = 2; /* ------------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------------ */ /* изменился тип объекта, надо обновить ссылающиеся объекты для пересчета ID_TYPE и прочего */ IF (NEW.ID_TYPE<>OLD.ID_TYPE) THEN NEW.YESUPDATE_CHILD = 2; /* ------------------------------------------------------------------------------ */ NEW.YES_TREE_UPDATE = 1; NEW.YESEDIT_THIS = 0; END

CREATE TRIGGER BD_OBJECTSTREE FOR OBJECTS_TREE ACTIVE BEFORE DELETE POSITION 10 AS DECLARE VARIABLE C INTEGER; BEGIN /* ------------------------------------------------------ */ /* Cannot delete if GLOBAL */ /* нельзя удалять глобальность */ IF (OLD.ITS_GLOBAL>0) THEN EXCEPTION ITS_GLOBAL_NOT_DEL; /* ------------------------------------------------------ */ /* ------------------------------------------------------ */ /* Cannot delete if GLOBAL items exists */ /* нельзя удалять, если среди дочерних есть глобальности */ SELECT COUNT ( * ) FROM OBJECTS_TREE WHERE OBJECTS_TREE.ID_PARENT=OLD.ID_THIS AND OBJECTS_TREE.ITS_GLOBAL > 0 INTO :C; IF (:C IS NULL) THEN C = 0; IF (:C>0) THEN EXCEPTION ITS_GLOBAL_NOT_DEL; /* ------------------------------------------------------ */ /* ------------------------------------------------------ */ /* Cannot delete if GLOBAL items exists */ /* нельзя удалять, если среди ссылочных есть глобальности */ SELECT COUNT ( * ) FROM OBJECTS_TREE WHERE OBJECTS_TREE.ID_REF_NEAR=OLD.ID_THIS AND OBJECTS_TREE.ID_THIS<>OLD.ID_THIS AND OBJECTS_TREE.ID_REF_NEAR<>OBJECTS_TREE.ID_THIS AND OBJECTS_TREE.ITS_GLOBAL > 0 INTO :C; IF (:C IS NULL) THEN C = 0; IF (:C>0) THEN EXCEPTION ITS_GLOBAL_NOT_DEL; /* ------------------------------------------------------ */ /* ------------------------------------------------------ */ /* Delete Enum Props */ /* Удаляем перечислимые св-ва объекта */ DELETE FROM OBJECTS_PROP_ENUM WHERE OBJECTS_PROP_ENUM.ID_OWNER=OLD.ID_THIS; /* ------------------------------------------------------ */ /* ------------------------------------------------------ */ /* Delete Number Props */ /* Удаляем численные св-ва объекта */ DELETE FROM OBJECTS_PROP_NUMBER WHERE OBJECTS_PROP_NUMBER.ID_OWNER=OLD.ID_THIS; /* ------------------------------------------------------ */ /* ------------------------------------------------------ */ /* Delete Referense */ /* Удаляем ссылочные объекты */ DELETE FROM OBJECTS_TREE WHERE OBJECTS_TREE.ID_REF_NEAR=OLD.ID_THIS AND OBJECTS_TREE.ID_THIS<>OLD.ID_THIS AND OBJECTS_TREE.ID_REF_NEAR<>OBJECTS_TREE.ID_THIS; /* ------------------------------------------------------ */ /* ------------------------------------------------------ */ /* Delete Childs */ /* Удаляем дочерние объекты */ DELETE FROM OBJECTS_TREE WHERE OBJECTS_TREE.ID_PARENT=OLD.ID_THIS; /* ------------------------------------------------------ */ /* ------------------------------------------------------ */ /* Delete Choke */ /* Удаляем "Заглушки" */ DELETE FROM OBJECTS_CHOKE WHERE OBJECTS_CHOKE.ID_THIS=OLD.ID_THIS; /* ------------------------------------------------------ */ END

CREATE TRIGGER AI_OBJECTSTREE FOR OBJECTS_TREE ACTIVE AFTER INSERT POSITION 5 AS BEGIN EXECUTE PROCEDURE INSERT_SYSEVENTSINTABLES (13, NEW.ID_THIS, "INS"); END