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

/* ERwin Builtin Wed Dec 07 19:57:42 2005 */
/* klient R/2 putevka ON PARENT 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
/* %JoinPKPK(deleted,inserted," <> "," or ") */
deleted.num_k <> inserted.num_k
THEN DO:
IF CAN-FIND(FIRST putevka WHERE
/* %JoinFKPK(putevka,deleted," = "," and") */
putevka.num_k = deleted.num_k)
THEN DO:
MESSAGE "Cannot UPDATE 'klient' because 'putevka' exists.".
RETURN ERROR.
END.
END.


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


Соседние файлы в папке 18.База данных туристической фирмы(Мозговитова Ю.А. МЭ-52)
  • #
    20.05.20142.23 Mб39turfirma.b1
  • #
    20.05.20141.18 Mб38turfirma.d1
  • #
    20.05.201432.77 Кб38turfirma.db
  • #
    20.05.201411.74 Кб38turfirma.lg
  • #
    20.05.201435 б39turfirma.st
  • #
    20.05.2014877 б40W_klient.p
  • #
    20.05.20141.33 Кб38W_putevka.p
  • #
    20.05.2014867 б38W_tur.p
  • #
    20.05.201419.62 Кб58Мозговитова Ю.А. МЭ-52.bp1
  • #
    20.05.201445.45 Кб41Мозговитова Ю.А. МЭ-52.er1