VLKC#68534 Wissen wachtwoorden van alle medewerkers (met een wachtwoord)

svn path=/Customer/; revision=57065

onces/VLKC/VLKC#68534.sql

@@ -34,7 +34,7 @@ SELECT p.*
                WHERE ab.prs_bedrijf_key = 2241     -- Van Lanschot Kempen N.V.
                      AND ab.prs_afdeling_key1 = 2581 -- Van Lanschot Kempen NV
                      AND ab.prs_afdeling_key = p.prs_afdeling_key);
-*/
+
 UPDATE prs_perslid p
    SET p.prs_perslid_salt = NULL,
        p.prs_perslid_wachtwoord_hash = NULL,
@@ -49,6 +49,28 @@ UPDATE prs_perslid p
                WHERE ab.prs_bedrijf_key = 2241     -- Van Lanschot Kempen N.V.
                      AND ab.prs_afdeling_key1 = 2581 -- Van Lanschot Kempen NV
                      AND ab.prs_afdeling_key = p.prs_afdeling_key);
+*/
+DECLARE
+   CURSOR c
+   IS
+      SELECT p.prs_perslid_key
+        FROM prs_perslid p
+       WHERE p.prs_perslid_key > 10
+             AND p.prs_perslid_apikey IS NULL
+             AND p.prs_perslid_wachtwoord_hash IS NOT NULL
+             AND EXISTS
+                   (SELECT 1
+                      FROM prs_v_afdeling_boom ab
+                     WHERE ab.prs_bedrijf_key = 2241 -- Van Lanschot Kempen N.V.
+                           AND ab.prs_afdeling_key1 = 2581 -- Van Lanschot Kempen NV
+                           AND ab.prs_afdeling_key = p.prs_afdeling_key);
+BEGIN
+   FOR rec IN c
+   LOOP
+      prs.setpassword (rec.prs_perslid_key, NULL);
+   END LOOP;
+END;
+/
 
 ------ payload end   ------