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

CSUN#87325 Verzoek om extra velden bij persoonsgegevensimport

Browse Source 
Een deel van de post-procedure bleek te zijn verdwenen.

svn path=/Customer/trunk/; revision=70887
This commit is contained in:
Sander Schepers
2025-11-11 10:35:08 +00:00
parent 23448be69a
commit 5c8bf2db6b
1 changed files with 71 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
CSUN/CSUN.sql
View File

@@ -8363,7 +8363,78 @@ EXCEPTION
END csun_update_perslid; END csun_update_perslid;
/ /
CREATE OR REPLACE PROCEDURE csun_post_update_perslid (p_import_key IN NUMBER)
IS
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (400);
v_errorhint VARCHAR2 (400);
CURSOR cperslid IS
SELECT i.prs_perslid_key,
i.prs_perslid_naam,
i.prs_perslid_tussenvoegsel,
i.prs_perslid_voornaam,
i.prs_perslid_voorletters,
i.prs_perslid_email,
i.prs_perslid_oslogin,
i.prs_srtperslid_omschrijving,
i.prs_afdeling_naam,
i.prs_kenmerk1,
i.prs_kenmerk2,
i.prs_kenmerk3
FROM fac_imp_perslid i
WHERE i.prs_perslid_oslogin IS NOT NULL
GROUP BY i.prs_perslid_key,
i.prs_perslid_naam,
i.prs_perslid_tussenvoegsel,
i.prs_perslid_voornaam,
i.prs_perslid_voorletters,
i.prs_perslid_email,
i.prs_perslid_oslogin,
i.prs_srtperslid_omschrijving,
i.prs_afdeling_naam,
i.prs_kenmerk1,
i.prs_kenmerk2,
i.prs_kenmerk3;
BEGIN
FOR rec IN cperslid
LOOP
BEGIN
v_errorhint :=
'Toevoegen autorisaties ' || rec.prs_perslid_oslogin;
IF rec.prs_perslid_key IS NOT NULL
THEN
IF rec.prs_kenmerk1 = '1'
THEN
INSERT INTO fac_gebruikersgroep (prs_perslid_key,
fac_groep_key)
VALUES (rec.prs_perslid_key, 61); --Autorisatiegroep Klant 1 (Alle vakgroepen)
END IF;
IF rec.prs_kenmerk2 = '1'
THEN
INSERT INTO fac_gebruikersgroep (prs_perslid_key,
fac_groep_key)
VALUES (rec.prs_perslid_key, 601); --Autorisatiegroep Klant 2 (Schoonmaak)
END IF;
IF rec.prs_kenmerk3 = '1'
THEN
INSERT INTO fac_gebruikersgroep (prs_perslid_key,
fac_groep_key)
VALUES (rec.prs_perslid_key, 641); --Autorisatiegroep Klant 3 (Contractmutaties)
END IF;
v_errorhint :=
'Opschonen telefoonnr ' || rec.prs_perslid_oslogin;
UPDATE prs_perslid
SET prs_perslid_telefoonnr = NULL
WHERE prs_perslid_key = rec.prs_perslid_key;
END IF;
END;
END LOOP; END LOOP;
EXCEPTION EXCEPTION
WHEN OTHERS WHEN OTHERS