diff --git a/CSUN/CSUN.sql b/CSUN/CSUN.sql index 6beff5963..f2c7693ce 100644 --- a/CSUN/CSUN.sql +++ b/CSUN/CSUN.sql @@ -2964,32 +2964,32 @@ IS FROM csun_imp_project WHERE rayonl_naam IS NOT NULL; - CURSOR c_rayon_wp - IS - SELECT p.prs_perslid_key, rg.alg_ruimte_key - FROM csun_imp_project i, - alg_locatie l, - prs_perslid p, - alg_v_ruimte_gegevens rg - WHERE --i.kenmerk1 = p.prs_perslid_email - (SELECT pk.prs_kenmerklink_waarde - FROM prs_kenmerklink pk - WHERE pk.prs_kenmerklink_verwijder IS NULL - AND pk.prs_kenmerk_key = 1120 -- Kostenplaats CSU - AND p.prs_perslid_key = pk.prs_link_key - AND pk.prs_kenmerklink_niveau = 'P') - LIKE - '%' || i.rayonl_persnr || '%' - AND 'P' || i.project = l.alg_locatie_code - AND l.alg_locatie_key = rg.alg_locatie_key - AND rg.alg_ruimte_nr = '-' - AND prs_srtperslid_key = 50 -- rayonleider - AND prs_perslid_verwijder IS NULL - AND NOT EXISTS - (SELECT * - FROM prs_v_perslidwerkplek_gegevens pwpg - WHERE pwpg.prs_perslid_key = p.prs_perslid_key - AND pwpg.alg_locatie_key = l.alg_locatie_key); +-- CURSOR c_rayon_wp +-- IS +-- SELECT p.prs_perslid_key, rg.alg_ruimte_key +-- FROM csun_imp_project i, +-- alg_locatie l, +-- prs_perslid p, +-- alg_v_ruimte_gegevens rg +-- WHERE --i.kenmerk1 = p.prs_perslid_email +-- (SELECT pk.prs_kenmerklink_waarde +-- FROM prs_kenmerklink pk +-- WHERE pk.prs_kenmerklink_verwijder IS NULL +-- AND pk.prs_kenmerk_key = 1120 -- Kostenplaats CSU +-- AND p.prs_perslid_key = pk.prs_link_key +-- AND pk.prs_kenmerklink_niveau = 'P') +-- LIKE +-- '%' || i.rayonl_persnr || '%' +-- AND 'P' || i.project = l.alg_locatie_code +-- AND l.alg_locatie_key = rg.alg_locatie_key +-- AND rg.alg_ruimte_nr = '-' +-- AND prs_srtperslid_key = 50 -- rayonleider +-- AND prs_perslid_verwijder IS NULL +-- AND NOT EXISTS +-- (SELECT * +-- FROM prs_v_perslidwerkplek_gegevens pwpg +-- WHERE pwpg.prs_perslid_key = p.prs_perslid_key +-- AND pwpg.alg_locatie_key = l.alg_locatie_key); FUNCTION get_alg_kenmerk (p_kenmerk_key IN NUMBER, p_onrgoed_key IN NUMBER) @@ -3331,18 +3331,18 @@ BEGIN AND pk.prs_kenmerk_key = 1120 -- Kostenplaats CSU AND p.prs_perslid_key = pk.prs_link_key AND pk.prs_kenmerklink_niveau = 'P') LIKE - '%' || rec_ray.rayonl_persnr || '%'; + '%' || rec_ray.rayonl_persnr || '%'; IF v_perslid_key IS NULL THEN -- nieuwe rayonleider aanmaken tijdelijk onder CSU NA. - + --v_error_hint := -- 'Aanmaken Rayonmanager: ' -- || rec_ray.voornaam -- || ' ' -- || rec_ray.achternaam; - + INSERT INTO prs_perslid (prs_srtperslid_key, prs_afdeling_key, prs_perslid_naam, @@ -3369,7 +3369,7 @@ BEGIN v_perslid_key, 4, -- Facilitor NULL, - 'Kostenplaats CSU -> ' || rec_ray.rayonl_persnr); + 'Kostenplaats CSU -> ' || rec_ray.rayonl_persnr); END IF; v_achternaam := rec_ray.achternaam; @@ -3417,13 +3417,13 @@ BEGIN -- || v_tussenv -- || ' ' -- || rec_ray.achternaam; - -- + -- -- fac.trackaction ('CUST13', -- v_perslid_key, -- 4, --Facilitor -- NULL, - -- 'Er is voor u een account aangemaakt'); - + -- 'Er is voor u een account aangemaakt'); + END IF; END; @@ -3454,42 +3454,42 @@ BEGIN END; END LOOP; - -- Geef de rayonleiders een werkplek als ze deze nog niet hebben. - FOR rec IN c_rayon_wp - LOOP - prs.movetoruimte (rec.prs_perslid_key, - rec.alg_ruimte_key, - 'L', - 1); - END LOOP; - - -- Verwijder de werkplek van een rayonleider als deze niet meer gekoppeld is. - - DELETE prs_perslidwerkplek - WHERE prs_perslidwerkplek_key IN - (SELECT prs_perslidwerkplek_key - FROM prs_v_perslidwerkplek_gegevens pwpg, - prs_perslid p, - alg_locatie l - WHERE pwpg.prs_perslid_key = p.prs_perslid_key - AND p.prs_srtperslid_key = 50 -- Rayonleider - AND l.alg_locatie_key = pwpg.alg_locatie_key - AND l.alg_locatie_code LIKE 'P%' - AND NOT EXISTS - (SELECT i.project - FROM csun_imp_project i, alg_locatie l - WHERE (SELECT pk.prs_kenmerklink_waarde - FROM prs_kenmerklink pk - WHERE pk.prs_kenmerklink_verwijder IS NULL - AND pk.prs_kenmerk_key = 1120 -- Kostenplaats CSU - AND p.prs_perslid_key = pk.prs_link_key - AND pk.prs_kenmerklink_niveau = 'P') LIKE - '%' || i.rayonl_persnr || '%' - AND 'P' || i.project = - l.alg_locatie_code - AND l.alg_locatie_key = - pwpg.alg_locatie_key - AND pwpg.alg_ruimte_nr = '-')); +-- -- Geef de rayonleiders een werkplek als ze deze nog niet hebben. +-- FOR rec IN c_rayon_wp +-- LOOP +-- prs.movetoruimte (rec.prs_perslid_key, +-- rec.alg_ruimte_key, +-- 'L', +-- 1); +-- END LOOP; +-- +-- -- Verwijder de werkplek van een rayonleider als deze niet meer gekoppeld is. +-- +-- DELETE prs_perslidwerkplek +-- WHERE prs_perslidwerkplek_key IN +-- (SELECT prs_perslidwerkplek_key +-- FROM prs_v_perslidwerkplek_gegevens pwpg, +-- prs_perslid p, +-- alg_locatie l +-- WHERE pwpg.prs_perslid_key = p.prs_perslid_key +-- AND p.prs_srtperslid_key = 50 -- Rayonleider +-- AND l.alg_locatie_key = pwpg.alg_locatie_key +-- AND l.alg_locatie_code LIKE 'P%' +-- AND NOT EXISTS +-- (SELECT i.project +-- FROM csun_imp_project i, alg_locatie l +-- WHERE (SELECT pk.prs_kenmerklink_waarde +-- FROM prs_kenmerklink pk +-- WHERE pk.prs_kenmerklink_verwijder IS NULL +-- AND pk.prs_kenmerk_key = 1120 -- Kostenplaats CSU +-- AND p.prs_perslid_key = pk.prs_link_key +-- AND pk.prs_kenmerklink_niveau = 'P') LIKE +-- '%' || i.rayonl_persnr || '%' +-- AND 'P' || i.project = +-- l.alg_locatie_code +-- AND l.alg_locatie_key = +-- pwpg.alg_locatie_key +-- AND pwpg.alg_ruimte_nr = '-')); COMMIT; EXCEPTION @@ -3505,7 +3505,6 @@ EXCEPTION END csun_update_project; / - -- rapport om de ingelezen gegevens op te zoeken. CREATE OR REPLACE VIEW csun_v_rap_imp_project (