Дата актуальности: 06.07.2009

FlexiObjDB
Объектно-ориентированное на предметную область 
долговременное хранилище информации.

 Хранимая процедура: CONTROL_TYPEOBJ

Назначение: 
Контроль корректности типа объекта/процесса (в контексте множества типов объектов/процессов). 
Если значение НЕ корректное - генерируется исключение (TYPEOBJECT_NOT_EXIST).
Используется для контроля данных.
На уровне сервера используется в триггерах  : BI_OBJECTSTREE , BU_OBJECTSTREE  

Тип считается корректным, если тестируемое значение ID "пустое" или существует в таблице  L_TYPEOBJ_LIST.

Входные параметры: ID тестируемого типа объекта/процесса.
Выходные параметры:  Значение входного параметра ("пустое" входное значение  нормализуется).

Нормализация пустого входного значения заключается в том, что если входное значение: NULL или "пустая" строка, то это значение заменяется на значение, которое возвращает хранимая процедура  GET_ID_IS_UNKNOWN  ("0").

Текст процедуры :

ALTER PROCEDURE CONTROL_TYPEOBJ (ID_IN VARCHAR(40) CHARACTER SET WIN1251) RETURNS (ID_OUT VARCHAR(40) CHARACTER SET WIN1251) AS DECLARE VARIABLE ID_BUF VARCHAR(40); DECLARE VARIABLE ID_EMPTY VARCHAR(40); BEGIN /* Контроль Типа Объекта */ ID_OUT = :ID_IN; EXECUTE PROCEDURE GET_ID_IS_UNKNOWN RETURNING_VALUES (:ID_EMPTY); IF (:ID_IN IS NULL) THEN ID_IN = ''; IF (:ID_IN <> '') THEN BEGIN IF (:ID_IN = :ID_EMPTY) THEN BEGIN ID_OUT = :ID_EMPTY; END ELSE BEGIN /* На входе - не пустое значение проверяем его существование в справ. типов объектов */ SELECT ID_THIS FROM L_TYPEOBJ_LIST WHERE L_TYPEOBJ_LIST.ID_THIS = :ID_IN INTO :ID_BUF; IF (:ID_BUF = :ID_IN) THEN BEGIN ID_OUT = :ID_IN; END ELSE BEGIN /* Такой ID не существует - инициируем исключение */ EXCEPTION TYPEOBJECT_NOT_EXIST; END END END ELSE BEGIN ID_OUT = :ID_EMPTY; END SUSPEND; END

______________________________________
(c) Sergey Popov,  респ.Коми,  г.Усинск,(2009)

http://flexiobjdb.narod.ru