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

BRCF#88661 -- Werkplektoekenning alleen voor personen zonder werkplek

Browse Source 
svn path=/Customer/trunk/; revision=70508
This commit is contained in:
Robin Stoker
2025-10-02 14:41:32 +00:00
parent 430e144132
commit 85ac2d2de2
1 changed files with 9 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
BRCF/brcf.sql
View File

@@ -340,6 +340,7 @@ BEGIN
END; END;
/ /
-- Toekennen van een werkplek alleen voor personen die nog helemaal geen werkplek hebben
CREATE OR REPLACE PROCEDURE brcf_wp_toekenning CREATE OR REPLACE PROCEDURE brcf_wp_toekenning
AS AS
CURSOR c1 CURSOR c1
@@ -361,10 +362,8 @@ AS
AND r.alg_ruimte_upper_nr = '_' AND r.alg_ruimte_upper_nr = '_'
AND NOT EXISTS AND NOT EXISTS
(SELECT 'x' (SELECT 'x'
FROM prs_werkplek pw, prs_perslidwerkplek ppw FROM prs_perslidwerkplek ppw
WHERE p.prs_perslid_key = ppw.prs_perslid_key WHERE p.prs_perslid_key = ppw.prs_perslid_key)
AND ppw.prs_werkplek_key = pw.prs_werkplek_key
AND pw.prs_alg_ruimte_key = r.alg_ruimte_key)
UNION ALL UNION ALL
SELECT p.prs_perslid_key, pk.prs_kostenplaats_nr, r.alg_ruimte_key SELECT p.prs_perslid_key, pk.prs_kostenplaats_nr, r.alg_ruimte_key
@@ -385,10 +384,8 @@ AS
AND p.prs_perslid_apikey IS NULL AND p.prs_perslid_apikey IS NULL
AND NOT EXISTS AND NOT EXISTS
(SELECT 'x' (SELECT 'x'
FROM prs_werkplek pw, prs_perslidwerkplek ppw FROM prs_perslidwerkplek ppw
WHERE p.prs_perslid_key = ppw.prs_perslid_key WHERE p.prs_perslid_key = ppw.prs_perslid_key)
AND ppw.prs_werkplek_key = pw.prs_werkplek_key
AND pw.prs_alg_ruimte_key = r.alg_ruimte_key)
UNION ALL UNION ALL
SELECT p.prs_perslid_key, pk.prs_kostenplaats_nr, r.alg_ruimte_key SELECT p.prs_perslid_key, pk.prs_kostenplaats_nr, r.alg_ruimte_key
FROM prs_perslid p, FROM prs_perslid p,
@@ -405,10 +402,8 @@ AS
AND p.prs_perslid_apikey IS NULL AND p.prs_perslid_apikey IS NULL
AND NOT EXISTS AND NOT EXISTS
(SELECT 'x' (SELECT 'x'
FROM prs_werkplek pw, prs_perslidwerkplek ppw FROM prs_perslidwerkplek ppw
WHERE p.prs_perslid_key = ppw.prs_perslid_key WHERE p.prs_perslid_key = ppw.prs_perslid_key)
AND ppw.prs_werkplek_key = pw.prs_werkplek_key
AND pw.prs_alg_ruimte_key = r.alg_ruimte_key)
UNION ALL UNION ALL
SELECT p.prs_perslid_key, pk.prs_kostenplaats_nr, r.alg_ruimte_key SELECT p.prs_perslid_key, pk.prs_kostenplaats_nr, r.alg_ruimte_key
FROM prs_perslid p, FROM prs_perslid p,
@@ -425,10 +420,8 @@ AS
AND p.prs_perslid_apikey IS NULL AND p.prs_perslid_apikey IS NULL
AND NOT EXISTS AND NOT EXISTS
(SELECT 'x' (SELECT 'x'
FROM prs_werkplek pw, prs_perslidwerkplek ppw FROM prs_perslidwerkplek ppw
WHERE p.prs_perslid_key = ppw.prs_perslid_key WHERE p.prs_perslid_key = ppw.prs_perslid_key);
AND ppw.prs_werkplek_key = pw.prs_werkplek_key
AND pw.prs_alg_ruimte_key = r.alg_ruimte_key);
BEGIN BEGIN
FOR rec IN c1 FOR rec IN c1
LOOP LOOP