ZLMV#76512 -- Inrichting ZLM Verzekeringen

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

ZLMV/ZLMV.sql

@@ -44,6 +44,7 @@ AS
    
    v_header   NUMBER:=0;
    v_afdeling_code  VARCHAR2(15);
+   v_functie  VARCHAR2(60);
 BEGIN
       v_header :=0;
       DELETE FROM fac_imp_perslid;
@@ -64,9 +65,14 @@ BEGIN
                WHERE UPPER(prs_afdeling_omschrijving)=UPPER(rec.prs_afdeling);             
              EXCEPTION
              WHEN NO_DATA_FOUND THEN
-              v_afdeling_code:='Onbekend';
-              
+              v_afdeling_code:='Onbekend';              
              END;
+             
+             IF length(rec.prs_titel)>1 THEN
+                v_functie:=rec.prs_titel;
+             ELSE     
+                v_functie:='Onbekend';
+             END IF;
              INSERT INTO fac_imp_perslid(fac_import_key,
                                          prs_afdeling_naam,
                                          prs_perslid_voornaam,
@@ -81,7 +87,7 @@ BEGIN
                                          rec.prs_tussenvoegsel,
                                          rec.prs_achternaam,
                                          rec.prs_email,
-                                         rec.prs_titel,
+                                         v_functie,
                                          rec.prs_email);
         END IF;
       END LOOP;