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

MNNL#69794 Beheer certificaten (CERT-import+DAILY)

Browse Source 
svn path=/Customer/trunk/; revision=63699
This commit is contained in:
Maarten van der Heide
2024-02-23 15:34:33 +00:00
parent ff933a322d
commit 96804e0532
1 changed files with 50 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

102
MNNL/mnnl.sql
View File

@@ -31,7 +31,7 @@ END;
CREATE OR REPLACE PACKAGE BODY MNNL
AS
-- Registreren 'Vervangen certificaat'-melding (=3681) 30d voor Vervaldatum
-- van 'Certificaten'-object onder 'Certificaten'-discipline (=3421).
-- van 'Certificaten'-object onder 'Certificaten'-discipline (=3481).
PROCEDURE vervangen_cert
AS
v_errormsg VARCHAR2 (1000);
@@ -46,34 +46,34 @@ AS
aanduiding,
sd.ins_srtdeel_code,
d.ins_deel_key,
d.ins_deel_omschrijving, -- 7041=Certificaat naam
d.ins_deel_omschrijving, -- 7421=Certificaat naam
d.ins_deel_vervaldatum,
MAX (md.ins_discipline_key) behandelteam_key,
MAX (md.ins_discipline_omschrijving) behandelteam_oms,
MAX (a.ins_kenmerkdeel_waarde) aanvrager, -- 7042=Aanvrager
MAX (i.ins_kenmerkdeel_waarde) installateur, -- 7043=Installateur
MAX (p.ins_kenmerkdeel_waarde) product, -- 7044=Product
MAX (u.ins_kenmerkdeel_waarde) uitgever, -- 7045=Uitgever
MAX (o.ins_kenmerkdeel_waarde) omgeving, -- 7046=Omgeving
MAX (t.ins_kenmerkdeel_waarde) toelichting -- 7047=Toelichting
MAX (a.ins_kenmerkdeel_waarde) aanvrager, -- 7422=Aanvrager
MAX (i.ins_kenmerkdeel_waarde) installateur, -- 7423=Installateur
MAX (p.ins_kenmerkdeel_waarde) product, -- 7424=Product
MAX (u.ins_kenmerkdeel_waarde) uitgever, -- 7425=Uitgever
MAX (o.ins_kenmerkdeel_waarde) omgeving, -- 7426=Omgeving
MAX (t.ins_kenmerkdeel_waarde) toelichting -- 7427=Toelichting
FROM ins_v_aanwezigdeel d,
ins_srtdeel sd,
ins_srtgroep sg,
(SELECT * FROM ins_v_aanwezigkenmerkdeel WHERE ins_kenmerk_key = 401) bt, -- Beheerteam (Facilitor)
(SELECT * FROM ins_v_aanwezigkenmerkdeel WHERE ins_kenmerk_key = 381) bt, -- Beheerteam (Facilitor)
(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
(SELECT * FROM ins_v_aanwezigkenmerkdeel WHERE ins_kenmerk_key = 402) a, -- Aanvrager
(SELECT * FROM ins_v_aanwezigkenmerkdeel WHERE ins_kenmerk_key = 403) i, -- Installateur
(SELECT * FROM ins_v_aanwezigkenmerkdeel WHERE ins_kenmerk_key = 404) p, -- Product
(SELECT * FROM ins_v_aanwezigkenmerkdeel WHERE ins_kenmerk_key = 406) u, -- Uitgever
(SELECT * FROM ins_v_aanwezigkenmerkdeel WHERE ins_kenmerk_key = 405) o, -- Omgeving
(SELECT * FROM ins_v_aanwezigkenmerkdeel WHERE ins_kenmerk_key = 421) t -- Toelichting
(SELECT * FROM ins_v_aanwezigkenmerkdeel WHERE ins_kenmerk_key = 401) a, -- Aanvrager
(SELECT * FROM ins_v_aanwezigkenmerkdeel WHERE ins_kenmerk_key = 402) i, -- Installateur
(SELECT * FROM ins_v_aanwezigkenmerkdeel WHERE ins_kenmerk_key = 403) p, -- Product
(SELECT * FROM ins_v_aanwezigkenmerkdeel WHERE ins_kenmerk_key = 405) u, -- Uitgever
(SELECT * FROM ins_v_aanwezigkenmerkdeel WHERE ins_kenmerk_key = 404) o, -- Omgeving
(SELECT * FROM ins_v_aanwezigkenmerkdeel WHERE ins_kenmerk_key = 406) t -- Toelichting
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 sg.ins_discipline_key = 3481 -- Certificaten
AND d.ins_deel_key = bt.ins_deel_key(+)
AND UPPER (TRIM (bt.ins_kenmerkdeel_waarde)) = UPPER (TRIM (md.ins_discipline_omschrijving(+)))
AND d.ins_deel_key = a.ins_deel_key(+)
@@ -128,27 +128,27 @@ AS
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 toevoegen Certificaat naam'; -- 7041='Certificaat naam' volgens object
v_errormsg := 'Fout toevoegen Certificaat naam'; -- 7421='Certificaat naam' volgens object
INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde)
VALUES (v_melding_key, 7041, rec.ins_deel_omschrijving);
v_errormsg := 'Fout toevoegen Aanvrager'; -- 7042='Aanvrager' volgens object
VALUES (v_melding_key, 7421, rec.ins_deel_omschrijving);
v_errormsg := 'Fout toevoegen Aanvrager'; -- 7422='Aanvrager' volgens object
INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde)
VALUES (v_melding_key, 7042, rec.aanvrager);
v_errormsg := 'Fout toevoegen Installateur'; -- 7043='Installateur' volgens object
VALUES (v_melding_key, 7422, rec.aanvrager);
v_errormsg := 'Fout toevoegen Installateur'; -- 7423='Installateur' volgens object
INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde)
VALUES (v_melding_key, 7043, rec.installateur);
v_errormsg := 'Fout toevoegen Product'; -- 7044='Product' volgens object
VALUES (v_melding_key, 7423, rec.installateur);
v_errormsg := 'Fout toevoegen Product'; -- 7424='Product' volgens object
INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde)
VALUES (v_melding_key, 7044, rec.product);
v_errormsg := 'Fout toevoegen Uitgever'; -- 7045='Uitgever' volgens object
VALUES (v_melding_key, 7424, rec.product);
v_errormsg := 'Fout toevoegen Uitgever'; -- 7425='Uitgever' volgens object
INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde)
VALUES (v_melding_key, 7045, rec.uitgever);
v_errormsg := 'Fout toevoegen Omgeving'; -- 7046='Omgeving' volgens object
VALUES (v_melding_key, 7425, rec.uitgever);
v_errormsg := 'Fout toevoegen Omgeving'; -- 7426='Omgeving' volgens object
INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde)
VALUES (v_melding_key, 7046, rec.omgeving);
v_errormsg := 'Fout toevoegen Toelichting'; -- 7047='Toelichting' volgens object
VALUES (v_melding_key, 7426, rec.omgeving);
v_errormsg := 'Fout toevoegen Toelichting'; -- 7427='Toelichting' volgens object
INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde)
VALUES (v_melding_key, 7047, rec.toelichting);
VALUES (v_melding_key, 7427, rec.toelichting);
v_errormsg := 'Fout bijwerken melding-status';
mld.setmeldingstatus (v_melding_key, 2, NULL);
@@ -3151,7 +3151,6 @@ BEGIN
THEN
BEGIN
v_errormsg := 'Fout wegschrijven importregel';
INSERT INTO fac_imp_ins (ins_discipline_omschrijving,
ins_srtgroep_omschrijving,
ins_srtdeel_code,
@@ -3946,7 +3945,7 @@ END mnnl_update_eua;
/
-- MNNL#69794: CERT-import (CERTificaten)!
-- Title,CommonName,Beheerteam (Facilitor),Aanvrager,Installateur,EindDatum,Product,Omgeving,Uitgever,Definition,Omschrijving certificaat
-- Title;CommonName;Beheerteam (Facilitor);Aanvrager;Installateur;EindDatum;Omgeving;Uitgever;Product;Definition;Omschrijving certificaat
CREATE OR REPLACE PROCEDURE mnnl_import_cert (p_import_key IN NUMBER)
IS
c_delim VARCHAR2 (1) := ';';
@@ -3960,17 +3959,17 @@ IS
v_count_import NUMBER (10) := 0;
v_ongeldig NUMBER (1);
-- De importvelden:
v_title VARCHAR2 (255);
v_commonname VARCHAR2 (255);
v_beheerteam VARCHAR2 (255);
v_aanvrager VARCHAR2 (255);
v_installateur VARCHAR2 (255);
v_einddatum VARCHAR2 (255);
v_product VARCHAR2 (255);
v_omgeving VARCHAR2 (255);
v_uitgever VARCHAR2 (255);
v_definition VARCHAR2 (255);
v_omschrijving_cert VARCHAR2 (255);
v_title VARCHAR2 (1000);
v_commonname VARCHAR2 (1000);
v_beheerteam VARCHAR2 (1000);
v_aanvrager VARCHAR2 (1000);
v_installateur VARCHAR2 (1000);
v_einddatum VARCHAR2 (1000);
v_product VARCHAR2 (1000);
v_omgeving VARCHAR2 (1000);
v_uitgever VARCHAR2 (1000);
v_definition VARCHAR2 (1000);
v_omschrijving_cert VARCHAR2 (1000);
CURSOR c1
IS
@@ -4065,7 +4064,6 @@ BEGIN
THEN
BEGIN
v_errormsg := 'Fout wegschrijven importregel';
INSERT INTO mnnl_imp_cert (title,
commonname,
beheerteam,
@@ -4473,13 +4471,13 @@ AS
-- NULL-waarden resulteren NIET in het wissen van kenmerkvelden
-- (bijwerken kan wel, maar wissen dus niet)!
upsert_inskenmerk (v_deel_key, 401, rec.ins_kenmerkwaarde1); -- Beheerteam (Facilitor)
upsert_inskenmerk (v_deel_key, 402, rec.ins_kenmerkwaarde2); -- Aanvrager
upsert_inskenmerk (v_deel_key, 403, rec.ins_kenmerkwaarde3); -- Installateur
upsert_inskenmerk (v_deel_key, 404, rec.ins_kenmerkwaarde4); -- Product
upsert_inskenmerk (v_deel_key, 405, rec.ins_kenmerkwaarde5); -- Omgeving
upsert_inskenmerk (v_deel_key, 406, rec.ins_kenmerkwaarde6); -- Uitgever
upsert_inskenmerk (v_deel_key, 421, rec.ins_kenmerkwaarde7); -- Toelichting
upsert_inskenmerk (v_deel_key, 381, rec.ins_kenmerkwaarde1); -- Beheerteam (Facilitor)
upsert_inskenmerk (v_deel_key, 401, rec.ins_kenmerkwaarde2); -- Aanvrager
upsert_inskenmerk (v_deel_key, 402, rec.ins_kenmerkwaarde3); -- Installateur
upsert_inskenmerk (v_deel_key, 403, rec.ins_kenmerkwaarde4); -- Product
upsert_inskenmerk (v_deel_key, 404, rec.ins_kenmerkwaarde5); -- Omgeving
upsert_inskenmerk (v_deel_key, 405, rec.ins_kenmerkwaarde6); -- Uitgever
upsert_inskenmerk (v_deel_key, 406, rec.ins_kenmerkwaarde7); -- Toelichting
END IF;
EXCEPTION
WHEN OTHERS
@@ -4517,7 +4515,7 @@ AS
WHERE d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND sg.ins_discipline_key = id.ins_discipline_key
AND id.ins_discipline_key = 3421 -- TODO:Certificaten
AND id.ins_discipline_key = 3481 -- Certificaten
AND NOT EXISTS (SELECT 1 FROM mnnl_imp_cert WHERE UPPER (title) = d.ins_deel_upper)
ORDER BY 1, 2, 4, 5;