Overgang naar SQL Server compatible versie van de software
Tevens een en ander opgeschoond svn path=/Database/trunk/; revision=8275
This commit is contained in:
1587
CAD/CAD_PAC.SRC
1587
CAD/CAD_PAC.SRC
File diff suppressed because it is too large
Load Diff
@@ -1,6 +1,8 @@
|
||||
#ifdef CAD // 22-05-1998 KTH
|
||||
|
||||
/* REVISIONS:
|
||||
*
|
||||
* 19-03-2003 RL cad_c_cad_tekening_type2 united with "not null" constraint
|
||||
*
|
||||
* 27-04-1999 EGR CAD-tabellen worden op de module FAC afgebeeld met bijbehorende privileges.
|
||||
* --- 01.43 ---
|
||||
@@ -41,9 +43,11 @@ CREATE_TABLE(cad_tekening, FAC_NORMAAL_PRIVILEGE)
|
||||
NOT_NULL(cad_tekening_filenaam, cad_c_cad_tekening_filenaam),
|
||||
cad_tekening_type
|
||||
VARCHAR2(3)
|
||||
NOT_NULL (cad_tekening_type, cad_c_cad_tekening_type)
|
||||
CONSTRAINT cad_c_cad_tekening_type2 CHECK(cad_tekening_type = 'P' OR cad_tekening_type = 'C'
|
||||
OR cad_tekening_type = 'D'),
|
||||
/* NOT_NULL (cad_tekening_type, cad_c_cad_tekening_type) */
|
||||
CONSTRAINT cad_c_cad_tekening_type2 CHECK
|
||||
(cad_tekening_type is not null and
|
||||
(cad_tekening_type = 'P' OR cad_tekening_type = 'C'
|
||||
OR cad_tekening_type = 'D')),
|
||||
cad_tekening_geimporteerd /* geeft aan of de tekening al is geimporteerd: */
|
||||
DATE /* NULL indien niet, anders datum van importeren */
|
||||
DEFAULT NULLDATUM,
|
||||
|
||||
@@ -1,20 +1,5 @@
|
||||
#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"
|
||||
@@ -23,14 +8,22 @@ 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);
|
||||
-- Deze trigger is ook gedefinieerd in CAD !!
|
||||
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');
|
||||
APPLICATION_ERROR(-20000, 'CAD_M010');
|
||||
END IF;
|
||||
#ifdef PRJ
|
||||
IF :new.prj_project_key IS NOT NULL
|
||||
THEN
|
||||
:new.cad_tekening_filenaam := :new.cad_tekening_key ||'.DWG';
|
||||
END IF;
|
||||
#endif
|
||||
END;
|
||||
/
|
||||
|
||||
@@ -41,5 +34,3 @@ BEGIN
|
||||
UPDATE_PRIMARY_KEY(cad_symbool_key, cad_s_cad_symbool_key);
|
||||
END;
|
||||
/
|
||||
|
||||
#endif // CAD
|
||||
|
||||
Reference in New Issue
Block a user