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

DENB#77146 PRS-import/Wijzigen WP van WXL-ers (op 14-6 en medio september)

Browse Source 
svn path=/Customer/trunk/; revision=60797
This commit is contained in:
Maarten van der Heide
2023-06-15 20:44:08 +00:00
parent 080eaa23fa
commit 1dc5941e55
1 changed files with 23 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
DENB/denb.sql
View File

@@ -707,6 +707,7 @@ IS
v_afdeling_key NUMBER (10);
v_perslid_key NUMBER (10);
v_kenmerklink_key NUMBER (10);
v_afdeling_oms VARCHAR2 (60);
v_district_key NUMBER (10);
v_gebouw_key NUMBER (10);
v_verdieping_key NUMBER (10);
@@ -1226,11 +1227,11 @@ BEGIN
|| '] ';
v_errorhint := 'Fout bij bepalen persoon';
SELECT p.prs_perslid_key, ab.prs_afdeling_key3 -- 741=301516000M=WXL/WERK&ONTW/GROEPSGEW WERKUITV en 742=301516100L=WXL/WERK&ONTW/GROEPSGEW WERKUITV
INTO v_perslid_key, v_afdeling_key
FROM prs_v_aanwezigperslid p, prs_v_afdeling_boom ab
SELECT p.prs_perslid_key, a.prs_afdeling_omschrijving -- Ter bepaling: LIKE 'WXL/WERK&ONTW/GROEPSGEW WERKUITV%'
INTO v_perslid_key, v_afdeling_oms
FROM prs_v_aanwezigperslid p, prs_afdeling a
WHERE UPPER (p.prs_perslid_nr) = UPPER (recwp.prs_perslid_nr)
AND p.prs_afdeling_key = ab.prs_afdeling_key;
AND p.prs_afdeling_key = a.prs_afdeling_key;
--v_district_key := NULL;
--v_gebouw_key := NULL;
@@ -1257,10 +1258,10 @@ BEGIN
v_gebouw_key := c_gebouw_key_anders;
ELSE
-- DENB#77146: Per 14-6-2023 krijgen WXL-ers een WP op WXLnieuw,
-- behalve WXL-ers onder afdeling
-- behalve WXL-ers onder afdelingen beginnend met
-- WXL/WERK&ONTW/GROEPSGEW WERKUITV (die behouden/
-- krijgen een WP op WXL)!
IF v_gebouw_key = 2541 AND v_afdeling_key NOT IN (741, 742) -- 741=301516000M=WXL/WERK&ONTW/GROEPSGEW WERKUITV en 742=301516100L=WXL/WERK&ONTW/GROEPSGEW WERKUITV
IF v_gebouw_key = 2541 AND v_afdeling_oms NOT LIKE 'WXL/WERK' || CHR (38) || 'ONTW/GROEPSGEW WERKUITV%'
THEN
v_gebouw_key := 4481; -- WXLnieuw
END IF;
@@ -1343,11 +1344,12 @@ BEGIN
PRS.movetoruimte (v_perslid_key, v_ruimte_key, 'G');
-- DENB#77146: Per 14-6-2023 krijgen WXL-ers een WP op WXLnieuw
-- en wordt een eventuele WP op WXL verwijderd,
-- behalve WXL-ers onder afdeling
-- en een eventuele WP op WXL wordt verwijderd,
-- behalve WXL-ers onder afdeling beginnend met
-- WXL/WERK&ONTW/GROEPSGEW WERKUITV (die behouden/
-- krijgen een WP op WXL) !
IF v_gebouw_key = 4481 AND v_afdeling_key NOT IN (741, 742) -- 741=301516000M=WXL/WERK&ONTW/GROEPSGEW WERKUITV en 742=301516100L=WXL/WERK&ONTW/GROEPSGEW WERKUITV
-- krijgen een WP op WXL en een eventuele WP op
-- WXLnieuw wordt verwijderd)!
IF v_gebouw_key = 4481 --AND v_afdeling_oms NOT LIKE 'WXL/WERK' || CHR (38) || 'ONTW/GROEPSGEW WERKUITV%'
THEN
DELETE FROM prs_perslidwerkplek pw
WHERE prs_perslid_key = v_perslid_key
@@ -1358,6 +1360,17 @@ BEGIN
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = 2541 -- WXL
AND wp.prs_werkplek_key = pw.prs_werkplek_key);
ELSIF v_gebouw_key = 2541 --AND v_afdeling_oms LIKE 'WXL/WERK' || CHR (38) || 'ONTW/GROEPSGEW WERKUITV%'
THEN
DELETE FROM prs_perslidwerkplek pw
WHERE prs_perslid_key = v_perslid_key
AND EXISTS
(SELECT 1
FROM prs_werkplek wp, alg_v_aanwezigruimte r, alg_verdieping v
WHERE wp.prs_alg_ruimte_key = r.alg_ruimte_key
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = 4481 -- WXLnieuw
AND wp.prs_werkplek_key = pw.prs_werkplek_key);
END IF;
END IF;
EXCEPTION