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

PCHA#41303 Opvoeren medewerker Holding - API key wordt niet gezet bij persoon in XD config.

Browse Source 
svn path=/Database/trunk/; revision=39569
This commit is contained in:
Alex Tiehuis
2018-10-30 13:34:12 +00:00
parent dabf83299b
commit 3159a7b339
1 changed files with 21 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
PRS/PRS_TRI.SRC
View File

@@ -111,26 +111,6 @@ BEFORE INSERT ON prs_perslid
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(prs_perslid_key, prs_s_prs_alluitvoerende_keys);
-- If this perslid belongs to the primary company of an xd-environment
-- it gets a default apikey to get synced across the domains
IF :new.prs_perslid_apikey IS NULL AND fac.getsetting ('xd_primary_bedrijfkey') > 0
THEN
DECLARE
dummy prs_afdeling.prs_bedrijf_key%TYPE;
BEGIN
SELECT prs_bedrijf_key
INTO dummy
FROM prs_v_afdeling
WHERE prs_afdeling_key = :new.prs_afdeling_key
AND prs_v_afdeling.prs_bedrijf_key = fac.getsetting ('xd_primary_bedrijfkey');
-- 52 lower en uppercase letters*32 is 182 bits equivalent
SELECT DBMS_RANDOM.string ('a', 32) INTO :new.prs_perslid_apikey FROM DUAL;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
NULL; -- persoon hoort niet bij de serviceorganisatie
END;
END IF;
END;
/
@@ -143,6 +123,27 @@ BEGIN
UPDATE_UPPER(prs_perslid_oslogin, prs_perslid_oslogin,prs_perslid);
UPDATE_UPPER(prs_perslid_oslogin2, prs_perslid_oslogin2,prs_perslid);
UPDATE_AANMAAKDATUM(prs_perslid, prs_perslid_aanmaak);
-- If this perslid belongs to the primary company of an xd-environment
-- it gets a default apikey to get synced across the domains
IF (:old.prs_afdeling_key IS NULL OR :old.prs_afdeling_key <> :new.prs_afdeling_key)
AND fac.getsetting ('xd_primary_bedrijfkey') > 0
THEN
DECLARE
dummy prs_afdeling.prs_bedrijf_key%TYPE;
BEGIN
SELECT prs_bedrijf_key
INTO dummy
FROM prs_v_afdeling
WHERE prs_afdeling_key = :new.prs_afdeling_key
AND prs_v_afdeling.prs_bedrijf_key = fac.getsetting ('xd_primary_bedrijfkey');
-- 52 lower en uppercase letters*32 is 182 bits equivalent
SELECT DBMS_RANDOM.string ('a', 32) INTO :new.prs_perslid_apikey FROM DUAL;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
NULL; -- persoon hoort niet bij de serviceorganisatie
END;
END IF;
IF :new.prs_perslid_verwijder IS NOT NULLDATUM AND :old.prs_perslid_verwijder IS NULLDATUM
THEN
DECLARE