SUTF#90524 Importfunctie PRS werkt niet door databaseverschil

Eerst maar de grens opgehoogd, zodat de nieuwe accounts morgen wel zijn ingelezen.

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

SUTF/sutf.sql

@@ -60,6 +60,18 @@ IS
     c_max_delta_percentage   NUMBER (10) := 50;
     v_count_prs_actual       NUMBER (10);
     v_count_prs_import       NUMBER (10);          -- Matching actual persons!
+
+   CURSOR cdelprs
+   IS
+      SELECT p.prs_perslid_key, p.prs_perslid_nr, p.prs_perslid_naam,
+             p.prs_perslid_voornaam
+        FROM prs_v_aanwezigperslid p
+       WHERE p.prs_perslid_nr IS NOT NULL
+         AND NOT EXISTS (
+                SELECT 1
+                  FROM fac_imp_perslid ip
+                 WHERE ip.prs_perslid_nr = p.prs_perslid_nr);
+
 BEGIN
     SELECT DECODE (COUNT (*), 0, 1, COUNT (*))
       INTO v_count_prs_actual
@@ -77,6 +89,23 @@ BEGIN
          (100 - c_max_delta_percentage)))
     THEN
         -- Geldig importbestand wat betreft aantal personen
+        
+        -- Accounts met personeelsnummer die niet meer in het importbestand staan kunnen worden geinactiveerd        
+        v_errorhint := 'Inactiveren personen';
+        FOR rec IN cdelprs
+        LOOP
+            v_errorhint :=
+                   '[Inactiveren account '
+                || TO_CHAR (rec.prs_perslid_key)
+                || '|'
+                || rec.prs_perslid_nr
+                || '] ';
+
+            UPDATE prs_perslid
+               SET prs_perslid_inactief = SYSDATE
+             WHERE prs_perslid_key = rec.prs_perslid_key;
+        END LOOP;             
+
         v_errorhint := 'Toevoegen personen';
         prs.update_perslid (p_import_key, 'NR', NULL);
     ELSE