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

MNNL#81939 PRS-import/Afnemen _Default-rol(len)

Browse Source 
svn path=/Customer/trunk/; revision=63342
This commit is contained in:
Maarten van der Heide
2024-01-25 13:38:21 +00:00
parent b4109a571b
commit d055e0c6f7
1 changed files with 189 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

219
MNNL/mnnl.sql
View File

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