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

BRCF#73268 -- Aanpassingen Groendus views + verwijderen van inactieve personen t.b.v. IAM

Browse Source 
svn path=/Customer/trunk/; revision=58033
This commit is contained in:
Robin Stoker
2022-11-17 14:42:11 +00:00
parent 0e8b1fb5b6
commit 3dbe423b7b
1 changed files with 77 additions and 107 deletions
Download Patch File Download Diff File Expand all files Collapse all files

184
BRCF/brcf.sql
View File

@@ -184,6 +184,45 @@ BEGIN
END;
/
CREATE OR REPLACE PROCEDURE brcf_delete_persons
AS
v_importkey NUMBER;
v_importappkey NUMBER;
CURSOR c1 IS
SELECT prs_perslid_key
FROM prs_perslid
WHERE prs_perslid_inactief IS NOT NULL -- Als inactief gemarkeerd door IAM koppeling
AND prs_perslid_verwijder IS NULL;
-- Voor het verwijderen hebben we een import_key nodig, dus die gaan we nu aanmaken
BEGIN
SELECT fac_import_app_key
INTO v_importappkey
FROM fac_import_app
WHERE fac_import_app_code = 'IAM_DEL';
INSERT INTO fac_import (fac_import_app_key,
fac_import_datum_gelezen,
fac_import_datum_verwerkt,
fac_import_filenaam,
prs_perslid_key)
VALUES (v_importappkey,
SYSDATE,
SYSDATE,
NULL,
121);
SELECT MAX (fac_import_key) INTO v_importkey FROM fac_import;
FOR rec IN c1
LOOP
BEGIN
prs.delete_perslid (v_importkey, rec.prs_perslid_key);
END;
END LOOP;
END;
/
CREATE OR REPLACE PROCEDURE brcf_daily
AS
v_errormsg VARCHAR2 (1000);
@@ -193,112 +232,23 @@ BEGIN
brcf_schonen_bezoekers ();
brcf_toekennen_authgroep ();
brcf_wp_toekenning ();
brcf_delete_persons ();
END;
/
-- WP toekenning, moet nog generieker en in dagelijkse taak
/*
DECLARE
CURSOR c1
IS
SELECT p.prs_perslid_key, r.alg_ruimte_key ruimte
FROM prs_v_afdeling_perslid p,
alg_gebouw g,
alg_verdieping v,
alg_ruimte r,
prs_v_aanwezigperslid pa
WHERE g.alg_gebouw_naam LIKE 'BENU ' || p.prs_afdeling_omschrijving
AND p.prs_perslid_key IS NOT NULL
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND r.alg_ruimte_nr = '_'
AND p.prs_perslid_key = pa.prs_perslid_key
UNION ALL
SELECT DISTINCT p.prs_perslid_key, 4127 ruimte
FROM prs_v_afdeling_perslid p, prs_v_aanwezigperslid pa
WHERE p.prs_perslid_key IS NOT NULL
AND p.prs_perslid_key = pa.prs_perslid_key
AND p.prs_afdeling_key IN
(54,
22,
161,
521,
753,
754,
762,
763,
770,
774,
781,
786,
569,
543,
481,
744,
756,
768,
772,
62,
546,
745,
759,
771,
784,
787,
801,
141,
121,
552,
747,
749,
757,
779,
748,
751,
761,
764,
766,
773,
550,
743,
782,
783,
788,
790,
791,
802,
741,
767,
789,
542,
742,
758,
181,
765,
776,
778,
61,
746,
750,
752,
755,
760,
775,
777,
785,
821);
BEGIN
FOR rec IN c1
LOOP
BEGIN
prs.movetoruimte (rec.prs_perslid_key, rec.ruimte, NULL);
END;
END LOOP;
END;
/
*/
-- T.b.v. de koppeling met Groendus.
CREATE OR REPLACE PROCEDURE brcf_groendus_locaties (
p_locatieid IN VARCHAR2,
p_postalcode IN VARCHAR2)
IS
BEGIN
UPDATE alg_locatie
SET alg_locatie_externnr = p_locatieid
WHERE REPLACE (alg_locatie_postcode, ' ', '') = p_postalcode
AND alg_locatie_verwijder IS NULL;
END;
/
CREATE OR REPLACE PROCEDURE brcf_groendus_eancodes (
p_eancode IN VARCHAR2,
p_addressid IN VARCHAR2,
@@ -319,6 +269,7 @@ IS
AND g.alg_locatie_key = l.alg_locatie_key
AND l.alg_locatie_externnr = p_addressid
AND i.ins_deel_externnr != p_eancode
AND i.ins_srtdeel_key IN (61, 62, 63)
AND UPPER (SUBSTR (ins_deel_omschrijving, 1, 1)) =
UPPER (SUBSTR (p_energytype, 1, 1)); -- W = Water, G= Gas, E= Elektra
BEGIN
@@ -332,7 +283,22 @@ BEGIN
END LOOP;
END;
/
CREATE OR REPLACE PROCEDURE brcf_groendus_consumption (
p_deelkey IN VARCHAR2,
p_verbruik IN VARCHAR2,
p_timestamp IN VARCHAR2)
IS
BEGIN
UPDATE ins_deel
SET ins_deel_state = p_verbruik,
ins_deel_statedate =
TO_DATE (REPLACE (p_timestamp, 'T', ' '),
'YYYY-MM-DD HH24:MI:SS')
WHERE ins_deel_key = p_deelkey;
END;
/
CREATE OR REPLACE VIEW brcf_v_groendus_history
(
deel_key,
@@ -385,18 +351,21 @@ CREATE OR REPLACE VIEW brcf_v_groendus_meetwaarden
(
deel_key,
locatie_omschrjving,
TYPE,
fclt_3d_locatie_key,
type,
jaar,
jaarmaand,
maand,
jaarweek,
week,
dag,
datum,
meetwaarde
)
AS
SELECT i.ins_deel_key,
SELECT i.ins_deel_key,
l.alg_locatie_omschrijving,
l.alg_locatie_key,
DECODE (i.ins_srtdeel_key,
61, 'Elektriciteit',
62, 'Water',
@@ -406,10 +375,11 @@ AS
TO_CHAR (ih.ins_deel_statedate, 'YYYY') jaar,
TO_CHAR (ih.ins_deel_statedate, 'YYYY-MM') jaarmaand,
TO_CHAR (ih.ins_deel_statedate, 'MONTH') maand,
TO_CHAR (ih.ins_deel_statedate, 'YYYY-WW') jaarweek,
TO_CHAR (ih.ins_deel_statedate, 'IYYY-IW') jaarweek,
TO_CHAR (ih.ins_deel_statedate, 'WW') week,
TO_CHAR (ih.ins_deel_statedate, 'DD-MM-YYYY') dag,
fac.safe_to_number(ih.ins_deel_state) waarde
ih.ins_deel_statedate datum,
fac.safe_to_number (ih.ins_deel_state) waarde
FROM ins_deel i,
ins_deel_state_history ih,
alg_locatie l,