AADS#69680 -- Bouwdeel toevoegen thema Graphics

svn path=/Customer/trunk/; revision=53853

AA/AADS/aads.sql

@@ -1450,6 +1450,41 @@ AS
        AND ar.alg_ruimte_key = ogk.alg_onrgoed_key
        AND ar.alg_ruimte_verwijder IS NULL;       
 
+CREATE OR REPLACE VIEW aads_v_thema_bouwdeel
+(
+    alg_ruimte_key,
+    waarde,
+    waarde_key -- Deze heb je nodig als je er een sleepfunctie van wilt maken, vullen we nu default met 1, maar als ze dit willen gebruken dan moet kenmerk_key 1060 een listbox worden 
+)
+AS
+SELECT alg_onrgoed_key, alg_onrgoedkenmerk_waarde, 1
+  FROM alg_onrgoedkenmerk ogk, alg_ruimte ar
+ WHERE     alg_kenmerk_key = 1060
+       AND alg_onrgoedkenmerk_verwijder IS NULL
+       AND ar.alg_ruimte_key = ogk.alg_onrgoed_key
+       AND ar.alg_ruimte_verwijder IS NULL;
+
+-- SLEEPFUNCTIE -- Actie/trigger bij sleur+pleur van thema Bouwdeel
+CREATE OR REPLACE TRIGGER aads_t_thema_bouwdeel_i_iu
+   INSTEAD OF INSERT OR UPDATE
+   ON aads_v_thema_bouwdeel
+
+BEGIN
+
+   			DELETE FROM alg_onrgoedkenmerk ok
+   			WHERE ok.alg_onrgoed_key = :new.alg_ruimte_key
+   			AND ok.alg_kenmerk_key = 1060
+   			AND ok.alg_onrgoed_niveau='R';
+
+			INSERT INTO alg_onrgoedkenmerk (alg_onrgoed_key, alg_onrgoed_niveau, alg_kenmerk_key, alg_onrgoedkenmerk_waarde)
+			VALUES (:new.alg_ruimte_key, 'R', 1060, to_char(:new.waarde));
+	 EXCEPTION
+	    WHEN OTHERS
+	    THEN NULL;
+
+END;
+/
+
 ------ payload end   ------
 
 SET DEFINE OFF