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=63549
This commit is contained in:
Maarten van der Heide
2024-02-09 10:36:46 +00:00
parent f71385d41f
commit 4be279a40c
1 changed files with 47 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

92
MNNL/mnnl.sql
View File

@@ -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