diff --git a/WELK/welk.sql b/WELK/welk.sql index 88036c9ba..2e7c4f895 100644 --- a/WELK/welk.sql +++ b/WELK/welk.sql @@ -327,6 +327,1220 @@ AS AND fac.gettrackingdate ('MLDNEW', m.mld_melding_key) >= nj.fac_notificatie_job_nextrun - (nj.fac_notificatie_job_interval / 24); + +CREATE OR REPLACE PROCEDURE welk_processemail (pfrom IN VARCHAR2, + pto IN VARCHAR2, + psubject IN VARCHAR2, + pbody IN VARCHAR2, + psessionid IN VARCHAR2, + pemailkey IN NUMBER) +AS + sender prs_perslid.prs_perslid_key%TYPE; + mldkey mld_melding.mld_melding_key%TYPE; + mldstat mld_melding.mld_melding_status%TYPE; + stdmelding mld_stdmelding.mld_stdmelding_key%TYPE; + v_errormsg fac_result.fac_result_waarde%TYPE; + v_from VARCHAR2 (4000); + v_body VARCHAR2 (4000); + 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_kenmerk_key NUMBER (10); + v_kenmstatusoms VARCHAR2 (4000); + v_kenmstatusper VARCHAR2 (4000); + v_kenmstatusoms_cur VARCHAR2 (4000); + v_kenmstatusper_cur VARCHAR2 (4000); + v_vm_oplossing VARCHAR2 (4000); + v_vm_oplossing_cur VARCHAR2 (4000); + v_manager_email VARCHAR2 (4000); + v_manager_key prs_perslid.prs_perslid_key%TYPE; + v_lgkenmerk_key mld_kenmerk.mld_kenmerk_key%TYPE; +BEGIN + v_errormsg := '(0x143)' || v_mldkey || psubject || v_actie; + sender := 4; --Standaard de persoon Facilitor + + -- Verwijder de Bounce Address Tag Validation + IF pfrom LIKE 'prvs=%' + THEN + v_from := SUBSTR (pfrom, INSTR (pfrom, '=', -1) + 1); + ELSE + v_from := pfrom; + END IF; + + v_body := pbody; + m_body := pbody; + + CASE + WHEN UPPER (pto) LIKE 'HELPDESK_ELKIEN@%' + THEN + v_errormsg := '(0x245)' || v_mldkey || psubject || v_actie; + stdmelding := + fac.safe_to_number (fac.getsetting ('defaultstdmelding')); + mldstat := 2; + -- Standaard de status in Nieuw (2). Bij geen overeenkomend onderwerp, dan status Nieuw (2), zodat de melding kan worden doorgezet en er een workflow gaat starten na het doorzetten. + + -- 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 (REGEXP_REPLACE (psubject, '[^0-9]', ''), 0, 12); + + -- Bepalen van mld_melding_key + v_errormsg := '(0x247)' || v_mldkey || psubject || v_actie; + v_mldkey := + SUBSTR ( + SUBSTR ( + SUBSTR (psubject, + INSTR (psubject, 'Facilitor opdracht:') + 19), + 0, + INSTR ( + SUBSTR (psubject, + INSTR (psubject, 'Facilitor opdracht:') + 19), + '"') + - 1), + 0, + INSTR ( + SUBSTR ( + SUBSTR (psubject, + INSTR (psubject, 'Facilitor opdracht:') + 19), + 0, + INSTR ( + SUBSTR (psubject, + INSTR (psubject, 'Facilitor opdracht:') + 19), + '"') + - 1), + '/') + - 1); + + -- 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); + + -- Bepalen van de mld_opdr_key + -- Uitgangspunt is 1 opdracht per melding + v_errormsg := '(0x249)' || v_mldkey || psubject || v_actie; + + SELECT MIN (mld_opdr_key) + INTO v_opdrkey + FROM mld_opdr + WHERE mld_melding_key = v_mldkey + AND mld_opdr_bedrijfopdr_volgnr = v_opdrvolgnr; + + --Hier gaan we obv het onderwerpveld bepalen wat de actie in Facilitor moet zijn + v_errormsg := 'Kan actie niet bepalen: ' || psubject || v_mldkey; + + CASE + WHEN UPPER (SUBSTR (psubject, LENGTH (psubject) - 13, 14)) LIKE + '%IS AANGEMAAKT%' + THEN + v_actie := 'ORDVAL'; + WHEN UPPER (SUBSTR (psubject, LENGTH (psubject) - 22, 23)) LIKE + '%IS DOOR ONS GEVALIDEERD%' + THEN + v_actie := 'ORDACP'; + WHEN UPPER (SUBSTR (psubject, LENGTH (psubject) - 22, 23)) LIKE + '%WACHT OP UW REACTIE%' + THEN + v_actie := 'ORDUPD'; + 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 mislukt, wacht op uw reactie'; + WHEN UPPER (SUBSTR (psubject, LENGTH (psubject) - 11, 12)) LIKE + '%IS OPGELOST%' + THEN + v_actie := 'ORDGOE'; + v_kenmstatusoms := + 'Oplossing is aangereikt, bij akkoord kan de opdracht door u afgemeld worden via de link in Facilitor. Bij geen akkoord, dit graag aangeven via de portal van Valuemation.'; + WHEN UPPER (SUBSTR (psubject, LENGTH (psubject) - 12, 13)) LIKE + '%ACCORDERING%' + THEN + v_actie := 'ORDOPL'; + v_kenmstatusoms := + 'Oplossing is aangereikt, bij akkoord kan de opdracht door u afgemeld worden via de link in Facilitor.'; + WHEN UPPER (SUBSTR (psubject, LENGTH (psubject) - 45, 46)) LIKE + '%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; + + + BEGIN + --Hieronder de acties die gedaan moeten worden. + + --Bevestigingsmail vanuit Valuemation, vult externnr bij de melding + v_errormsg := '(0x350)' || v_mldkey || psubject || v_actie; + + --Als de actie niet bepaald kan worden obv het onderwerp van de mail uit Valuemation, dan doen we niets met de mail. + IF v_actie = NULL + THEN + v_errormsg := '(0x361)' || v_mldkey || psubject; + + fac.writelog ( + 'PROCESSEMAIL', + 'E', + 'Onbekende actie, mail van: ' + || pfrom + || '[' + || v_errormsg + || ']', + 'OTHERS (error ' + || SQLCODE + || '/' + || SUBSTR (SQLERRM, 1, 100) + || ')'); + ELSE + --Bij een confirmationbericht uit Valuemation, wordt het ticketnr vanuit Valuemation doorgegeven. + IF v_actie = 'ORDVAL' + THEN + v_errormsg := + '(0x410)' + || v_mldkey + || psubject + || v_actie + || 'vmnr: ' + || v_vmnr + || 'opdrkey: ' + || v_opdrkey; + + 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; + + --Tracking toevoegen (externnr) + fac.trackaction ( + 'ORDUPD', + v_opdrkey, + sender, + NULL, + 'Valuemation nr vanuit confirmationbericht: ' + || v_opdrextnr + || ' --> ' + || v_vmnr); + ELSE + fac.writelog ( + 'PROCESSEMAIL', + 'E', + 'Valuemation nr kon niet worden gevuld:' + || pfrom + || '[' + || v_errormsg + || v_vmnr + || ']', + 'OTHERS (error ' + || SQLCODE + || '/' + || SUBSTR (SQLERRM, 1, 100) + || ')'); + END IF; + END IF; + + --Hieronder de afhandeling van het bericht wanneer de melding wordt gevalideerd in Valuemation. + IF v_actie = 'ORDACP' + THEN + v_errormsg := '(0x420)' || v_mldkey || psubject || v_actie; + v_vmnr := + SUBSTR (REGEXP_REPLACE (psubject, '[^0-9]', ''), 1, 12); + + IF v_opdrkey IS NOT NULL + THEN + --Normaal zouden we het ticketnummer vanuit Valuemation al moeten hebben vanuit confirmationbericht. Maar als dit bericht niet goed ontvangen is, dan proberen we het ticketnummer alsnog te vullen + IF v_vmnr IS NOT NULL AND v_opdrkey IS NOT NULL + THEN + UPDATE mld_opdr + SET mld_opdr_externnr = v_vmnr + WHERE mld_opdr_key = v_opdrkey + AND mld_opdr_externnr IS NULL; + + --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', + 'E', + 'Valuemation nr kon niet worden gevuld:' + || pfrom + || '[' + || v_errormsg + || v_vmnr + || ']', + 'OTHERS (error ' + || SQLCODE + || '/' + || SUBSTR (SQLERRM, 1, 100) + || ')'); + END IF; + + UPDATE mld_opdr + SET mld_statusopdr_key = 8 --Status geaccepteerd + WHERE mld_opdr_key = v_opdrkey; + + fac.trackaction ('ORDACP', + v_opdrkey, + sender, + NULL, + '#Melding gevalideerd in Valuemation'); -- # voorkomt notificatie + + INSERT INTO mld_opdr_note (mld_opdr_key, + mld_opdr_note_omschrijving, + prs_perslid_key) + VALUES (v_opdrkey, + SUBSTR ( + psubject || CHR (13) || CHR (10) + || REPLACE ( + SUBSTR ( + pbody, + 1, + 4000 - (LENGTH (psubject) + 2)), + CHR (13) + || CHR (10) + || CHR (13) + || CHR (10), + CHR (13) || CHR (10)), + 1, + 4000), -- Verwijder onnodige witregels + sender); + + fac.trackaction ('ORDUPD', + v_opdrkey, + sender, + NULL, + '#Notitie toegevoegd vanuit e-mail'); -- # voorkomt notificatie + ELSE + fac.writelog ( + 'PROCESSEMAIL', + 'E', + 'Melding kan niet geaccepteerd worden, onbekende opdrachtkey' + || pfrom + || '[' + || v_errormsg + || ']', + 'OTHERS (error ' + || SQLCODE + || '/' + || SUBSTR (SQLERRM, 1, 100) + || ')'); + END IF; + END IF; + + --Hieronder de afhandeling van het bericht wanneer de melding moet worden bijgewerkt en een reactie wordt verwacht + IF v_actie = 'ORDUPD' + THEN + v_errormsg := '(0x430)' || v_mldkey || psubject || v_actie; + v_vmnr := + SUBSTR (REGEXP_REPLACE (psubject, '[^0-9]', ''), 1, 12); + + + IF v_opdrkey IS NOT NULL + THEN + v_errormsg := + '(0x431)' || v_mldkey || psubject || v_actie; + + SELECT mld_statusopdr_key + INTO v_status + FROM mld_opdr + WHERE mld_opdr_key = v_opdrkey; + + --Normaal zouden we het ticketnummer vanuit Valuemation al moeten hebben vanuit confirmationbericht. Maar als dit bericht niet goed ontvangen is, dan proberen we het ticketnummer alsnog te vullen + IF v_vmnr IS NOT NULL AND v_opdrkey IS NOT NULL + THEN + v_errormsg := + '(0x432)' || v_mldkey || psubject || v_actie; + + UPDATE mld_opdr + SET mld_opdr_externnr = v_vmnr + WHERE mld_opdr_key = v_opdrkey + AND mld_opdr_externnr IS NULL; + + --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', + 'E', + 'Valuemation nr kon niet worden gevuld:' + || pfrom + || '[' + || v_errormsg + || v_vmnr + || ']', + 'OTHERS (error ' + || SQLCODE + || '/' + || SUBSTR (SQLERRM, 1, 100) + || ')'); + END IF; + + --Wanneer confirmationbericht niet binnen is gekomen, dan is de status nog Toegekend (5) 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 = 5 --Toegekend (en dus nog niet geaccepteerd) + THEN + v_errormsg := + '(0x433)' || v_mldkey || psubject || v_actie; + + UPDATE mld_opdr + SET mld_statusopdr_key = 8 -- Geaccepteerd + WHERE mld_opdr_key = v_opdrkey + AND v_status = 5; + + fac.trackaction ( + 'ORDACP', + v_opdrkey, + sender, + NULL, + '#Melding gevalideerd in Valuemation'); -- # voorkomt notificatie + END IF; + + -- Hieronder bepalen of de opdracht al de kenmerken mbt status Valuemation gevuld heeft. + SELECT COALESCE ( + (SELECT mld_kenmerkopdr_waarde + FROM mld_kenmerkopdr + WHERE mld_kenmerk_key = 466 -- Kenmerk 'Status valuemation' + AND mld_opdr_key = v_opdrkey + AND mld_kenmerkopdr_verwijder IS NULL), + 'leeg') + INTO v_kenmstatusoms_cur + FROM DUAL; + + SELECT COALESCE ( + (SELECT mld_kenmerkopdr_waarde + FROM mld_kenmerkopdr + WHERE mld_kenmerk_key = 467 -- Kenmerk 'Status per' + AND mld_opdr_key = v_opdrkey + AND mld_kenmerkopdr_verwijder IS NULL), + 'leeg') + INTO v_kenmstatusper_cur + FROM DUAL; + + -- Als de kenmerken nog niet bestaan, dan toevoegen bij de opdracht, anders updaten indien gewijzigd. + IF v_kenmstatusoms_cur = 'leeg' + THEN + v_errormsg := + '(0x434)' || v_mldkey || psubject || v_actie; + + INSERT INTO mld_kenmerkopdr (mld_opdr_key, + mld_kenmerk_key, + mld_kenmerkopdr_waarde) + VALUES (v_opdrkey, 466, 'Wacht op uw reactie'); -- Kenmerk 'Status valuemation' + + fac.trackaction ( + 'ORDUPD', + v_opdrkey, + sender, + NULL, + 'Status Valuemation: leeg --> ' || v_kenmstatusoms); -- # voorkomt notificatie + ELSE + v_errormsg := + '(0x435)' || v_mldkey || psubject || v_actie; + + UPDATE mld_kenmerkopdr + SET mld_kenmerkopdr_waarde = v_kenmstatusoms + WHERE mld_opdr_key = v_opdrkey + AND mld_kenmerk_key = 466 -- Kenmerk 'Status valuemation' + AND mld_kenmerkopdr_verwijder IS NULL; + + fac.trackaction ( + 'ORDUPD', + v_opdrkey, + sender, + NULL, + 'Status Valuemation: ' + || v_kenmstatusoms_cur + || ' --> ' + || v_kenmstatusoms); -- # voorkomt notificatie + + v_errormsg := + '(0x436)' || v_mldkey || psubject || v_actie; + END IF; + + IF v_kenmstatusper_cur = 'leeg' + THEN + v_errormsg := + '(0x437)' || v_mldkey || psubject || v_actie; + + INSERT INTO mld_kenmerkopdr (mld_opdr_key, + mld_kenmerk_key, + mld_kenmerkopdr_waarde) + VALUES (v_opdrkey, + 467, -- -- Kenmerk 'Status per' + TO_CHAR (SYSDATE, + 'DD-MM-YYYY HH24:MI:SS')) + RETURNING mld_kenmerkopdr_waarde + INTO v_kenmstatusper; + + fac.trackaction ( + 'ORDUPD', + v_opdrkey, + sender, + NULL, + 'Status per: leeg --> ' || v_kenmstatusper); -- # voorkomt notificatie + ELSE + v_errormsg := + '(0x438)' || v_mldkey || psubject || v_actie; + + UPDATE mld_kenmerkopdr + SET mld_kenmerkopdr_waarde = + TO_CHAR (SYSDATE, 'DD-MM-YYYY HH24:MI:SS') + WHERE mld_opdr_key = v_opdrkey + AND mld_kenmerk_key = 467 -- Kenmerk 'Status per' + AND mld_kenmerkopdr_verwijder IS NULL + RETURNING mld_kenmerkopdr_waarde + INTO v_kenmstatusper; + + fac.trackaction ( + 'ORDUPD', + v_opdrkey, + sender, + NULL, + 'Status per:' + || v_kenmstatusper_cur + || ' --> ' + || v_kenmstatusper); -- # voorkomt notificatie + END IF; + + -- Als er een opdracht_key gevonden kan worden, dan ook de body als notitie meenemen + v_errormsg := + '(0x439)' || v_mldkey || psubject || v_actie; + + INSERT INTO mld_opdr_note (mld_opdr_key, + mld_opdr_note_omschrijving, + prs_perslid_key) + VALUES (v_opdrkey, + SUBSTR ( + psubject || CHR (13) || CHR (10) + || REPLACE ( + SUBSTR ( + pbody, + 1, + 4000 - (LENGTH (psubject) + 2)), + CHR (13) + || CHR (10) + || CHR (13) + || CHR (10), + CHR (13) || CHR (10)), + 1, + 4000), -- Verwijder onnodige witregels + sender); + + fac.trackaction ('ORDUPD', + v_opdrkey, + sender, + NULL, + '#Notitie toegevoegd vanuit e-mail'); -- # voorkomt notificatie + END IF; + END IF; + + --Hieronder de afhandeling van het bericht wanneer de melding vanuit Valuemation ter goedkeuring in Facilitor wordt aangeboden. + --Op termijn ontvangen we hopelijk nog 2 url's in fac_result in de html-body om de oplossing te accepteren of af te wijzen. 1 url wordt al geboden (zie actie ORDOPL hieronder) + IF v_actie = 'ORDGOE' + THEN + v_errormsg := '(0x440)' || v_mldkey || psubject || v_actie; + v_vmnr := + SUBSTR (REGEXP_REPLACE (psubject, '[^0-9]', ''), 1, 12); + + + IF v_opdrkey IS NOT NULL + THEN + v_errormsg := + '(0x441)' || v_mldkey || psubject || v_actie; + + SELECT mld_statusopdr_key + INTO v_status + FROM mld_opdr + WHERE mld_opdr_key = v_opdrkey; + + --Normaal zouden we het ticketnummer vanuit Valuemation al moeten hebben vanuit confirmationbericht. Maar als dit bericht niet goed ontvangen is, dan proberen we het ticketnummer alsnog te vullen + IF v_vmnr IS NOT NULL AND v_opdrkey IS NOT NULL + THEN + v_errormsg := + '(0x442)' || v_mldkey || psubject || v_actie; + + UPDATE mld_opdr + SET mld_opdr_externnr = v_vmnr + WHERE mld_opdr_key = v_opdrkey + AND mld_opdr_externnr IS NULL; + + --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', + 'E', + 'Valuemation nr kon niet worden gevuld:' + || pfrom + || '[' + || v_errormsg + || v_vmnr + || ']', + 'OTHERS (error ' + || SQLCODE + || '/' + || SUBSTR (SQLERRM, 1, 100) + || ')'); + END IF; + + --Wanneer confirmationbericht niet binnen is gekomen, dan is de status nog Toegekend (5) 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 = 5 --Toegekend (en dus nog niet geaccepteerd) + THEN + v_errormsg := + '(0x443)' || v_mldkey || psubject || v_actie; + + UPDATE mld_opdr + SET mld_statusopdr_key = 8 -- Geaccepteerd + WHERE mld_opdr_key = v_opdrkey; + + fac.trackaction ( + 'ORDACP', + v_opdrkey, + sender, + NULL, + '#Melding gevalideerd in Valuemation'); -- # voorkomt notificatie + END IF; + + -- Hieronder bepalen of de opdracht al de kenmerken gevuld heeft. + SELECT COALESCE ( + (SELECT mld_kenmerkopdr_waarde + FROM mld_kenmerkopdr + WHERE mld_kenmerk_key = 466 -- Kenmerk 'Status valuemation' + AND mld_opdr_key = v_opdrkey + AND mld_kenmerkopdr_verwijder IS NULL), + 'leeg') + INTO v_kenmstatusoms_cur + FROM DUAL; + + SELECT COALESCE ( + (SELECT mld_kenmerkopdr_waarde + FROM mld_kenmerkopdr + WHERE mld_kenmerk_key = 467 -- Kenmerk 'Status per' + AND mld_opdr_key = v_opdrkey + AND mld_kenmerkopdr_verwijder IS NULL), + 'leeg') + INTO v_kenmstatusper_cur + FROM DUAL; + + -- Als de kenmerken nog niet bestaan, dan toevoegen bij de opdracht, anders updaten indien gewijzigd. + IF v_kenmstatusoms_cur = 'leeg' + THEN + v_errormsg := + '(0x444)' || v_mldkey || psubject || v_actie; + + INSERT INTO mld_kenmerkopdr (mld_opdr_key, + mld_kenmerk_key, + mld_kenmerkopdr_waarde) + VALUES (v_opdrkey, 466, 'Oplossing is aangereikt'); -- Kenmerk 'Status valuemation' + + fac.trackaction ( + 'ORDUPD', + v_opdrkey, + sender, + NULL, + 'Status Valuemation: leeg --> ' || v_kenmstatusoms); -- # voorkomt notificatie + ELSE + v_errormsg := + '(0x445)' || v_mldkey || psubject || v_actie; + + IF v_kenmstatusoms_cur <> v_kenmstatusoms_cur + THEN + UPDATE mld_kenmerkopdr + SET mld_kenmerkopdr_waarde = v_kenmstatusoms + WHERE mld_opdr_key = v_opdrkey + AND mld_kenmerk_key = 466 -- Kenmerk 'Status valuemation' + AND mld_kenmerkopdr_verwijder IS NULL; + + fac.trackaction ( + 'ORDUPD', + v_opdrkey, + sender, + NULL, + 'Status Valuemation: ' + || v_kenmstatusoms_cur + || ' --> ' + || v_kenmstatusoms); -- # voorkomt notificatie + ELSE + v_errormsg := + '(0x446)' || v_mldkey || psubject || v_actie; + END IF; + END IF; + + IF v_kenmstatusper_cur = 'leeg' + THEN + v_errormsg := + '(0x447)' || v_mldkey || psubject || v_actie; + + INSERT INTO mld_kenmerkopdr (mld_opdr_key, + mld_kenmerk_key, + mld_kenmerkopdr_waarde) + VALUES (v_opdrkey, + 467, -- -- Kenmerk 'Status per' + TO_CHAR (SYSDATE, + 'DD-MM-YYYY HH24:MI:SS')) + RETURNING mld_kenmerkopdr_waarde + INTO v_kenmstatusper; + + fac.trackaction ( + 'ORDUPD', + v_opdrkey, + sender, + NULL, + 'Status per: leeg --> ' || v_kenmstatusper); -- # voorkomt notificatie + ELSE + v_errormsg := + '(0x448)' || v_mldkey || psubject || v_actie; + + UPDATE mld_kenmerkopdr + SET mld_kenmerkopdr_waarde = + TO_CHAR (SYSDATE, 'DD-MM-YYYY HH24:MI:SS') + WHERE mld_opdr_key = v_opdrkey + AND mld_kenmerk_key = 467 -- Kenmerk 'Status per' + AND mld_kenmerkopdr_verwijder IS NULL + RETURNING mld_kenmerkopdr_waarde + INTO v_kenmstatusper; + + fac.trackaction ( + 'ORDUPD', + v_opdrkey, + sender, + NULL, + 'Status per:' + || v_kenmstatusper_cur + || ' --> ' + || v_kenmstatusper); -- # voorkomt notificatie + END IF; + + -- Als er een opdracht_key gevonden kan worden, dan ook de body als afhandeling meenemen + v_errormsg := + '(0x449)' || v_mldkey || psubject || v_actie; + + UPDATE mld_opdr + SET mld_opdr_opmerking = + SUBSTR ( + REPLACE ( + SUBSTR (pbody, 1, 4000), + CHR (13) + || CHR (10) + || CHR (13) + || CHR (10), + CHR (13) || CHR (10)), + 1, + 4000) + WHERE mld_opdr_key = v_opdrkey; + + fac.trackaction ('ORDUPD', + v_opdrkey, + sender, + NULL, + 'Oplossing is aangereikt'); + END IF; + END IF; + + --Hieronder de afhandeling van het bericht wanneer de melding vanuit Valuemation ter goedkeuring in Facilitor wordt aangeboden. Er wordt een kenmerk gevuld met een url naar VM om de oplossing te accorderen + --Deze actie ORDOPL komt als 2e email met de email die hoort bij actie ORDGOE. Een aantal handelingen worden hier dus niet (dubbel) gedaan (dat gebeurt al bij ORDGOE) + IF v_actie = 'ORDOPL' + THEN + v_errormsg := '(0x450)' || v_mldkey || psubject || v_actie; + v_vmnr := + SUBSTR (REGEXP_REPLACE (psubject, '[^0-9]', ''), 1, 12); + + SELECT SUBSTR ( + SUBSTR ( + fac_result_waarde, + (INSTR ( + fac_result_waarde, + 'https://support.aareon.com/vmwebprod/vmweb?task=runlink'))), + 0, + INSTR ( + SUBSTR ( + fac_result_waarde, + (INSTR ( + fac_result_waarde, + 'https://support.aareon.com/vmwebprod/vmweb?task=runlink'))), + '"') + - 1) + INTO v_vm_oplossing + FROM fac_result + WHERE fac_result_naam = 'htmlbody' + AND fac_result_sessionid = psessionid; + + IF v_opdrkey IS NOT NULL + THEN + v_errormsg := + '(0x451)' || v_mldkey || psubject || v_actie; + + -- Hieronder bepalen of de opdracht al het kenmerk gevuld heeft. + SELECT COALESCE ( + (SELECT mld_kenmerkopdr_waarde + FROM mld_kenmerkopdr + WHERE mld_kenmerk_key = 465 -- Kenmerk 'Klik hier als de oplossing akkoord is' + AND mld_opdr_key = v_opdrkey + AND mld_kenmerkopdr_verwijder IS NULL), + 'leeg') + INTO v_vm_oplossing_cur + FROM DUAL; + + -- Als de kenmerken nog niet bestaan, dan toevoegen bij de opdracht, anders updaten indien gewijzigd. + IF v_vm_oplossing_cur = 'leeg' + THEN + v_errormsg := + '(0x454)' || v_mldkey || psubject || v_actie; + + INSERT INTO mld_kenmerkopdr (mld_opdr_key, + mld_kenmerk_key, + mld_kenmerkopdr_waarde) + VALUES (v_opdrkey, 465, v_vm_oplossing); -- Kenmerk 'Klik hier als de oplossing akkoord is' + + fac.trackaction ( + 'ORDUPD', + v_opdrkey, + sender, + NULL, + 'Oplossing: leeg --> ' || v_vm_oplossing); -- # voorkomt notificatie + ELSE + v_errormsg := + '(0x455)' || v_mldkey || psubject || v_actie; + + IF v_vm_oplossing <> v_vm_oplossing_cur + THEN + UPDATE mld_kenmerkopdr + SET mld_kenmerkopdr_waarde = v_vm_oplossing + WHERE mld_opdr_key = v_opdrkey + AND mld_kenmerk_key = 465 -- Kenmerk 'Klik hier als de oplossing akkoord is' + AND mld_kenmerkopdr_verwijder IS NULL; + + fac.trackaction ( + 'ORDUPD', + v_opdrkey, + sender, + NULL, + 'Oplossing: ' + || v_vm_oplossing_cur + || ' --> ' + || v_vm_oplossing); -- # voorkomt notificatie + ELSE + v_errormsg := + '(0x456)' || v_mldkey || psubject || v_actie; + END IF; + END IF; + END IF; + END IF; + + --Hieronder de afhandeling van het bericht wanneer de melding is opgelost in Valuemation. + IF v_actie = 'ORDAFM' + THEN + v_errormsg := '(0x460)' || v_mldkey || psubject || v_actie; + v_vmnr := + SUBSTR (REGEXP_REPLACE (psubject, '[^0-9]', ''), 1, 12); + + IF v_opdrkey IS NOT NULL + THEN + --Normaal zouden we het ticketnummer vanuit Valuemation al moeten hebben vanuit confirmationbericht. Maar als dit bericht niet goed ontvangen is, dan proberen we het ticketnummer alsnog te vullen + IF v_vmnr IS NOT NULL AND v_opdrkey IS NOT NULL + THEN + UPDATE mld_opdr + SET mld_opdr_externnr = v_vmnr + WHERE mld_opdr_key = v_opdrkey + AND mld_opdr_externnr IS NULL; + + --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', + 'E', + 'Valuemation nr kon niet worden gevuld:' + || pfrom + || '[' + || v_errormsg + || v_vmnr + || ']', + 'OTHERS (error ' + || SQLCODE + || '/' + || SUBSTR (SQLERRM, 1, 100) + || ')'); + END IF; + + UPDATE mld_opdr + SET mld_statusopdr_key = 6, -- Afgemeld + mld_opdr_opmerking = + SUBSTR ( + psubject || CHR (13) || CHR (10) + || REPLACE ( + SUBSTR ( + pbody, + 1, + 4000 - (LENGTH (psubject) + 2)), + CHR (13) + || CHR (10) + || CHR (13) + || CHR (10), + CHR (13) || CHR (10)), + 1, + 4000) -- Verwijder onnodige witregels + WHERE mld_opdr_key = v_opdrkey; + + fac.trackaction ('ORDUPD', + v_opdrkey, + sender, + NULL, + 'Melding gereed gemeld in Valuemation'); -- # voorkomt notificatie + + INSERT INTO mld_opdr_note (mld_opdr_key, + mld_opdr_note_omschrijving, + prs_perslid_key) + VALUES (v_opdrkey, + SUBSTR ( + psubject || CHR (13) || CHR (10) + || REPLACE ( + SUBSTR ( + pbody, + 1, + 4000 - (LENGTH (psubject) + 2)), + CHR (13) + || CHR (10) + || CHR (13) + || CHR (10), + CHR (13) || CHR (10)), + 1, + 4000), -- Verwijder onnodige witregels + sender); + + fac.trackaction ('ORDUPD', + v_opdrkey, + sender, + NULL, + '#Notitie toegevoegd vanuit e-mail'); -- # voorkomt notificatie + ELSE + fac.writelog ( + 'PROCESSEMAIL', + 'E', + 'Melding kan niet geaccepteerd worden, onbekende opdrachtkey' + || pfrom + || '[' + || v_errormsg + || ']', + 'OTHERS (error ' + || SQLCODE + || '/' + || SUBSTR (SQLERRM, 1, 100) + || ')'); + END IF; + END IF; + + -- Zoek het laagste bijlagen kenmerk om de bijlagen onder te stoppen + v_errormsg := 'Fout bij zoeken naar kenmerkbijlage'; + + SELECT MIN (mld_kenmerk_key) + INTO v_kenmerk_key + FROM mld_kenmerk k, + mld_srtkenmerk sk, + mld_stdmelding std, + ins_tab_discipline d + WHERE mld_srtkenmerk_kenmerktype = 'M' + AND sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key + AND std.mld_stdmelding_key = stdmelding + AND std.mld_ins_discipline_key = d.ins_discipline_key + AND ( (k.mld_stdmelding_key = std.mld_stdmelding_key + AND k.mld_kenmerk_niveau = 'S') + OR (k.mld_stdmelding_key = d.ins_discipline_key + AND k.mld_kenmerk_niveau = 'D') + OR (k.mld_stdmelding_key = d.ins_srtdiscipline_key + AND k.mld_kenmerk_niveau = 'T')) + AND k.mld_kenmerk_verwijder IS NULL + AND NOT EXISTS + (SELECT mld_kenmerk_volgnummer + FROM mld_kenmerk k1, + mld_srtkenmerk sk1, + mld_stdmelding std1, + ins_tab_discipline d1 + WHERE sk1.mld_srtkenmerk_kenmerktype = 'M' + AND sk1.mld_srtkenmerk_key = + k1.mld_srtkenmerk_key + AND std1.mld_stdmelding_key = stdmelding + AND std1.mld_ins_discipline_key = + d1.ins_discipline_key + AND ( (k1.mld_stdmelding_key = + std1.mld_stdmelding_key + AND k1.mld_kenmerk_niveau = 'S') + OR (k1.mld_stdmelding_key = + d1.ins_discipline_key + AND k1.mld_kenmerk_niveau = 'D') + OR (k1.mld_stdmelding_key = + d1.ins_srtdiscipline_key + AND k1.mld_kenmerk_niveau = 'T')) + AND k1.mld_kenmerk_verwijder IS NULL + AND k1.mld_kenmerk_volgnummer > + k.mld_kenmerk_volgnummer); + + IF v_kenmerk_key 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 (mldkey / 1000), 'FM0000') + || '___\M' + || mldkey + || '\' + || v_kenmerk_key + || '\'); + END IF; + END IF; + END; + ELSE + INSERT INTO fac_result (fac_result_sessionid, + fac_result_naam, + fac_result_waarde) + VALUES (psessionid, 'maillog - geen pto herkend', v_errormsg); + END CASE; +EXCEPTION + WHEN OTHERS + THEN + INSERT INTO fac_result (fac_result_sessionid, + fac_result_naam, + fac_result_waarde) + VALUES (psessionid, 'maillog', v_errormsg); + + fac.writelog ( + 'PROCESSEMAIL', + 'E', + 'Mail kon niet ingelezen worden afzender:' + || pfrom + || '[' + || v_errormsg + || v_mldkey + || psubject + || v_actie + || ']', + 'OTHERS (error ' + || SQLCODE + || '/' + || SUBSTR (SQLERRM, 1, 100) + || ')'); +END; +/ + +CREATE OR REPLACE PROCEDURE welk_export_valuemation ( + p_applname IN VARCHAR2, + p_applrun IN VARCHAR2, + p_filedir IN VARCHAR2, + p_filename IN VARCHAR2) +AS + oracle_err_num NUMBER; + oracle_err_mes VARCHAR2 (200); + v_errorhint VARCHAR2 (100); + + -- Dit haalt het externnummer op van een opdrachtkenmerk indien externnr bij de melding nog leeg is + CURSOR sendagain + IS + SELECT DISTINCT (mld_opdr_key) --Zelfde opdracht niet 2 maal + FROM (SELECT DISTINCT (opdr.mld_opdr_key) --, opdr.mld_melding_key, opdr.mld_opdr_externsyncdate + FROM mld_opdr opdr, mld_opdr_note note + WHERE note.mld_opdr_key = opdr.mld_opdr_key + AND opdr.mld_typeopdr_key = 341 --Aareon + AND mld_statusopdr_key IN (5, 8) -- Toegekend, geaccepteerd + AND (opdr.mld_opdr_externsyncdate IS NULL + OR opdr.mld_opdr_externsyncdate < + note.mld_opdr_note_aanmaak) + UNION ALL + SELECT DISTINCT (opdr.mld_opdr_key) + FROM mld_opdr opdr, fac_bijlagen att + WHERE opdr.mld_opdr_key = att.fac_bijlagen_refkey + AND att.fac_bijlagen_module = 'MLD' + AND opdr.mld_typeopdr_key = 341 --Aareon + AND opdr.mld_statusopdr_key IN (5, 8) -- Toegekend, geaccepteerd + AND fac_bijlagen_kenmerk_key = 462 -- Opdrachtkenmerk Bijlagen bij opdrachttype Aareon + AND (opdr.mld_opdr_externsyncdate IS NULL + OR opdr.mld_opdr_externsyncdate < + att.fac_bijlagen_aanmaak) + UNION ALL + SELECT opdr.mld_opdr_key + FROM mld_opdr opdr, fac_tracking t + WHERE opdr.mld_opdr_key = t.fac_tracking_refkey + AND t.fac_srtnotificatie_key = 121 --ORDUPD + AND (t.fac_tracking_oms LIKE '%Impact: %' + OR t.fac_tracking_oms LIKE '%Urgentie: %') + AND opdr.mld_typeopdr_key = 341 --Aareon + AND opdr.mld_statusopdr_key IN (5, 8) -- Toegekend, geaccepteerd + AND (opdr.mld_opdr_externsyncdate IS NULL + OR opdr.mld_opdr_externsyncdate < + t.fac_tracking_datum)); + + CURSOR kenmerken ( + c_opdr_key NUMBER) + IS + SELECT ko.mld_kenmerkopdr_key AS kmkey + FROM mld_kenmerkopdr ko, mld_kenmerk k, mld_srtkenmerk skm + WHERE ko.mld_opdr_key = c_opdr_key + AND k.mld_kenmerk_key = ko.mld_kenmerk_key + AND skm.mld_srtkenmerk_key = k.mld_srtkenmerk_key + AND ko.mld_kenmerkopdr_verwijder IS NULL + AND skm.mld_srtkenmerk_key IN (382, 383); --Kenmerksoorten Status Valuemation en Status per +BEGIN + v_errorhint := 'init'; + + -- We zetten de opdracht opnieuw in de wachtrij voor putorder. + -- Ook halen we de kenmerken leeg mbt de status in Valuemation + FOR rec IN sendagain + LOOP + BEGIN + v_errorhint := + 'Opdracht opnieuw klaar zetten voor verzenden ' + || rec.mld_opdr_key; + + -- Eerst zetten we de opdracht opnieuw klaar om te verzenden + UPDATE mld_opdr + SET mld_opdr_teverzenden = 2, mld_opdr_verzonden = NULL + WHERE mld_opdr_key = rec.mld_opdr_key; + + v_errorhint := + 'Kenmerken opdracht legen bij opnieuw verzenden ' + || rec.mld_opdr_key; + + --Daarna legen we de kenmerken bij de opdracht die we opnieuw klaar zetten om te verzenden + FOR rec1 IN kenmerken (rec.mld_opdr_key) + LOOP + BEGIN + v_errorhint := 'Kenmerken legen ' || rec.mld_opdr_key; + + UPDATE mld_kenmerkopdr + SET mld_kenmerkopdr_verwijder = SYSDATE + WHERE mld_kenmerkopdr_key = rec1.kmkey; + EXCEPTION + WHEN OTHERS + THEN + fac.writelog ( + 'EXP_VALUEMATION', + 'E', + 'Export tbv opnieuw klaarzetten opdrachten' + || '[' + || v_errorhint + || ']', + 'OTHERS (error ' + || SQLCODE + || '/' + || SUBSTR (SQLERRM, 1, 100) + || ')'); + END; + END LOOP; + + v_errorhint := + 'Syncdatum instellen na opnieuw klaar zetten voor verzenden ' + || rec.mld_opdr_key; + + --We updaten de syncdatum zodat de wijziging eenmalig wordt verstuurd. + + UPDATE mld_opdr + SET mld_opdr_externsyncdate = SYSDATE + WHERE mld_opdr_key = rec.mld_opdr_key; + + fac.trackaction ( + 'ORDUPD', + rec.mld_opdr_key, + NULL, + NULL, + 'Opdracht opnieuw klaarzetten voor verzending ' + || rec.mld_opdr_key); + END; + END LOOP; +EXCEPTION + WHEN OTHERS + THEN + fac.writelog ( + 'EXP_VALUEMATION', + 'E', + 'Export tbv opnieuw klaarzetten opdrachten' + || '[' + || v_errorhint + || ']', + 'OTHERS (error ' + || SQLCODE + || '/' + || SUBSTR (SQLERRM, 1, 100) + || ')'); +END; +/ BEGIN adm.systrackscriptId('$Id$', 0); END; /