VOLK#78479 Aanvraag kosten Mail2Melding

svn path=/Customer/trunk/; revision=62778
This commit is contained in:
Suzan Wiegerinck
2023-11-30 10:18:41 +00:00
parent fa2f8e3281
commit d20afd43c6

View File

@@ -1701,6 +1701,48 @@ BEGIN
RETURNING mld_melding_key
INTO v_newkey;
-- Find the lowest volgnummer of the Folder-flexfield.
SELECT MIN (k1.mld_kenmerk_key)
INTO v_folder_kkey
FROM mld_stdmelding sm1,
ins_tab_discipline td1,
mld_kenmerk k1,
mld_srtkenmerk sk1,
mld_melding m
WHERE m.mld_stdmelding_key = sm1.mld_stdmelding_key
AND m.mld_melding_key = v_newkey
AND sm1.mld_ins_discipline_key = td1.ins_discipline_key
AND k1.mld_kenmerk_verwijder IS NULL
AND k1.mld_srtkenmerk_key = sk1.mld_srtkenmerk_key
AND sk1.mld_srtkenmerk_kenmerktype = 'M'
AND ( ( k1.mld_stdmelding_key =
sm1.mld_stdmelding_key
AND k1.mld_kenmerk_niveau = 'S')
OR ( k1.mld_stdmelding_key =
td1.ins_discipline_key
AND k1.mld_kenmerk_niveau = 'D')
OR ( k1.mld_stdmelding_key =
td1.ins_srtdiscipline_key
AND k1.mld_kenmerk_niveau = 'T')
OR (k1.mld_kenmerk_niveau = 'A'));
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_newkey / 1000), 'FM0000')
|| '___\M'
|| v_newkey
|| '\'
|| v_folder_kkey
|| '\');
END IF;
INSERT INTO fac_result (fac_result_sessionid,
fac_result_naam,
fac_result_waarde)