SGGR#86561 Opleveren WD personenimport op productie

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

SGGR/sggr.sql

@@ -3999,14 +3999,14 @@ AS
 BEGIN
     prs.import_perslid (
         p_import_key,
-           '0;0;0;0;0;0;10;3;0;2;'
+           '0;0;0;0;0;0;6;3;0;2;'
         || '0;0;0;0;0;0;0;5;0;4;'
         || '7;0;0;0;0;0;0;0;0;0;'
         || '0;0;0;0;0;0;0;0;0;0;'
         || '0;0;0;6;10;9',
         --'Worker;Employee_ID;Email_Addres;isManager;businessTitle;Company;Manager_ID;name%'
-        'Worker,firstName,lastName,Employee_ID,Email_Address,isManager,businessTitle,Company,Manager_ID,name%');
-
+        'Worker:firstName:lastName:Employee_Id:Email_Address:isManager:businessTitle:Company:Manager_ID:name%');
+       
     UPDATE fac_imp_perslid i
        SET i.prs_perslid_email =
                (SELECT    REPLACE (SUBSTR (REGEXP_SUBSTR (p.prs_perslid_email,
@@ -4079,7 +4079,9 @@ BEGIN
       INTO v_count_prs_actual
       FROM prs_v_aanwezigperslid
      WHERE prs_perslid_oslogin IS NOT NULL;
-
+    
+    /*
+    We zetten dit even uit ivm de grote achterstand in oude accounts
     IF (TRUNC ((v_count_prs_import / v_count_prs_actual) * 100) < (100 - c_max_delta_percentage))
     THEN
         fac.imp_writelog (
@@ -4101,18 +4103,28 @@ BEGIN
             || ']');
 
         RETURN;
-    END IF;
-    
+     END IF;    
+    */
+        
     -- Generieke update.
-    prs.update_perslid (p_import_key, 'EMAIL', 'D');
-
+    prs.update_perslid (p_import_key, 'EMAIL', NULL);
+   
     -- Verwijder personen die niet meer in de import voorkomen.
     FOR rec IN c_del
     LOOP
         prs.delete_perslid (p_import_key, rec.prs_perslid_key);
     END LOOP;
-
-
+    
+    -- Bijwerken manager
+    UPDATE prs_perslid p
+       SET p.prs_perslid_key_verantw =
+               (SELECT mgr.prs_perslid_key
+                  FROM fac_imp_perslid i, prs_perslid mgr
+                 WHERE mgr.prs_perslid_nr = i.prs_kenmerk20 
+                 AND p.prs_perslid_key = i.prs_perslid_key
+                 AND ( p.prs_perslid_key_verantw <>  mgr.prs_perslid_key
+                        OR p.prs_perslid_key_verantw IS NULL));
+                        
 END sggr_update_perslid_wd;
 /