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

PROR#74299 -- Inrichten Prorail omgeving

Browse Source 
svn path=/Customer/trunk/; revision=60942
This commit is contained in:
Norbert Wassink
2023-06-26 11:53:23 +00:00
parent 59d413900f
commit 476ccc7eb7
1 changed files with 32 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
PROR/PROR.sql
View File

@@ -610,12 +610,16 @@ CREATE OR REPLACE VIEW pror_v_res_other_contact
AS
SELECT
NULL sender,
rrr.res_rsv_ruimte_host_key receiver,
rrr.res_rsv_ruimte_contact_key receiver,
'CUST01' code,
'Reservering '||rrr.res_reservering_key||'/ '||rrr.res_rsv_ruimte_volgnr||
' is door '||(SELECT prs_perslid_naam_friendly FROM prs_v_perslid_fullnames WHERE prs_perslid_key= rrr.res_rsv_ruimte_contact_key)||
-- ' is door '||(SELECT prs_perslid_naam_friendly
-- FROM prs_v_perslid_fullnames p, fac_tracking ft
-- WHERE ft.fac_tracking_refkey=rrr.res_rsv_ruimte_key
-- AND fac_srtnotificatie_key=116
-- AND p.prs_perslid_key= ft.prs_perslid_key)||
' voor u aangemaakt.' text,
rrr.res_reservering_key key,
rrr.res_rsv_ruimte_key key,
NULL xkey,
NULL xemail,
NULL xmobile
@@ -626,6 +630,8 @@ AS
WHERE fac_tracking_refkey=rrr.res_rsv_ruimte_key
AND ft.fac_srtnotificatie_key=223
AND ft.fac_tracking_oms LIKE '%CUST01%');
-- EINDE NOTIFICATIE VIEWS
@@ -824,7 +830,7 @@ AS
---
CREATE OR REPLACE VIEW pror_v_bkms_biomni
AS
SELECT 'https://pror.facilitor-test.nl/?u='||fac_bookmark_id||CHR(38)||'mld_defaultstdmelding='||ms.MLD_STDMELDING_KEY url,
SELECT 'https://fmis.prorail.nl/?u='||fac_bookmark_id||CHR(38)||'mld_defaultstdmelding='||ms.MLD_STDMELDING_KEY url,
ms.MLD_STDMELDING_OMSCHRIJVING
FROM fac_bookmark fb, mld_stdmelding ms
WHERE fb.FAC_BOOKMARK_NAAM='SSP/Biomni melding'
@@ -841,7 +847,7 @@ AS
COALESCE(m.mld_melding_onderwerp, ms.mld_stdmelding_omschrijving) omschrijving,
mst.mld_statuses_omschrijving,
m.mld_melding_datum aanvraag_datum,
p.prs_perslid_email email_aanvrager,
COALESCE(p.prs_perslid_email,m.mld_melding_email_ext) email_aanvrager,
(SELECT a.mld_melding_note_omschrijving
FROM (SELECT mld_melding_note_omschrijving
FROM mld_melding_note
@@ -860,7 +866,8 @@ AS
AND md.ins_discipline_key=ms.mld_ins_discipline_key
AND id.ins_srtdiscipline_key = md.ins_srtdiscipline_key
AND mst.mld_statuses_key=m.mld_melding_status
AND p.prs_perslid_email IS NOT NULL
AND ( p.prs_perslid_email IS NOT NULL
OR m.mld_melding_email_ext IS NOT NULL)
ORDER BY m.mld_melding_datum;
--
@@ -1328,7 +1335,8 @@ AS
AND rr.res_ruimte_key = rro.res_ruimte_key
AND rarm.res_ruimte_key = rr.res_ruimte_key
AND rarm.res_alg_ruimte_verwijder IS NULL
AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr
AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr,
ra.res_artikel_groep soort_locatie
FROM res_rsv_artikel rra,
res_artikel ra,
res_rsv_ruimte rrr,
@@ -1371,7 +1379,8 @@ AS
AND rr.res_ruimte_key = rro.res_ruimte_key
AND rarm.res_ruimte_key = rr.res_ruimte_key
AND rarm.res_alg_ruimte_verwijder IS NULL
AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr
AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr,
ra.res_artikel_groep soort_locatie
FROM res_rsv_artikel rra,
res_artikel ra,
res_rsv_ruimte rrr,
@@ -1408,7 +1417,8 @@ AS
AND rr.res_ruimte_key = rro.res_ruimte_key
AND rarm.res_ruimte_key = rr.res_ruimte_key
AND rarm.res_alg_ruimte_verwijder IS NULL
AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr
AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr,
ra.res_artikel_groep soort_locatie
FROM res_rsv_artikel rra,
res_artikel ra,
res_rsv_ruimte rrr,
@@ -1432,9 +1442,12 @@ AS
CURSOR sel
IS
SELECT *
FROM PROR_V_SELECT_EUREST_CAT
WHERE TO_CHAR(van,'MM')='12'; --TO_CHAR(ADD_MONTHS(SYSDATE,-1),'MM');
SELECT p.*,
(SELECT alg.alg_gebouw_code
FROM alg_v_allonrgoed_gegevens alg
WHERE alg.alg_ruimte_nr=p.ruimtenr) gebouw_code
FROM PROR_V_SELECT_EUREST_CAT p
WHERE TO_CHAR(p.van,'MM')='12'; --TO_CHAR(ADD_MONTHS(SYSDATE,-1),'MM');
CURSOR sel_art(p_rrr_key NUMBER)
IS
@@ -1463,6 +1476,8 @@ AS
v_debitor_value VARCHAR2(20);
v_counter NUMBER;
v_artikelprijs NUMBER;
v_maand NUMBER;
v_jaar NUMBER;
BEGIN
v_bestand :='EUR-EX';
@@ -1473,6 +1488,10 @@ BEGIN
v_contact_email :='compass@prorail.nl';
v_debitor_value := 'PROR_DEB_CODE';
-- IF fac.safe_to_number((TO_CHAR(SYSDATE,'MM'))) = 1 THEN
-- v_maand:=12
-- v_jaar := fac_safe_to_number(TO_CHAR(SYSDATE,'YYYY'))-1;
-- END IF;
-- eerst opschonen
DELETE FROM fac_rapport
@@ -1508,7 +1527,7 @@ BEGIN
pror.add_xml_element (v_bestand, 'Comments', REGEXP_REPLACE(rec.opmerking, '[^ -~|[:space:]]', ''));
pror.add_xml_row(v_bestand, '<Delivery>');
pror.add_xml_row(v_bestand, '<Location>');
pror.add_xml_element (v_bestand, 'Reference', 'LOCATIECODE');
pror.add_xml_element (v_bestand, 'Reference', rec.gebouw_code);
pror.add_xml_row(v_bestand, '<Room>');
pror.add_xml_element (v_bestand, 'Description',rec.ruimteNr);
pror.add_xml_row(v_bestand, '</Room>');