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

FSN#26947 Opschonen gebruik perslidwerkplek/werkplek_verwijder

Browse Source 
svn path=/Customer/trunk/; revision=19046
This commit is contained in:
Maarten van der Heide
2013-09-10 14:01:03 +00:00
parent 5b1604c6c6
commit 1b0eaf03e4
12 changed files with 78 additions and 153 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
ALLV/allv.sql
View File

@@ -793,7 +793,7 @@ IS
AND p.prs_perslid_naam NOT LIKE c_persoon_inactief || '%'
AND NOT EXISTS
(SELECT 1
FROM prs_v_aanwezigperslidwerkplek pw
FROM prs_perslidwerkplek pw
WHERE pw.prs_perslid_key = p.prs_perslid_key);
-- Alle aanwezige personen met nummer (ie. de import-doelgroep) niet in een groep
@@ -1319,7 +1319,7 @@ BEGIN
SELECT COUNT ( * )
INTO v_count
FROM prs_v_aanwezigperslidwerkplek pw,
FROM prs_perslidwerkplek pw,
prs_werkplek w,
alg_ruimte r,
alg_verdieping v
@@ -1338,7 +1338,7 @@ BEGIN
SELECT COUNT ( * )
INTO v_count
FROM prs_v_aanwezigperslidwerkplek pw, prs_werkplek w
FROM prs_perslidwerkplek pw, prs_werkplek w
WHERE pw.prs_perslid_key = v_perslid_key
AND pw.prs_werkplek_key = w.prs_werkplek_key
AND w.prs_alg_ruimte_key = v_ruimte_key;
@@ -1348,11 +1348,10 @@ BEGIN
v_errorhint :=
'Fout bij verwijderen oude werkplek(ken) in gebouw';
UPDATE prs_perslidwerkplek
SET prs_perslidwerkplek_verwijder = SYSDATE
DELETE FROM prs_perslidwerkplek
WHERE prs_perslidwerkplek_key IN
(SELECT pw.prs_perslidwerkplek_key
FROM prs_v_aanwezigperslidwerkplek pw,
FROM prs_perslidwerkplek pw,
prs_werkplek w,
alg_ruimte r,
alg_verdieping v
@@ -1371,11 +1370,11 @@ BEGIN
SELECT COUNT ( * )
INTO v_count
FROM prs_v_aanwezigwerkplek w
FROM prs_werkplek w
WHERE w.prs_alg_ruimte_key = v_ruimte_key
AND NOT EXISTS
(SELECT 1
FROM prs_v_aanwezigperslidwerkplek pw
FROM prs_perslidwerkplek pw
WHERE pw.prs_werkplek_key =
w.prs_werkplek_key);
@@ -1383,21 +1382,14 @@ BEGIN
THEN
SELECT MIN (w.prs_werkplek_key)
INTO v_wp_key
FROM prs_v_aanwezigwerkplek w
FROM prs_werkplek w
WHERE w.prs_alg_ruimte_key = v_ruimte_key
AND NOT EXISTS
(SELECT 1
FROM prs_v_aanwezigperslidwerkplek pw
FROM prs_perslidwerkplek pw
WHERE pw.prs_werkplek_key =
w.prs_werkplek_key);
-- Verwijder (keihard) de mogelijk eerder logisch verwijderde
-- koppeling tussen dezelfde persoon en werkplek!!!
DELETE FROM prs_perslidwerkplek pw
WHERE pw.prs_perslid_key = v_perslid_key
AND pw.prs_werkplek_key = v_wp_key
AND pw.prs_perslidwerkplek_verwijder IS NOT NULL;
v_errorhint :=
'Fout bij koppelen persoon aan vrije werkplek';