46 lines
1.2 KiB
Plaintext
46 lines
1.2 KiB
Plaintext
#ifdef CAD // 22-05-1998 KTH
|
|
|
|
/* REVISIONS:
|
|
*
|
|
* --- 03.11 ---
|
|
* 03-11-1999 BIV B#92 :Bij een Plattegrond- en/of contourtekening mag men niet
|
|
* een discipline opgeven.
|
|
* --- 03.10 ---
|
|
* --- 01.43 ---
|
|
* 26-02-1999 BIV LOG #2278: Trigger toegevoegd t.b.v. tabel CAD_SYMBOOL.
|
|
* --- 01.42 ---
|
|
* --- 01.41 ---
|
|
* --- 01.40 ---
|
|
* --- 01.39 ---
|
|
* --- 01.38 ---
|
|
* --- 01.37 ---
|
|
* 22-05-1998 KTH LOG#1821: Wijzigingen tbv tabel CAD_TEKENING geintroduceerd
|
|
*/
|
|
|
|
#include "comsql.h"
|
|
|
|
CREATE_TRIGGER(cad_t_cad_tekening_B_IU)
|
|
BEFORE INSERT OR UPDATE ON cad_tekening
|
|
FOR EACH ROW
|
|
BEGIN
|
|
-- Deze trigger is ook gedefinieerd in PRJ !!
|
|
UPDATE_PRIMARY_KEY(cad_tekening_key, cad_s_cad_tekening_key);
|
|
UPDATE_AANMAAKDATUM(cad_tekening, cad_tekening_aanmaak);
|
|
IF :new.cad_tekening_type IN ('P', 'C') AND
|
|
:new.ins_discipline_key IS NOT NULL
|
|
THEN
|
|
RAISE_APPLICATION_ERROR(-20000, 'CAD_M010');
|
|
END IF;
|
|
END;
|
|
/
|
|
|
|
CREATE_TRIGGER(cad_t_cad_symbool_B_IU)
|
|
BEFORE INSERT OR UPDATE ON cad_symbool
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(cad_symbool_key, cad_s_cad_symbool_key);
|
|
END;
|
|
/
|
|
|
|
#endif // CAD
|