Курсовые по ИТВЭ. 18 и 27 варианты / 27.БД Книга рецептов / W_Dish

TRIGGER PROCEDURE FOR WRITE OF Dish
/* ERwin Builtin Fri Dec 09 13:01:28 2005 */
/* WRITE trigger on Dish */
NEW inserted OLD deleted.

/* ERwin Builtin Fri Dec 09 13:01:28 2005 */
/* Dish готовится по Recipe ON PARENT UPDATE RESTRICT */
/* ERWIN_RELATION:PARENT_OWNER="", PARENT_TABLE="Dish"
CHILD_OWNER="", CHILD_TABLE="Recipe"
P2C_VERB_PHRASE="готовится по", C2P_VERB_PHRASE="существуют для",
FK_CONSTRAINT="готовится_по", FK_COLUMNS="dish_code" */
IF deleted.dish_code <> 0 AND
/* %JoinPKPK(deleted,inserted," <> "," or ") */
deleted.dish_code <> inserted.dish_code
THEN DO:
MESSAGE "Код блюда менять нельзя; он должен совпадать с кодом блюда в каталоге блюд.".
RETURN ERROR.
END.

IF inserted.dish_code = 0
THEN DO:
MESSAGE "Код блюда не может быть нулевым.".
RETURN ERROR.
END.


/* ERwin Builtin Fri Dec 09 13:01:28 2005 */