diff --git a/WEND/wend.sql b/WEND/wend.sql index 8997ad69f..aeb02cab5 100644 --- a/WEND/wend.sql +++ b/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'; - -- UPDATE fac_imp_file - -- SET fac_imp_file_line = REPLACE (fac_imp_file_line, ',', ';') - -- WHERE fac_import_key = p_import_key; + v_errorhint := 'Delimiter goed zetten'; + UPDATE fac_imp_file + SET fac_imp_file_line = REPLACE (fac_imp_file_line, ',', ';') + 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 - (SELECT UPPER (prs_perslid_email) FROM fac_imp_perslid) + AND NOT EXISTS (SELECT * FROM fac_imp_perslid WHERE UPPER (prs_perslid_email) = UPPER (p.prs_perslid_email) ) 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,