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=63448
This commit is contained in:
Maarten van der Heide
2024-02-02 14:38:53 +00:00
parent dd0b2ecc68
commit 4e04613309
1 changed files with 5 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
MNNL/mnnl.sql
View File

@@ -172,25 +172,6 @@ AS
END; 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 -- ACTIVE DIRECTORY
CREATE OR REPLACE PROCEDURE mnnl_import_prs (p_import_key IN NUMBER) CREATE OR REPLACE PROCEDURE mnnl_import_prs (p_import_key IN NUMBER)
AS AS
@@ -10337,6 +10318,10 @@ AS
v_datum1 DATE; v_datum1 DATE;
v_datum2 DATE; v_datum2 DATE;
BEGIN BEGIN
-- Registreren 'Vervangen certificaat'-melding (=3681) 30d voor Vervaldatum
-- van 'Certificaten'-object onder 'Certificaten'-discipline (=2241).
mnnl.vervangen_cert;
-- Aanname dat er elk jaar iets te schonen valt, anders rustig jaartje! -- Aanname dat er elk jaar iets te schonen valt, anders rustig jaartje!
v_errormsg := 'Fout bepalen of er nog iets te schonen valt'; v_errormsg := 'Fout bepalen of er nog iets te schonen valt';
SELECT SUM (aantal) SELECT SUM (aantal)
@@ -10583,7 +10568,7 @@ EXCEPTION
oracle_err_num := SQLCODE; oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200); oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')'; v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog ('DAILY', 'E', 'Proces DAILY afgebroken!', v_errormsg); fac.writelog ('DAILY', 'E', 'Proces afgebroken!', v_errormsg);
COMMIT; COMMIT;
END; END;
/ /