MAAS#61281 Koppeling Valuemation

svn path=/Customer/trunk/; revision=46715
This commit is contained in:
Sander Schepers
2020-05-01 12:10:18 +00:00
parent 0169892cea
commit 536dc7a1f7

View File

@@ -251,7 +251,7 @@ BEGIN
-- Bepalen van het ticknr. uit Valuemation, deze is vooral van belang bij het confirmation bericht
v_errormsg := '(0x246)' || v_mldkey || psubject || v_actie;
v_vmnr := SUBSTR (psubject, 11, 12);
v_vmnr := substr(regexp_replace(psubject, '[^0-9]', ''),0, 12);
-- Bepalen van mld_melding_key
v_errormsg := '(0x247)' || v_mldkey || psubject || v_actie;
@@ -283,18 +283,18 @@ BEGIN
-- Bepalen van opdrachtvolgnr
v_errormsg := '(0x248)' || v_mldkey || psubject || v_actie;
v_opdrvolgnr :=
SUBSTR (
SUBSTR (
SUBSTR (psubject, INSTR (psubject, 'Facilitor opdracht:') + 19),
0),
INSTR (
SUBSTR (
SUBSTR (psubject,
INSTR (psubject, 'Facilitor opdracht:') + 19),
0),
'/')
+ 1,
1);
SUBSTR (
SUBSTR (
SUBSTR (psubject, INSTR (psubject, 'Facilitor opdracht:') + 19),
0),
INSTR (
SUBSTR (
SUBSTR (psubject,
INSTR (psubject, 'Facilitor opdracht:') + 19),
0),
'/')
+ 1,
1);
-- Bepalen van de mld_opdr_key
-- Uitgangspunt is 1 opdracht per melding
@@ -339,6 +339,12 @@ BEGIN
'%IN VERBAND MET HET UITBLIJVEN VAN EEN REACTIE%'
THEN
v_actie := 'ORDAFM';
WHEN UPPER (SUBSTR (psubject, LENGTH (psubject) - 13, 14)) LIKE
'%IS BIJGEWERKT%'
THEN
v_actie := 'ORDUPD';
v_kenmstatusoms :=
'De melding is bijgewerkt.';
ELSE
v_actie := NULL;
END CASE;
@@ -582,7 +588,7 @@ BEGIN
|| ')');
END IF;
--Wanneer confirmationbericht niet binnen is gekomen, dan is de status nog Toegekend (6) en niet Geaccepteerd (8). Dat kunnen we nu ook omzetten, zodra er een
--Wanneer confirmationbericht niet binnen is gekomen, dan is de status nog Toegekend (6) en niet Geaccepteerd (8). Dat kunnen we nu ook omzetten.
IF v_vmnr IS NOT NULL
AND v_opdrkey IS NOT NULL
AND v_status = 6 --Toegekend (en dus nog niet geaccepteerd)
@@ -623,7 +629,7 @@ BEGIN
INTO v_kenmstatusper_cur
FROM DUAL;
-- Als de kenmkerken nog niet bestaan, dan toevoegen bij de opdracht, anders updaten indien gewijzigd.
-- Als de kenmerken nog niet bestaan, dan toevoegen bij de opdracht, anders updaten indien gewijzigd.
IF v_kenmstatusoms_cur = 'leeg'
THEN
v_errormsg :=