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

BAMG#67179 -- Royal BAM Group N.V. Personen/Organisatie koppeling

Browse Source 
svn path=/Customer/trunk/; revision=53166
This commit is contained in:
Arthur Egberink
2021-09-27 18:24:35 +00:00
parent 184485f700
commit 0423e11e84
1 changed files with 16 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
BAMG/bamg.sql
View File

@@ -97,6 +97,7 @@ CREATE OR REPLACE PROCEDURE bamg_update_organisatie(p_import_key IN NUMBER)
AS
BEGIN
-- De daadwerkelijke verwerking vindt plaats in de proceduere bamg_update_organisatie_sched
NULL;
END;
/
@@ -123,7 +124,7 @@ AS
AND prs_afdeling_naam NOT LIKE '%/%';
CURSOR c_org_del IS
SELECT prs_afdeling_key, a.prs_afdeling_naam
SELECT a.prs_afdeling_key, a.prs_afdeling_naam
FROM prs_afdeling a, prs_v_afdeling_boom b
WHERE a.prs_afdeling_verwijder IS NULL
AND a.prs_afdeling_key = b.prs_afdeling_key
@@ -134,13 +135,13 @@ AS
SELECT prs_perslid_key
FROM prs_perslid p
WHERE p.prs_perslid_verwijder IS NULL
AND p.prs_perslid_externsyncdate < SYSDATE-7
ORDER BY niveau DESC;
AND p.prs_perslid_externsyncdate < SYSDATE-7;
v_parent_key NUMBER;
v_bedrijf_key NUMBER;
v_afdeling_key NUMBER;
v_max_datum VARCHAR2(100);
v_import_key NUMBER;
v_aanduiding VARCHAR2 (100);
v_errorhint VARCHAR2 (1000);
@@ -160,8 +161,9 @@ AS
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes;
fac.imp_writelog (
p_import_key,
v_import_key,
'E',
v_errormsg
|| ' - '
@@ -229,7 +231,7 @@ AS
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes;
fac.imp_writelog (
p_import_key,
v_import_key,
'E',
v_errormsg
|| ' - '
@@ -241,6 +243,12 @@ AS
BEGIN
SELECT MAX (fac_import_key)
INTO v_import_key
FROM fac_import_app a, fac_import i
WHERE a.fac_import_app_key = i.fac_import_app_key
AND fac_import_app_code = 'ORGANISATIE'
AND fac_import_app_prefix = 'BAMG';
BEGIN
SELECT MAX(SUBSTR(prs_afdeling_externid, 1, 10))
INTO v_max_datum
@@ -276,7 +284,7 @@ BEGIN
-- We verwijderen personen die de laatste 7 dagen niet meer in de interface zaten.
FOR rec IN c_prs_del
LOOP
PRS.delete_perslid (rec.prs_perslid_key);
PRS.delete_perslid (v_import_key, rec.prs_perslid_key);
END LOOP;
v_errorhint := 'Verwijderen afdelingen';
@@ -292,7 +300,7 @@ BEGIN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errormsg, v_errorhint);
fac.writelog ('bamg_update_organisatie_sched', 'E', v_aanduiding || v_errormsg, v_errorhint);
END;
END;
@@ -489,7 +497,7 @@ BEGIN
END;
END LOOP;
-- De logging in de imp_log tabel wordt te snel verwijderd. Daarom zetten we de warnings, errors en informatie loggings maar
-- De logging in de imp_log tabel wordt te snel verwijderd. Daarom zetten we de warn+ings, errors en informatie loggings maar
-- in de fac_rapport tabel.
INSERT INTO fac_rapport (fac_rapport_node,
fac_rapport_volgnr,