ZLMV#76512 -- Inrichting ZLM Verzekeringen

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

ZLMV/ZLMV.sql

@@ -92,9 +92,22 @@ END;
 
 CREATE OR REPLACE PROCEDURE ZLMV_UPDATE_IMPPERSLID(p_import_key IN NUMBER)
 AS
-  v_date DATE;
+  CURSOR p_del
+  IS
+     SELECT * 
+       FROM prs_perslid p             
+      WHERE p.prs_perslid_verwijder IS NULL
+        AND p.prs_perslid_email NOT IN (SELECT prs_perslid_email 
+                                          FROM fac_imp_perslid);
+  
 BEGIN
   prs.update_perslid (p_import_key, 'EMAIL', 'A', 1);
+  
+  FOR rec IN p_del
+   LOOP
+      prs.delete_perslid (p_import_key, rec.prs_perslid_key);
+   END LOOP;
+   
 END;
 /