wijziging in cad_tekening trigger ook in prj toegevoegd.

svn path=/Database/trunk/; revision=7242

PRJ/PRJ_TRI.SRC

@@ -25,10 +25,16 @@ 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 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');   
+   END IF;
   IF :new.prj_project_key IS NOT NULL
   THEN
     :new.cad_tekening_filenaam := :new.cad_tekening_key ||'.DWG';

_UP/310to311.src

@@ -916,6 +916,27 @@ DEF_FAC_MESSAGE ('PRJ_M069','Object dat buiten de projectvoorbereiding om is toe
 DEF_FAC_MESSAGE ('PRJ_M070','Werkplek dat buiten de projectvoorbereiding om is toegevoegd: ');
 DEF_FAC_MESSAGE ('PRJ_M071','Vraag projectleiding.');
 
+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 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');   
+   END IF;
+  IF :new.prj_project_key IS NOT NULL
+  THEN
+    :new.cad_tekening_filenaam := :new.cad_tekening_key ||'.DWG';
+  END IF;
+END;
+/
+
 CREATE OR REPLACE PACKAGE prj AS
   FUNCTION prj_f_fac_get_description      (LPNName       IN VARCHAR2
                                           ,CondKey       IN NUMBER