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

WZUV#57078 AFAS koppeling, personenimport

Browse Source 
svn path=/Customer/trunk/; revision=42201
This commit is contained in:
Suzan Wiegerinck
2019-04-22 06:42:13 +00:00
parent 7e6373daef
commit 68f86ba83c
1 changed files with 13 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
WZUV/WZUV.SQL
View File

@@ -40,6 +40,14 @@ BEGIN
COMMIT;
-- De os_login kan worden afgeleid vanuit het email adres
UPDATE FAC_IMP_PERSLID
SET prs_perslid_oslogin =
(TRIM(SUBSTR (prs_perslid_email,
1,
INSTR (prs_perslid_email, '@', 1) - 1)));
--- overbodige tekens uit het perslidnummer vewijderen
UPDATE FAC_IMP_PERSLID
SET prs_perslid_nr = TRIM (prs_perslid_nr);
@@ -48,32 +56,7 @@ BEGIN
UPDATE FAC_IMP_PERSLID
SET prs_perslid_nr = REPLACE (prs_perslid_nr, CHR (9));
--- De locatiecode kan uit de werklocatie (kenmerk5) gehaald worden
UPDATE FAC_IMP_PERSLID
SET alg_locatie_code =
(TRIM (
SUBSTR (prs_kenmerk5, 1, INSTR (prs_kenmerk5, '-', 1) - 1)));
-- Afwijkend hierin is het bedrijfsbureau en de flexpool, deze hebben een vaste locatie Epe
UPDATE FAC_IMP_PERSLID
SET alg_locatie_code = 'Epe'
WHERE prs_kenmerk5 IN ('Bedrijfsbureau', 'Flexpool');
-- Het gebouw kan worden herleid vanuit de werklocatie (kenmerk 5)
UPDATE FAC_IMP_PERSLID i
SET i.alg_gebouw_code =
(SELECT DISTINCT g.alg_gebouw_code
FROM alg_gebouw g
WHERE g.alg_gebouw_verwijder IS NULL
AND g.alg_gebouw_naam =
(TRIM(SUBSTR (i.prs_kenmerk5,
INSTR (i.prs_kenmerk5, '-', 1) + 1))));
-- Flexpoolers zetten we ook bij het bedrijfsbureau
UPDATE FAC_IMP_PERSLID i
SET i.alg_gebouw_code = 'BBE'
WHERE UPPER (i.prs_kenmerk6) LIKE '%FLEXPOOL%';
--- De afdelingnaam kan worden herleid worden obv de afdelingomschrijving
UPDATE FAC_IMP_PERSLID I
SET PRS_AFDELING_NAAM =
@@ -83,12 +66,7 @@ BEGIN
AND A.PRS_AFDELING_VERWIJDER IS NULL
AND A.PRS_KOSTENPLAATS_KEY IS NOT NULL);
-- De os_login kan worden afgeleid vanuit het email adres
UPDATE FAC_IMP_PERSLID
SET prs_perslid_oslogin =
(TRIM(SUBSTR (prs_perslid_email,
1,
INSTR (prs_perslid_email, '@', 1) - 1)));
COMMIT;
EXCEPTION
@@ -137,29 +115,15 @@ BEGIN
-- 'A' betekent altijd alle (andere/overige) werkplekken verwijderen
prs.update_perslid (p_import_key, 'LOGIN', NULL);
--- op basis van de locatie kunnen we de werklocatie invullen
UPDATE prs_perslid p
SET p.alg_onroerendgoed_keys =
(SELECT DISTINCT g.alg_gebouw_key
FROM alg_gebouw g, fac_imp_perslid i
WHERE g.alg_gebouw_code = i.alg_gebouw_code
AND i.prs_perslid_key = p.prs_perslid_key);
--- vervolgens kan het vastgoedtype bepaald worden
UPDATE prs_perslid p
SET p.alg_onroerendgoed_type =
(SELECT g.alg_type
FROM alg_v_allonrgoed_gegevens g
WHERE g.alg_onroerendgoed_keys = p.alg_onroerendgoed_keys);
-- Verwijder personen die niet meer in de import voorkomen.
-- Verwijder personen die niet meer in de import voorkomen.
FOR rec IN c_del
LOOP
BEGIN
prs.delete_perslid (p_import_key, rec.prs_perslid_key);
END;
END LOOP;
-- we zetten de werklocatie goed op basis van de locatie in de importtabel
END wzuv_update_perslid;
/