STCH#51457 -- Verwijderen van non-relevante Heyday medewerkers

svn path=/Customer/; revision=36477

onces/STCH/STCH#51457_2.sql

@@ -21,6 +21,22 @@ UPDATE prs_bedrijfadres
 SET prs_bedrijfadres_xsl = 'xsl\STCH.xsl'
 WHERE prs_bedrijfadres_xsl LIKE '%AASI.xsl%';
 
+BEGIN
+   FOR rec
+      IN (  SELECT prs_perslid_key
+              FROM prs_perslid
+             WHERE prs_perslid_verwijder IS NULL
+                   AND prs_perslid_email LIKE '%heyday%'
+                   AND prs_perslid_key NOT IN (57489, 99925, 125, 57475, 70523, 57559, 40603, 59447, 102746, 9841, 9061)
+          ORDER BY 1)
+   LOOP
+      BEGIN
+         prs.delete_perslid (1, rec.prs_perslid_key);
+      END;
+   END LOOP;
+END;
+/
+
 ------ payload end   ------
 
 SET DEFINE OFF