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

SKAF#63523 -- M2M inrichting tbv productie

Browse Source 
svn path=/Customer/trunk/; revision=48972
This commit is contained in:
Jos Migo
2020-11-26 15:46:46 +00:00
parent 51a1e4a3f0
commit bbcb611857
1 changed files with 34 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
SKAF/skaf.sql
View File

@@ -30,7 +30,7 @@ AS
-- Mail2Melding - Basis uit SVRZ overgenomen:
--- IT SKAF -: key= 458= Melding ICT Overig/Restmail (ict@skaf.facilitor-test.nl)
--- IT SKAF -: key= 861= Melding ICT Overig/Restmail (ict@skaf.facilitor.nl)
CREATE OR REPLACE PROCEDURE SKAF_processemail (
pfrom IN VARCHAR2,
pto IN VARCHAR2,
@@ -39,7 +39,7 @@ CREATE OR REPLACE PROCEDURE SKAF_processemail (
psessionid IN VARCHAR2,
pemailkey IN NUMBER)
AS
c_onbekend_key NUMBER (10) := 9901; -- Melder onbekend
c_onbekend_key NUMBER (10) := 10001; -- Melder onbekend
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
@@ -74,11 +74,21 @@ BEGIN
WHERE prs_perslid_key = v_perslid_key;
END IF;
-- Als er persoon gevonden is, dan ff checken of er op gekoppelde Afdeling ook een kostenplaats is gekoppeld
IF v_count = 1
THEN
SELECT MIN(a.prs_kostenplaats_key)
INTO v_kostenplaats_key
FROM prs_v_aanwezigperslid p, prs_afdeling a
WHERE prs_perslid_key = v_perslid_key AND p.prs_afdeling_key = a.prs_afdeling_key ;
END IF;
-- Locatie erbij halen
IF v_count = 1 AND v_count_wp > 0
THEN
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, MIN (wpg.alg_locatie_key)
INTO v_perslid_key, v_kostenplaats_key, v_locatie_key
FROM prs_v_aanwezigperslid p, prs_afdeling a,
SELECT p.prs_perslid_key, MIN (wpg.alg_locatie_key)
INTO v_perslid_key, v_locatie_key
FROM prs_v_aanwezigperslid p,
(SELECT pw.prs_perslid_key, pw.prs_werkplek_key
FROM prs_perslidwerkplek pw
WHERE NOT EXISTS
@@ -87,18 +97,28 @@ BEGIN
WHERE prs_perslid_key = pw.prs_perslid_key
AND prs_perslidwerkplek_key > pw.prs_perslidwerkplek_key)) pw,
prs_v_werkplekperslid_gegevens wpg
WHERE p.prs_afdeling_key = a.prs_afdeling_key
AND UPPER (p.prs_perslid_email) LIKE UPPER (pfrom) || '%'
WHERE p.prs_perslid_key = v_perslid_key
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 + Werkplek kan niet 1-duidig worden bepaald, dus Onbekend en prslid_key 9901 en locatiekey 922 (Servicecentrum Amsterdamseweg (SCA)
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, 922
INTO v_perslid_key, v_kostenplaats_key, v_locatie_key
GROUP BY p.prs_perslid_key;
END IF;
-- Geen werkplek of Melder onbekend - Dan melding op locatie_key 922 (Servicecentrum Amsterdamseweg)
IF (v_count = 1 AND v_count_wp = 0) OR v_count = 0
THEN
v_locatie_key := 922;
END IF;
-- Melder kan niet bepaald worden, dus inlezen onder 'Melder onbekend (M2M)'
-- Op deze 'Melder onbekend' is aan voorkant wel afdeling ICT en bijbehorende kostenplaats gekoppeld. Deze kp halen we er daarom nu ook bij
IF v_count = 0
THEN
SELECT p.prs_perslid_key, a.prs_kostenplaats_key
INTO v_perslid_key, v_kostenplaats_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;
END IF;
v_errormsg := 'Fout bepalen bestaande melding';
v_exist_ticket := psubject;
@@ -146,12 +166,12 @@ BEGIN
END IF;
ELSE -- Nieuwe melding!
-- Bepaal de afgesproken soortmelding met key= 458 = Melding ICT Overig/Restmail
-- Bepaal de afgesproken soortmelding met key= 861 Overig - Postbus ICT
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 = 458;
WHERE mld_stdmelding_key = 861;
-- Suggested extensions:
-- - Check for MLDUSE-write autorisations