FSN#55356 -- Verbeterde versie AD import

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

APGR/apgr.sql

@@ -29,8 +29,26 @@ AS
    v_errormsg                VARCHAR2 (400);
    v_errorhint               VARCHAR2 (400);
    v_newline                 FAC_IMP_FILE.FAC_IMP_FILE_LINE%TYPE;
+   
+   CURSOR c1
+       IS
+       SELECT l.alg_locatie_code,
+                  pw.alg_gebouw_code,
+                  pw.alg_verdieping_volgnr,
+                  pw.alg_ruimte_nr,
+                  p.prs_perslid_oslogin
+             FROM prs_v_perslidwerkplek_gegevens pw,
+                  prs_perslid p,
+                  alg_locatie l,
+                  fac_imp_perslid f
+            WHERE p.prs_perslid_key = pw.prs_perslid_key
+                  AND pw.alg_locatie_key = l.alg_locatie_key
+                  AND UPPER (p.prs_perslid_oslogin) =
+                        UPPER (f.prs_perslid_oslogin)
+                  AND p.prs_perslid_verwijder IS NULL;
+ 
 BEGIN
-
+                  
    BEGIN
       SELECT fac_imp_file_line
         INTO v_newline
@@ -92,24 +110,19 @@ UPDATE fac_imp_perslid
                      UPPER (p.prs_perslid_oslogin));
 
 -- De AD export kent geen plaatsgegevens, dus deze moeten behouden blijven uit de handmatige prs import
-UPDATE fac_imp_perslid
+
+BEGIN
+FOR rec in c1
+LOOP                  
+   UPDATE fac_imp_perslid
    SET
-       (alg_locatie_code,
-       alg_gebouw_code,
-       alg_verdieping_volgnr,
-       alg_ruimte_nr
-       ) =
-          (SELECT l.alg_locatie_code,
-                  pw.alg_gebouw_code,
-                  pw.alg_verdieping_volgnr,
-                  pw.alg_ruimte_nr
-             FROM prs_v_perslidwerkplek_gegevens pw,
-                  prs_perslid p,
-                  alg_locatie l
-            WHERE p.prs_perslid_key = pw.prs_perslid_key
-                  AND pw.alg_locatie_key = l.alg_locatie_key
-                  AND UPPER (p.prs_perslid_oslogin) =
-                        UPPER (fac_imp_perslid.prs_perslid_oslogin));                    
+       alg_locatie_code = rec.alg_locatie_code,
+       alg_gebouw_code = rec.alg_gebouw_code,
+       alg_verdieping_volgnr = rec.alg_verdieping_volgnr,
+       alg_ruimte_nr = rec.alg_ruimte_nr
+   WHERE UPPER (prs_perslid_oslogin) = UPPER (rec.prs_perslid_oslogin);
+END LOOP;
+END;    
   COMMIT;
 EXCEPTION
    WHEN OTHERS
@@ -129,13 +142,13 @@ CREATE OR REPLACE PROCEDURE apgr_update_prs (
   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 p.prs_perslid_oslogin = i.prs_perslid_oslogin(+)
+       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 p.prs_perslid_oslogin NOT LIKE '%_%'
-      ORDER BY 2;
+         AND substr(p.prs_perslid_oslogin, 1, 1) != '_'
+    ORDER BY 2;
 
   v_count           NUMBER;
 
@@ -178,61 +191,66 @@ CREATE OR REPLACE PROCEDURE apgr_post_update_prs (p_import_key IN NUMBER)
 AS
  -- Personen die in de ADgroup "FMIS_Personeel" zitten moeten de autorisatie "Personeel"(4) krijgen (als ze dat al niet hebben).
  -- Hetzelfde geldt voor de groepen "Frontend"(5), "Directie"(6), "Backoffice"(7) en "Applicatiebeheer"(8)
+                     
   CURSOR c_auth_personeel
   IS
-     SELECT DISTINCT prs_perslid_key, prs_kenmerk1
-       FROM fac_imp_perslid
-      WHERE     prs_kenmerk1 LIKE '%Personeel%'
-            AND fac_import_key = p_import_key
-            AND prs_perslid_key IS NOT NULL
-            AND prs_perslid_key NOT IN (SELECT prs_perslid_key
-                                          FROM fac_gebruikersgroep
-                                         WHERE fac_groep_key = 23);
+     SELECT DISTINCT f.prs_perslid_key, f.prs_kenmerk1, DECODE (sub.aantal, NULL, 0, sub.aantal) aantal
+       FROM fac_imp_perslid f,
+            (  SELECT DISTINCT prs_perslid_key, COUNT (prs_perslid_key) aantal
+                 FROM fac_gebruikersgroep
+             GROUP BY prs_perslid_key) sub
+      WHERE     f.prs_kenmerk1 LIKE '%Personeel%'
+            AND f.fac_import_key = p_import_key
+            AND f.prs_perslid_key IS NOT NULL
+            AND f.prs_perslid_key = sub.prs_perslid_key(+);
 
   CURSOR c_auth_frontend
   IS
-     SELECT DISTINCT prs_perslid_key, prs_kenmerk1
-       FROM fac_imp_perslid
-      WHERE     prs_kenmerk1 LIKE '%Front%'
-            AND fac_import_key = p_import_key
-            AND prs_perslid_key IS NOT NULL
-            AND prs_perslid_key NOT IN (SELECT prs_perslid_key
-                                          FROM fac_gebruikersgroep
-                                         WHERE fac_groep_key = 24);
+     SELECT DISTINCT f.prs_perslid_key, f.prs_kenmerk1, DECODE (sub.aantal, NULL, 0, sub.aantal) aantal
+       FROM fac_imp_perslid f,
+            (  SELECT DISTINCT prs_perslid_key, COUNT (prs_perslid_key) aantal
+                 FROM fac_gebruikersgroep
+             GROUP BY prs_perslid_key) sub
+      WHERE     f.prs_kenmerk1 LIKE '%Front%'
+            AND f.fac_import_key = p_import_key
+            AND f.prs_perslid_key IS NOT NULL
+            AND f.prs_perslid_key = sub.prs_perslid_key(+);                                         
  
   CURSOR c_auth_directie
   IS
-     SELECT DISTINCT prs_perslid_key, prs_kenmerk1
-       FROM fac_imp_perslid
-      WHERE     prs_kenmerk1 LIKE '%Directie%'
-            AND fac_import_key = p_import_key
-            AND prs_perslid_key IS NOT NULL
-            AND prs_perslid_key NOT IN (SELECT prs_perslid_key
-                                          FROM fac_gebruikersgroep
-                                         WHERE fac_groep_key = 25); 
+     SELECT DISTINCT f.prs_perslid_key, f.prs_kenmerk1, DECODE (sub.aantal, NULL, 0, sub.aantal) aantal
+       FROM fac_imp_perslid f,
+            (  SELECT DISTINCT prs_perslid_key, COUNT (prs_perslid_key) aantal
+                 FROM fac_gebruikersgroep
+             GROUP BY prs_perslid_key) sub
+      WHERE     f.prs_kenmerk1 LIKE '%Directie%'
+            AND f.fac_import_key = p_import_key
+            AND f.prs_perslid_key IS NOT NULL
+            AND f.prs_perslid_key = sub.prs_perslid_key(+);  
                                           
-
    CURSOR c_auth_fmbackoffice
    IS
-      SELECT DISTINCT prs_perslid_key, prs_kenmerk1
-        FROM fac_imp_perslid
-       WHERE     prs_kenmerk1 LIKE '%FMBack%'
-             AND fac_import_key = p_import_key
-             AND prs_perslid_key IS NOT NULL
-             AND prs_perslid_key NOT IN (SELECT prs_perslid_key
-                                           FROM fac_gebruikersgroep
-                                          WHERE fac_groep_key = 26);
+     SELECT DISTINCT f.prs_perslid_key, f.prs_kenmerk1, DECODE (sub.aantal, NULL, 0, sub.aantal) aantal
+       FROM fac_imp_perslid f,
+            (  SELECT DISTINCT prs_perslid_key, COUNT (prs_perslid_key) aantal
+                 FROM fac_gebruikersgroep
+             GROUP BY prs_perslid_key) sub
+      WHERE     f.prs_kenmerk1 LIKE '%FMBack%'
+            AND f.fac_import_key = p_import_key
+            AND f.prs_perslid_key IS NOT NULL
+            AND f.prs_perslid_key = sub.prs_perslid_key(+);
                                           
    CURSOR c_auth_ictbackoffice
    IS
-      SELECT DISTINCT prs_perslid_key, prs_kenmerk1
-        FROM fac_imp_perslid
-       WHERE     prs_kenmerk1 LIKE '%ICTBack%'
-             AND fac_import_key = p_import_key
-             AND prs_perslid_key IS NOT NULL
-             AND prs_perslid_key NOT IN (SELECT prs_perslid_key
-                                           FROM fac_gebruikersgroep
-                                          WHERE fac_groep_key = 41);
+     SELECT DISTINCT f.prs_perslid_key, f.prs_kenmerk1, DECODE (sub.aantal, NULL, 0, sub.aantal) aantal
+       FROM fac_imp_perslid f,
+            (  SELECT DISTINCT prs_perslid_key, COUNT (prs_perslid_key) aantal
+                 FROM fac_gebruikersgroep
+             GROUP BY prs_perslid_key) sub
+      WHERE     f.prs_kenmerk1 LIKE '%ICTBack%'
+            AND f.fac_import_key = p_import_key
+            AND f.prs_perslid_key IS NOT NULL
+            AND f.prs_perslid_key = sub.prs_perslid_key(+);
 
    CURSOR c_auth_fmbeheer
    IS
@@ -260,46 +278,97 @@ BEGIN
    -- plaats personen in de juiste autorisatie groepen
    FOR rec IN c_auth_personeel
    LOOP
-      BEGIN
-         INSERT INTO FAC_GEBRUIKERSGROEP (prs_perslid_key, fac_groep_key)
-             VALUES (rec.prs_perslid_key, 23);
-          
-    -- Deze personen niet in de default groep          
-         DELETE FAC_GEBRUIKERSGROEP
-          WHERE     prs_perslid_key = rec.prs_perslid_key
-                AND fac_groep_key = 1;
+
+BEGIN
+  -- Nog geen bestaand persoon? Dan record toevoegen
+   IF rec.aantal = 0 
+   THEN
+   INSERT INTO FAC_GEBRUIKERSGROEP (prs_perslid_key, fac_groep_key)
+        VALUES (rec.prs_perslid_key, 23);
+   END IF;
+   
+    -- Deze personen niet in de default groep
+        DELETE FAC_GEBRUIKERSGROEP
+         WHERE     prs_perslid_key = rec.prs_perslid_key
+           AND fac_groep_key = 1;       
+    
+    -- Persoon heeft nu 1 autorisatiegroep? Dan wordt deze vervangen door de AD import   
+        UPDATE FAC_GEBRUIKERSGROEP
+           SET fac_groep_key = 23
+         WHERE prs_perslid_key = rec.prs_perslid_key
+           AND rec.aantal = 1;
       END;
    END LOOP;
 
    FOR rec IN c_auth_frontend
    LOOP
-      BEGIN
-         INSERT INTO FAC_GEBRUIKERSGROEP (prs_perslid_key, fac_groep_key)
-             VALUES (rec.prs_perslid_key, 24);
+      BEGIN          
+  -- Nog geen bestaand persoon? Dan record toevoegen
+   IF rec.aantal = 0 
+   THEN
+   INSERT INTO FAC_GEBRUIKERSGROEP (prs_perslid_key, fac_groep_key)
+        VALUES (rec.prs_perslid_key, 24);
+   END IF;      
+
+    -- Persoon heeft nu 1 autorisatiegroep? Dan wordt deze vervangen door de AD import   
+        UPDATE FAC_GEBRUIKERSGROEP
+           SET fac_groep_key = 24
+         WHERE prs_perslid_key = rec.prs_perslid_key
+           AND rec.aantal = 1;
       END;
    END LOOP;
    
    FOR rec IN c_auth_directie
    LOOP
-      BEGIN
-         INSERT INTO FAC_GEBRUIKERSGROEP (prs_perslid_key, fac_groep_key)
-             VALUES (rec.prs_perslid_key, 25);
+   BEGIN          
+  -- Nog geen bestaand persoon? Dan record toevoegen
+   IF rec.aantal = 0 
+   THEN
+   INSERT INTO FAC_GEBRUIKERSGROEP (prs_perslid_key, fac_groep_key)
+        VALUES (rec.prs_perslid_key, 25);
+   END IF;      
+
+    -- Persoon heeft nu 1 autorisatiegroep? Dan wordt deze vervangen door de AD import   
+        UPDATE FAC_GEBRUIKERSGROEP
+           SET fac_groep_key = 25
+         WHERE prs_perslid_key = rec.prs_perslid_key
+           AND rec.aantal = 1;
       END;
    END LOOP;
    
    FOR rec IN c_auth_fmbackoffice
    LOOP
-      BEGIN
-         INSERT INTO FAC_GEBRUIKERSGROEP (prs_perslid_key, fac_groep_key)
-             VALUES (rec.prs_perslid_key, 26);
+   BEGIN          
+  -- Nog geen bestaand persoon? Dan record toevoegen
+   IF rec.aantal = 0 
+   THEN
+   INSERT INTO FAC_GEBRUIKERSGROEP (prs_perslid_key, fac_groep_key)
+        VALUES (rec.prs_perslid_key, 26);
+   END IF;      
+
+    -- Persoon heeft nu 1 autorisatiegroep? Dan wordt deze vervangen door de AD import   
+        UPDATE FAC_GEBRUIKERSGROEP
+           SET fac_groep_key = 26
+         WHERE prs_perslid_key = rec.prs_perslid_key
+           AND rec.aantal = 1;
       END;
    END LOOP;
    
    FOR rec IN c_auth_ictbackoffice
    LOOP
-      BEGIN
-         INSERT INTO FAC_GEBRUIKERSGROEP (prs_perslid_key, fac_groep_key)
-             VALUES (rec.prs_perslid_key, 41);
+   BEGIN          
+  -- Nog geen bestaand persoon? Dan record toevoegen
+   IF rec.aantal = 0 
+   THEN
+   INSERT INTO FAC_GEBRUIKERSGROEP (prs_perslid_key, fac_groep_key)
+        VALUES (rec.prs_perslid_key, 41);
+   END IF;      
+
+    -- Persoon heeft nu 1 autorisatiegroep? Dan wordt deze vervangen door de AD import   
+        UPDATE FAC_GEBRUIKERSGROEP
+           SET fac_groep_key = 41
+         WHERE prs_perslid_key = rec.prs_perslid_key
+           AND rec.aantal = 1;
       END;
    END LOOP;