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

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

/* ERwin Builtin Fri Dec 09 13:01:28 2005 */
/* Dish готовится по Recipe ON CHILD 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 NOT(CAN-FIND(FIRST Dish WHERE
/* %JoinFKPK(inserted,Dish," = "," and") */
inserted.dish_code = Dish.dish_code))
THEN DO:
MESSAGE "Данных о таком блюде нет в БД. Внесите, пожалуйста, сначала информацию в таблицу блюда.".
RETURN ERROR.
END.

/* ERwin Builtin Fri Dec 09 13:01:28 2005 */
/* Product входит в Recipe ON CHILD UPDATE RESTRICT */
/* ERWIN_RELATION:PARENT_OWNER="", PARENT_TABLE="Product"
CHILD_OWNER="", CHILD_TABLE="Recipe"
P2C_VERB_PHRASE="входит в", C2P_VERB_PHRASE="состоит из",
FK_CONSTRAINT="входит_в", FK_COLUMNS="prod_code" */
IF NOT(CAN-FIND(FIRST Product WHERE
/* %JoinFKPK(inserted,Product," = "," and") */
inserted.prod_code = Product.prod_code))
THEN DO:
MESSAGE "Данных о таком продукте нет в БД. Внесите, пожалуйста, сначала информацию в таблицу продукты.".
RETURN ERROR.
END.


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