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

RWSN#60670 EXTERN-notijob+RWSN#61762 DERDEN-import+RWSN#62073 Rap/Rijdend materieel+RWSN#62233 M2M/FD ipv. EBF+ESIZE+DIGIINKOOP-stroom

Browse Source 
svn path=/Customer/trunk/; revision=46666
This commit is contained in:
Maarten van der Heide
2020-04-29 07:22:57 +00:00
parent c04f671ed4
commit 924e04e9e4
1 changed files with 126 additions and 121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

247
RWSN/rwsn.sql
View File

@@ -2231,7 +2231,7 @@ BEGIN
AND alg_locatie_key < il.alg_locatie_key)),
i.alg_verdieping_volgnr =
(SELECT iv.alg_verdieping_volgnr
FROM alg_v_aanweziggebouw ig, alg_locatie il, alg_verdieping iv, alg_ruimte ir
FROM alg_v_aanweziggebouw ig, alg_locatie il, alg_verdieping iv, alg_v_aanwezigruimte ir
WHERE ig.alg_gebouw_upper = UPPER (i.prs_kenmerk2)
AND ig.alg_locatie_key = il.alg_locatie_key
AND NOT EXISTS
@@ -2251,7 +2251,7 @@ BEGIN
AND v.alg_verdieping_volgnr < iv.alg_verdieping_volgnr)),
i.alg_ruimte_nr =
(SELECT ir.alg_ruimte_nr
FROM alg_v_aanweziggebouw ig, alg_locatie il, alg_verdieping iv, alg_ruimte ir
FROM alg_v_aanweziggebouw ig, alg_locatie il, alg_verdieping iv, alg_v_aanwezigruimte ir
WHERE ig.alg_gebouw_upper = UPPER (i.prs_kenmerk2)
AND ig.alg_locatie_key = il.alg_locatie_key
AND NOT EXISTS
@@ -3150,6 +3150,7 @@ END;
-- (ipv. via dummy-export).
-- Notificatiecode=MLDINF (speciale bon), maar 'Onderwerp' komt uit MLDNEW- of
-- MLDAFM-code!
-- RWSN#60670: Per RWSN67 uurlijks (ipv. alleen om 8, 12 en 16 uur)!
CREATE OR REPLACE VIEW rwsn_v_noti_extern
(
sender,
@@ -3197,7 +3198,8 @@ AS
mld_discipline md,
mld_kenmerkmelding km,
mld_kenmerk k,
fac_tracking t
fac_tracking t,
fac_notificatie_job nj
WHERE m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND m.mld_melding_key = km.mld_melding_key
@@ -3207,13 +3209,15 @@ AS
AND k.mld_srtkenmerk_key = 20 -- E-mail
AND m.mld_melding_key = t.fac_tracking_refkey
AND t.fac_srtnotificatie_key IN (26, 22) -- MLDNEW/MLDAFM
AND t.fac_tracking_datum >
DECODE (
TO_CHAR (SYSDATE + 5 / 1440, 'HH24'),
'08', TO_DATE (TO_CHAR (SYSDATE - 1, 'dd-mm-yyyy') || ' 16:00', 'dd-mm-yyyy hh24:mi'),
'12', TO_DATE (TO_CHAR (SYSDATE, 'dd-mm-yyyy') || ' 08:00', 'dd-mm-yyyy hh24:mi'),
'16', TO_DATE (TO_CHAR (SYSDATE, 'dd-mm-yyyy') || ' 12:00', 'dd-mm-yyyy hh24:mi'),
SYSDATE + 5 / 1440)
--AND t.fac_tracking_datum >
-- DECODE (
-- TO_CHAR (SYSDATE + 5 / 1440, 'HH24'),
-- '08', TO_DATE (TO_CHAR (SYSDATE - 1, 'dd-mm-yyyy') || ' 16:00', 'dd-mm-yyyy hh24:mi'),
-- '12', TO_DATE (TO_CHAR (SYSDATE, 'dd-mm-yyyy') || ' 08:00', 'dd-mm-yyyy hh24:mi'),
-- '16', TO_DATE (TO_CHAR (SYSDATE, 'dd-mm-yyyy') || ' 12:00', 'dd-mm-yyyy hh24:mi'),
-- SYSDATE + 5 / 1440)
AND nj.fac_notificatie_job_view = 'RWSN_V_NOTI_EXTERN'
AND t.fac_tracking_datum BETWEEN nj.fac_notificatie_job_nextrun - (nj.fac_notificatie_job_interval / 24) AND nj.fac_notificatie_job_nextrun
GROUP BY md.ins_srtdiscipline_key,
md.ins_discipline_key,
md.ins_discipline_omschrijving,
@@ -3269,7 +3273,7 @@ AS
bez_kenmerkwaarde kb,
fac_srtnotificatie sn,
fac_notificatie_job nj
WHERE t.fac_srtnotificatie_key = 14 -- BEZMUT
WHERE t.fac_srtnotificatie_key = 14 -- BEZMUT
AND t.fac_tracking_refkey = a.bez_afspraak_key
AND a.bez_afspraak_key = b.bez_afspraak_key
AND b.bez_bezoekers_key = kb.bez_bezoekers_key
@@ -9306,13 +9310,15 @@ AS
AND std.mld_stdmeldinggroep_key = smg.mld_stdmeldinggroep_key(+)
AND std.mld_stdmelding_verwijder IS NULL;
CREATE OR REPLACE VIEW rwsn_v_rap_fip6_ruimte_obj (
CREATE OR REPLACE VIEW rwsn_v_rap_fip6_ruimte_obj
(
fclt_f_disciplineomschrijving,
disciplinekostensoort,
groepsoortomschrijving,
objectsoortcode,
fclt_f_objectsoortomschrijving,
objectomschrijving,
objectopmerking,
reserveerbaar,
eenheid,
prijs,
@@ -9323,55 +9329,44 @@ CREATE OR REPLACE VIEW rwsn_v_rap_fip6_ruimte_obj (
reserveringscope,
fclt_f_catalogusnaam,
cataloguskostensoort
)
)
AS
SELECT d.ins_discipline_omschrijving,
(SELECT prs_kostensoort_oms
FROM prs_kostensoort ks
WHERE ks.prs_kostensoort_key = d.prs_kostensoort_key)
SELECT di.ins_discipline_omschrijving,
(SELECT prs_kostensoort_oms FROM prs_kostensoort WHERE prs_kostensoort_key = di.prs_kostensoort_key)
kostensoort,
sg.ins_srtgroep_omschrijving,
sd.ins_srtdeel_code,
sd.ins_srtdeel_omschrijving,
id.ins_deel_omschrijving,
DECODE (rd.res_deel_key, NULL, 'N', 'J') reserveerbaar,
d.ins_deel_omschrijving,
d.ins_deel_opmerking,
DECODE (rd.res_ins_deel_key, NULL, 'N', 'J') reserveerbaar,
rd.res_deel_eenheid,
rd.res_deel_prijs,
rg.alg_locatie_code,
(SELECT g.alg_gebouw_code
FROM alg_gebouw g
WHERE g.alg_gebouw_key = rg.alg_gebouw_key)
(SELECT alg_gebouw_code FROM alg_gebouw WHERE alg_gebouw_key = rg.alg_gebouw_key)
alg_gebouw_code,
rg.alg_verdieping_code,
rg.alg_ruimte_nr,
DECODE (rd.res_deel_alg_level, 2, 'L', 3, 'G', 4, 'V', 5, 'R') scope,
rd.ins_discipline_omschrijving,
(SELECT prs_kostensoort_oms
FROM prs_kostensoort ks
WHERE ks.prs_kostensoort_key = rd.prs_kostensoort_key)
DECODE (rd.res_deel_alg_level, 2, 'L', 3, 'G', 4, 'V', 5, 'R')
scope,
rdi.ins_discipline_omschrijving,
(SELECT prs_kostensoort_oms FROM prs_kostensoort WHERE prs_kostensoort_key = rdi.prs_kostensoort_key)
cataloguskostensoort
FROM ins_deel id,
ins_srtdeel sd,
ins_srtgroep sg,
ins_discipline d,
alg_v_ruimte_gegevens rg,
(SELECT rd.res_deel_key,
rd.res_deel_eenheid,
rd.res_deel_prijs,
rd.res_deel_alg_level,
rdi.ins_discipline_omschrijving,
rd.res_ins_deel_key,
rdi.prs_kostensoort_key
FROM res_deel rd, res_discipline rdi
WHERE rd.res_discipline_key = rdi.ins_discipline_key
AND rd.res_deel_verwijder IS NULL) rd
WHERE id.ins_deel_key = rd.res_ins_deel_key(+)
AND id.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND sg.ins_discipline_key = d.ins_discipline_key
AND id.ins_deel_verwijder IS NULL
AND id.ins_alg_ruimte_key = rg.alg_ruimte_key
AND id.ins_alg_ruimte_type = 'R';
FROM ins_deel d,
ins_srtdeel sd,
ins_srtgroep sg,
ins_discipline di,
alg_v_ruimte_gegevens rg,
(SELECT * FROM res_deel WHERE res_deel_verwijder IS NULL) rd,
res_discipline rdi
WHERE d.ins_deel_verwijder IS NULL
AND d.ins_alg_ruimte_type = 'R'
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND sg.ins_discipline_key = di.ins_discipline_key
AND d.ins_alg_ruimte_key = rg.alg_ruimte_key
AND d.ins_deel_key = rd.res_ins_deel_key(+)
AND rd.res_discipline_key = rdi.ins_discipline_key(+);
/* DID-Bestelportaal */
/* Formatted on 1-7-2009 8:28:15 (QP5 v5.115.810.9015) */
@@ -11870,7 +11865,7 @@ AS -- ORD2GO naar FBs via srtkenmerk_key=103/104/105!
prs_perslid pv, -- Vervangers!
fac_gebruikersgroep gg,
fac_srtnotificatie sn
WHERE o.mld_statusopdr_key = 3 -- Ter fiattering!
WHERE o.mld_statusopdr_key = 3 -- Ter fiattering!
AND o.mld_melding_key = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = td.ins_discipline_key
@@ -11915,7 +11910,7 @@ AS -- ORD2GO naar FBs via srtkenmerk_key=103/104/105!
AND TO_NUMBER (TO_CHAR (fac_tracking_datum, 'HH24')) + 1 = TO_NUMBER (TO_CHAR (SYSDATE + 5 / 1440, 'HH24'))
GROUP BY fac_tracking_refkey) t,
fac_srtnotificatie sn
WHERE o.mld_statusopdr_key = 2 -- Niet akkoord!
WHERE o.mld_statusopdr_key = 2 -- Niet akkoord!
AND o.mld_melding_key = m.mld_melding_key
AND m.mld_melding_status IN (4, 7) -- Geaccepteerd/Uitgegeven
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
@@ -19361,6 +19356,7 @@ BEGIN
fac.imp_getfield (v_newline, c_delim, v_ins_srtdeel_code);
fac.imp_getfield (v_newline, c_delim, v_ins_srtdeel_omschrijving);
fac.imp_getfield (v_newline, c_delim, v_ins_deel_omschrijving);
--fac.imp_getfield (v_newline, c_delim, v_ins_deel_opmerking);
fac.imp_getfield (v_newline, c_delim, v_reserveerbaar);
fac.imp_getfield (v_newline, c_delim, v_res_deel_eenheid);
fac.imp_getfield (v_newline, c_delim, v_res_deel_prijs);
@@ -19373,6 +19369,9 @@ BEGIN
fac.imp_getfield (v_newline, c_delim, v_res_discipline_kostensoort);
fac.imp_getfield (v_newline, c_delim, v_prs_perslid_matchcode);
fac.imp_getfield (v_newline, c_delim, v_prs_perslid_matchwaarde);
--fac.imp_getfield (v_newline, c_delim, v_ins_deel_aanmaak);
--fac.imp_getfield (v_newline, c_delim, v_ins_deel_vervaldatum);
--fac.imp_getfield (v_newline, c_delim, v_ins_deel_aantal);
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde1);
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde2);
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde3);
@@ -19412,16 +19411,13 @@ BEGIN
-- Ik negeer alles totdat ik een geldige header ben gepasseerd.
IF (header_is_valid = 0)
THEN
IF UPPER (v_ins_discipline_omschrijving) =
'DISCIPLINEOMSCHRIJVING'
AND UPPER (v_ins_discipline_kostensoort) =
'DISCIPLINEKOSTENSOORT'
AND UPPER (v_ins_srtgroep_omschrijving) =
'GROEPSOORTOMSCHRIJVING'
IF UPPER (v_ins_discipline_omschrijving) = 'DISCIPLINEOMSCHRIJVING'
AND UPPER (v_ins_discipline_kostensoort) = 'DISCIPLINEKOSTENSOORT'
AND UPPER (v_ins_srtgroep_omschrijving) = 'GROEPSOORTOMSCHRIJVING'
AND UPPER (v_ins_srtdeel_code) = 'OBJECTSOORTCODE'
AND UPPER (v_ins_srtdeel_omschrijving) =
'OBJECTSOORTOMSCHRIJVING'
AND UPPER (v_ins_deel_omschrijving) = 'OBJECTOMSCHRIJVING'
AND UPPER (v_ins_srtdeel_omschrijving) = 'OBJECTSOORTOMSCHRIJVING'
AND UPPER (v_ins_deel_omschrijving) = 'OBJECTIDENTIFICATIE'
--AND UPPER (v_ins_deel_opmerking) = 'OBJECTOPMERKING'
AND UPPER (v_reserveerbaar) = 'RESERVEERBAAR'
AND UPPER (v_res_deel_eenheid) = 'EENHEID'
AND UPPER (v_res_deel_prijs) = 'PRIJS'
@@ -19431,51 +19427,33 @@ BEGIN
AND UPPER (v_alg_ruimte_nr) = 'RUIMTENUMMER'
AND UPPER (v_res_deel_alg_level) = 'RESERVERINGSCOPE'
AND UPPER (v_res_discipline_omschrijving) = 'CATALOGUSNAAM'
AND UPPER (v_res_discipline_kostensoort) =
'CATALOGUSKOSTENSOORT'
AND UPPER (v_res_discipline_kostensoort) = 'CATALOGUSKOSTENSOORT'
AND UPPER (v_prs_perslid_matchcode) = 'PERSOONMATCHCODE'
AND UPPER (v_prs_perslid_matchwaarde) = 'PERSOONMATCHWAARDE'
--AND UPPER (v_ins_deel_aanmaak) = 'INGANGSDATUM'
--AND UPPER (v_ins_deel_vervaldatum) = 'VERVALDATUM'
--AND UPPER (v_ins_deel_aantal) = 'AANTAL'
THEN
v_ins_srtkenmerk_key1 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde1);
v_ins_srtkenmerk_key2 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde2);
v_ins_srtkenmerk_key3 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde3);
v_ins_srtkenmerk_key4 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde4);
v_ins_srtkenmerk_key5 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde5);
v_ins_srtkenmerk_key6 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde6);
v_ins_srtkenmerk_key7 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde7);
v_ins_srtkenmerk_key8 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde8);
v_ins_srtkenmerk_key9 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde9);
v_ins_srtkenmerk_key10 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde10);
v_ins_srtkenmerk_key11 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde11);
v_ins_srtkenmerk_key12 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde12);
v_ins_srtkenmerk_key13 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde13);
v_ins_srtkenmerk_key14 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde14);
v_ins_srtkenmerk_key15 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde15);
v_ins_srtkenmerk_key16 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde16);
v_ins_srtkenmerk_key17 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde17);
v_ins_srtkenmerk_key18 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde18);
v_ins_srtkenmerk_key19 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde19);
v_ins_srtkenmerk_key20 :=
bepaal_srtkenmerk_key (v_ins_kenmerkwaarde20);
v_ins_srtkenmerk_key1 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde1);
v_ins_srtkenmerk_key2 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde2);
v_ins_srtkenmerk_key3 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde3);
v_ins_srtkenmerk_key4 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde4);
v_ins_srtkenmerk_key5 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde5);
v_ins_srtkenmerk_key6 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde6);
v_ins_srtkenmerk_key7 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde7);
v_ins_srtkenmerk_key8 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde8);
v_ins_srtkenmerk_key9 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde9);
v_ins_srtkenmerk_key10 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde10);
v_ins_srtkenmerk_key11 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde11);
v_ins_srtkenmerk_key12 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde12);
v_ins_srtkenmerk_key13 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde13);
v_ins_srtkenmerk_key14 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde14);
v_ins_srtkenmerk_key15 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde15);
v_ins_srtkenmerk_key16 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde16);
v_ins_srtkenmerk_key17 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde17);
v_ins_srtkenmerk_key18 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde18);
v_ins_srtkenmerk_key19 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde19);
v_ins_srtkenmerk_key20 := bepaal_srtkenmerk_key (v_ins_kenmerkwaarde20);
header_is_valid := 1;
END IF;
@@ -27445,25 +27423,27 @@ CREATE OR REPLACE PROCEDURE RWSN_processemail (
psessionid IN VARCHAR2,
pemailkey IN NUMBER)
AS
c_ebf_melder_key NUMBER (10) := 13760; -- EXTERN Overig
c_ebf_stdmld_key NUMBER (10) := 11961; -- Soortmelding=11961=E-mail Algemeen onder Vakgroep=681=MP-FI KCC onder Vakgroeptype=3=KCC [TODO:11761 in T-omgeving]!
c_ext_melder_key NUMBER (10) := 13760; -- EXTERN Overig
c_fd_stdmld_key NUMBER (10) := 11961; -- Soortmelding=11961=E-mail Algemeen onder Vakgroep=681=MP-FI KCC onder Vakgroeptype=3=KCC [TODO:11761 in T-omgeving]!
c_esize_stdmld_key NUMBER (10) := 11962; -- Soortmelding=11962=E-mail Algemeen onder Vakgroep=941=MP-EBF Workforce onder Vakgroeptype=3=KCC!
c_digin_stdmld_key NUMBER (10) := 11963; -- Soortmelding=11963=E-mail Algemeen onder Vakgroep=3221=MP-EBF DigiInkoop onder Vakgroeptype=3=KCC!
-- Printer-Soortmelding=8357 onder Vakgroep=274 onder Vakgroeptype=1!
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_ci VARCHAR2 (255) := '';
v_perslid_key NUMBER (10);
v_kostenplaats_key NUMBER (10);
v_onderwerp VARCHAR2 (255);
v_perslid_key NUMBER (10) := NULL;
v_kostenplaats_key NUMBER (10) := NULL;
v_onderwerp VARCHAR2 (255) := '';
v_discipline_key NUMBER (10) := NULL;
v_stdmelding_key NUMBER (10);
v_stdmelding_key NUMBER (10) := NULL;
--v_stdmelding_uvt mld_stdmelding.mld_stdmelding_t_uitvoertijd%TYPE := MLD_T_UITVOERTIJD (NULL, NULL); -- constructor initialisatie
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_email VARCHAR2 (255) := '';
v_bodypart VARCHAR2 (4000);
v_bodypart VARCHAR2 (4000) := '';
v_email_kkey NUMBER (10) := NULL;
v_folder_kkey NUMBER (10) := NULL;
v_count NUMBER (10) := NULL;
@@ -27491,7 +27471,7 @@ BEGIN
v_errormsg := 'Fout bepalen Printer-onderwerp';
v_onderwerp := psubject;
-- Bepaal de afgesproken Soortmelding met key=5462 (was 8357).
-- Bepaal de afgesproken soortmelding met key=5462 (was 8357).
v_errormsg := 'Fout bepalen Printer-soortmelding';
SELECT mld_ins_discipline_key, mld_stdmelding_key
INTO v_discipline_key, v_stdmelding_key
@@ -27579,11 +27559,23 @@ BEGIN
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'maillog', 'Geregistreerd onder melding ' || v_melding_key);
WHEN UPPER (pto) LIKE 'EBF.FACILITOR@%' -- RWSN#55808
WHEN UPPER (pto) LIKE ('FD.FACILITOR@%') -- RWSN#55808/RWSN#62233: Eerst EBD, daarna FD
OR UPPER (pto) LIKE ('ESIZE.FACILITOR@%')
OR UPPER (pto) LIKE ('DIGIINKOOP.FACILITOR@%')
THEN
-- Negeer mails anders dan vanaf 'MAILS.FD.EBFD@RWS.NL'!
IF INSTR (UPPER (pfrom), 'MAILS.FD.EBFD@RWS.NL') > 0
-- Negeer mails anders dan vanaf 'KCI@RWS.NL' (was 'MAILS.FD.EBFD@RWS.NL')!
IF INSTR (UPPER (pfrom), 'KCI@RWS.NL') > 0
THEN
IF UPPER (pto) LIKE ('FD.FACILITOR@%')
THEN
v_stdmelding_key := c_fd_stdmld_key;
ELSIF UPPER (pto) LIKE ('ESIZE.FACILITOR@%')
THEN
v_stdmelding_key := c_esize_stdmld_key;
ELSE -- UPPER (pto) LIKE ('DIGIINKOOP.FACILITOR@%')
v_stdmelding_key := c_digin_stdmld_key;
END IF;
v_errormsg := 'Fout bepalen E-mail';
v_email := '';
v_bodypart := SUBSTR (pbody, 1, 4000);
@@ -27604,7 +27596,7 @@ BEGIN
INTO v_perslid_key, v_kostenplaats_key, v_locatie_key
FROM prs_v_aanwezigperslid p, prs_afdeling a, prs_perslidwerkplek pw1, prs_werkplek wp1, alg_ruimte r1, alg_verdieping v1, alg_gebouw g1
WHERE p.prs_afdeling_key = a.prs_afdeling_key
AND p.prs_perslid_key = c_ebf_melder_key
AND p.prs_perslid_key = c_ext_melder_key
AND p.prs_perslid_key = pw1.prs_perslid_key(+)
AND pw1.prs_werkplek_key = wp1.prs_werkplek_key(+)
AND wp1.prs_alg_ruimte_key = r1.alg_ruimte_key(+)
@@ -27613,7 +27605,7 @@ BEGIN
AND NOT EXISTS
(SELECT 1
FROM prs_perslidwerkplek pw2, prs_werkplek wp2, alg_ruimte r2, alg_verdieping v2, alg_gebouw g2
WHERE pw2.prs_perslid_key = c_ebf_melder_key
WHERE pw2.prs_perslid_key = c_ext_melder_key
AND pw2.prs_werkplek_key = wp2.prs_werkplek_key
AND wp2.prs_alg_ruimte_key = r2.alg_ruimte_key
AND r2.alg_verdieping_key = v2.alg_verdieping_key
@@ -27622,12 +27614,12 @@ BEGIN
AND pw2.prs_perslidwerkplek_bezetting > pw1.prs_perslidwerkplek_bezetting)
GROUP BY p.prs_perslid_key, a.prs_kostenplaats_key;
-- Bepaal de afgesproken Soortmelding met key=c_ebf_stdmld_key.
-- Bepaal de afgesproken soortmelding voor deze stroom.
v_errormsg := 'Fout bepalen soortmelding';
SELECT mld_ins_discipline_key, mld_stdmelding_key
INTO v_discipline_key, v_stdmelding_key
SELECT mld_ins_discipline_key
INTO v_discipline_key
FROM mld_stdmelding
WHERE mld_stdmelding_key = c_ebf_stdmld_key;
WHERE mld_stdmelding_key = v_stdmelding_key;
-- Suggested extensions:
-- - Check for MLDUSE-write autorisations
@@ -27824,6 +27816,7 @@ AS
AND d.prs_perslid_key_beh = pf.prs_perslid_key(+);
-- RWSN#52630: Rijdend materieel!
-- RWSN#62073: Toevoegen Opmerking-kolom (en andere kolommen volgens standaard FIP:6-template)!
CREATE OR REPLACE VIEW rwsn_v_rap_rijdendmat_expimp
AS
WITH kd AS (SELECT sk.vnr, sk.ins_srtkenmerk_key, sk.ins_srtkenmerk_omschrijving, kd.ins_deel_key, kd.waarde
@@ -27856,7 +27849,8 @@ AS
'groepsoortomschrijving' groepsoortomschrijving,
'objectsoortcode' objectsoortcode,
'objectsoortomschrijving' objectsoortomschrijving,
'objectomschrijving' objectomschrijving,
'objectidentificatie' objectomschrijving,
'objectopmerking' objectopmerking, -- RWSN#62073: Opmerking-kolom!
'reserveerbaar' reserveerbaar,
'eenheid' eenheid,
'prijs' prijs,
@@ -27869,6 +27863,9 @@ AS
'cataloguskostensoort' cataloguskostensoort,
'persoonmatchcode' persoonmatchcode,
'persoonmatchwaarde' persoonmatchwaarde,
'ingangsdatum' ingangsdatum,
'vervaldatum' vervaldatum,
'aantal' aantal,
(SELECT MAX (ins_srtkenmerk_omschrijving) FROM kd WHERE vnr = 1) kenmerk1,
(SELECT MAX (ins_srtkenmerk_omschrijving) FROM kd WHERE vnr = 2) kenmerk2,
(SELECT MAX (ins_srtkenmerk_omschrijving) FROM kd WHERE vnr = 3) kenmerk3,
@@ -27918,6 +27915,7 @@ AS
x.objectsoortcode,
x.objectsoortomschrijving,
x.objectomschrijving,
x.objectopmerking, -- RWSN#62073: Opmerking-kolom!
x.reserveerbaar,
x.eenheid,
REPLACE (TO_CHAR (x.prijs), '.', ',') prijs,
@@ -27930,6 +27928,9 @@ AS
x.cataloguskostensoort,
NULL persoonmatchcode,
NULL persoonmatchwaarde,
TO_CHAR (x.ingangsdatum, 'dd-mm-yyyy') ingangsdatum,
TO_CHAR (x.vervaldatum, 'dd-mm-yyyy') vervaldatum,
TO_CHAR (x.aantal) aantal,
k1.waarde kenmerk1,
k2.waarde kenmerk2,
k3.waarde kenmerk3,
@@ -27977,6 +27978,7 @@ AS
sd.ins_srtdeel_code objectsoortcode,
sd.ins_srtdeel_omschrijving objectsoortomschrijving,
d.ins_deel_omschrijving objectomschrijving,
d.ins_deel_opmerking objectopmerking,
DECODE (rd.res_deel_key, NULL, NULL, 'J') reserveerbaar,
rd.res_deel_eenheid eenheid,
rd.res_deel_prijs prijs,
@@ -27994,7 +27996,10 @@ AS
NULL)
reserveringscope,
td2.ins_discipline_omschrijving catalogusnaam,
ks2.prs_kostensoort_oms cataloguskostensoort
ks2.prs_kostensoort_oms cataloguskostensoort,
d.ins_deel_aanmaak ingangsdatum,
d.ins_deel_vervaldatum vervaldatum,
d.ins_deel_aantal aantal
FROM ins_v_aanwezigdeel d,
ins_srtdeel sd,
ins_srtgroep sg,