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

FSN#27051 543-migratie nav. aangescherpte tijdsduren

Browse Source 
svn path=/Customer/trunk/; revision=22905
This commit is contained in:
Maarten van der Heide
2014-10-13 14:14:40 +00:00
parent b0798b35ca
commit 339f47508a
1 changed files with 52 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

110
HOUT/hout.sql
View File

@@ -3485,7 +3485,7 @@ AS
ON o.mld_opdr_key = k3.mld_opdr_key;
/* Formatted on 17-1-2013 17:04:16 (QP5 v5.115.810.9015) */
/* Formatted on 13-10-2014 16:08:52 (QP5 v5.136.908.31019) */
CREATE OR REPLACE PROCEDURE HOUT_processemail (pfrom IN VARCHAR2,
pto IN VARCHAR2,
psubject IN VARCHAR2,
@@ -3499,7 +3499,8 @@ AS
v_perslid_key NUMBER (10);
v_kostenplaats_key NUMBER (10);
v_stdmelding_key NUMBER (10);
v_stdmelding_uvt NUMBER (8, 5);
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_locatie_key NUMBER (10);
@@ -3511,20 +3512,20 @@ BEGIN
v_errormsg := 'Fout bij bepalen printer-melder';
-- Valideer bestaan van persoon met key=10081 (Externe partij/leverancier)?
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_key = 10081
AND p.prs_afdeling_key = a.prs_afdeling_key;
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_key = 10081
AND p.prs_afdeling_key = a.prs_afdeling_key;
v_errormsg := 'Fout bij bepalen printer-melding';
-- Valideer bestaan van stdmelding met key=2481 (MF Ricoh automatische melding)?
SELECT sm.mld_stdmelding_key, sm.mld_stdmelding_uitvoertijd
INTO v_stdmelding_key, v_stdmelding_uvt
FROM mld_stdmelding sm
WHERE sm.mld_stdmelding_key = 2481
AND sm.mld_stdmelding_verwijder IS NULL;
SELECT sm.mld_stdmelding_key, sm.mld_stdmelding_t_uitvoertijd
INTO v_stdmelding_key, v_stdmelding_uvt
FROM mld_stdmelding sm
WHERE sm.mld_stdmelding_key = 2481
AND sm.mld_stdmelding_verwijder IS NULL;
v_errormsg :=
'Fout bij bepalen printer-object: '
@@ -3532,16 +3533,16 @@ BEGIN
-- Valideer de sender in pfrom: kennen we deze als object in de groep met
-- key=21 (Multifunctionals)?
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_alg_onroerendgoed og
WHERE UPPER (d.ins_deel_omschrijving) LIKE
UPPER (SUBSTR (pfrom, 1, INSTR (pfrom, '@') - 1)) || '%'
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = 21
AND d.ins_alg_ruimte_key = og.alg_onrgoed_keys;
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_alg_onroerendgoed og
WHERE UPPER (d.ins_deel_omschrijving) LIKE
UPPER (SUBSTR (pfrom, 1, INSTR (pfrom, '@') - 1)) || '%'
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = 21
AND d.ins_alg_ruimte_key = og.alg_onrgoed_keys;
-- suggested extensions:
-- check for MLDUSE-write autorisations
@@ -3556,44 +3557,41 @@ BEGIN
mld_melding_datum,
mld_melding_omschrijving,
mld_melding_status,
mld_melding_uitvoertijd,
mld_melding_t_uitvoertijd,
mld_stdmelding_key,
prs_perslid_key,
prs_perslid_key_voor,
prs_kostenplaats_key,
mld_melding_spoed)
VALUES ('MLD',
4, -- email
v_locatie_key,
v_onrgoed_keys,
SYSDATE,
SUBSTR (psubject, 1, 4000),
NULL,
v_stdmelding_uvt,
v_stdmelding_key,
v_perslid_key,
v_perslid_key,
v_kostenplaats_key,
3) -- prio normaal
RETURNING mld_melding_key INTO v_melding_key;
VALUES ('MLD',
4, -- email
v_locatie_key,
v_onrgoed_keys,
SYSDATE,
SUBSTR (psubject, 1, 4000),
NULL,
v_stdmelding_uvt,
v_stdmelding_key,
v_perslid_key,
v_perslid_key,
v_kostenplaats_key,
3) -- prio normaal
RETURNING mld_melding_key
INTO v_melding_key;
v_errormsg := 'Fout bij toevoegen melding-object';
INSERT INTO mld_melding_object (mld_melding_key, ins_deel_key)
VALUES (v_melding_key, v_deel_key);
VALUES (v_melding_key, v_deel_key);
mld.setmeldingstatus (v_melding_key, 2, v_perslid_key);
ELSE
INSERT INTO fac_result (
fac_result_sessionid,
fac_result_naam,
fac_result_waarde
)
VALUES (
'hMailServer',
'errormsg',
'Onvanger ongeldig - Neem contact op met uw systeembeheerder '
);
INSERT INTO fac_result (fac_result_sessionid,
fac_result_naam,
fac_result_waarde)
VALUES ('hMailServer',
'errormsg',
'Onvanger ongeldig - Neem contact op met uw systeembeheerder ');
END CASE;
EXCEPTION
WHEN OTHERS
@@ -3612,16 +3610,12 @@ EXCEPTION
'HOUT_processemail afgebroken!',
'[' || pfrom || '] ' || v_errormsg);
INSERT INTO fac_result (
fac_result_sessionid,
fac_result_naam,
fac_result_waarde
)
VALUES (
'hMailServer',
'errormsg',
'Database fout - Neem contact op met uw systeembeheerder '
);
INSERT INTO fac_result (fac_result_sessionid,
fac_result_naam,
fac_result_waarde)
VALUES ('hMailServer',
'errormsg',
'Database fout - Neem contact op met uw systeembeheerder ');
COMMIT;
END;