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=63353
This commit is contained in:
Maarten van der Heide
2024-01-26 11:56:29 +00:00
parent ac978477c0
commit c2e3a20282
1 changed files with 22 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
MNNL/mnnl.sql
View File

@@ -101,8 +101,8 @@ AS
3681, -- Vervangen certificaat
NULL,
NULL, -- prs_kostenplaats_key
714, -- TODO:Paul van den Bold
714, -- TODO:Paul van den Bold
22946, -- TODO:Persoon met achternaam=CMDB en login=MBCMDB!
22946, -- TODO:Persoon met achternaam=CMDB en login=MBCMDB!
NULL,
3) -- Normaal
RETURNING mld_melding_key
@@ -3935,7 +3935,7 @@ END mnnl_update_eua;
/
-- MNNL#69794: CERT-import (CERTificaten)!
-- CommonName Beheerteam (Facilitor) Aanvrager Installateur EindDatum Product Omgeving Uitgever Definition Omschrijving certificaat
-- Title,CommonName,Beheerteam (Facilitor),Aanvrager,Installateur,EindDatum,Product,Omgeving,Uitgever,Definition,Omschrijving certificaat
CREATE OR REPLACE PROCEDURE mnnl_import_cert (p_import_key IN NUMBER)
IS
c_delim VARCHAR2 (1) := ';';
@@ -3949,6 +3949,7 @@ 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);
@@ -3975,6 +3976,7 @@ BEGIN
v_aanduiding := '';
v_ongeldig := 0;
-- Lees alle veldwaarden
fac.imp_getfield (v_newline, c_delim, v_title);
fac.imp_getfield (v_newline, c_delim, v_commonname);
fac.imp_getfield (v_newline, c_delim, v_beheerteam);
fac.imp_getfield (v_newline, c_delim, v_aanvrager);
@@ -3988,7 +3990,7 @@ BEGIN
v_aanduiding :=
'['
|| v_commonname
|| v_title
|| '|'
|| v_beheerteam
|| '] ';
@@ -3998,7 +4000,8 @@ BEGIN
-- Ik negeer alles totdat ik een geldige header ben gepasseerd.
IF (header_is_valid = 0)
THEN
IF UPPER (v_commonname) = 'COMMONNAME'
IF UPPER (v_title) = 'TITLE'
AND UPPER (v_commonname) = 'COMMONNAME'
AND UPPER (v_beheerteam) = 'BEHEERTEAM (FACILITOR)'
AND UPPER (v_aanvrager) = 'AANVRAGER'
AND UPPER (v_installateur) = 'INSTALLATEUR'
@@ -4015,10 +4018,10 @@ BEGIN
v_count_tot := v_count_tot + 1;
-- Controleer alle veldwaarden
v_errormsg := 'CommonName ongeldig; ongedefinieerd of te lang';
v_commonname := TRIM (v_commonname);
v_errormsg := 'Title ongeldig; ongedefinieerd of te lang';
v_title := TRIM (v_title);
IF v_commonname IS NULL OR LENGTH (v_commonname) > 60
IF v_title IS NULL OR LENGTH (v_title) > 60
THEN
v_ongeldig := 1;
fac.imp_writelog (p_import_key, 'W', v_aanduiding || v_errormsg, 'Regel wordt overgeslagen!');
@@ -4036,6 +4039,7 @@ BEGIN
--
v_errormsg := 'Fout bufferen overige velden';
v_commonname := TRIM (v_commonname);
v_beheerteam := TRIM (v_beheerteam);
v_aanvrager := TRIM (v_aanvrager);
v_installateur := TRIM (v_installateur);
@@ -4051,7 +4055,8 @@ BEGIN
BEGIN
v_errormsg := 'Fout wegschrijven importregel';
INSERT INTO mnnl_imp_cert (commonname,
INSERT INTO mnnl_imp_cert (title,
commonname,
beheerteam,
aanvrager,
installateur,
@@ -4061,7 +4066,8 @@ BEGIN
uitgever,
definition,
omschrijving_cert)
VALUES (v_commonname,
VALUES (v_title,
v_commonname,
v_beheerteam,
v_aanvrager,
v_installateur,
@@ -4246,10 +4252,11 @@ AS
'Certificaten' ins_srtgroep_omschrijving,
'CERT' ins_srtdeel_code,
'Certificaten' ins_srtdeel_omschrijving,
commonname ins_deel_omschrijving,
title ins_deel_omschrijving,
omschrijving_cert ins_deel_opmerking,
NULL alg_locatie_code, NULL alg_gebouw_code, NULL alg_verdieping_volgnr, NULL alg_ruimte_nr,
'A' prs_perslid_matchcode, 'IV' prs_perslid_matchwaarde, -- 10=IV=Informatievoorziening
--'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)!
einddatum ins_deel_vervaldatum,
beheerteam ins_kenmerkwaarde1,
aanvrager ins_kenmerkwaarde2,
@@ -4381,7 +4388,8 @@ AS
INTO v_ruimte_key
FROM prs_perslid
WHERE prs_perslid_verwijder IS NULL
AND prs_perslid_oslogin = UPPER (rec.prs_perslid_matchwaarde);
--AND prs_perslid_oslogin = UPPER (rec.prs_perslid_matchwaarde);
AND prs_perslid_key= rec.prs_perslid_matchwaarde;
-- Persoonsgebonden objecten hebben een unieke ID!
v_ruimte_type := 'P';
@@ -4497,7 +4505,7 @@ AS
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 NOT EXISTS (SELECT 1 FROM mnnl_imp_cert WHERE UPPER (commonname) = d.ins_deel_upper)
AND NOT EXISTS (SELECT 1 FROM mnnl_imp_cert WHERE UPPER (title) = d.ins_deel_upper)
ORDER BY 1, 2, 4, 5;
v_errormsg VARCHAR2 (1000);