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

TRIGGER PROCEDURE FOR DELETE OF klient.
/* ERwin Builtin Wed Dec 07 19:57:42 2005 */
/* DELETE trigger on klient */

/* ERwin Builtin Wed Dec 07 19:57:42 2005 */
/* klient R/2 putevka ON PARENT DELETE RESTRICT */
/* ERWIN_RELATION:PARENT_OWNER="", PARENT_TABLE="klient"
CHILD_OWNER="", CHILD_TABLE="putevka"
P2C_VERB_PHRASE="R/2", C2P_VERB_PHRASE="qwe",
FK_CONSTRAINT="оформляется_на", FK_COLUMNS="num_k" */
IF CAN-FIND(FIRST putevka WHERE
/* %JoinFKPK(putevka,klient," = "," and") */
putevka.num_k = klient.num_k)
THEN DO:
MESSAGE "Cannot DELETE 'klient' because 'putevka' exists.".
RETURN ERROR.
END.


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