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

BAMG#67179 -- Royal BAM Group N.V. Koppelingen robuster maken.

Browse Source 
svn path=/Customer/trunk/; revision=53612
This commit is contained in:
Arthur Egberink
2021-11-05 11:46:48 +00:00
parent 8dbde77eed
commit 349baa158e
1 changed files with 64 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
BAMG/bamg.sql
View File

@@ -142,6 +142,7 @@ AS
v_afdeling_key NUMBER;
v_max_datum VARCHAR2(100);
v_import_key NUMBER;
v_count NUMBER;
v_aanduiding VARCHAR2 (100);
v_errorhint VARCHAR2 (1000);
@@ -282,18 +283,40 @@ BEGIN
END LOOP;
-- We verwijderen personen die de laatste 7 dagen niet meer in de interface zaten.
v_count := 0;
FOR rec IN c_prs_del
LOOP
PRS.delete_perslid (v_import_key, rec.prs_perslid_key);
v_count := v_count +1;
END LOOP;
-- Als we meer dan 1000 personen moeten verwijderen dan is er waarschijnlijk
-- iets mis gegaan in de interface
IF v_count < 1000
THEN
FOR rec IN c_prs_del
LOOP
PRS.delete_perslid (v_import_key, rec.prs_perslid_key);
END LOOP;
END IF;
v_errorhint := 'Verwijderen afdelingen';
-- We verwijderen afdelingen die de laatste 7 dagen niet meer in de interface zaten.
v_count := 0;
FOR rec IN c_org_del
LOOP
del_afdeling (rec.prs_afdeling_naam, rec.prs_afdeling_key);
v_count := v_count +1;
END LOOP;
-- Als we meer dan 1000 afdelingen moeten verwijderen dan is er waarschijnlijk
-- iets mis gegaan in de interface
IF v_count < 1000
THEN
FOR rec IN c_org_del
LOOP
del_afdeling (rec.prs_afdeling_naam, rec.prs_afdeling_key);
END LOOP;
END IF;
EXCEPTION
WHEN OTHERS
THEN
@@ -554,6 +577,44 @@ EXCEPTION
END;
/
-- view van aantal mensen en afdelingen die op de nominiatie staan om verwijderd te worden.
CREATE OR REPLACE VIEW bamg_v_import_te_verwijderen
AS
SELECT 'Organisatie' importtype,
TRUNC (prs_afdeling_externsyncdate) datum,
COUNT (*) aantal
FROM prs_afdeling
WHERE prs_afdeling_verwijder IS NULL
AND prs_afdeling_externsyncdate IS NOT NULL
AND prs_afdeling_externsyncdate < SYSDATE - 1
GROUP BY TRUNC (prs_afdeling_externsyncdate)
UNION ALL
SELECT 'Personen', TRUNC (prs_perslid_externsyncdate), COUNT (*)
FROM prs_perslid
WHERE prs_perslid_verwijder IS NULL
AND prs_perslid_externsyncdate IS NOT NULL
AND prs_perslid_externsyncdate < SYSDATE - 1
GROUP BY TRUNC (prs_perslid_externsyncdate);
-- Aantal foutmeldingen in de personen en organisatie import
CREATE OR REPLACE VIEW bamg_v_import_resultaat
AS
SELECT 'Organisatie' importtype,
TRUNC (fac_import_datum_gelezen) datum,
COUNT (*) aantal
FROM fac_import i, imp_log l
WHERE fac_import_app_key = 42 -- organisatie import
AND i.fac_import_key = l.fac_import_key
AND imp_log_status = 'E'
GROUP BY TRUNC (fac_import_datum_gelezen)
UNION ALL
SELECT 'Personen',
TO_DATE (SUBSTR (fac_rapport_regel, 1, 10), 'dd-mm-yyyy'),
COUNT (*)
FROM fac_rapport
WHERE fac_rapport_node = 'PERSLID_E'
GROUP BY SUBSTR (fac_rapport_regel, 1, 10);
-- Contract reminder
CREATE OR REPLACE VIEW bamg_v_noti_cntreminder_coll
AS
@@ -631,6 +692,7 @@ BEGIN
END;
BEGIN
v_volgnr := v_volgnr + 1;
ANO.anonymizeprs (add_months(TRUNC(SYSDATE), -13), add_months(TRUNC(SYSDATE), -12));
INSERT INTO fac_rapport (fac_rapport_node, fac_rapport_volgnr, fac_rapport_regel)
VALUES('Anonymize', v_volgnr, 'Personen geanonymizeerd ' ||