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=59747
This commit is contained in:
Norbert Wassink
2023-03-24 09:03:55 +00:00
parent d4099c1a4a
commit a6735fe9ee
1 changed files with 20 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
PROR/PROR.sql
View File

@@ -678,7 +678,11 @@ AS
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
(SELECT mk.MLD_KENMERKMELDING_WAARDE
FROM MLD_KENMERKMELDING mk
WHERE mk.MLD_melding_KEY=m.mld_melding_key
AND mk.MLD_KENMERK_KEY=1041) provat_flag,
(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
@@ -1094,33 +1098,24 @@ AS
-- PROVAT EXPORT
-- De geexporteerde meldingen een export datum meegeven.
CREATE OR REPLACE PROCEDURE PROR_EXPORT_PROVAT(p_applname IN VARCHAR2,
CREATE OR REPLACE PROCEDURE PROR_SELECT_PROVAT(p_applname IN VARCHAR2,
p_applrun IN VARCHAR2
)
AS
v_date DATE;
/* CURSOR c
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';
FROM pror_v_mld_provat
WHERE provat_flag IS NULL
OR (provat_flag='0' AND mld_update>TO_DATE(export_provat,'DD-MM-YYYY'));
BEGIN
FOR rec in c
LOOP
IF rec.mld_kenmerkmelding_waarde IS NULL
THEN
flx.setflex('MLD',1021,rec.melding_key,SYSDATE);
END IF;
flx.setflex('MLD',1041,rec.melding_key,'1'); -- Deze mogen geexporteerd worden
END LOOP;
*/
BEGIN
SELECT SYSDATE INTO v_date FROM DUAL;
END;
/
@@ -1137,15 +1132,9 @@ 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,
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;
FROM pror_v_mld_provat
WHERE provat_flag='1'
ORDER BY 1 DESC;
@@ -1159,19 +1148,14 @@ AS
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';
FROM pror_v_mld_provat
WHERE provat_flag='1';
BEGIN
FOR rec IN C
LOOP
flx.setflex('MLD',1021,rec.melding_key,TO_CHAR(SYSDATE,'DD-MM-YYYY'));
flx.setflex('MLD',1041,rec.melding_key,'0');
END LOOP;
END;
/