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

VLKC#64776 M2M-koppeling

Browse Source 
svn path=/Customer/trunk/; revision=53319
This commit is contained in:
Maarten van der Heide
2021-10-08 09:44:56 +00:00
parent 87582bee9d
commit 0ffce257ec
1 changed files with 20 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
VLKC/vlkc.sql
View File

@@ -4991,7 +4991,7 @@ AS
v_locatie_key NUMBER (10);
v_discipline_key NUMBER (10);
v_stdmelding_key NUMBER (10);
v_mld_oms VARCHAR2 (4000);
v_body VARCHAR2 (4000);
v_melding_key NUMBER (10);
v_folder_kkey NUMBER (10);
v_opdracht_id VARCHAR2 (255);
@@ -5056,7 +5056,13 @@ BEGIN
WHERE mld_stdmelding_key = 2121;
-- Body overnemen tot 1e voorkomen van hard afgesproken start DISCLAIMER!
v_mld_oms := TRIM (SUBSTR (pbody, 1, INSTR (UPPER (pbody), 'DISCLAIMER' || CHR (13) || CHR (10) || 'DE INFORMATIE IN DIT BERICHT') - 1));
v_errormsg := 'Fout strippen disclaimer';
IF INSTR (UPPER (pbody), 'DISCLAIMER' || CHR (13) || CHR (10) || 'DE INFORMATIE IN DIT BERICHT') > 0
THEN
v_body := TRIM (SUBSTR (pbody, 1, INSTR (UPPER (pbody), 'DISCLAIMER' || CHR (13) || CHR (10) || 'DE INFORMATIE IN DIT BERICHT') - 1));
ELSE
v_body := pbody;
END IF;
-- Suggested extensions:
-- - Check for MLDUSE-write autorisations
@@ -5084,7 +5090,7 @@ BEGIN
COALESCE (v_locatie_key, 1), -- Fallback op 1=AMS-WTC
NULL, --v_onrgoed_keys,
SYSDATE,
SUBSTR (v_mld_oms, 1, 2000),
SUBSTR (v_body, 1, 2000),
v_stdmelding_key,
NULL,
v_kostenplaats_key,
@@ -5193,9 +5199,19 @@ BEGIN
FROM mld_opdr
WHERE TO_CHAR (mld_melding_key) || '/' || TO_CHAR (mld_opdr_bedrijfopdr_volgnr) = SUBSTR (v_opdracht_id, REGEXP_INSTR (v_opdracht_id, '\d'));
-- Body overnemen tot 1e voorkomen van hard afgesproken start DISCLAIMER!
v_errormsg := 'Fout strippen disclaimer';
IF INSTR (UPPER (pbody), 'DISCLAIMER' || CHR (13) || CHR (10) || 'DE INFORMATIE IN DIT BERICHT') > 0
THEN
v_body := TRIM (SUBSTR (pbody, 1, INSTR (UPPER (pbody), 'DISCLAIMER' || CHR (13) || CHR (10) || 'DE INFORMATIE IN DIT BERICHT') - 1));
ELSE
v_body := pbody;
END IF;
v_errormsg := 'Fout toevoegen opdracht-notitie';
INSERT INTO mld_opdr_note (mld_opdr_key, prs_perslid_key, mld_opdr_note_omschrijving)
VALUES (v_opdracht_key, v_perslid_key, pfrom || CHR (13) || CHR (10) || psubject || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000));
VALUES (v_opdracht_key, v_perslid_key, pfrom || CHR (13) || CHR (10) || psubject || CHR (13) || CHR (10) || SUBSTR (v_body, 1, 2000));
v_errormsg := 'Fout bijwerken opdracht-kleurbolletje';
UPDATE mld_opdr