AAXX#66185 -- Oncescript om in personenkaart de adresgegevens gevuld te krijgen voor alle klanten van de Kreek

svn path=/Customer/; revision=50505

onces/AA/INLO/INLO#66185.sql

@@ -30,11 +30,13 @@ DECLARE
     v_aanduiding     VARCHAR (100);
     v_count          NUMBER;
     v_count_import   NUMBER (10);
-    v_prs_kenmerklink_key NUMBER(10);
 
     CURSOR c
     IS
+    SELECT v.prs_perslid_key, max(v.prs_perslid_email) prs_perslid_email, max(v.adresgegevens) adresgegevens, max(prs_kenmerklink_key) prs_kenmerklink_key, count(*) aantal
+    FROM(
     SELECT p.prs_perslid_key,
+           p.prs_perslid_email,
            b.prs_bedrijf_naam
            || CHR (13)
            || CHR (10)
@@ -61,13 +63,13 @@ DECLARE
          AND prs_bedrijf_contract = 1
          AND prs_bedrijf_uitvoerende IS NULL
          AND p.prs_perslid_verwijder IS NULL
-         AND b.prs_bedrijf_verwijder IS NULL;
+         AND b.prs_bedrijf_verwijder IS NULL) v
+         GROUP BY v.prs_perslid_key ;
 
 BEGIN
 
     FOR rec IN c
     LOOP
-        v_prs_kenmerklink_key := rec.prs_kenmerklink_key ;
 
         -- kenmerkveld adresgegevens nog niet aangemaakt
         IF rec.prs_kenmerklink_key IS NULL THEN
@@ -82,15 +84,6 @@ BEGIN
                        'P') ;
          COMMIT;
 
-/*             ELSE IF
-               
-               UPDATE prs_kenmerklink
-                  SET prs_kenmerklink_waarde = rec.adresgegevens
-                WHERE prs_kenmerklink_key = rec.prs_kenmerklink_key ;
-                COMMIT;          
-        
-             END IF;
-*/
 
         END IF;