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

PCHA#53631 -- Veld (notities) toevoegen Rapport monitoring

Browse Source 
PCHA#52027 -- Fiattering SVD
PCHA#53379 -- Rapport toegekende afwijkingen

svn path=/Customer/trunk/; revision=38397
This commit is contained in:
Arthur Egberink
2018-07-05 11:13:39 +00:00
parent c98b7f961a
commit e809fb41cc
1 changed files with 107 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

119
PCHX/pchx_mon.sql
View File

@@ -3,7 +3,7 @@
-- $Id$
--
DEFINE thisfile = 'PCHX.SQL'
DEFINE thisfile = 'PCHX_MON.SQL'
DEFINE dbuser = 'PCHA|PCHW'
SET ECHO ON
@@ -543,7 +543,9 @@ CREATE OR REPLACE VIEW pchx_v_monitoring
bedrijf_naam,
og,
bedrijf_malus,
prefix
prefix,
kenmerken,
note
)
AS
SELECT m_start, --mld_melding_key,
@@ -610,7 +612,8 @@ AS
(SELECT listagg (m2.mld_melding_key, ',') WITHIN GROUP (ORDER BY m2.mld_melding_key)
AS gekoppeld
FROM mld_melding m2
WHERE m2.mld_melding_parentkey = m_start) gekoppeld,
WHERE COALESCE(m2.mld_melding_parentkey, -1) = m_start
GROUP BY m2.mld_melding_parentkey) gekoppeld,
wegingsfactor,
mld_melding_omschrijving,
mld_melding_opmerking,
@@ -621,7 +624,22 @@ AS
prs_bedrijf_naam,
DECODE (antedateren + g.respijt.tijdsduur + mld_melding_indult + mld_melding_afgerond, 0, 0, 1),
PCHX.get_kenmerk('MLD', DECODE(PCHX.get_user, 'PCHA', 61, 121), m_start),
ins_srtdiscipline_prefix
ins_srtdiscipline_prefix,
(SELECT listagg (mld_srtkenmerk_omschrijving || ': ' || PCHX.get_kenmerk ('MLD',k.mld_kenmerk_key, m_start), chr(10)) WITHIN GROUP (ORDER BY k.mld_kenmerk_volgnummer)
AS kenmerken
FROM mld_kenmerkmelding km, mld_kenmerk k, mld_srtkenmerk sk
WHERE km.mld_melding_key = m_start
AND km.mld_kenmerk_key = k.mld_kenmerk_key
and k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
AND km.mld_kenmerkmelding_verwijder IS NULL
AND k.mld_kenmerk_verwijder IS NULL
and sk.mld_srtkenmerk_verwijder IS NULL
GROUP BY mld_melding_key) kenmerken,
(SELECT mld_melding_note_omschrijving FROM mld_melding_note n
WHERE n.mld_melding_key = m_start
AND NOT EXISTS (SELECT mld_melding_note_key FROM mld_melding_note n2
WHERE n2.mld_melding_key = n.mld_melding_key
AND n2.mld_melding_note_key > n.mld_melding_note_key)) note
FROM (SELECT m.m_start,
m.aantal,
DECODE (m.aantal, 1, NULL, m.overlappend) overlappend,
@@ -871,6 +889,7 @@ CREATE OR REPLACE VIEW pchx_v_monitoring_tot
stdmelding_key,
totaal,
totaal_index,
totaal_z_respijt,
overlappend,
gekoppeld,
kinderen,
@@ -909,6 +928,7 @@ AS
stdmelding_key,
DECODE (indult, 'Ja', 0, totaal),
DECODE (indult, 'Ja', 0, totaal_index),
totaal_z_respijt,
SUBSTR (overlappend, 1, 100),
SUBSTR (gekoppeld, 1, 100),
NULL, -- kinderen bij herhalingskorting
@@ -917,7 +937,7 @@ AS
bedrijf_malus,
prefix
FROM pchx_v_monitoring
WHERE totaal IS NOT NULL
WHERE (totaal IS NOT NULL OR afw IS NOT NULL)
AND ( (status = 'Afgemeld' AND afw IS NULL) OR (status = 'Historie'))
AND (gereed < TRUNC (SYSDATE, 'MONTH') -- Vorige maand afgemeld als we al over de maandgrens zitten.
OR TRUNC (SYSDATE, 'MONTH') = -- Huidige maand. Dan is de huidige maand gelijk aan de maand van de laatste export
@@ -952,6 +972,7 @@ AS
NULL stdmelding_key,
250 * (COUNT ( * ) - 10) * DECODE (SIGN (COUNT ( * ) - 10), 1, 1, 0) totaal,
PCHX_MON.get_index_value(TRUNC(SYSDATE)-1, 'MON') * 250 * (COUNT ( * ) - 10) * DECODE (SIGN (COUNT ( * ) - 10), 1, 1, 0) totaal_index,
NULL totaal_z_respijt,
NULL overlappend,
NULL gekoppeld,
listagg (melding_key, ',') WITHIN GROUP (ORDER BY melding_key) AS kinderen, -- kinderen bij overschrijdingskorting
@@ -999,6 +1020,7 @@ AS
NULL stdmelding_key,
50 * (COUNT ( * ) - 20) * DECODE (SIGN (COUNT ( * ) - 20), 1, 1, 0) totaal,
PCHX_MON.get_index_value(TRUNC(SYSDATE)-1, 'MON') * 50 * (COUNT ( * ) - 20) * DECODE (SIGN (COUNT ( * ) - 20), 1, 1, 0) totaal_index,
NULL totaal_z_respijt,
NULL overlappend,
NULL gekoppeld,
listagg (melding_key, ',') WITHIN GROUP (ORDER BY melding_key) AS kinderen, -- kinderen bij overschrijdingskorting
@@ -1039,6 +1061,7 @@ CREATE OR REPLACE VIEW pchx_v_monitoring_history
variabelekorting,
totaal,
totaal_index,
totaal_z_respijt,
dienst,
hide_f_stdmelding_key,
wegingsfactor,
@@ -1075,6 +1098,7 @@ AS
variabelekorting,
totaal,
totaal_index,
totaal_z_respijt,
dienst,
stdmelding_key,
wegingsfactor,
@@ -1180,7 +1204,9 @@ CREATE OR REPLACE VIEW pchx_v_rap_svd
lomschr,
kostensoort,
kostenkenmerk,
kostenplaats
kostenplaats,
goedgekeurd,
fcl
)
AS
SELECT 'opdracht',
@@ -1280,7 +1306,13 @@ AS
'GLADHEIDBESTR', '6.2.12',
fac_usrdata_upper)
kostenkenmerk,
prs_kostenplaats_nr
prs_kostenplaats_nr,
COALESCE ( ( SELECT FAC.safe_to_number(ko.mld_kenmerkopdr_waarde)
FROM mld_kenmerkopdr ko
WHERE ko.mld_kenmerk_key = 281 -- goedgekeurd door aanvrager
AND ko.mld_opdr_key = o.mld_opdr_key)
, 0) goedgekeurd,
NULL fcl
FROM mld_opdr o,
mld_opdr_materiaal om,
fac_usrdata ud,
@@ -1311,7 +1343,13 @@ AS
ra.res_artikel_omschrijving,
ra.res_artikel_groep,
NULL,
k.prs_kostenplaats_nr
k.prs_kostenplaats_nr,
TO_NUMBER(NULL),
(SELECT res_kenmerkreservering_waarde
FROM res_kenmerkwaarde kw, res_kenmerk k
WHERE kw.res_kenmerk_key = k.res_kenmerk_key
AND k.res_srtkenmerk_key = 23
AND kw.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key) fcl -- FCL
FROM res_rsv_ruimte rrr,
res_rsv_artikel rra,
res_artikel ra,
@@ -1324,6 +1362,19 @@ AS
AND rra.res_rsv_artikel_verwijder IS NULL
AND ra.res_artikel_groep LIKE 'SVD%';
-- Het rapport svd totaal bevat alle SVDs van de afgelopen maand als deze nog niet
-- bevroren zijn. Als dit wel zo is dan bevat het rapport de gegevens van de huidige maand.
CREATE OR REPLACE VIEW pchx_v_rap_svd_tot
AS
SELECT *
FROM pchx_v_rap_svd
WHERE status = DECODE(PCHX.get_user, 'PCHW', 'Afgemeld', 'Verwerkt')
AND (datum < TRUNC (SYSDATE, 'MONTH') -- Vorige maand afgemeld als we al over de maandgrens zitten.
OR TRUNC (SYSDATE, 'MONTH') = -- Huidige maand. Dan is de huidige maand gelijk aan de maand van de laatste export
(SELECT TRUNC (MAX (export_datum), 'MONTH') FROM pchx_svd))
AND mld_opdr_key NOT IN (SELECT mld_opdr_key FROM pchx_svd);
CREATE OR REPLACE PROCEDURE pchx_select_freeze_mon (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2)
@@ -1369,9 +1420,10 @@ AS
CURSOR c_svd_opdracht
IS
SELECT * FROM pchx_v_rap_svd
WHERE status = 'Afgerond'
WHERE status = 'Verwerkt'
AND xml_node = 'opdracht'
AND datum < TRUNC (SYSDATE, 'MONTH');
AND datum < TRUNC (SYSDATE, 'MONTH')
AND mld_opdr_key NOT IN (SELECT mld_opdr_key FROM pchx_svd);
CURSOR c_svd_artikel
IS
@@ -1472,6 +1524,7 @@ BEGIN
stdmelding_key,
totaal,
totaal_index,
totaal_z_respijt,
overlappend,
gekoppeld,
kinderen,
@@ -1509,6 +1562,7 @@ BEGIN
rec.stdmelding_key,
rec.totaal,
rec.totaal_index,
rec.totaal_z_respijt,
rec.overlappend,
rec.gekoppeld,
rec.kinderen,
@@ -1650,6 +1704,7 @@ BEGIN
lomschr,
kostensoort,
kostenkenmerk,
fcl,
export_datum)
VALUES (rec.mld_melding_key,
rec.svd_type,
@@ -1664,6 +1719,7 @@ BEGIN
rec.lomschr,
rec.kostensoort,
rec.kostenkenmerk,
rec.fcl,
v_exportdate);
UPDATE res_rsv_artikel rra
@@ -1726,7 +1782,8 @@ CREATE OR REPLACE VIEW pchx_v_svd_history
maand,
lomschr,
kostensoort,
kostenkenmerk
kostenkenmerk,
fcl
)
AS
SELECT mld_melding_key,
@@ -1743,7 +1800,8 @@ AS
TO_CHAR(TRUNC(export_datum, 'MONTH')-1, 'yyyy-month') maand,
lomschr,
kostensoort,
kostenkenmerk
kostenkenmerk,
fcl
FROM pchx_svd;
@@ -1758,6 +1816,43 @@ AS
WHERE fac_tracking_oms LIKE '%Melding:%' AND m.mld_melding_key = t.fac_tracking_refkey;
CREATE OR REPLACE VIEW pchx_v_rap_melding_details
AS
SELECT sd.INS_SRTDISCIPLINE_OMSCHRIJVing,
d.ins_discipline_omschrijving,
std.mld_stdmelding_omschrijving,
m.mld_melding_key,
m.mld_melding_datum,
rg.alg_locatie_code,
rg.alg_gebouw_upper,
rg.alg_verdieping_code,
rg.alg_ruimte_nr || ' - ' || rg.alg_ruimte_omschrijving alg_ruimte_nr,
km.fac_usrdata_omschr
FROM mld_melding m,
alg_v_ruimte_gegevens rg,
mld_stdmelding std,
ins_tab_discipline d,
ins_srtdiscipline sd,
(SELECT km.mld_melding_key, fac_usrdata_omschr
FROM mld_srtkenmerk sk,
mld_kenmerk k,
mld_kenmerkmelding km,
fac_usrdata ud
WHERE mld_srtkenmerk_upper LIKE 'TYPE %'
AND mld_srtkenmerk_kenmerktype = 'R'
AND mld_srtkenmerk_verwijder IS NULL
AND sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key
AND k.mld_kenmerk_niveau = 'S'
AND km.mld_kenmerk_key = k.mld_kenmerk_key
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
fac_usrdata_key) km
WHERE m.mld_melding_key = km.mld_melding_key(+)
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = d.ins_discipline_key
AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND m.mld_alg_onroerendgoed_keys = rg.alg_ruimte_key;
CREATE OR REPLACE VIEW pchx_v_rap_stmelding_os_check
(
ins_srtdiscipline_omschrijving,