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

CSUN#90600 Fout in automatische import naar Facilitor; controle en correctie nodig.

Browse Source 
Ook het aanmaken / verwijderen van werkplekken specifiek voor RM'ers nu uit procedure csun_update_export gehaald, voor een nieuwe (handmatige) poging van de import.

svn path=/Customer/trunk/; revision=70274
This commit is contained in:
Sander Schepers
2025-09-10 18:16:56 +00:00
parent 7375a7547b
commit 2fddce9a7c
1 changed files with 69 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

125
CSUN/CSUN.sql
View File

@@ -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)
@@ -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
(