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

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

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

Назначение: 
Проверяет, существует ли значение перечислимого свойства с заданным ID у какого-либо объекта/процесса.
Используется для контроля данных.
На уровне сервера используется в триггерах : BI_OBJPROPENUMATR  

ВНИМАНИЕ !
Здесь имеется в виду именно значение свойства объекта/процесса (таблица OBJECTS_PROP_ENUM), а  НЕ  значение свойства из множества перечислимых свойств (таблица L_PROPENUM_VAL).

Входные параметры: ID тестируемого свойства.
Выходные параметры:  >0 - свойство существует, 0 - нет.

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

ALTER PROCEDURE OBJPROPENUM_EXIST (ID VARCHAR(40) CHARACTER SET WIN1251) RETURNS (YES INTEGER) AS DECLARE VARIABLE ID_BUF VARCHAR(40); BEGIN /* Контроль существования Перечислимого свойства у объекта/процесса */ YES = 0; IF (:ID IS NULL) THEN ID = ''; IF (:ID <> '') THEN BEGIN SELECT ID_THIS FROM OBJECTS_PROP_ENUM WHERE OBJECTS_PROP_ENUM.ID_THIS = :ID INTO :ID_BUF; IF (:ID_BUF = :ID) THEN YES = 1; END SUSPEND; END

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

http://flexiobjdb.narod.ru