MAAS#61281 Koppeling Valuemation, ook aanpassing zodat bij externnr in het onderwerp de keys goed bepaald worden
svn path=/Customer/trunk/; revision=46014
This commit is contained in:
Sander Schepers
126
MAAS/maas.sql
126
MAAS/maas.sql
@@ -102,6 +102,7 @@ AS
|
||||
AND (SYSDATE - trackingdatum) * 24 BETWEEN 0 AND 1;
|
||||
/
|
||||
|
||||
/* Formatted on 27-2-2020 14:23:31 (QP5 v5.136.908.31019) */
|
||||
CREATE OR REPLACE PROCEDURE maas_processemail (pfrom IN VARCHAR2,
|
||||
pto IN VARCHAR2,
|
||||
psubject IN VARCHAR2,
|
||||
@@ -119,10 +120,11 @@ AS
|
||||
m_body VARCHAR2 (4000);
|
||||
v_actie VARCHAR2 (4000);
|
||||
v_vmnr mld_melding.mld_melding_externnr%TYPE; --Ticketnr Valuemation
|
||||
v_opdrextnr mld_melding.mld_melding_externnr%TYPE; --Huidig externnr
|
||||
v_mldkey mld_melding.mld_melding_key%TYPE; --bestaande mld_melding_key
|
||||
v_opdrkey mld_opdr.mld_opdr_key%TYPE; --bestaande mld_opdr_key
|
||||
v_opdrvolgnr mld_opdr.mld_opdr_bedrijfopdr_volgnr%TYPE; --bestaande volgnr
|
||||
v_status mld_opdr.mld_statusopdr_key%TYPE; -- status opdracht
|
||||
v_status mld_opdr.mld_statusopdr_key%TYPE; -- status opdracht
|
||||
v_kenmstatusoms VARCHAR2 (4000);
|
||||
v_kenmstatusper VARCHAR2 (4000);
|
||||
v_kenmstatusoms_cur VARCHAR2 (4000);
|
||||
@@ -282,28 +284,11 @@ 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 (psubject,
|
||||
INSTR (psubject, 'Facilitor opdracht:') + 19),
|
||||
'"')
|
||||
- 1),
|
||||
INSTR (
|
||||
SUBSTR (
|
||||
SUBSTR (psubject,
|
||||
INSTR (psubject, 'Facilitor opdracht:') + 19),
|
||||
0,
|
||||
INSTR (
|
||||
SUBSTR (psubject,
|
||||
INSTR (psubject, 'Facilitor opdracht:') + 19),
|
||||
'"')
|
||||
- 1),
|
||||
'/')
|
||||
+ 1);
|
||||
(SUBSTR (
|
||||
SUBSTR (psubject,
|
||||
INSTR (psubject, 'Facilitor opdracht:') + 19),
|
||||
0,
|
||||
1));
|
||||
|
||||
|
||||
-- Bepalen van de mld_opdr_key
|
||||
@@ -332,15 +317,19 @@ BEGIN
|
||||
'%WACHT OP UW REACTIE%'
|
||||
THEN
|
||||
v_actie := 'ORDUPD';
|
||||
v_kenmstatusoms := 'Wacht op uw reactie';
|
||||
v_kenmstatusoms :=
|
||||
'Aanvullende info gevraagd, wacht op uw reactie';
|
||||
WHEN UPPER (SUBSTR (psubject, 0, 14)) LIKE '%AFSTEMMING NAV%'
|
||||
THEN
|
||||
v_actie := 'ORDUPD';
|
||||
v_kenmstatusoms := 'Telefonisch contact leggen is mislukt';
|
||||
v_kenmstatusoms :=
|
||||
'Telefonisch contact leggen mislukt, wacht op uw reactie';
|
||||
WHEN UPPER (SUBSTR (psubject, LENGTH (psubject) - 11, 12)) LIKE
|
||||
'%IS OPGELOST%'
|
||||
THEN
|
||||
v_actie := 'ORDAFM';
|
||||
v_actie := 'ORDUPD';
|
||||
v_kenmstatusoms :=
|
||||
'Oplossing is aangereikt, bij akkoord kan de opdracht door u afgemeld worden. Akkoord graag ook versturen naar Valuemation via een opmerking.';
|
||||
WHEN UPPER (SUBSTR (psubject, LENGTH (psubject) - 45, 46)) LIKE
|
||||
'%IN VERBAND MET HET UITBLIJVEN VAN EEN REACTIE%'
|
||||
THEN
|
||||
@@ -390,17 +379,28 @@ BEGIN
|
||||
|
||||
IF v_vmnr IS NOT NULL AND v_opdrkey IS NOT NULL
|
||||
THEN
|
||||
SELECT mld_opdr_externnr
|
||||
INTO v_opdrextnr
|
||||
FROM mld_opdr
|
||||
WHERE mld_opdr_key = v_opdrkey;
|
||||
|
||||
UPDATE mld_opdr
|
||||
SET mld_opdr_externnr = v_vmnr
|
||||
WHERE mld_opdr_key = v_opdrkey;
|
||||
|
||||
fac.trackaction (
|
||||
'ORDUPD',
|
||||
v_opdrkey,
|
||||
sender,
|
||||
NULL,
|
||||
'#Valuemation nr vanuit confirmationbericht: --> '
|
||||
|| v_vmnr); -- # voorkomt notificatie
|
||||
--Enkel tracking mbt nieuw (of aanpassing Externnr) toevoegen als er ook iets wijzigt.
|
||||
IF v_opdrextnr <> v_vmnr
|
||||
THEN
|
||||
fac.trackaction (
|
||||
'ORDUPD',
|
||||
v_opdrkey,
|
||||
sender,
|
||||
NULL,
|
||||
'#Valuemation nr vanuit confirmationbericht: '
|
||||
|| v_opdrextnr
|
||||
|| ' --> '
|
||||
|| v_vmnr); -- # voorkomt notificatie
|
||||
END IF;
|
||||
ELSE
|
||||
fac.writelog (
|
||||
'PROCESSEMAIL',
|
||||
@@ -436,13 +436,19 @@ BEGIN
|
||||
WHERE mld_opdr_key = v_opdrkey
|
||||
AND mld_opdr_externnr IS NULL;
|
||||
|
||||
fac.trackaction (
|
||||
'ORDUPD',
|
||||
v_opdrkey,
|
||||
sender,
|
||||
NULL,
|
||||
'#Valuemation nr vanuit confirmationbericht: --> '
|
||||
|| v_vmnr); -- # voorkomt notificatie
|
||||
--Enkel tracking mbt nieuw (of aanpassing Externnr) toevoegen als er ook iets wijzigt.
|
||||
IF v_opdrextnr <> v_vmnr
|
||||
THEN
|
||||
fac.trackaction (
|
||||
'ORDUPD',
|
||||
v_opdrkey,
|
||||
sender,
|
||||
NULL,
|
||||
'#Valuemation nr vanuit confirmationbericht: '
|
||||
|| v_opdrextnr
|
||||
|| ' --> '
|
||||
|| v_vmnr); -- # voorkomt notificatie
|
||||
END IF; -- # voorkomt notificatie
|
||||
ELSE
|
||||
fac.writelog (
|
||||
'PROCESSEMAIL',
|
||||
@@ -541,13 +547,19 @@ BEGIN
|
||||
WHERE mld_opdr_key = v_opdrkey
|
||||
AND mld_opdr_externnr IS NULL;
|
||||
|
||||
fac.trackaction (
|
||||
'ORDUPD',
|
||||
v_opdrkey,
|
||||
sender,
|
||||
NULL,
|
||||
'#Valuemation nr vanuit confirmationbericht: --> '
|
||||
|| v_vmnr); -- # voorkomt notificatie
|
||||
--Enkel tracking mbt nieuw (of aanpassing Externnr) toevoegen als er ook iets wijzigt.
|
||||
IF v_opdrextnr <> v_vmnr
|
||||
THEN
|
||||
fac.trackaction (
|
||||
'ORDUPD',
|
||||
v_opdrkey,
|
||||
sender,
|
||||
NULL,
|
||||
'#Valuemation nr vanuit confirmationbericht: '
|
||||
|| v_opdrextnr
|
||||
|| ' --> '
|
||||
|| v_vmnr); -- # voorkomt notificatie
|
||||
END IF;
|
||||
ELSE
|
||||
fac.writelog (
|
||||
'PROCESSEMAIL',
|
||||
@@ -758,13 +770,19 @@ BEGIN
|
||||
WHERE mld_opdr_key = v_opdrkey
|
||||
AND mld_opdr_externnr IS NULL;
|
||||
|
||||
fac.trackaction (
|
||||
'ORDUPD',
|
||||
v_opdrkey,
|
||||
sender,
|
||||
NULL,
|
||||
'#Valuemation nr vanuit confirmationbericht: --> '
|
||||
|| v_vmnr); -- # voorkomt notificatie
|
||||
--Enkel tracking mbt nieuw (of aanpassing Externnr) toevoegen als er ook iets wijzigt.
|
||||
IF v_opdrextnr <> v_vmnr
|
||||
THEN
|
||||
fac.trackaction (
|
||||
'ORDUPD',
|
||||
v_opdrkey,
|
||||
sender,
|
||||
NULL,
|
||||
'#Valuemation nr vanuit confirmationbericht: '
|
||||
|| v_opdrextnr
|
||||
|| ' --> '
|
||||
|| v_vmnr); -- # voorkomt notificatie
|
||||
END IF;
|
||||
ELSE
|
||||
fac.writelog (
|
||||
'PROCESSEMAIL',
|
||||
|
||||
Reference in New Issue
Block a user