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

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

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

Назначение: 
Контроль корректности "Единицы Измерения"  (в контексте множества перечислимых свойств). 
Если значение НЕ корректное - генерируется исключение (ENUM_UM_NOT_EXIST).
Используется для контроля данных.
На уровне сервера используется в триггерах  : 
BU_LPROPNUMBERLIST , BI_LPROPNUMBERLIST , BU_OBJPROPNUM , BI_OBJPROPNUM  

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

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

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

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

ALTER PROCEDURE CONTROL_UNITMEASURE (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_PROPENUM_VAL WHERE L_PROPENUM_VAL.ID_THIS = :ID_IN INTO :ID_BUF; IF (:ID_BUF = :ID_IN) THEN BEGIN ID_OUT = :ID_IN; END ELSE BEGIN /* Такой ID не существует - инициируем исключение */ EXCEPTION ENUM_UM_NOT_EXIST; END END END ELSE BEGIN ID_OUT = :ID_EMPTY; END SUSPEND; END

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

http://flexiobjdb.narod.ru