admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

WEND#67092 -- AD-koppeling - definitieve opzet

Browse Source 
svn path=/Customer/trunk/; revision=51987
This commit is contained in:
Jos Migo
2021-06-17 15:04:36 +00:00
parent c1118cfba1
commit 6ce356f7e5
1 changed files with 19 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
WEND/wend.sql
View File

@@ -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,