diff --git a/AKZA/AKZA.SQL b/AKZA/AKZA.SQL index e008de869..93f1203df 100644 --- a/AKZA/AKZA.SQL +++ b/AKZA/AKZA.SQL @@ -1005,8 +1005,6 @@ AS WHERE a.prs_afdeling_parentkey = e.prs_afdeling_key AND w.prs_alg_ruimte_key = r.alg_ruimte_key AND e.prs_afdeling_parentkey IS NULL - AND pw.prs_perslidwerkplek_verwijder IS NULL - AND w.prs_werkplek_verwijder IS NULL AND pw.prs_werkplek_key = w.prs_werkplek_key AND a.prs_afdeling_verwijder IS NULL AND a.prs_afdeling_naam = 'NIET VERH' @@ -1025,8 +1023,6 @@ AS WHERE a.prs_afdeling_parentkey = e.prs_afdeling_key AND w.prs_alg_ruimte_key = r.alg_ruimte_key AND e.prs_afdeling_parentkey IS NULL - AND pw.prs_perslidwerkplek_verwijder IS NULL - AND w.prs_werkplek_verwijder IS NULL AND pw.prs_werkplek_key = w.prs_werkplek_key AND a.prs_afdeling_verwijder IS NULL AND a.prs_afdeling_naam <> 'NIET VERH' @@ -1058,8 +1054,8 @@ SELECT r.alg_ruimte_key, COUNT (d.ins_deel_key) -- SUM (prs_perslidwerkplek_bezetting) "PRS_WERKPLEK_BEZETTING", -- SUM (DECODE (INSTR (prs_perslid_upper, 'LEEG'), 0, 0, 1)) "AANTAL_LEEG", -- SUM (DECODE (INSTR (prs_afdeling_upper, 'NIET VERH'), 0, 0, 1)) "ARNO" --- FROM prs_v_aanwezigperslidwerkplek pw, --- prs_v_aanwezigwerkplek w, +-- FROM prs_perslidwerkplek pw, +-- prs_werkplek w, -- prs_perslid p, -- prs_afdeling a -- WHERE p.prs_perslid_key = pw.prs_perslid_key @@ -1097,8 +1093,8 @@ AS SUM (COALESCE (prs_perslidwerkplek_bezetting, 0)) bezetting, a2.prs_afdeling_key FROM alg_v_aanwezigruimte ar, - prs_v_aanwezigwerkplek awp, - prs_v_aanwezigperslidwerkplek apwp, + prs_werkplek awp, + prs_perslidwerkplek apwp, prs_v_aanwezigperslid ap, prs_afdeling a1, prs_afdeling a2, @@ -1725,7 +1721,7 @@ SELECT g_outlet.ins_deel_key, MIN (wa.prs_afdeling_naam) huurder AND g_outlet.ins_srtdeel_key = 646 -- OUTLET AND wa.prs_werkplek_volgnr = NVL((SELECT MIN (prs_werkplek_volgnr) - FROM prs_v_aanwezigperslidwerkplek prs_pw, prs_werkplek prs_w + FROM prs_perslidwerkplek prs_pw, prs_werkplek prs_w WHERE g_outlet.ins_alg_ruimte_key = prs_w.prs_alg_ruimte_key AND prs_pw.prs_werkplek_key = prs_w.prs_werkplek_key),-1) GROUP BY g_outlet.ins_deel_key; @@ -5877,7 +5873,7 @@ SELECT pf.prs_perslid_key hide_f_key, FROM PRS_PERSLID p, prs_v_perslid_fullnames pf, prs_v_werkplek_gegevens w, - prs_v_aanwezigperslidwerkplek pw, + prs_perslidwerkplek pw, PRS_AFDELING d WHERE p.prs_afdeling_key = d.prs_afdeling_key AND p.prs_perslid_key = pf.prs_perslid_key @@ -5930,8 +5926,6 @@ AS prs_perslid p WHERE a.prs_afdeling_parentkey = e.prs_afdeling_key AND e.prs_afdeling_parentkey IS NULL - AND pw.prs_perslidwerkplek_verwijder IS NULL - AND w.prs_werkplek_verwijder IS NULL AND pw.prs_werkplek_key = w.prs_werkplek_key AND a.prs_afdeling_verwijder IS NULL AND a.prs_afdeling_naam = 'NIET VERH' @@ -5949,8 +5943,6 @@ AS prs_perslid p WHERE a.prs_afdeling_parentkey = e.prs_afdeling_key AND e.prs_afdeling_parentkey IS NULL - AND pw.prs_perslidwerkplek_verwijder IS NULL - AND w.prs_werkplek_verwijder IS NULL AND pw.prs_werkplek_key = w.prs_werkplek_key AND a.prs_afdeling_verwijder IS NULL AND a.prs_afdeling_naam <> 'NIET VERH' diff --git a/ALLI/alli.sql b/ALLI/alli.sql index 4cf6d4f1f..0159baa34 100644 --- a/ALLI/alli.sql +++ b/ALLI/alli.sql @@ -684,7 +684,7 @@ IS WHERE p.prs_perslid_nr IS NOT NULL 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 personeelsnummer (ie. de import-doelgroep) niet in een groep @@ -1256,7 +1256,7 @@ BEGIN SELECT COUNT (*) INTO v_count - FROM prs_v_aanwezigperslidwerkplek pw, + FROM prs_perslidwerkplek pw, prs_werkplek wp, alg_ruimte r, alg_verdieping v @@ -1308,7 +1308,7 @@ BEGIN 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); @@ -1320,17 +1320,10 @@ BEGIN 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'; diff --git a/ALLV/allv.sql b/ALLV/allv.sql index d4505ba74..12f32ba91 100644 --- a/ALLV/allv.sql +++ b/ALLV/allv.sql @@ -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'; diff --git a/ARAI/arai.sql b/ARAI/arai.sql index dc8b590e2..c61bb3266 100644 --- a/ARAI/arai.sql +++ b/ARAI/arai.sql @@ -572,7 +572,7 @@ IS WHERE p.prs_perslid_oslogin IS NOT NULL 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 login (ie. de import-doelgroep) niet in een autorisatiegroep diff --git a/ARBO/arbo.sql b/ARBO/arbo.sql index 64029241c..eda61f99e 100644 --- a/ARBO/arbo.sql +++ b/ARBO/arbo.sql @@ -806,7 +806,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 @@ -1343,7 +1343,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; @@ -1352,11 +1352,10 @@ BEGIN THEN v_errorhint := 'Fout bij verwijderen oude werkplek op locatie'; - 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, @@ -1382,7 +1381,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, @@ -1401,11 +1400,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); @@ -1413,21 +1412,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 (hard) 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'; @@ -1891,8 +1883,8 @@ AS alg_gebouw g, alg_verdieping v, alg_ruimte r, - prs_v_aanwezigwerkplek wp, - prs_v_aanwezigperslidwerkplek pw, + prs_werkplek wp, + prs_perslidwerkplek pw, fac_gebruikersgroep gg, fac_srtnotificatie sn WHERE x.alg_regio_key = d.alg_regio_key @@ -2018,8 +2010,8 @@ AS alg_gebouw g, alg_verdieping v, alg_ruimte r, - prs_v_aanwezigwerkplek wp, - prs_v_aanwezigperslidwerkplek pw, + prs_werkplek wp, + prs_perslidwerkplek pw, fac_gebruikersgroep gg, fac_srtnotificatie sn WHERE x.alg_regio_key = d.alg_regio_key @@ -2349,9 +2341,9 @@ AS FROM alg_gebouw g, alg_verdieping v, alg_v_aanwezigruimte r, - prs_v_aanwezigwerkplek wp, + prs_werkplek wp, ( SELECT prs_werkplek_key, COUNT ( * ) - FROM prs_v_aanwezigperslidwerkplek + FROM prs_perslidwerkplek GROUP BY prs_werkplek_key) pw WHERE g.alg_gebouw_key = v.alg_gebouw_key AND v.alg_verdieping_key = r.alg_verdieping_key diff --git a/CONN/conn.sql b/CONN/conn.sql index 40951f16c..04f795612 100644 --- a/CONN/conn.sql +++ b/CONN/conn.sql @@ -5174,9 +5174,8 @@ AS FOR rec_prs_del IN c_prs_del LOOP BEGIN - UPDATE prs_perslidwerkplek - SET prs_perslidwerkplek_verwijder = SYSDATE - WHERE prs_perslid_key = rec_prs_del.prs_perslid_key AND prs_perslidwerkplek_verwijder IS NULL; + DELETE FROM prs_perslidwerkplek + WHERE prs_perslid_key = rec_prs_del.prs_perslid_key; UPDATE prs_perslid SET prs_perslid_verwijder = SYSDATE diff --git a/CWTD/cwtd.sql b/CWTD/cwtd.sql index 4c5edd2ba..e43b63573 100644 --- a/CWTD/cwtd.sql +++ b/CWTD/cwtd.sql @@ -752,8 +752,7 @@ BEGIN SELECT COUNT(*) INTO v_nr_werkplek FROM prs_perslidwerkplek - WHERE prs_perslid_key = rec_prs_upd.prs_perslid_key - AND prs_perslidwerkplek_verwijder IS NULL; + WHERE prs_perslid_key = rec_prs_upd.prs_perslid_key; EXCEPTION WHEN OTHERS THEN @@ -939,31 +938,24 @@ 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); IF (v_count > 0) THEN SELECT MIN (w.prs_werkplek_key) INTO v_werkplek_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 (hard) 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_werkplek_key - AND pw.prs_perslidwerkplek_verwijder IS NOT NULL; - v_errorhint := 'Fout bij koppelen persoon aan vrije werkplek'; INSERT INTO prs_perslidwerkplek (prs_perslid_key, diff --git a/Denb/denb.sql b/Denb/denb.sql index 81261e679..575e1eb41 100644 --- a/Denb/denb.sql +++ b/Denb/denb.sql @@ -747,7 +747,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 personeelsnummer (ie. de import-doelgroep) niet in een groep @@ -1253,7 +1253,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; @@ -1262,11 +1262,10 @@ BEGIN THEN v_errorhint := 'Fout bij verwijderen oude werkplek'; - 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 @@ -1344,7 +1343,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 @@ -1361,11 +1360,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); @@ -1373,21 +1372,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'; @@ -1710,7 +1702,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 personeelsnummer (ie. de import-doelgroep) niet in een groep @@ -2216,7 +2208,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; @@ -2225,11 +2217,10 @@ BEGIN THEN v_errorhint := 'Fout bij verwijderen oude werkplek'; - 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 @@ -2307,7 +2298,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 @@ -2324,11 +2315,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); @@ -2336,21 +2327,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'; diff --git a/GDZW/gdzw.sql b/GDZW/gdzw.sql index 9419793d9..d01aba5dc 100644 --- a/GDZW/gdzw.sql +++ b/GDZW/gdzw.sql @@ -538,7 +538,7 @@ IS WHERE p.prs_perslid_oslogin IS NOT NULL AND p.prs_perslid_naam NOT LIKE c_persoon_inactief || '%' AND NOT EXISTS (SELECT pw.prs_perslid_key - FROM prs_v_aanwezigperslidwerkplek pw + FROM prs_perslidwerkplek pw WHERE pw.prs_perslid_key = p.prs_perslid_key); -- Alle aanwezige personen met primaire login (ie. de import-doelgroep) niet in een authorisatiegroep diff --git a/GOUD/goud.sql b/GOUD/goud.sql index a6abbfeba..020bf7a52 100644 --- a/GOUD/goud.sql +++ b/GOUD/goud.sql @@ -814,7 +814,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 oslogin (ie. de import-doelgroep) niet in een groep @@ -1335,7 +1335,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, @@ -1356,7 +1356,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; @@ -1366,11 +1366,10 @@ BEGIN v_errorhint := 'Fout bij verwijderen oude werkplek(ken) op locatie'; - 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, @@ -1392,11 +1391,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); @@ -1404,21 +1403,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'; diff --git a/GRGT/grgt.sql b/GRGT/grgt.sql index d777615f0..f8db59286 100644 --- a/GRGT/grgt.sql +++ b/GRGT/grgt.sql @@ -556,7 +556,7 @@ IS WHERE p.prs_perslid_nr IS NOT NULL 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 personeelsnummer (ie. de import-doelgroep) niet in een groep @@ -952,7 +952,7 @@ BEGIN SELECT COUNT (*) INTO v_count - FROM prs_v_aanwezigperslidwerkplek pw, + FROM prs_perslidwerkplek pw, prs_werkplek wp, alg_ruimte r, alg_verdieping v @@ -1004,7 +1004,7 @@ BEGIN 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); @@ -1016,17 +1016,10 @@ BEGIN 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'; diff --git a/GVBA/gvba.sql b/GVBA/gvba.sql index f06ec9e35..5703b1089 100644 --- a/GVBA/gvba.sql +++ b/GVBA/gvba.sql @@ -740,8 +740,7 @@ CREATE OR REPLACE PACKAGE BODY gvba_p_import AS SELECT MIN(prs_werkplek_key), COUNT(*) INTO v_werkplek_key, v_count FROM prs_werkplek - WHERE prs_werkplek_verwijder IS NULL - AND prs_alg_ruimte_key = p_ruimte_key + WHERE prs_alg_ruimte_key = p_ruimte_key AND prs_werkplek_module = 'IMP' AND prs_werkplek_virtueel = p_werkplek_virtueel; @@ -776,8 +775,7 @@ CREATE OR REPLACE PACKAGE BODY gvba_p_import AS SELECT NVL(MAX(prs_werkplek_volgnr),0)+1, COUNT(*) INTO v_werkplek_volgnr, v_count FROM PRS_WERKPLEK - WHERE prs_werkplek_verwijder IS NULL - AND prs_alg_ruimte_key = p_ruimte_key; + WHERE prs_alg_ruimte_key = p_ruimte_key; SELECT alg_ruimte_nr INTO v_ruimte_nr @@ -1583,8 +1581,7 @@ BEGIN select count(*) into v_count from prs_perslidwerkplek pw, prs_werkplek w - where pw.prs_perslidwerkplek_verwijder IS NULL - and pw.prs_perslid_key = v_perslid_key + where pw.prs_perslid_key = v_perslid_key and pw.prs_werkplek_key = v_werkplek_key and pw.prs_werkplek_key = w.prs_werkplek_key and w.prs_werkplek_module = 'IMP' @@ -1751,8 +1748,7 @@ BEGIN where prs_link_key = rec2.prs_perslid_key; -- Verwijder nu pas de werkplekken, als koppeling prs_perslid met prs_werkplek - UPDATE prs_perslidwerkplek - SET prs_perslidwerkplek_verwijder = SYSDATE + DELETE FROM prs_perslidwerkplek WHERE prs_perslidwerkplek_verwijder IS NULL AND prs_perslid_key = rec2.prs_perslid_key;