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

HERO#86913 -- Implementatie , aanpassing AFAS koppeling, mandatering toegevoegd

Browse Source 
svn path=/Customer/trunk/; revision=69435
This commit is contained in:
Norbert Wassink
2025-06-16 13:25:59 +00:00
parent 35fb139d3d
commit 5e8b90303e
1 changed files with 42 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
HERO/HERO.sql
View File

@@ -1571,7 +1571,34 @@ AS
AND r.alg_ruimte_nr='_WP'
AND r.alg_ruimte_verwijder IS NULL;
CURSOR p_kostenplaats(p_perslid_key IN NUMBER)
IS
SELECT aok.ALG_ONRGOEDKENMERK_WAARDE prs_kostenplaats_key,
p.prs_perslid_key
FROM alg_district d,
alg_locatie l,
prs_perslid p,
prs_kenmerklink pkl,
prs_kenmerk pk,
alg_onrgoedkenmerk aok,
alg_kenmerk ak
WHERE p.prs_perslid_key = p_perslid_key
AND pk.prs_kenmerk_code='CLUSTER_OMSCH'
AND pkl.prs_kenmerk_key = pk.prs_kenmerk_key
AND pkl.prs_link_key=p.prs_perslid_key
AND d.alg_district_upper = UPPER(pkl.prs_kenmerklink_waarde)
AND d.alg_district_verwijder is NULL
AND l.alg_district_key = d.alg_district_key
AND l.alg_locatie_verwijder is NULL
AND aok.ALG_ONRGOED_KEY = l.ALG_LOCATIE_KEY
AND aok.ALG_ONRGOED_NIVEAU='L'
AND ak.ALG_KENMERK_KEY = aok.ALG_KENMERK_KEY
AND ak.ALG_KENMERK_OMSCHRIJVING like '%kostenplaats'
AND p.prs_perslid_key NOT IN (SELECT prs_perslid_key
from prs_perslidkostenplaats pkp
where pkp.PRS_PERSLID_KEY = p.PRS_PERSLID_KEY
AND pkp.PRS_KOSTENPLAATS_KEY = aok.ALG_ONRGOEDKENMERK_WAARDE
AND pkp.PRS_PERSLIDKOSTENPLAATS_BOEKEN=1);
CURSOR p_del
@@ -1676,6 +1703,20 @@ BEGIN
'S',
'Toegevoegd aan autorisatie groep Clustermanagers :'||rec.prs_perslid_naam_friendly,'');
END IF;
FOR rec_kpn IN p_kostenplaats(rec.prs_perslid_key)
LOOP
INSERT INTO prs_perslidkostenplaats(prs_perslid_key,
prs_kostenplaats_key,
prs_perslidkostenplaats_boeken,
prs_perslidkostenplaats_inzage,
prs_perslidkostenplaats_aanmk)
VALUES(rec.prs_perslid_key,
rec_kpn.prs_kostenplaats_key,
1,
0,
SYSDATE);
END LOOP;
END;
END LOOP;