MRUS#79006 -- Aanpassingen personenimport

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

MRUS/mrus.sql

@@ -88,6 +88,10 @@ BEGIN
                        '0;0;0;0;0;0',
                        'GivenName;Surname;Department;EmailAddress;Title%'
                        );
+                       
+-- Soms komen er personen binnen zonder email, die mogen niet mee.
+DELETE FROM fac_imp_perslid
+WHERE prs_perslid_email IS NULL;
                 
 COMMIT;
 
@@ -127,13 +131,14 @@ CREATE OR REPLACE PROCEDURE mrus_update_perslid (
   -- Alle personen verwijderen die niet meer in import bestand voorkomen.
   CURSOR c_del
   IS
-      SELECT p.prs_perslid_key, p.prs_perslid_email
-        FROM fac_imp_perslid i, prs_perslid p
-       WHERE UPPER (p.prs_perslid_email) = UPPER (i.prs_perslid_email(+))
-         AND p.prs_perslid_email IS NOT NULL
-         AND i.prs_perslid_email IS NULL
-         AND p.prs_perslid_verwijder IS NULL
-         AND p.prs_perslid_oslogin IS NULL;
+   SELECT p.prs_perslid_key, p.prs_perslid_email
+     FROM prs_perslid p
+    WHERE   p.prs_perslid_verwijder IS NULL
+        AND p.prs_perslid_oslogin IS NULL
+        AND NOT EXISTS
+                (SELECT 'x'
+                    FROM fac_imp_perslid i
+                    WHERE UPPER(p.prs_perslid_email) = UPPER(i.prs_perslid_email));
 
 -- Autmatisch autorisatiegroep toekennen a.d.h.v. bussinesunit    
   CURSOR c1
@@ -220,6 +225,13 @@ BEGIN
                VALUES (rec.prs_perslid_key, 1);
         END;
      END LOOP;
+     
+-- Als laatst nog zorgen dat alle personen zichtbaar zijn (ivm namen op de plattegronden).
+UPDATE prs_perslid
+   SET prs_perslid_visibility = 1
+ WHERE     prs_perslid_visibility = 0
+       AND prs_perslid_oslogin IS NULL
+       AND prs_perslid_verwijder IS NULL;
 
 END mrus_update_perslid;
 /