ASPN#83898 -- Werkplekken toekennen in personenimport

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

ASPN/aspn.sql

@@ -191,6 +191,15 @@ CREATE OR REPLACE PROCEDURE aspn_update_perslid (
                      FROM fac_gebruikersgroep f
                     WHERE     p.prs_perslid_key = f.prs_perslid_key
                           AND f.fac_groep_key = 261);
+                          
+  CURSOR c3 
+  IS
+  SELECT x.prs_key, x.aantal, x.laatste
+    FROM (  SELECT prs_perslid_key prs_key, COUNT (prs_werkplek_key) aantal, max (prs_werkplek_key) laatste
+              FROM prs_perslidwerkplek
+          GROUP BY prs_perslid_key) x
+   WHERE x.aantal > 1;
+   
 
   v_count           NUMBER;
 
@@ -212,6 +221,18 @@ BEGIN
       RETURN;
     END IF;
 
+-- Eerst maar even zeker zijn dat iedereen maar 1 werkplek heeft    
+  FOR rec IN c3
+  LOOP
+     BEGIN
+       DELETE FROM prs_perslidwerkplek
+       WHERE prs_perslid_key = rec.prs_key
+       AND prs_werkplek_key <> rec.laatste;
+     END;
+  END LOOP;
+  
+  COMMIT;
+
   -- 'EMAIL' betekent dat op basis van email wordt gematched.
   -- 'A' betekent altijd alle (andere/overige) werkplekken verwijderen
   prs.update_perslid (p_import_key, 'EMAIL', 'A', 0);