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

TRIGGER PROCEDURE FOR DELETE OF Dish.
/* ERwin Builtin Fri Dec 09 13:01:28 2005 */
/* DELETE trigger on Dish */

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


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