WEND#67092 -- AD-koppeling - definitieve opzet

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

WEND/wend.sql

@@ -32,28 +32,31 @@ AS
    v_aantal_in_fclt   NUMBER;
 BEGIN
    -- Het aangeleverde bestand heeft de gegevens komma gescheiden ipv ;
-   -- v_errorhint := 'Delimiter goed zetten';
+   v_errorhint := 'Delimiter goed zetten';
-   -- UPDATE fac_imp_file
+   UPDATE fac_imp_file
-   --   SET fac_imp_file_line = REPLACE (fac_imp_file_line, ',', ';')
+      SET fac_imp_file_line = REPLACE (fac_imp_file_line, ',', ';')
-   --  WHERE fac_import_key = p_import_key;
+    WHERE fac_import_key = p_import_key;
+
+   -- Het aangeleverde bestand heeft aanhalingstekens om de invoervelden.. LOOPT JE DAT VOOR DE VOETEN TIJDENS IMPORT?!?
+   UPDATE fac_imp_file
+      SET fac_imp_file_line = REPLACE (fac_imp_file_line, '"', '')
+    WHERE fac_import_key = p_import_key;
+
 
    v_errorhint := 'Generieke update';
    -- de sequence array staat beschreven in PRS_PAC.SRC bij de prs.import_perslid procedure
    -- Afdeling (nr7) tijdelijk ook gevuld met achternaam (wordt later altijd Wendergroep) - WANT bij import verplicht veld en anders komt dit record dus niet door de IMPORT!
    -- Login (nr 22) wordt bij de import nog wel uit het bestand gehaald 3e kolom, maar later omgezet naar emailadres. 
-   -- Let op, tov het daadwerkelijke bestand staat hieronder ; ipv ,
-   -- LET OP - KENMERK1 VOOR TEST GEVULD MET KOLOM 6. ECHTER DEZE KOLOM ZAL WAARSCHIJNLIJK NIET IN PRODUCTIEBESTAND ZITTEN! 
    prs.import_perslid (
       p_import_key,
          '0;0;0;0;0;0;2;2;0;1;'
       || '0;0;0;0;0;0;0;5;0;0;'
-      || '2;3;0;0;0;0;6;0;0;4;'
+      || '2;3;0;0;0;0;0;0;0;4;'
       || '0;0;0;0;0;0;0;0;0;0;'
       || '0;0;0;0;0;0',
-      '"First Name;Last Name;User Logon Name;Job Title;E-Mail Address;Pre-Windows 2000 Logon Name;"');
+      'GivenName;Surname;UserPrincipalName;Title;EmailAddress%');
-      
       -- WAS bij MARE:  '"Firstname;LastName;Login;JobTitle;EmailAdress;"');
-      -- IS bij WEND :  First Name;Last Name;User Logon Name;Job Title;E-Mail Address;Pre-Windows 2000 Logon Name
+      -- DEF. BESTAND bij WEND : "GivenName","Surname","UserPrincipalName","Title","EmailAddress"
 
    -- Afdeling bepalen
    UPDATE fac_imp_perslid
@@ -103,23 +106,24 @@ IS
       SELECT p.prs_perslid_key, p.prs_perslid_nr, pf.prs_perslid_naam_full
         FROM prs_perslid p, prs_v_perslid_fullnames pf
        WHERE UPPER (p.prs_perslid_email) LIKE '%WENDER.NL%'       
-             AND UPPER (p.prs_perslid_email) NOT IN
+             AND NOT EXISTS (SELECT * FROM fac_imp_perslid WHERE UPPER (prs_perslid_email) = UPPER (p.prs_perslid_email) ) 
-                      (SELECT UPPER (prs_perslid_email) FROM fac_imp_perslid)
              AND pf.prs_perslid_key = p.prs_perslid_key;
 
+   /*
    CURSOR c_flex -- Voor updaten van de algemene flex-kenmerkvelden
    IS
         SELECT p.prs_perslid_key, p.prs_perslid_email, i.prs_perslid_partner_naam, i.prs_kenmerk1, i.prs_kenmerk2, i.prs_kenmerk3
           FROM prs_v_aanwezigperslid p, fac_imp_perslid i
          WHERE p.prs_perslid_email = i.prs_perslid_email
       ORDER BY 2;
+   */
              
-
    v_count          NUMBER;
    oracle_err_num   NUMBER;
    oracle_err_mes   VARCHAR2 (200);
    v_errormsg       VARCHAR2 (400);
    v_errorhint      VARCHAR2 (400);
+
 BEGIN
    v_errorhint := 'Niet genoeg personen in bestand, import afgebroken';
 
@@ -133,10 +137,6 @@ BEGIN
 
       COMMIT;
 
-      -- Eerst de functie omzetten.  -- MOET DEZE ER NOG WEL IN !!!! NIET LIJKT MIJ!!!
-      -- UPDATE fac_imp_perslid
-      --   SET prs_srtperslid_omschrijving = COALESCE (prs_kenmerk4, 'Onbekend');
-
       -- generic update
       -- 'EMAIL' betekent dat op basis van Email wordt gematched.
       -- 'NULL' betekent altijd geen werkplekken verwijderen
@@ -152,6 +152,7 @@ BEGIN
          END;
       END LOOP;
       
+      /*
       FOR rec IN c_flex
       LOOP
          BEGIN
@@ -159,6 +160,7 @@ BEGIN
             PRS.upsertkenmerk (1000, rec.prs_perslid_key, rec.prs_kenmerk1); -- Pre-Windows 2000 Logon Name
          END;
       END LOOP;
+      */
       
    ELSE
       fac.imp_writelog (p_import_key,