Курсовые по ИТВЭ. 18 и 27 варианты / 18.База данных туристической фирмы(Мозговитова Ю.А. МЭ-52) / W_tur

TRIGGER PROCEDURE FOR WRITE OF tur
/* ERwin Builtin Wed Dec 07 19:57:42 2005 */
/* WRITE trigger on tur */
NEW inserted OLD deleted.

/* ERwin Builtin Wed Dec 07 19:57:42 2005 */
/* tur R/3 putevka ON PARENT UPDATE RESTRICT */
/* ERWIN_RELATION:PARENT_OWNER="", PARENT_TABLE="tur"
CHILD_OWNER="", CHILD_TABLE="putevka"
P2C_VERB_PHRASE="R/3", C2P_VERB_PHRASE="",
FK_CONSTRAINT="отправляет_в", FK_COLUMNS="num_tur" */
IF
/* %JoinPKPK(deleted,inserted," <> "," or ") */
deleted.num_tur <> inserted.num_tur
THEN DO:
IF CAN-FIND(FIRST putevka WHERE
/* %JoinFKPK(putevka,deleted," = "," and") */
putevka.num_tur = deleted.num_tur)
THEN DO:
MESSAGE "Cannot UPDATE 'tur' because 'putevka' exists.".
RETURN ERROR.
END.
END.


/* ERwin Builtin Wed Dec 07 19:57:42 2005 */