VENR#59013 -- Verwijderen van personen toevoegen aan de koppeling

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

VENR/venr.sql

@@ -3738,6 +3738,8 @@ BEGIN
        SET prs_perslid_oslogin = UPPER(prs_perslid_oslogin),
            prs_afdeling_naam = 'YASK';
 
+    DELETE fac_imp_perslid
+     WHERE prs_perslid_oslogin IS NULL;
 END;
 /
 
@@ -3753,7 +3755,24 @@ IS
                           FROM prs_perslidwerkplek pwp
                          WHERE pwp.prs_perslid_key = p.prs_perslid_key);
 
+    CURSOR c_del IS
+        SELECT prs_perslid_key
+          FROM prs_perslid p
+         WHERE     prs_afdeling_key = 1861                                     -- Yask
+               AND SUBSTR (COALESCE (prs_perslid_oslogin, 'Que'), 1, 1) <> '_'
+               AND prs_perslid_verwijder IS NULL                              -- Persoon was al niet verwijderd.
+               AND COALESCE (prs_perslid_login, SYSDATE - 300) < SYSDATE - 60 -- Persoon is twee maanden niet ingelogd geweest
+               AND NOT EXISTS
+                       (SELECT i.prs_perslid_oslogin
+                          FROM fac_imp_perslid i
+                         WHERE i.prs_perslid_oslogin = p.prs_perslid_oslogin);
+
+   v_count NUMBER;
 BEGIN
+   SELECT count(*)
+     INTO v_count
+     FROM fac_imp_perslid;
+
    prs.update_perslid (p_import_key, 'LOGIN', NULL);
 
    -- autorisatiegroep koppelen 1501 Yask medewerker meldingen
@@ -3774,6 +3793,15 @@ BEGIN
                         NULL,
                         1);
    END LOOP;
+
+   -- Oppassen dat we geen leeg bestand ontvangen hebben.
+   IF v_count > 100
+   THEN
+      FOR rec IN c_del
+      LOOP
+         prs.delete_perslid (p_import_key, rec.prs_perslid_key);
+      END LOOP;
+   END IF;
    COMMIT;
 END;
 /