Добавил:
ICK
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
TRIGGER PROCEDURE FOR WRITE OF putevka
/* ERwin Builtin Wed Dec 07 19:57:42 2005 */
/* WRITE trigger on putevka */
NEW inserted OLD deleted.
/* ERwin Builtin Wed Dec 07 19:57:42 2005 */
/* tur R/3 putevka ON CHILD 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 NOT(CAN-FIND(FIRST tur WHERE
/* %JoinFKPK(inserted,tur," = "," and") */
inserted.num_tur = tur.num_tur))
THEN DO:
MESSAGE "Cannot UPDATE 'putevka' because 'tur' does not exist.".
RETURN ERROR.
END.
/* ERwin Builtin Wed Dec 07 19:57:42 2005 */
/* klient R/2 putevka ON CHILD UPDATE 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 NOT(CAN-FIND(FIRST klient WHERE
/* %JoinFKPK(inserted,klient," = "," and") */
inserted.num_k = klient.num_k))
THEN DO:
MESSAGE "Cannot UPDATE 'putevka' because 'klient' does not exist.".
RETURN ERROR.
END.
/* ERwin Builtin Wed Dec 07 19:57:42 2005 */
/* ERwin Builtin Wed Dec 07 19:57:42 2005 */
/* WRITE trigger on putevka */
NEW inserted OLD deleted.
/* ERwin Builtin Wed Dec 07 19:57:42 2005 */
/* tur R/3 putevka ON CHILD 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 NOT(CAN-FIND(FIRST tur WHERE
/* %JoinFKPK(inserted,tur," = "," and") */
inserted.num_tur = tur.num_tur))
THEN DO:
MESSAGE "Cannot UPDATE 'putevka' because 'tur' does not exist.".
RETURN ERROR.
END.
/* ERwin Builtin Wed Dec 07 19:57:42 2005 */
/* klient R/2 putevka ON CHILD UPDATE 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 NOT(CAN-FIND(FIRST klient WHERE
/* %JoinFKPK(inserted,klient," = "," and") */
inserted.num_k = klient.num_k))
THEN DO:
MESSAGE "Cannot UPDATE 'putevka' because 'klient' does not exist.".
RETURN ERROR.
END.
/* ERwin Builtin Wed Dec 07 19:57:42 2005 */
Соседние файлы в папке 18.База данных туристической фирмы(Мозговитова Ю.А. МЭ-52)