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

BLOS#61496 -- Implementatie Facilitor bij BLOS Kinderopvang - Mail to melding inrichten basis

Browse Source 
svn path=/Customer/trunk/; revision=45959
This commit is contained in:
Jos Migo
2020-02-24 17:01:58 +00:00
parent 8bcd6b2a9b
commit 53c3b78a42
1 changed files with 15 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
BLOS/blos.sql
View File

@@ -21,7 +21,7 @@ SET DEFINE OFF
-- (Helpdesk I+A) onder Vakgroeptype 161!
-- - CLIENTPORTAAL -: Soortmelding 1697 (Clientportaal) onder Vakgroep 3042
-- (Servicedesk MijnCaress) onder Vakgroeptype 161!
CREATE OR REPLACE PROCEDURE SVRZ_processemail (
CREATE OR REPLACE PROCEDURE BLOS_processemail (
pfrom IN VARCHAR2,
pto IN VARCHAR2,
psubject IN VARCHAR2,
@@ -29,7 +29,7 @@ CREATE OR REPLACE PROCEDURE SVRZ_processemail (
psessionid IN VARCHAR2,
pemailkey IN NUMBER)
AS
c_onbekend_key NUMBER (10) := 36281; -- Onbekende gebruiker
c_onbekend_key NUMBER (10) := 61; -- Melder onbekend
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
@@ -44,7 +44,7 @@ AS
v_count NUMBER (10);
BEGIN
CASE
WHEN UPPER (pto) LIKE 'HELPDESK@%'
WHEN UPPER (pto) LIKE 'SERVICEDESK@%'
THEN
-- Bepaal de melder/noteur op basis van e-mail adres zoals in pfrom?
v_errormsg := 'Fout bepalen melder ' || COALESCE (pfrom, '???');
@@ -71,14 +71,14 @@ BEGIN
AND p.prs_perslid_key = pw.prs_perslid_key(+)
AND pw.prs_werkplek_key = wpg.prs_werkplek_key(+)
GROUP BY p.prs_perslid_key, a.prs_kostenplaats_key;
ELSE -- Melder kan niet 1-duidig worden bepaald, dus Onbekend en 61=Servicecentrum!
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, 61
ELSE -- Melder kan niet 1-duidig worden bepaald, dus Onbekend en 21= Iepenhoeve Hoofdkantoor!
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, 21
INTO v_perslid_key, v_kostenplaats_key, v_locatie_key
FROM prs_v_aanwezigperslid p, prs_afdeling a
WHERE p.prs_afdeling_key = a.prs_afdeling_key
AND p.prs_perslid_key = c_onbekend_key;
END IF;
/*
v_errormsg := 'Fout bepalen bestaande melding';
v_exist_ticket := psubject;
IF REGEXP_INSTR (v_exist_ticket, '\d') > 0
@@ -124,12 +124,13 @@ BEGIN
WHERE mld_melding_key = v_melding_key;
END IF;
ELSE -- Nieuwe melding!
-- Bepaal de afgesproken soortmelding met key=1691=Harware/Computer!
*/
-- Bepaal de afgesproken soortmelding met key=1=Harware/Computer!
v_errormsg := 'Fout bepalen soortmelding';
SELECT mld_ins_discipline_key, mld_stdmelding_key
INTO v_discipline_key, v_stdmelding_key
FROM mld_stdmelding
WHERE mld_stdmelding_key = 1691;
WHERE mld_stdmelding_key = 1;
-- Suggested extensions:
-- - Check for MLDUSE-write autorisations
@@ -167,7 +168,7 @@ BEGIN
3, -- prio normaal
SUBSTR (psubject, 1, 80),
NULL,
3141) -- BT Helpdesk I+A
NULL) -- BT Helpdesk I+A
RETURNING mld_melding_key
INTO v_melding_key;
@@ -175,8 +176,8 @@ BEGIN
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'maillog', 'Geregistreerd onder melding ' || v_melding_key);
/*
END IF;
-- Find the lowest volgnummer of the Folder-flexfield.
SELECT MIN (k1.mld_kenmerk_key)
INTO v_folder_kkey
@@ -213,6 +214,8 @@ BEGIN
THEN
MLD.mld_nextworkflowstep (v_melding_key, -1); -- -1=Initial
END IF;
*/
/*
WHEN UPPER (pto) LIKE 'CLIENTPORTAAL@%'
THEN
-- Melder/noteur per definitie Onbekend en 61=Servicecentrum!
@@ -365,6 +368,7 @@ BEGIN
THEN
MLD.mld_nextworkflowstep (v_melding_key, -1); -- -1=Initial
END IF;
*/
ELSE
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'errormsg', 'Ontvanger ongeldig - Neem contact op met uw systeembeheerder ');
@@ -375,7 +379,7 @@ EXCEPTION
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog ('PROCESSEMAIL', 'E', 'SVRZ_processemail afgebroken!', '[' || pfrom || '] ' || v_errormsg);
fac.writelog ('PROCESSEMAIL', 'E', 'BLOS_processemail afgebroken!', '[' || pfrom || '] ' || v_errormsg);
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'errormsg', 'Database fout - Neem contact op met uw systeembeheerder ');
COMMIT;