From d055e0c6f7f324ad6f5e83372ed5aa7a884e5f9b Mon Sep 17 00:00:00 2001 From: Maarten van der Heide Date: Thu, 25 Jan 2024 13:38:21 +0000 Subject: [PATCH] MNNL#81939 PRS-import/Afnemen _Default-rol(len) svn path=/Customer/trunk/; revision=63342 --- MNNL/mnnl.sql | 219 +++++++++++++++++++++++++++++++++++++++++++------- 1 file changed, 189 insertions(+), 30 deletions(-) diff --git a/MNNL/mnnl.sql b/MNNL/mnnl.sql index 4bcb822fe..a9a7b197b 100644 --- a/MNNL/mnnl.sql +++ b/MNNL/mnnl.sql @@ -22,6 +22,174 @@ SET DEFINE OFF ------ payload begin ------ +CREATE OR REPLACE PACKAGE MNNL +AS + PROCEDURE vervangen_cert; +END; +/ + +CREATE OR REPLACE PACKAGE BODY MNNL +AS + -- Registreren 'Vervangen certificaat'-melding (=3681) 30d voor Vervaldatum + -- van 'Certificaten'-object onder 'Certificaten'-discipline (=3421). + PROCEDURE vervangen_cert + AS + v_errormsg VARCHAR2 (1000); + oracle_err_num NUMBER; + oracle_err_mes VARCHAR2 (200); + v_count_add NUMBER (10); + v_melding_key NUMBER (10); + + CURSOR c1 + IS + SELECT '[' || TO_CHAR (d.ins_deel_key) || '|' || d.ins_deel_omschrijving || '|' || bt.ins_kenmerkdeel_waarde || '] ' + aanduiding, + sd.ins_srtdeel_code, + d.ins_deel_key, + d.ins_deel_omschrijving, + d.ins_deel_vervaldatum, + MAX (md.ins_discipline_key) behandelteam_key, + MAX (md.ins_discipline_omschrijving) behandelteam_oms + FROM ins_v_aanwezigdeel d, + ins_srtdeel sd, + ins_srtgroep sg, + (SELECT * FROM ins_v_aanwezigkenmerkdeel WHERE ins_kenmerk_key = 401) bt, -- Beheerteam + (SELECT md.* + FROM mld_discipline md, mld_disc_params dp + WHERE md.ins_discipline_key = dp.mld_ins_discipline_key + AND BITAND (dp.mld_disc_params_srtgroep, 2) = 2) md -- Behandelteams + WHERE d.ins_deel_vervaldatum = TRUNC (SYSDATE + 30) + AND d.ins_srtdeel_key = sd.ins_srtdeel_key + AND sd.ins_srtgroep_key = sg.ins_srtgroep_key + AND sg.ins_discipline_key = 3421 -- Certificaten + AND d.ins_deel_key = bt.ins_deel_key(+) + AND UPPER (TRIM (bt.ins_kenmerkdeel_waarde)) = UPPER (TRIM (md.ins_discipline_omschrijving(+))) + GROUP BY '[' || TO_CHAR (d.ins_deel_key) || '|' || d.ins_deel_omschrijving || '|' || bt.ins_kenmerkdeel_waarde || '] ', + sd.ins_srtdeel_code, + d.ins_deel_key, + d.ins_deel_omschrijving + ORDER BY 2, 3; + BEGIN + v_count_add := 0; + FOR rec IN c1 + LOOP + BEGIN + v_errormsg := 'Fout toevoegen melding'; + INSERT INTO mld_melding (mld_melding_module, + mld_meldbron_key, + mld_alg_locatie_key, + mld_alg_onroerendgoed_keys, + mld_melding_datum, + mld_melding_onderwerp, + mld_melding_omschrijving, + mld_ins_discipline_key, + mld_stdmelding_key, + mld_melding_t_uitvoertijd, + prs_kostenplaats_key, + prs_perslid_key, + prs_perslid_key_voor, + mld_melding_status, + mld_melding_spoed) + VALUES ('MLD', + 4, -- Email + 2, -- ZT/Den Haag + NULL, -- mld_alg_onroerendgoed_keys + SYSDATE, + SUBSTR ('Certificaat ' || rec.ins_deel_omschrijving || ' verloopt op ' || TO_CHAR (rec.ins_deel_vervaldatum, 'dd-mm-yyyy'), 1, 80), + 'Certificaat ' || rec.ins_deel_omschrijving || ' verloopt op ' || TO_CHAR (rec.ins_deel_vervaldatum, 'dd-mm-yyyy'), + rec.behandelteam_key, + 3681, -- Vervangen certificaat + NULL, + NULL, -- prs_kostenplaats_key + 714, -- TODO:Paul van den Bold + 714, -- TODO:Paul van den Bold + NULL, + 3) -- Normaal + RETURNING mld_melding_key + INTO v_melding_key; +/* + v_errormsg := 'Fout toevoegen Behandelaarsgroep'; -- 5551='Behandelaarsgroep' op '???' + INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde) + VALUES (v_melding_key, 5551, '???'); + v_errormsg := 'Fout toevoegen Soort aanvraag'; -- 5552='Soort aanvraag' op -1='???' + INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde) + VALUES (v_melding_key, 5552, '-1'); + v_errormsg := 'Fout toevoegen Waar is de toepassing in beheer?'; -- 5553='Waar is de toepassing in beheer?' op -1='???' + INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde) + VALUES (v_melding_key, 5553, '-1'); + v_errormsg := 'Fout toevoegen Welke servercertificaat vraag je aan?'; -- 5554='Welke servercertificaat vraag je aan?' op -1='???' + INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde) + VALUES (v_melding_key, 5554, '-1'); + v_errormsg := 'Fout toevoegen Looptijd Private'; -- 5555='Looptijd Private' op -1='???' + INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde) + VALUES (v_melding_key, 5555, '-1'); + v_errormsg := 'Fout toevoegen Naam van servercertificaat (FQDN)'; -- 5556='Naam van servercertificaat (FQDN)' op '???' + INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde) + VALUES (v_melding_key, 5556, '???'); + --v_errormsg := 'Fout toevoegen Subject Alternative name(s) (SAN)'; -- 5557='Subject Alternative name(s) (SAN)' op '???' + --INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde) + -- VALUES (v_melding_key, 5557, '???'); + v_errormsg := 'Fout toevoegen Kostensoort'; -- 5561='Kostensoort' op '???' + INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde) + VALUES (v_melding_key, 5561, '???'); + v_errormsg := 'Fout toevoegen Kostenplaats'; -- 5562='Kostenplaats' op '???' + INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde) + VALUES (v_melding_key, 5562, '???'); + --v_errormsg := 'Fout toevoegen Projectnummer'; -- 5563='Projectnummer' op '???' + --INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde) + -- VALUES (v_melding_key, 5563, '???'); + --v_errormsg := 'Fout toevoegen Opmerkingen'; -- 5564='Opmerkingen' op '???' + --INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde) + -- VALUES (v_melding_key, 5564, '???'); + v_errormsg := 'Fout toevoegen IPC categorisering'; -- 5066='IPC categorisering' op 624='Change' + INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde) + VALUES (v_melding_key, 5066, '624'); +*/ + v_errormsg := 'Fout toevoegen ' || rec.ins_srtdeel_code || '-object'; + INSERT INTO mld_melding_object (mld_melding_key, ins_deel_key) + VALUES (v_melding_key, rec.ins_deel_key); + + v_errormsg := 'Fout bijwerken melding-status'; + mld.setmeldingstatus (v_melding_key, 2, NULL); +/* + -- Handle workflow actions for completion. + MLD.mld_nextworkflowstep (v_melding_key, -1); -- -1=Initial +*/ + v_count_add := v_count_add + 1; + --IF MOD (v_count_add, 1000) = 0 THEN COMMIT; END IF; + EXCEPTION + WHEN OTHERS + THEN + oracle_err_num := SQLCODE; + oracle_err_mes := SUBSTR (SQLERRM, 1, 100); + v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')'; + fac.writelog ('MNNL_CERT', 'E', rec.aanduiding || v_errormsg, ''); + END; + END LOOP; + fac.writelog ('MNNL_CERT', 'S', 'Vervangen certificaat/#toegevoegd: ' || TO_CHAR (v_count_add), ''); + END vervangen_cert; +END; +/ + +CREATE OR REPLACE PROCEDURE MNNL_DAILY +AS + v_errormsg VARCHAR2 (1000); + oracle_err_num NUMBER; + oracle_err_mes VARCHAR2 (200); +BEGIN + -- Registreren 'Vervangen certificaat'-melding (=3681) 30d voor Vervaldatum + -- van 'Certificaten'-object onder 'Certificaten'-discipline (=2241). + mnnl.vervangen_cert; +EXCEPTION + WHEN OTHERS + THEN + oracle_err_num := SQLCODE; + oracle_err_mes := SUBSTR (SQLERRM, 1, 200); + v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')'; + fac.writelog ('DAILY', 'E', 'Proces afgebroken!', v_errormsg); +END MNNL_DAILY; +/ + -- ACTIVE DIRECTORY CREATE OR REPLACE PROCEDURE mnnl_import_prs (p_import_key IN NUMBER) AS @@ -169,26 +337,6 @@ BEGIN FROM fac_imp_perslid WHERE UPPER (prs_perslid_oslogin) = UPPER (p.prs_perslid_oslogin)); - -- Afnemen _Default-rol afh. van configuratie in Eigen tabel met key=721! - FOR rec IN c_no_default - LOOP - BEGIN - v_errorhint := 'Fout afnemen _Default'; - - DELETE FROM fac_gebruikersgroep - WHERE fac_groep_key = 1 -- _Default - AND prs_perslid_key = rec.prs_perslid_key; - EXCEPTION - WHEN OTHERS - THEN - oracle_err_num := SQLCODE; - oracle_err_mes := SUBSTR (SQLERRM, 1, 200); - v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')'; - fac.imp_writelog (p_import_key, 'E', rec.aanduiding || v_errormsg, v_errorhint); - COMMIT; - END; - END LOOP; - -- Afnemen 2101=_Default_VB van medewerkers niet onder VB (op niveau 1)! v_errorhint := 'Fout afnemen _Default_VB'; @@ -304,6 +452,26 @@ BEGIN WHERE fac_groep_key = 2343 -- _Default_FRS & EC AND prs_perslid_key = p.prs_perslid_key); COMMIT; + + -- Afnemen _Default-rol afh. van configuratie in Eigen tabel met key=721! + FOR rec IN c_no_default + LOOP + BEGIN + v_errorhint := 'Fout afnemen _Default(s)'; + + DELETE FROM fac_gebruikersgroep + WHERE fac_groep_key IN (1, 2101, 2341, 2342, 2343) -- _Default/_Default_VB/_Default_IV/_Default_PV/_Default_FRS & EC + AND prs_perslid_key = rec.prs_perslid_key; + EXCEPTION + WHEN OTHERS + THEN + oracle_err_num := SQLCODE; + oracle_err_mes := SUBSTR (SQLERRM, 1, 200); + v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')'; + fac.imp_writelog (p_import_key, 'E', rec.aanduiding || v_errormsg, v_errorhint); + COMMIT; + END; + END LOOP; END mnnl_update_prs; / @@ -3856,16 +4024,6 @@ BEGIN fac.imp_writelog (p_import_key, 'W', v_aanduiding || v_errormsg, 'Regel wordt overgeslagen!'); END IF; - -- - v_errormsg := 'Beheerteam (Facilitor) ongeldig; ongedefinieerd of te lang'; - v_beheerteam := TRIM (v_beheerteam); - - IF v_beheerteam IS NULL OR LENGTH (v_beheerteam) > 60 - THEN - v_ongeldig := 1; - fac.imp_writelog (p_import_key, 'W', v_aanduiding || v_errormsg, 'Regel wordt overgeslagen!'); - END IF; - -- v_errormsg := 'EindDatum ongeldig; geen datum'; v_einddatum := TRIM (v_einddatum); @@ -3878,6 +4036,7 @@ BEGIN -- v_errormsg := 'Fout bufferen overige velden'; + v_beheerteam := TRIM (v_beheerteam); v_aanvrager := TRIM (v_aanvrager); v_installateur := TRIM (v_installateur); v_product := TRIM (v_product);