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=59744
This commit is contained in:
Norbert Wassink
2023-03-24 08:16:45 +00:00
parent bb83f437e5
commit d4099c1a4a
1 changed files with 50 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

82
PROR/PROR.sql
View File

@@ -672,22 +672,26 @@ AS
FROM mld_statuses ms
WHERE ms.mld_statuses_key=m.mld_melding_status) mld_status,
'Kostenplaats' kostenplaats,
m.mld_melding_onderwerp onderwerp
m.mld_melding_onderwerp onderwerp,
(SELECT MAX (f.fac_tracking_datum)
FROM fac_tracking f
WHERE f.FAC_TRACKING_REFKEY=m.mld_melding_key
AND f.FAC_SRTNOTIFICATIE_KEY=55
AND f.FAC_TRACKING_DATUM>m.mld_melding_datum) mld_update,
(SELECT mk.MLD_KENMERKMELDING_WAARDE
FROM MLD_KENMERKMELDING mk
WHERE mk.MLD_melding_KEY=m.mld_melding_key
AND mk.MLD_KENMERK_KEY=1021) export_provat
FROM mld_melding m,
mld_stdmelding ms,
mld_discipline md,
alg_v_allonrgoed_gegevens a
WHERE m.mld_stdmelding_key=ms.mld_stdmelding_key
AND md.ins_discipline_key= ms.mld_ins_discipline_key
AND UPPER(md.ins_discipline_omschrijving)='VEILIGHEIDSINCIDENTEN'
AND UPPER(md.ins_discipline_omschrijving)='BHV EN VEILIGHEID'
AND a.alg_locatie_key=m.mld_alg_locatie_key
AND a.alg_onroerendgoed_keys=m.mld_alg_onroerendgoed_keys
AND m.mld_melding_status IN (2,3,4,5,7);
---
@@ -990,7 +994,7 @@ AS
TO_CHAR (voorz.van, 'hh24:mi'),
TO_CHAR (voorz.tot, 'hh24:mi'),
voorz.aantal,
voorz.prijs
ROUND(voorz.prijs,2)
FROM res_v_aanwezigrsv_ruimte rrr,
res_activiteit ra,
res_srtactiviteit rsa,
@@ -1089,27 +1093,34 @@ AS
--- EXPORTS
-- PROVAT EXPORT
-- Eerst bepalen welke meldingen geexporteerd moeten worden
CREATE OR REPLACE PROCEDURE PROR_SELECT_PROVAT(p_applname IN VARCHAR2,
-- De geexporteerde meldingen een export datum meegeven.
CREATE OR REPLACE PROCEDURE PROR_EXPORT_PROVAT(p_applname IN VARCHAR2,
p_applrun IN VARCHAR2
)
AS
CURSOR c IS
SELECT * from pror_v_mld_provat p, mld_kenmerkmelding mk
where p.begin_datum > SYSDATE-1
AND p.MELDING_KEY=mk.MLD_MELDING_KEY(+)
AND mk.MLD_KENMERK_KEY(+)=21;
v_date DATE;
/* CURSOR c
IS
SELECT *
FROM pror_v_mld_provat p,
fac_export_app fea
WHERE ((p.begin_datum > fea.fac_export_app_datum
AND p.export_provat IS NULL)
OR
(p.mld_update> fea.fac_export_app_datum
AND p.export_provat IS NOT NULL))
AND UPPER(fea.fac_export_app_code)='PROVAT';
BEGIN
FOR rec in c
LOOP
IF rec.mld_kenmerkmelding_waarde IS NULL
THEN
flx.setflex('MLD',22,rec.melding_key,1);
ELSE
flx.setflex('MLD',22,rec.melding_key,0);
flx.setflex('MLD',1021,rec.melding_key,SYSDATE);
END IF;
END LOOP;
*/
BEGIN
SELECT SYSDATE INTO v_date FROM DUAL;
END;
/
@@ -1126,12 +1137,15 @@ AS
SELECT 'Requestnr;Begindatum;Contact;Service;Omschrijving;Gebouw;Assignee;Type request;Status;Kostenplaats;Omschrijving' heaeder,0 FROM DUAL
UNION ALL
SELECT melding_key||';'||TO_CHAR(begin_datum,'DD-MM-YYYY HH24:MI:SS')||';'||contact||';'||service||';'||omschrijving||';'||locatie||';'||assignee||';'||type_request||';'||mld_status||';;'||onderwerp, 1
FROM pror_v_mld_provat p, mld_kenmerkmelding mk
WHERE begin_datum > SYSDATE-1
AND mk.MLD_MELDING_KEY=p.MELDING_KEY
AND mk.MLD_KENMERK_KEY=22
AND mk.MLD_KENMERKMELDING_WAARDE=1;
ORDER BY 1;
FROM pror_v_mld_provat p,
fac_export_app fea
WHERE ((p.begin_datum > fea.fac_export_app_datum
AND p.export_provat IS NULL)
OR
(p.mld_update> fea.fac_export_app_datum
AND p.export_provat IS NOT NULL))
AND UPPER(fea.fac_export_app_code)='PROVAT';
ORDER BY 1 DESC;
@@ -1144,16 +1158,20 @@ CREATE OR REPLACE PROCEDURE PROR_EXPORT_PROVAT(p_applname IN VARCHAR2,
AS
CURSOR c
IS
SELECT * FROM pror_v_mld_provat p, mld_kenmerkmelding mk
WHERE begin_datum > SYSDATE-1
AND mk.MLD_melding_KEY=p.melding_key
AND mk.MLD_KENMERK_KEY=22
AND mk.MLD_KENMERKMELDING_WAARDE=1;
SELECT *
FROM pror_v_mld_provat p,
fac_export_app fea
WHERE ((p.begin_datum > fea.fac_export_app_datum
AND p.export_provat IS NULL)
OR
(p.mld_update> fea.fac_export_app_datum
AND p.export_provat IS NOT NULL))
AND UPPER(fea.fac_export_app_code)='PROVAT';
BEGIN
FOR rec IN C
LOOP
flx.setflex('MLD',22,rec.melding_key,'0');
flx.setflex('MLD',21,rec.melding_key,TO_CHAR(SYSDATE,'DD-MM-YYYY'));
flx.setflex('MLD',1021,rec.melding_key,TO_CHAR(SYSDATE,'DD-MM-YYYY'));
END LOOP;
END;
/