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

RWSN#83086 M2M-LEF

Browse Source 
svn path=/Customer/trunk/; revision=68808
This commit is contained in:
Maarten van der Heide
2025-04-18 12:20:38 +00:00
parent 4d38abfa9f
commit 4885eb1d9b
1 changed files with 29 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
RWSN/rwsn.sql
View File

@@ -28580,7 +28580,7 @@ BEGIN
mld.setmeldingstatus (v_melding_key, 2, v_perslid_key);
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'maillog', 'Geregistreerd onder melding ' || v_melding_key);
VALUES (psessionid, 'maillog', 'Geregistreerd onder melding ' || TO_CHAR (v_melding_key));
ELSE
-- Ignore afzender.
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
@@ -28723,9 +28723,9 @@ BEGIN
mld.setmeldingstatus (v_melding_key, 2, v_perslid_key);
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'maillog', 'Geregistreerd onder melding ' || v_melding_key);
VALUES (psessionid, 'maillog', 'Geregistreerd onder melding ' || TO_CHAR (v_melding_key));
-- Find the lowest volgnummer of the Folder-flexfield.
-- Find the lowest volgnummer of a Folder-flexfield.
v_errormsg := 'Fout bepalen Folder kenmerk';
SELECT MIN (k1.mld_kenmerk_key)
INTO v_folder_kkey
@@ -28754,7 +28754,7 @@ BEGIN
IF v_folder_kkey IS NOT NULL
THEN
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'kenmerkpath', 'MLD\M' || TO_CHAR (TRUNC (v_melding_key / 1000), 'FM0000') || '___\M' || v_melding_key || '\' || v_folder_kkey || '\');
VALUES (psessionid, 'kenmerkpath', 'MLD\M' || TO_CHAR (TRUNC (v_melding_key / 1000), 'FM0000') || '___\M' || TO_CHAR (v_melding_key) || '\' || TO_CHAR (v_folder_kkey) || '\');
END IF;
-- Handle workflow actions for completion (in case of new melding).
@@ -28797,7 +28797,9 @@ BEGIN
SELECT mld_ins_discipline_key
INTO v_discipline_key
FROM mld_stdmelding
WHERE mld_stdmelding_key = v_stdmelding_key;
WHERE mld_stdmelding_verwijder IS NULL
AND COALESCE (mld_stdmelding_vervaldatum, SYSDATE + 1) > SYSDATE
AND mld_stdmelding_key = v_stdmelding_key;
/*
Formuliervelden (letterlijk):
64608=Naam aanvrager
@@ -29172,21 +29174,32 @@ BEGIN
mld.setmeldingstatus (v_melding_key, 2, v_perslid_key);
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'maillog', 'Geregistreerd onder melding ' || v_melding_key);
VALUES (psessionid, 'maillog', 'Geregistreerd onder melding ' || TO_CHAR (v_melding_key));
-- Find the lowest key of a Folder-flexfield.
v_errormsg := 'Fout toevoegen originele mail';
SELECT MIN (sk.mld_srtkenmerk_kenmerktype)
INTO v_srtkenmerk_type
FROM mld_kenmerk k, mld_srtkenmerk sk
WHERE k.mld_kenmerk_verwijder IS NULL
AND k.mld_kenmerk_key = -1
AND k.mld_stdmelding_key = v_stdmelding_key
AND k.mld_kenmerk_niveau = 'S'
AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key;
IF v_srtkenmerk_type = 'M'
SELECT MIN (k1.mld_kenmerk_key)
INTO v_folder_kkey
FROM mld_kenmerk k1, mld_srtkenmerk sk1
WHERE k1.mld_kenmerk_verwijder IS NULL
AND k1.mld_stdmelding_key = v_stdmelding_key
AND k1.mld_kenmerk_niveau = 'S'
AND k1.mld_srtkenmerk_key = sk1.mld_srtkenmerk_key
AND sk1.mld_srtkenmerk_kenmerktype = 'M'
AND NOT EXISTS
(SELECT 1
FROM mld_kenmerk k2, mld_srtkenmerk sk2
WHERE k2.mld_kenmerk_verwijder IS NULL
AND k2.mld_stdmelding_key = v_stdmelding_key
AND k2.mld_kenmerk_niveau = 'S'
AND k2.mld_srtkenmerk_key = sk2.mld_srtkenmerk_key
AND sk2.mld_srtkenmerk_kenmerktype = 'M'
AND k2.mld_kenmerk_key < k1.mld_kenmerk_key);
IF v_folder_kkey IS NOT NULL
THEN
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'kenmerkorgmailpath', 'MLD\M' || TO_CHAR (TRUNC (v_melding_key / 1000), 'FM0000') || '___\M' || v_melding_key || '\' || 999 || '\');
VALUES (psessionid, 'kenmerkorgmailpath', 'MLD\M' || TO_CHAR (TRUNC (v_melding_key / 1000), 'FM0000') || '___\M' || TO_CHAR (v_melding_key) || '\' || TO_CHAR (v_folder_kkey) || '\');
END IF;
ELSE
-- Ignore afzender.