VEST#76939 -- Personenimport aangepast

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

VEST/vest.sql

@@ -29,8 +29,15 @@ AS
    v_errormsg                VARCHAR2 (400);
    v_errorhint               VARCHAR2 (400);
    v_newline                 FAC_IMP_FILE.FAC_IMP_FILE_LINE%TYPE;
+   
+   
+CURSOR c1 IS
+    SELECT DISTINCT p.prs_afdeling_naam afdeling, i.prs_afdeling_naam
+      FROM prs_afdeling p, fac_imp_perslid i
+     WHERE     i.prs_afdeling_naam =
+               SUBSTR (p.prs_afdeling_omschrijving, 1, 15)
+           AND p.prs_afdeling_verwijder IS NULL;
 BEGIN
-
    BEGIN
       SELECT fac_imp_file_line
         INTO v_newline
@@ -86,7 +93,7 @@ BEGIN
 UPDATE fac_imp_perslid
 SET alg_locatie_code = (
 SELECT a.alg_locatie_code
-FROM alg_locatie a
+FROM alg_locatie a, fac_imp_perslid i
 WHERE fac_imp_perslid.alg_locatie_code = a.alg_locatie_omschrijving);
 
 UPDATE fac_imp_perslid
@@ -100,17 +107,15 @@ WHERE fac_imp_perslid.alg_locatie_code LIKE '%AMS%';
 UPDATE fac_imp_perslid
 SET alg_ruimte_nr = '001'
 WHERE fac_imp_perslid.alg_locatie_code LIKE '%AMS%';
-
-
-UPDATE fac_imp_perslid
-SET prs_afdeling_naam = 
-(
-  SELECT DISTINCT p.prs_afdeling_naam
-  FROM prs_afdeling p
-  WHERE fac_imp_perslid.prs_afdeling_naam = substr (p.prs_afdeling_omschrijving, 1, 15)
-  AND p.prs_afdeling_verwijder IS NULL
-)
-WHERE fac_imp_perslid.prs_afdeling_naam NOT IN (SELECT p.prs_afdeling_naam FROM prs_afdeling p);
+           
+ FOR rec IN c1
+    LOOP
+     BEGIN
+        UPDATE fac_imp_perslid
+           SET prs_afdeling_naam = rec.afdeling
+         WHERE prs_afdeling_naam = rec.prs_afdeling_naam;
+       END;
+    END LOOP;
 
 DELETE FROM fac_imp_perslid
 WHERE alg_locatie_code NOT IN (SELECT alg_locatie_code FROM alg_locatie);
@@ -132,15 +137,15 @@ CREATE OR REPLACE PROCEDURE vest_update_perslid (
   -- Alle personen verwijderen die niet meer in import bestand voorkomen.
   CURSOR c_del
   IS
-      SELECT p.prs_perslid_key, p.prs_perslid_oslogin, pf.prs_perslid_naam_full
-        FROM fac_imp_perslid i, prs_perslid p, prs_v_perslid_fullnames_all pf
-       WHERE UPPER (p.prs_perslid_oslogin) = UPPER (i.prs_perslid_oslogin(+))
-         AND pf.prs_perslid_key = p.prs_perslid_key
-         AND p.prs_perslid_oslogin IS NOT NULL
-         AND i.prs_perslid_oslogin IS NULL
-         AND p.prs_perslid_verwijder IS NULL
-         AND substr(p.prs_perslid_oslogin, 1, 1) != '_'
-    ORDER BY 2;
+    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 p.prs_perslid_email IS NOT NULL
+        AND NOT EXISTS
+                (SELECT 'x'
+                    FROM fac_imp_perslid i
+                    WHERE (p.prs_perslid_email) = UPPER (i.prs_perslid_email));
 
   v_count           NUMBER;
 
@@ -164,7 +169,7 @@ BEGIN
 
   -- 'LOGIN' betekent dat op basis van oslogin wordt gematched.
   -- 'A' betekent altijd alle (andere/overige) werkplekken verwijderen
-  prs.update_perslid (p_import_key, 'LOGIN', NULL);
+  prs.update_perslid (p_import_key, 'EMAIL', NULL);
 
   -- Verwijder personen die niet meer in de import voorkomen.
   FOR rec IN c_del