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

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