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

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

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

Назначение: 
  Проверка, является ли значение ID "пустым".

Используется в триггерах "before insert". 
Где производится оценка ситуации - задано ли значение ключевого поля ID_THIS во внешнем ПО.

BDE-5 требует, при вставке новой строки в таблицу,  передать какое-либо значение в поле с атрибутом "NOT NULL".
Чтобы на уровне триггера (в контексте серверной части хранилища) можно было отличить "пустое" значение (но не NULL) от реального значения, как раз и существует перечень значений, которые считаются "пустыми" .

Перечень "пустых"  значений (этот список может быть дополнен) :   
NULL 
пустая_строка 
цепочка символов "empty"
цепочка символов "aaa"
"0"  - то, что возвращает х.п. GET_ID_IS_UNKNOWN 

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

ALTER PROCEDURE THIS_ID_IS_EMPTY (ID VARCHAR(40) CHARACTER SET WIN1251) RETURNS (YES INTEGER) AS DECLARE VARIABLE ID_EMPTY VARCHAR(40); BEGIN /* Проверка, значение ключевого поля ID_THIS - пустое */ YES = 0; IF (:ID IS NULL) THEN BEGIN YES = 1; END ELSE BEGIN IF (:ID = '') THEN BEGIN YES = 2; END ELSE BEGIN IF (UPPER(:ID) = UPPER('empty')) THEN BEGIN YES = 3; END ELSE BEGIN IF (UPPER(:ID) = UPPER('aaa')) THEN BEGIN YES = 4; END ELSE BEGIN /* Контроль "пустого" (по умолчанию) значения */ EXECUTE PROCEDURE GET_ID_IS_UNKNOWN RETURNING_VALUES (:ID_EMPTY); IF (:ID = :ID_EMPTY) THEN BEGIN YES = 5; END ELSE BEGIN YES = 0; END END END END END SUSPEND; END

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

http://flexiobjdb.narod.ru