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

RWSN#30975 M2M-koppeling vanuit printer

Browse Source 
svn path=/Customer/trunk/; revision=38442
This commit is contained in:
Maarten van der Heide
2018-07-09 15:55:25 +00:00
parent c43704b7af
commit cd421868fe
1 changed files with 25 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
RWSN/rwsn.sql
View File

@@ -26626,7 +26626,7 @@ CREATE OR REPLACE PROCEDURE RWSN_processemail (
psessionid IN VARCHAR2,
puserkey IN NUMBER DEFAULT NULL)
AS
-- soortmelding 8357 onder vakgroep 274 onder vakgroeptype 1!
-- Soortmelding=8357 onder Vakgroep=274 onder Vakgroeptype=1!
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
@@ -26636,16 +26636,13 @@ AS
v_onderwerp VARCHAR2 (255);
v_stdmelding_key NUMBER (10);
--v_stdmelding_uvt mld_stdmelding.mld_stdmelding_t_uitvoertijd%TYPE := MLD_T_UITVOERTIJD (NULL, NULL); -- constructor initialisatie
v_deel_key NUMBER (10);
--v_onrgoed_keys NUMBER (10);
--v_onrgoed_type VARCHAR2 (1);
--v_locatie_key NUMBER (10);
v_melding_key NUMBER (10);
v_count NUMBER (10);
v_deel_key NUMBER (10) := NULL;
v_onrgoed_keys NUMBER (10) := NULL;
v_locatie_key NUMBER (10) := NULL;
v_melding_key NUMBER (10) := NULL;
v_count NUMBER (10) := NULL;
BEGIN
CASE
-- Zoals net telefonisch afgesproken de gegevens e-mailadres printer.facilitor@test.fmis.intranet.rws.nl
-- Technisch contact persoon installatie hMailserver Ronald de Keijzer ordina-keijzerr@rws.nl
WHEN UPPER (pto) LIKE 'PRINTER.FACILITOR@%'
THEN
v_errormsg := 'Fout bepalen printer';
@@ -26653,54 +26650,53 @@ BEGIN
INSTR (psubject, 'EX'),
INSTR (SUBSTR (REPLACE (REPLACE (REPLACE (psubject, ' ', '#'), CHR(13), '#'), CHR(10), '#'), INSTR (psubject, 'EX')), '#') - 1));
-- Bepaal persoon met loginnaam _XEROX?
-- Bepaal persoon met loginnaam _HMAIL.
v_errormsg := 'Fout bepalen Printer-melder';
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_perslid_oslogin = '_XEROX'
WHERE p.prs_perslid_oslogin = '_HMAIL'
AND p.prs_afdeling_key = a.prs_afdeling_key;
v_errormsg := 'Fout bepalen Printer-onderwerp';
v_onderwerp := psubject;
-- Bepaal vakgroep/soortmelding met afgesproken key.
-- Bepaal Soortmelding met afgesproken key=8357.
v_errormsg := 'Fout bepalen Printer-soortmelding';
SELECT sm.mld_stdmelding_key
INTO v_stdmelding_key
FROM mld_discipline md, mld_stdmelding sm
WHERE md.ins_discipline_verwijder IS NULL
AND md.ins_srtdiscipline_key = 1 -- Facilitair
--AND md.ins_srtdiscipline_key = 1 -- Facilitair
AND md.ins_discipline_key = sm.mld_ins_discipline_key
AND sm.mld_stdmelding_key = 8357;
-- Bepaal evt. object met omschrijving zoals in pbody achter EX!
-- Alleen objecten onder disciplines met keys -1 t/m -1 worden beschouwd!
v_errormsg := 'Fout bepalen Printer-object ' || v_ci;
--SELECT COUNT (*)
-- INTO v_count
-- FROM ins_v_aanwezigdeel d, ins_v_aanwezigsrtdeel sd, ins_v_aanwezigsrtgroep sg
-- WHERE d.ins_deel_upper = UPPER (v_ci)
-- AND d.ins_deel_vervaldatum IS NULL
-- AND d.ins_srtdeel_key = sd.ins_srtdeel_key
-- AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
-- AND sg.ins_discipline_key IN (-1);
SELECT COUNT (*)
INTO v_count
FROM ins_v_aanwezigdeel d
FROM ins_v_aanwezigdeel d, ins_v_aanwezigsrtdeel sd, ins_v_aanwezigsrtgroep sg, ins_v_alg_onroerendgoed og
WHERE d.ins_deel_upper = UPPER (v_ci)
AND d.ins_deel_vervaldatum IS NULL;
AND d.ins_deel_vervaldatum IS NULL
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
--AND sg.ins_discipline_key IN (-1)
AND d.ins_alg_ruimte_type = 'R'
AND d.ins_alg_ruimte_key = og.alg_onrgoed_keys;
IF v_count = 1
THEN
SELECT d.ins_deel_key --, d.ins_alg_ruimte_key, d.ins_alg_ruimte_type
INTO v_deel_key --, v_onrgoed_keys, v_onrgoed_type
FROM ins_v_aanwezigdeel d, ins_v_aanwezigsrtdeel sd, ins_v_aanwezigsrtgroep sg
SELECT d.ins_deel_key, og.alg_onrgoed_keys, og.alg_locatie_key
INTO v_deel_key, v_onrgoed_keys, v_locatie_key
FROM ins_v_aanwezigdeel d, ins_v_aanwezigsrtdeel sd, ins_v_aanwezigsrtgroep sg, ins_v_alg_onroerendgoed og
WHERE d.ins_deel_upper = UPPER (v_ci)
AND d.ins_deel_vervaldatum IS NULL
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND sg.ins_discipline_key IN (1101, 1102, 1103, 1104);
--AND sg.ins_discipline_key IN (-1)
AND d.ins_alg_ruimte_type = 'R'
AND d.ins_alg_ruimte_key = og.alg_onrgoed_keys;
ELSIF v_ci IS NOT NULL
THEN
fac.writelog ('PROCESSEMAIL', 'W', v_errormsg, '');
@@ -26727,8 +26723,8 @@ BEGIN
mld_melding_onderwerp)
VALUES ('MLD',
4, -- email
2, --v_locatie_key,
NULL, --v_onrgoed_keys,
DECODE (v_count, 1, v_locatie_key, 82), -- TODO/Westraven als printer niet kan worden bepaald?
DECODE (v_count, 1, v_onrgoed_keys, NULL),
SYSDATE,
SUBSTR (pfrom || CHR (13) || CHR (10) || pbody, 1, 4000),
v_stdmelding_key,