RWSN#14758

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

RES/RES_TRI.SRC

@@ -1,7 +1,7 @@
 #ifdef  RES
 /*
- * $Revision: 91 $
- * $Modtime: 21-11-08 17:37 $
+ * $Revision: 92 $
+ * $Modtime: 31-03-09 17:55 $
  */
 
 #include "comsql.h"
@@ -279,6 +279,11 @@ BEGIN
   UPDATE_PRIMARY_KEY(res_srtkenmerk_key, res_s_res_srtkenmerk_key);
   UPDATE_UPPER(res_srtkenmerk_omschrijving, res_srtkenmerk_upper,res_srtkenmerk);
   UPDATE_AANMAAKDATUM(res_srtkenmerk, res_srtkenmerk_aanmaak);
+  IF (:new.res_srtkenmerk_verwijder IS NOT NULL AND :old.res_srtkenmerk_verwijder IS NULL AND 
+    :new.res_srtkenmerk_systeem = 1)
+  THEN
+    raise_application_error(-20003, 'RES_C_RES_SRTKENMERK_SYSTEEM');
+  END IF;
   --
   IF (:new.res_srtkenmerk_kenmerktype = 'C'
   OR  :new.res_srtkenmerk_kenmerktype = 'N')
@@ -341,17 +346,6 @@ BEGIN
 END;
 /
 
-CREATE_TRIGGER(res_t_res_srtkenmerk_b_d)
-BEFORE DELETE ON res_srtkenmerk
-FOR EACH ROW
-BEGIN
-  IF :old.res_srtkenmerk_systeem = 1
-  THEN
-    raise_application_error(-20003, 'RES_C_RES_SRTKENMERK_SYSTEEM');
-  END IF;
-END;
-/
-
 CREATE_TRIGGER(res_t_res_rsv_ruimte_B_IU)
 BEFORE INSERT OR UPDATE ON res_rsv_ruimte
 FOR EACH ROW