LOGI#74942 Telefoonnummer valt weg

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

LOGI/logi.sql

@@ -419,6 +419,23 @@ AS
                      UPPER (lp.prs_perslid_oslogin(+))
                  AND lp.prs_perslid_oslogin IS NULL
         ORDER BY 2, 1;
+    
+    -- LOGI#74942 Telefoonnummer valt weg
+    -- Als het telefoonnummer handmatig is ingevoerd mag deze niet overschreven worden
+    -- Omdat e-mail het identificerende attribuut is gebruik ik die hier om het juiste telefoonnummer te bepalen    
+    CURSOR c_prs_telnr 
+    IS
+        SELECT p.prs_perslid_email,
+               p.prs_perslid_mobiel,
+               p.prs_perslid_telefoonnr
+          FROM prs_perslid  p,
+               (SELECT prs_perslid_email
+                  FROM fac_imp_perslid
+                 WHERE prs_perslid_email IS NOT NULL) ip
+         WHERE     UPPER (ip.prs_perslid_email) = UPPER (p.prs_perslid_email)
+               AND (   p.prs_perslid_mobiel IS NOT NULL
+                    OR p.prs_perslid_telefoonnr IS NOT NULL);   
+                    
 BEGIN
     SELECT COUNT ( * ) INTO v_count FROM fac_imp_perslid;
 
@@ -434,7 +451,22 @@ BEGIN
           prs.delete_perslid (p_import_key, rec.prs_perslid_key);
        END;
     END LOOP;
-
+    
+    FOR rec in c_prs_telnr
+    LOOP
+        BEGIN
+          
+            UPDATE fac_imp_perslid i
+               SET i.prs_perslid_mobiel = rec.prs_perslid_mobiel,
+                   i.prs_perslid_telefoonnr = rec.prs_perslid_telefoonnr
+             WHERE i.prs_perslid_email = rec.prs_perslid_email;
+            
+        COMMIT;
+        
+        END;
+    END LOOP;        
+            
+    
     -- 'Email' betekent dat op basis van Email wordt gematched.
     prs.update_perslid (p_import_key, 'EMAIL', NULL);
     COMMIT;