DJIN#62689 Reserveren werkplekken

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

DJIN/djin.sql

@@ -481,6 +481,34 @@ AS
                AND kw.res_kenmerk_key IN (41, 42)   -- Kenteken/Telefoonnummer
       ORDER BY kw.res_kenmerkwaarde_key;
 
+
+   -- DJIN#62384: Verwijderen van kenmerken bij activiteit Telehoren (170):
+   --             - Contactpersoon telefoonnr. (103)
+   --             - Contactpersoon e-mail (104)
+   --             - Last / bevel / lichting bijvoegen (105)
+   --             - Achternaam (107)
+   --             - Voornaam (108)
+   --             - Geboortedatum (109)
+   --             - Geslacht (110)
+   CURSOR c_res_telehoren (p_datum DATE)
+   IS
+      SELECT rrr.res_rsv_ruimte_key, 'K' verwijderen_type, kw.res_kenmerkwaarde_key verwijderen_key
+        FROM res_rsv_ruimte rrr,              -- Ook verwijderde reserveringen
+             res_v_aanwezigkenmerkwaarde kw
+       WHERE rrr.res_activiteit_key = 170                         -- Telehoren
+             AND rrr.res_rsv_ruimte_tot < TRUNC (p_datum)
+             AND rrr.res_rsv_ruimte_key = kw.res_rsv_ruimte_key
+             AND kw.res_kenmerk_key IN (103, 104, 107, 108, 109, 110)
+      UNION ALL
+      SELECT rrr.res_rsv_ruimte_key, 'M' verwijderen_type, b.fac_bijlagen_key verwijderen_key
+        FROM res_rsv_ruimte rrr,              -- Ook verwijderde reserveringen
+             (SELECT * FROM fac_bijlagen WHERE fac_bijlagen_verwijder IS NULL) b
+       WHERE rrr.res_activiteit_key = 170                         -- Telehoren
+             AND rrr.res_rsv_ruimte_tot < TRUNC (p_datum)
+             AND rrr.res_rsv_ruimte_key = b.fac_bijlagen_refkey
+             AND b.fac_bijlagen_kenmerk_key = 105
+      ORDER BY 1, 2, 3;
+
    -- SUBPROC
    PROCEDURE prs_anonimiseer
    AS
@@ -749,6 +777,26 @@ BEGIN
 
    fac.writelog ('DJIN_ANONIMISEER', 'S', 'Parkeerkenmerken/#verwijderd: ' || TO_CHAR (v_count_del), '');
    COMMIT;
+
+   -- DJIN#62384: Schonen Telehoren-kenmerkwaarden <20>n bijlagen!
+   v_count_del := 0;
+   v_errormsg := 'Fout anonimiseren RES/Telehorenkenmerken';
+   FOR rec IN c_res_telehoren (v_datum)
+   LOOP
+      IF rec.verwijderen_type = 'M'
+      THEN
+         flx.deleteflexbijlage (rec.verwijderen_key);
+      ELSE                                       -- rec.verwijderen_type = 'K'
+         DELETE FROM res_kenmerkwaarde
+               WHERE res_kenmerkwaarde_key = rec.verwijderen_key;
+      END IF;
+
+      v_count_del := v_count_del + 1;
+      --fac.trackaction ('#RESUPD', rec.res_rsv_ruimte_key, NULL, v_nu, v_txt_anoniem);
+   END LOOP;
+
+   fac.writelog ('DJIN_ANONIMISEER', 'S', 'Telehorenkenmerken/#verwijderd: ' || TO_CHAR (v_count_del), '');
+   COMMIT;
    -- *** EINDE:Wis specifieke andere zaken na afgesproken termijn of direct!
 EXCEPTION
    WHEN OTHERS