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

FSN#26947 perslidwerkplek_verwijder en werkplek_verwijder vervallen

Browse Source 
svn path=/Database/trunk/; revision=19016
This commit is contained in:
Peter Feij
2013-09-06 16:03:27 +00:00
parent 51ef63955b
commit 9949fdf9bc
15 changed files with 103 additions and 149 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
PRJ/PRJ_PAC.SRC
View File

@@ -145,8 +145,7 @@ AS
AND v.alg_verdieping_key = r.alg_verdieping_key
AND w.prs_alg_ruimte_key = r.alg_ruimte_key
AND w.prs_alg_ruimte_key = parent_key
AND w.prs_werkplek_volgnr = TO_NUMBER (element_omschrijving)
AND w.prs_werkplek_verwijder IS NULL;
AND w.prs_werkplek_volgnr = TO_NUMBER (element_omschrijving);
-- Gevonden, dus niet uniek. Probeer het met een sterretje ervoor, passen ze dat later maar zelf aan
IF TO_NUMBER (element_omschrijving) = 999
THEN
@@ -290,7 +289,6 @@ AS
prs_werkplek_dwgrotatie, prs_werkplek_dwgschaal
FROM prs_werkplek w, prj_ruimte rx
WHERE w.prs_alg_ruimte_key = rx.alg_ruimte_key
AND w.prs_werkplek_verwijder IS NULL
AND w.prs_werkplek_virtueel = 0
AND rx.prj_scenario_key = pscenariokey
AND rx.alg_verdieping_key = pverdiepingkey;
@@ -303,7 +301,6 @@ AS
wx.prj_werkplek_key, pw.prs_perslidwerkplek_bezetting
FROM prs_perslidwerkplek pw, prj_werkplek wx, prj_ruimte rx
WHERE pw.prs_werkplek_key = wx.prs_werkplek_key
AND pw.prs_perslidwerkplek_verwijder IS NULL
AND rx.prj_scenario_key = pscenariokey
AND pw.prs_perslid_key IS NOT NULL
AND wx.prj_ruimte_key = rx.prj_ruimte_key
@@ -350,7 +347,7 @@ AS
SELECT NULL, ins_deel_key, rx.prj_ruimte_key, wx.prj_werkplek_key, ins_deel_omschrijving, d.ins_srtdeel_key,
ins_deel_dwgx, ins_deel_dwgy,
ins_deel_dwgrotatie, ins_deel_dwgschaal
FROM ins_deel d, alg_v_aanwezigruimte r, prs_v_aanwezigwerkplek w, prj_ruimte rx, prj_werkplek wx
FROM ins_deel d, alg_v_aanwezigruimte r, prs_werkplek w, prj_ruimte rx, prj_werkplek wx
WHERE d.ins_alg_ruimte_type = 'W'
AND d.ins_alg_ruimte_key = w.prs_werkplek_key
AND w.prs_alg_ruimte_key = r.alg_ruimte_key
@@ -937,7 +934,7 @@ AS
UPDATE prj_werkplek wx
SET prs_werkplek_key =
(SELECT prs_werkplek_key
FROM prs_v_aanwezigwerkplek w
FROM prs_werkplek w
WHERE w.prs_werkplek_volgnr = werkplek_nr
AND w.prs_alg_ruimte_key = v_werkplek.alg_ruimte_key)
WHERE prj_werkplek_key = v_werkplek.prj_werkplek_key;
@@ -1133,8 +1130,7 @@ AS
prs_werkplek_dwgy = cr.prj_werkplek_dwgy,
prs_werkplek_dwgrotatie = cr.prj_werkplek_dwgrotatie,
prs_werkplek_dwgschaal = cr.prj_werkplek_dwgschaal
WHERE r.prs_werkplek_verwijder IS NULL
AND r.prs_werkplek_key = cr.prs_werkplek_key;
WHERE r.prs_werkplek_key = cr.prs_werkplek_key;
END LOOP;
-- Bestaande perslidwerkplekken aanpassen
FOR cr IN perslidwerkplek_updates (pscenariokey)
@@ -1144,8 +1140,7 @@ AS
prs_perslid_key = cr.prs_perslid_key,
prs_perslidwerkplek_bezetting =
cr.prj_perslidwerkplek_bezetting
WHERE r.prs_perslidwerkplek_verwijder IS NULL
AND r.prs_perslidwerkplek_key = cr.prs_perslidwerkplek_key;
WHERE r.prs_perslidwerkplek_key = cr.prs_perslidwerkplek_key;
END LOOP;
-- Bestaande ruimteafdelingen aanpassen
FOR cr IN ruimteafdeling_updates (pscenariokey)
@@ -1162,6 +1157,12 @@ AS
PROCEDURE prj_commit_deletions (pscenariokey IN NUMBER)
AS
BEGIN
-- PF: NIEMAND HEEFT HET ER OVER, MAAR ALS IK DIT ZO LEES DAN
-- GAAT DIR VERSCHRIKKELIJK ANDERS DAN DAT ER BEOOGD WORDT.
-- VOLGENS MIJ WORDT HIER ALLES-OF-NIKS WEGGEGOOID!!
-- De Deletes hieronder lijkt me meer de richting
-- Vervallen ruimtes laten vervallen
UPDATE alg_ruimte r
SET alg_ruimte_verwijder =
@@ -1173,31 +1174,26 @@ AS
AND rx.prj_scenario_key = pscenariokey)
WHERE r.alg_ruimte_verwijder IS NULL;
-- Vervallen werkplekken laten vervallen
UPDATE prs_werkplek p
SET prs_werkplek_verwijder =
(SELECT SYSDATE
FROM prj_werkplek pw, prj_ruimte rx
WHERE pw.prj_ruimte_key = rx.prj_ruimte_key
AND pw.prs_werkplek_key = p.prs_werkplek_key
AND pw.prj_werkplek_verwijder IS NOT NULL
AND pw.prs_werkplek_key IS NOT NULL
AND rx.prj_scenario_key = pscenariokey)
WHERE p.prs_werkplek_verwijder IS NULL;
-- Vervallen perslidwerkplekken laten vervallen
UPDATE prs_perslidwerkplek p
SET prs_perslidwerkplek_verwijder =
(SELECT SYSDATE
DELETE FROM prs_werkplek p
WHERE p.prs_werkplek_key IN
(SELECT pw.prs_werkplek_key
FROM prj_werkplek pw, prj_ruimte rx
WHERE pw.prj_ruimte_key = rx.prj_ruimte_key
AND pw.prj_werkplek_verwijder IS NOT NULL
AND pw.prs_werkplek_key IS NOT NULL
AND rx.prj_scenario_key = pscenariokey);
-- Vervallen perslidwerkplekken verwijderen
DELETE FROM prs_perslidwerkplek p
WHERE p.prs_perslidwerkplek_key IN
(SELECT ppw.prs_perslidwerkplek_key
FROM prj_perslidwerkplek ppw,
prj_werkplek pw,
prj_ruimte rx
WHERE ppw.prj_werkplek_key = pw.prj_werkplek_key
AND pw.prj_ruimte_key = rx.prj_ruimte_key
AND ppw.prs_perslidwerkplek_key =
p.prs_perslidwerkplek_key
AND ppw.prj_perslidwerkplek_verwijder IS NOT NULL
AND ppw.prs_perslidwerkplek_key IS NOT NULL
AND rx.prj_scenario_key = pscenariokey)
WHERE p.prs_perslidwerkplek_verwijder IS NULL;
AND rx.prj_scenario_key = pscenariokey);
-- Vervallen ruimteafdelingen laten vervallen
UPDATE prs_ruimteafdeling p
SET prs_ruimteafdeling_verwijder =

10
PRJ/PRJ_VIE.SRC
View File

@@ -87,7 +87,7 @@ AS
-- Insert is: toevoegen aan oude situatie
CREATE_TRIGGER(prj_t_cad_thema_afdeling_i_iu)
INSTEAD OF INSERT OR UPDATE
ON prj_v_cad_thema_afdeling
ON prj_v_cad_thema_afdeling
BEGIN
IF UPDATING -- oude weggooien
THEN
@@ -166,7 +166,7 @@ AS
prj_ruimte prj_zoek,
(SELECT prs_w.prs_werkplek_key, prs_w.prs_werkplek_volgnr, prs_pw.prs_perslidwerkplek_key,
prs_w.prs_alg_ruimte_key alg_ruimte_key, prs_p.prs_afdeling_key, prs_pw.prs_perslid_key
FROM prs_v_aanwezigwerkplek prs_w, prs_v_aanwezigperslidwerkplek prs_pw, prs_perslid prs_p
FROM prs_werkplek prs_w, prs_perslidwerkplek prs_pw, prs_perslid prs_p
WHERE prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key
AND prs_pw.prs_perslid_key IS NOT NULL
AND prs_pw.prs_perslid_key = prs_p.prs_perslid_key
@@ -174,7 +174,7 @@ AS
UNION ALL
SELECT prs_w.prs_werkplek_key, prs_w.prs_werkplek_volgnr, TO_NUMBER (NULL), prs_w.prs_alg_ruimte_key,
TO_NUMBER (NULL), TO_NUMBER (NULL)
FROM prs_v_aanwezigwerkplek prs_w, prs_v_werkplek_bezetting prs_wb
FROM prs_werkplek prs_w, prs_v_werkplek_bezetting prs_wb
WHERE prs_w.prs_werkplek_key = prs_wb.prs_werkplek_key
AND prs_w.prs_werkplek_virtueel = 0
AND prs_wb.prs_werkplek_bezetting < 100) algprs
@@ -415,8 +415,8 @@ AS
rx.alg_ruimte_key, rx.prj_ruimte_key, wx.prs_werkplek_key, wx.prj_werkplek_key
FROM prs_v_aanwezigperslid p,
prs_v_afdeling d,
prs_v_aanwezigwerkplek w,
prs_v_aanwezigperslidwerkplek pwp,
prs_werkplek w,
prs_perslidwerkplek pwp,
prj_werkplek wx,
prj_perslidwerkplek pwpx,
prj_ruimte rx