diff --git a/MNNL/mnnl.sql b/MNNL/mnnl.sql index af21e054c..aca2722f0 100644 --- a/MNNL/mnnl.sql +++ b/MNNL/mnnl.sql @@ -46,24 +46,41 @@ AS aanduiding, sd.ins_srtdeel_code, d.ins_deel_key, - d.ins_deel_omschrijving, + d.ins_deel_omschrijving, -- 7041=Certificaat naam d.ins_deel_vervaldatum, MAX (md.ins_discipline_key) behandelteam_key, - MAX (md.ins_discipline_omschrijving) behandelteam_oms + 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 FROM ins_v_aanwezigdeel d, ins_srtdeel sd, ins_srtgroep sg, - (SELECT * FROM ins_v_aanwezigkenmerkdeel WHERE ins_kenmerk_key = 401) bt, -- Beheerteam + (SELECT * FROM ins_v_aanwezigkenmerkdeel WHERE ins_kenmerk_key = 401) 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 + 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 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(+))) + AND d.ins_deel_key = a.ins_deel_key(+) + AND d.ins_deel_key = i.ins_deel_key(+) + AND d.ins_deel_key = p.ins_deel_key(+) + AND d.ins_deel_key = u.ins_deel_key(+) + AND d.ins_deel_key = o.ins_deel_key(+) GROUP BY '[' || TO_CHAR (d.ins_deel_key) || '|' || d.ins_deel_omschrijving || '|' || bt.ins_kenmerkdeel_waarde || '] ', sd.ins_srtdeel_code, d.ins_deel_key, @@ -108,47 +125,30 @@ AS 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 toevoegen Certificaat naam'; -- 7041='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 + 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 + 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 + 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 + 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 + 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 + INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde) + VALUES (v_melding_key, 7047, rec.toelichting); v_errormsg := 'Fout bijwerken melding-status'; mld.setmeldingstatus (v_melding_key, 2, NULL); @@ -4235,7 +4235,7 @@ AS 'CERT' ins_srtdeel_code, 'Certificaten' ins_srtdeel_omschrijving, title ins_deel_omschrijving, - omschrijving_cert ins_deel_opmerking, + NULL ins_deel_opmerking, NULL alg_locatie_code, NULL alg_gebouw_code, NULL alg_verdieping_volgnr, NULL alg_ruimte_nr, --'P' prs_perslid_matchcode, 22946 prs_perslid_matchwaarde, -- 22946=persoon met achternaam=CMDB en login=MBCMDB! 'A' prs_perslid_matchcode, 'IV' prs_perslid_matchwaarde, -- IV=Informatievoorziening (met key=10)! @@ -4245,7 +4245,8 @@ AS installateur ins_kenmerkwaarde3, product ins_kenmerkwaarde4, omgeving ins_kenmerkwaarde5, - uitgever ins_kenmerkwaarde6 + uitgever ins_kenmerkwaarde6, + omschrijving_cert ins_kenmerkwaarde7 FROM mnnl_imp_cert ORDER BY 1, 2, 4, 5; @@ -4443,12 +4444,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 + 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 END IF; EXCEPTION WHEN OTHERS