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

UWVA#61083 Nog even uit gecommentarieerd, dit moet met 2021 mee

Browse Source 
svn path=/Customer/trunk/; revision=49991
This commit is contained in:
Sander Schepers
2021-02-22 15:57:13 +00:00
parent 80f63557c0
commit 5a4ec59888
1 changed files with 351 additions and 351 deletions
Download Patch File Download Diff File Expand all files Collapse all files

702
UWVA/uwva_misc.sql
View File

@@ -14654,357 +14654,357 @@ AS
GROUP BY datum, ins_deel_key GROUP BY datum, ins_deel_key
ORDER BY datum, ins_deel_key; ORDER BY datum, ins_deel_key;
-- UWVA#61083: Bewaartermijnen/automatische schoning! ---- UWVA#61083: Bewaartermijnen/automatische schoning!
CREATE OR REPLACE VIEW uwva_v_rap_bes_schoning --CREATE OR REPLACE VIEW uwva_v_rap_bes_schoning
( --(
jaar, -- jaar,
bes_bestelling_key -- bes_bestelling_key
) --)
AS --AS
WITH b -- WITH b
AS (SELECT bes_bestelling_key, -- AS (SELECT bes_bestelling_key,
bes_bestelling_datum, -- bes_bestelling_datum,
COALESCE ( -- COALESCE (
fac.gettrackingdate ('BESREJ', bes_bestelling_key), -- fac.gettrackingdate ('BESREJ', bes_bestelling_key),
--fac.gettrackingdate ('BESXXX', bes_bestelling_key), -- key=257 (1x voor 164572 in 2012) -- --fac.gettrackingdate ('BESXXX', bes_bestelling_key), -- key=257 (1x voor 164572 in 2012)
--fac.gettrackingdate ('BESINF', bes_bestelling_key), -- key=44 -- --fac.gettrackingdate ('BESINF', bes_bestelling_key), -- key=44
fac.gettrackingdate ('BESOTV', bes_bestelling_key)) -- fac.gettrackingdate ('BESOTV', bes_bestelling_key))
gesloten -- gesloten
FROM bes_bestelling -- FROM bes_bestelling
WHERE bes_bestelling_status IN (1, 6, 7, 8, 9) -- Gesloten bestelling -- WHERE bes_bestelling_status IN (1, 6, 7, 8, 9) -- Gesloten bestelling
AND bes_bestelling_datum < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')) -- Aangemaakt > 7 jaar geleden -- AND bes_bestelling_datum < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')) -- Aangemaakt > 7 jaar geleden
SELECT TO_CHAR (b.bes_bestelling_datum, 'yyyy') jaar, bes_bestelling_key --COUNT ( * ) aantal -- SELECT TO_CHAR (b.bes_bestelling_datum, 'yyyy') jaar, bes_bestelling_key --COUNT ( * ) aantal
FROM b -- Gesloten bestellingen > 7 jaar geleden aangemaakt! -- FROM b -- Gesloten bestellingen > 7 jaar geleden aangemaakt!
WHERE 1 = 1 --b.gesloten < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy') -- Gesloten > 7 jaar geleden -- WHERE 1 = 1 --b.gesloten < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy') -- Gesloten > 7 jaar geleden
--AND NOT EXISTS -- --AND NOT EXISTS
-- (SELECT 1 -- -- (SELECT 1
-- FROM bes_bestelling_item bbi, bes_bestelopdr_item boi, bes_bestelopdr bo -- -- FROM bes_bestelling_item bbi, bes_bestelopdr_item boi, bes_bestelopdr bo
-- WHERE bbi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key -- -- WHERE bbi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key
-- AND boi.bes_bestelopdr_key = bo.bes_bestelopdr_key -- -- AND boi.bes_bestelopdr_key = bo.bes_bestelopdr_key
-- AND bo.bes_bestelopdr_status IN (2, 3, 4, 5) -- Lopende bestelopdracht -- -- AND bo.bes_bestelopdr_status IN (2, 3, 4, 5) -- Lopende bestelopdracht
-- AND bbi.bes_bestelling_key = b.bes_bestelling_key) -- -- AND bbi.bes_bestelling_key = b.bes_bestelling_key)
AND NOT EXISTS -- Geen later gewijzigde child-bestelopdrachten! -- AND NOT EXISTS -- Geen later gewijzigde child-bestelopdrachten!
(SELECT 1 -- (SELECT 1
FROM fac_tracking t, fac_srtnotificatie sn, bes_bestelopdr_item boi, bes_bestelling_item bbi -- FROM fac_tracking t, fac_srtnotificatie sn, bes_bestelopdr_item boi, bes_bestelling_item bbi
WHERE t.fac_tracking_datum > TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy') -- WHERE t.fac_tracking_datum > TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')
AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key -- AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_xmlnode = 'bestelopdracht' -- AND sn.fac_srtnotificatie_xmlnode = 'bestelopdracht'
AND t.fac_tracking_refkey = boi.bes_bestelopdr_key -- AND t.fac_tracking_refkey = boi.bes_bestelopdr_key
AND boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key -- AND boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
AND bbi.bes_bestelling_key = b.bes_bestelling_key) -- AND bbi.bes_bestelling_key = b.bes_bestelling_key)
AND NOT EXISTS -- Geen lopende facturen op child-bestelopdrachten! -- AND NOT EXISTS -- Geen lopende facturen op child-bestelopdrachten!
(SELECT 1 -- (SELECT 1
FROM fin_factuur f, bes_bestelopdr_item boi, bes_bestelling_item bbi -- FROM fin_factuur f, bes_bestelopdr_item boi, bes_bestelling_item bbi
WHERE f.fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur -- WHERE f.fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur
AND f.bes_bestelopdr_key = boi.bes_bestelopdr_key -- AND f.bes_bestelopdr_key = boi.bes_bestelopdr_key
AND boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key -- AND boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
AND bbi.bes_bestelling_key = b.bes_bestelling_key); -- AND bbi.bes_bestelling_key = b.bes_bestelling_key);
--GROUP BY TO_CHAR (b.bes_bestelling_datum, 'yyyy'); ----GROUP BY TO_CHAR (b.bes_bestelling_datum, 'yyyy');
--
CREATE OR REPLACE VIEW uwva_v_rap_bez_schoning --CREATE OR REPLACE VIEW uwva_v_rap_bez_schoning
( --(
jaar, -- jaar,
bez_afspraak_key, -- bez_afspraak_key,
bezoekers -- bezoekers
) --)
AS --AS
WITH a -- WITH a
AS ( SELECT a.bez_afspraak_key, -- AS ( SELECT a.bez_afspraak_key,
a.bez_afspraak_datum, -- a.bez_afspraak_datum,
COUNT (*) bezoekers -- COUNT (*) bezoekers
FROM bez_afspraak a, bez_bezoekers b -- FROM bez_afspraak a, bez_bezoekers b
WHERE a.bez_afspraak_datum < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy') -- Aangemaakt > 7 jaar geleden -- WHERE a.bez_afspraak_datum < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy') -- Aangemaakt > 7 jaar geleden
AND a.bez_afspraak_key = b.bez_afspraak_key -- AND a.bez_afspraak_key = b.bez_afspraak_key
GROUP BY a.bez_afspraak_key, a.bez_afspraak_datum) -- GROUP BY a.bez_afspraak_key, a.bez_afspraak_datum)
SELECT TO_CHAR (a.bez_afspraak_datum, 'yyyy') jaar, bez_afspraak_key, bezoekers --COUNT ( * ) afspraken, SUM (bezoekers) bezoekers -- SELECT TO_CHAR (a.bez_afspraak_datum, 'yyyy') jaar, bez_afspraak_key, bezoekers --COUNT ( * ) afspraken, SUM (bezoekers) bezoekers
FROM a; -- FROM a;
--GROUP BY TO_CHAR (a.bez_afspraak_datum, 'yyyy'); ----GROUP BY TO_CHAR (a.bez_afspraak_datum, 'yyyy');
--
CREATE OR REPLACE VIEW uwva_v_rap_res_schoning --CREATE OR REPLACE VIEW uwva_v_rap_res_schoning
( --(
jaar, -- jaar,
res_rsv_ruimte_key -- res_rsv_ruimte_key
) --)
AS --AS
WITH r -- WITH r
AS (SELECT res_rsv_ruimte_key, -- AS (SELECT res_rsv_ruimte_key,
res_reservering_key, -- res_reservering_key,
res_rsv_ruimte_volgnr, -- res_rsv_ruimte_volgnr,
res_rsv_ruimte_tot -- res_rsv_ruimte_tot
FROM res_rsv_ruimte -- FROM res_rsv_ruimte
WHERE res_rsv_ruimte_tot < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')) -- Aangemaakt > 7 jaar geleden -- WHERE res_rsv_ruimte_tot < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')) -- Aangemaakt > 7 jaar geleden
SELECT TO_CHAR (res_rsv_ruimte_tot, 'yyyy') jaar, res_rsv_ruimte_key --COUNT ( * ) aantal -- SELECT TO_CHAR (res_rsv_ruimte_tot, 'yyyy') jaar, res_rsv_ruimte_key --COUNT ( * ) aantal
FROM r -- Reserveringen > 7 jaar geleden aangemaakt! -- FROM r -- Reserveringen > 7 jaar geleden aangemaakt!
WHERE NOT EXISTS -- Geen latere child-reserveringen! -- WHERE NOT EXISTS -- Geen latere child-reserveringen!
(SELECT 1 -- (SELECT 1
FROM res_rsv_ruimte cr -- Child-reserveringen! -- FROM res_rsv_ruimte cr -- Child-reserveringen!
WHERE cr.res_rsv_ruimte_tot > TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy') -- WHERE cr.res_rsv_ruimte_tot > TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')
AND cr.res_reservering_key = r.res_reservering_key); -- AND cr.res_reservering_key = r.res_reservering_key);
--GROUP BY TO_CHAR (res_rsv_ruimte_tot, 'yyyy'); ----GROUP BY TO_CHAR (res_rsv_ruimte_tot, 'yyyy');
--
-- TODO: Periodieke meldingen/opdrachten niet beschouwen? ---- TODO: Periodieke meldingen/opdrachten niet beschouwen?
-- TODO: Geantedateerde meldingen/opdrachten? ---- TODO: Geantedateerde meldingen/opdrachten?
CREATE OR REPLACE VIEW uwva_v_rap_mld_schoning --CREATE OR REPLACE VIEW uwva_v_rap_mld_schoning
( --(
jaar, -- jaar,
mld_melding_key -- mld_melding_key
) --)
AS --AS
WITH m -- WITH m
AS (SELECT mld_melding_key, -- AS (SELECT mld_melding_key,
mld_melding_datum, -- mld_melding_datum,
mld_melding_start_key, -- mld_melding_start_key,
mld_melding_parentkey, -- mld_melding_parentkey,
COALESCE ( -- COALESCE (
fac.gettrackingdate ('MLDREJ', mld_melding_key), -- fac.gettrackingdate ('MLDREJ', mld_melding_key),
fac.gettrackingdate ('MLDAFM', mld_melding_key), -- Soms niet Afgemeld? -- fac.gettrackingdate ('MLDAFM', mld_melding_key), -- Soms niet Afgemeld?
fac.gettrackingdate ('MLDVER', mld_melding_key)) -- fac.gettrackingdate ('MLDVER', mld_melding_key))
gesloten -- gesloten
FROM mld_melding -- FROM mld_melding
WHERE mld_melding_status IN (1, 5, 6) -- Gesloten melding -- WHERE mld_melding_status IN (1, 5, 6) -- Gesloten melding
AND mld_melding_datum < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')) -- Aangemaakt > 7 jaar geleden -- AND mld_melding_datum < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')) -- Aangemaakt > 7 jaar geleden
SELECT TO_CHAR (m.mld_melding_datum, 'yyyy') jaar, mld_melding_key --COUNT ( * ) aantal -- SELECT TO_CHAR (m.mld_melding_datum, 'yyyy') jaar, mld_melding_key --COUNT ( * ) aantal
FROM m -- Gesloten meldingen > 7 jaar geleden aangemaakt! -- FROM m -- Gesloten meldingen > 7 jaar geleden aangemaakt!
WHERE m.gesloten < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy') -- Gesloten > 7 jaar geleden -- WHERE m.gesloten < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy') -- Gesloten > 7 jaar geleden
AND NOT EXISTS -- Geen later gewijzigde child-opdrachten! -- AND NOT EXISTS -- Geen later gewijzigde child-opdrachten!
(SELECT 1 -- (SELECT 1
FROM fac_tracking t, fac_srtnotificatie sn, mld_opdr o -- FROM fac_tracking t, fac_srtnotificatie sn, mld_opdr o
WHERE t.fac_tracking_datum > TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy') -- WHERE t.fac_tracking_datum > TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')
AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key -- AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_xmlnode = 'opdracht' -- AND sn.fac_srtnotificatie_xmlnode = 'opdracht'
AND t.fac_tracking_refkey = o.mld_opdr_key -- AND t.fac_tracking_refkey = o.mld_opdr_key
AND o.mld_melding_key = m.mld_melding_key) -- AND o.mld_melding_key = m.mld_melding_key)
AND EXISTS -- Eventuele start-melding ook > 7 jaar gesloten! -- AND EXISTS -- Eventuele start-melding ook > 7 jaar gesloten!
(SELECT 1 -- (SELECT 1
FROM m sm -- Start-meldingen! -- FROM m sm -- Start-meldingen!
WHERE sm.mld_melding_key = COALESCE (m.mld_melding_start_key, m.mld_melding_key)) -- WHERE sm.mld_melding_key = COALESCE (m.mld_melding_start_key, m.mld_melding_key))
AND EXISTS -- Eventuele parent-melding ook > 7 jaar gesloten! -- AND EXISTS -- Eventuele parent-melding ook > 7 jaar gesloten!
(SELECT 1 -- (SELECT 1
FROM m pm -- Parent-meldingen! -- FROM m pm -- Parent-meldingen!
WHERE pm.mld_melding_key = COALESCE (m.mld_melding_parentkey, m.mld_melding_key)) -- WHERE pm.mld_melding_key = COALESCE (m.mld_melding_parentkey, m.mld_melding_key))
AND NOT EXISTS -- Geen later aangemaakte child-meldingen! => Kan dat? -- AND NOT EXISTS -- Geen later aangemaakte child-meldingen! => Kan dat?
(SELECT 1 -- (SELECT 1
FROM mld_melding cm -- Child-meldingen! -- FROM mld_melding cm -- Child-meldingen!
WHERE cm.mld_melding_datum > TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy') -- WHERE cm.mld_melding_datum > TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')
AND cm.mld_melding_parentkey = m.mld_melding_key) -- AND cm.mld_melding_parentkey = m.mld_melding_key)
AND NOT EXISTS -- Geen lopende facturen op child-opdrachten! -- AND NOT EXISTS -- Geen lopende facturen op child-opdrachten!
(SELECT 1 -- (SELECT 1
FROM fin_factuur f, mld_opdr o -- FROM fin_factuur f, mld_opdr o
WHERE f.fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur -- WHERE f.fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur
AND f.mld_opdr_key = o.mld_opdr_key -- AND f.mld_opdr_key = o.mld_opdr_key
AND o.mld_melding_key = m.mld_melding_key); -- AND o.mld_melding_key = m.mld_melding_key);
--GROUP BY TO_CHAR (m.mld_melding_datum, 'yyyy'); ----GROUP BY TO_CHAR (m.mld_melding_datum, 'yyyy');
--
CREATE OR REPLACE VIEW uwva_v_rap_cnt_schoning --CREATE OR REPLACE VIEW uwva_v_rap_cnt_schoning
( --(
ins_discipline_key, -- ins_discipline_key,
huur_jn, -- huur_jn,
contractsoort, -- contractsoort,
cnt_contract_key, -- cnt_contract_key,
contractnr, -- contractnr,
cnt_contract_omschrijving, -- cnt_contract_omschrijving,
cnt_contract_looptijd_tot, -- cnt_contract_looptijd_tot,
cnt_contract_status -- cnt_contract_status
) --)
AS --AS
WITH c -- WITH c
AS (SELECT c.ins_discipline_key, -- AS (SELECT c.ins_discipline_key,
c.cnt_contract_key, -- c.cnt_contract_key,
c.cnt_contract_nummer_intern, -- c.cnt_contract_nummer_intern,
c.cnt_contract_versie, -- c.cnt_contract_versie,
c.cnt_contract_omschrijving, -- c.cnt_contract_omschrijving,
c.cnt_contract_verwijder, -- c.cnt_contract_verwijder,
c.cnt_contract_looptijd_tot, -- c.cnt_contract_looptijd_tot,
c.cnt_contract_status, -- c.cnt_contract_status,
c.cnt_contract_mantel_key, -- c.cnt_contract_mantel_key,
cp.cnt_alg_plaats_key, -- cp.cnt_alg_plaats_key,
cp.cnt_alg_plaats_code -- cp.cnt_alg_plaats_code
FROM cnt_contract c, cnt_contract_plaats cp -- FROM cnt_contract c, cnt_contract_plaats cp
WHERE c.ins_discipline_key IN (198, 412) -- Huurcontracten/Mantel huurcontracten -- WHERE c.ins_discipline_key IN (198, 412) -- Huurcontracten/Mantel huurcontracten
AND c.cnt_contract_key = cp.cnt_contract_key(+)) -- AND c.cnt_contract_key = cp.cnt_contract_key(+))
SELECT DISTINCT -- SELECT DISTINCT
c.ins_discipline_key, -- c.ins_discipline_key,
'J' huur_jn, -- 'J' huur_jn,
cd.ins_discipline_omschrijving, -- cd.ins_discipline_omschrijving,
c.cnt_contract_key, -- c.cnt_contract_key,
c.cnt_contract_nummer_intern || DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie) -- c.cnt_contract_nummer_intern || DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie)
contractnr, -- contractnr,
c.cnt_contract_omschrijving, -- c.cnt_contract_omschrijving,
c.cnt_contract_looptijd_tot, -- c.cnt_contract_looptijd_tot,
c.cnt_contract_status -- c.cnt_alg_plaats_key, c.cnt_alg_plaats_code -- c.cnt_contract_status -- c.cnt_alg_plaats_key, c.cnt_alg_plaats_code
FROM c, cnt_discipline cd -- FROM c, cnt_discipline cd
WHERE c.cnt_contract_looptijd_tot < TRUNC (ADD_MONTHS (SYSDATE, -120), 'yyyy') -- Verlopen > 10 jaar geleden -- WHERE c.cnt_contract_looptijd_tot < TRUNC (ADD_MONTHS (SYSDATE, -120), 'yyyy') -- Verlopen > 10 jaar geleden
AND c.ins_discipline_key = cd.ins_discipline_key -- AND c.ins_discipline_key = cd.ins_discipline_key
AND NOT EXISTS -- Geen dossier-contract op dezelfde plaats <= 10 jaar geleden -- AND NOT EXISTS -- Geen dossier-contract op dezelfde plaats <= 10 jaar geleden
(SELECT 1 -- (SELECT 1
FROM c dc -- FROM c dc
WHERE dc.cnt_contract_verwijder IS NULL -- WHERE dc.cnt_contract_verwijder IS NULL
AND dc.cnt_contract_looptijd_tot >= TRUNC (ADD_MONTHS (SYSDATE, -120), 'yyyy') -- AND dc.cnt_contract_looptijd_tot >= TRUNC (ADD_MONTHS (SYSDATE, -120), 'yyyy')
AND dc.cnt_alg_plaats_key = c.cnt_alg_plaats_key -- AND dc.cnt_alg_plaats_key = c.cnt_alg_plaats_key
AND dc.cnt_alg_plaats_code = c.cnt_alg_plaats_code) -- AND dc.cnt_alg_plaats_code = c.cnt_alg_plaats_code)
AND NOT EXISTS -- Geen dossier-contract onder dezelfde mantel <= 10 jaar geleden -- AND NOT EXISTS -- Geen dossier-contract onder dezelfde mantel <= 10 jaar geleden
(SELECT 1 -- (SELECT 1
FROM c dc -- FROM c dc
WHERE dc.cnt_contract_verwijder IS NULL -- WHERE dc.cnt_contract_verwijder IS NULL
AND dc.cnt_contract_looptijd_tot >= TRUNC (ADD_MONTHS (SYSDATE, -120), 'yyyy') -- AND dc.cnt_contract_looptijd_tot >= TRUNC (ADD_MONTHS (SYSDATE, -120), 'yyyy')
AND dc.cnt_contract_mantel_key = c.cnt_contract_key) -- AND dc.cnt_contract_mantel_key = c.cnt_contract_key)
AND NOT EXISTS -- Geen lopende facturen op contract! -- AND NOT EXISTS -- Geen lopende facturen op contract!
(SELECT 1 -- (SELECT 1
FROM fin_factuur -- FROM fin_factuur
WHERE fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur -- WHERE fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur
AND cnt_contract_key = c.cnt_contract_key) -- AND cnt_contract_key = c.cnt_contract_key)
UNION ALL -- UNION ALL
SELECT DISTINCT -- SELECT DISTINCT
c.ins_discipline_key, -- c.ins_discipline_key,
'N' huur_jn, -- 'N' huur_jn,
cd.ins_discipline_omschrijving, -- cd.ins_discipline_omschrijving,
c.cnt_contract_key, -- c.cnt_contract_key,
c.cnt_contract_nummer_intern || DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie) -- c.cnt_contract_nummer_intern || DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie)
contractnr, -- contractnr,
c.cnt_contract_omschrijving, -- c.cnt_contract_omschrijving,
c.cnt_contract_looptijd_tot, -- c.cnt_contract_looptijd_tot,
c.cnt_contract_status -- c.cnt_contract_status
FROM cnt_contract c, cnt_discipline cd -- FROM cnt_contract c, cnt_discipline cd
WHERE c.cnt_contract_looptijd_tot < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy') -- Verlopen > 7 jaar geleden -- WHERE c.cnt_contract_looptijd_tot < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy') -- Verlopen > 7 jaar geleden
AND c.ins_discipline_key = cd.ins_discipline_key -- AND c.ins_discipline_key = cd.ins_discipline_key
AND cd.ins_discipline_key NOT IN (198, 412) -- Huurcontracten/Mantel huurcontracten -- AND cd.ins_discipline_key NOT IN (198, 412) -- Huurcontracten/Mantel huurcontracten
AND NOT EXISTS -- Geen dossier-contract onder dezelfde mantel <= 7 jaar geleden -- AND NOT EXISTS -- Geen dossier-contract onder dezelfde mantel <= 7 jaar geleden
(SELECT 1 -- (SELECT 1
FROM cnt_contract dc -- FROM cnt_contract dc
WHERE dc.cnt_contract_verwijder IS NULL -- WHERE dc.cnt_contract_verwijder IS NULL
AND dc.cnt_contract_looptijd_tot >= TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy') -- AND dc.cnt_contract_looptijd_tot >= TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')
AND dc.cnt_contract_mantel_key = c.cnt_contract_key) -- AND dc.cnt_contract_mantel_key = c.cnt_contract_key)
AND NOT EXISTS -- Geen lopende facturen op contract! -- AND NOT EXISTS -- Geen lopende facturen op contract!
(SELECT 1 -- (SELECT 1
FROM fin_factuur -- FROM fin_factuur
WHERE fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur -- WHERE fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur
AND cnt_contract_key = c.cnt_contract_key); -- AND cnt_contract_key = c.cnt_contract_key);
--
CREATE OR REPLACE VIEW uwva_v_rap_auto_schoning --CREATE OR REPLACE VIEW uwva_v_rap_auto_schoning
( --(
module, -- module,
jaar, -- jaar,
groepering_key, -- groepering_key,
aantal, -- aantal,
subaantal, -- subaantal,
onderdeel_key, -- onderdeel_key,
onderdeel_id, -- onderdeel_id,
omschrijving -- omschrijving
) --)
AS --AS
SELECT 'BES', jaar, NULL ins_discipline_key, COUNT (*) aantal, NULL subaantal, NULL fac_key, NULL fac_id, NULL omschrijving -- SELECT 'BES', jaar, NULL ins_discipline_key, COUNT (*) aantal, NULL subaantal, NULL fac_key, NULL fac_id, NULL omschrijving
FROM uwva_v_rap_bes_schoning -- FROM uwva_v_rap_bes_schoning
GROUP BY 'BES', jaar -- GROUP BY 'BES', jaar
UNION ALL -- UNION ALL
SELECT 'BEZ', jaar, NULL ins_discipline_key, COUNT (*) aantal, SUM (bezoekers) subaantal, NULL fac_key, NULL fac_id, NULL omschrijving -- SELECT 'BEZ', jaar, NULL ins_discipline_key, COUNT (*) aantal, SUM (bezoekers) subaantal, NULL fac_key, NULL fac_id, NULL omschrijving
FROM uwva_v_rap_bez_schoning -- FROM uwva_v_rap_bez_schoning
GROUP BY 'BEZ', jaar -- GROUP BY 'BEZ', jaar
UNION ALL -- UNION ALL
SELECT 'RES', jaar, NULL ins_discipline_key, COUNT (*) aantal, NULL subaantal, NULL fac_key, NULL fac_id, NULL omschrijving -- SELECT 'RES', jaar, NULL ins_discipline_key, COUNT (*) aantal, NULL subaantal, NULL fac_key, NULL fac_id, NULL omschrijving
FROM uwva_v_rap_res_schoning -- FROM uwva_v_rap_res_schoning
GROUP BY 'RES', jaar -- GROUP BY 'RES', jaar
UNION ALL -- UNION ALL
SELECT 'MLD', jaar, NULL ins_discipline_key, COUNT (*) aantal, NULL subaantal, NULL fac_key, NULL fac_id, NULL omschrijving -- SELECT 'MLD', jaar, NULL ins_discipline_key, COUNT (*) aantal, NULL subaantal, NULL fac_key, NULL fac_id, NULL omschrijving
FROM uwva_v_rap_mld_schoning -- FROM uwva_v_rap_mld_schoning
GROUP BY 'MLD', jaar -- GROUP BY 'MLD', jaar
UNION ALL -- UNION ALL
SELECT 'CNT', TO_CHAR (cnt_contract_looptijd_tot, 'yyyy') jaar, ins_discipline_key, 1 aantal, NULL subaantal, cnt_contract_key fac_key, contractnr fac_id, cnt_contract_omschrijving omschrijving -- SELECT 'CNT', TO_CHAR (cnt_contract_looptijd_tot, 'yyyy') jaar, ins_discipline_key, 1 aantal, NULL subaantal, cnt_contract_key fac_key, contractnr fac_id, cnt_contract_omschrijving omschrijving
FROM uwva_v_rap_cnt_schoning -- FROM uwva_v_rap_cnt_schoning
WHERE ins_discipline_key IN (198, 412) -- WHERE ins_discipline_key IN (198, 412)
UNION ALL -- UNION ALL
SELECT 'CNT', TO_CHAR (cnt_contract_looptijd_tot, 'yyyy') jaar, ins_discipline_key, COUNT ( * ) aantal, NULL subaantal, NULL fac_key, NULL fac_id, NULL omschrijving -- SELECT 'CNT', TO_CHAR (cnt_contract_looptijd_tot, 'yyyy') jaar, ins_discipline_key, COUNT ( * ) aantal, NULL subaantal, NULL fac_key, NULL fac_id, NULL omschrijving
FROM uwva_v_rap_cnt_schoning -- FROM uwva_v_rap_cnt_schoning
WHERE ins_discipline_key NOT IN (198, 412) -- WHERE ins_discipline_key NOT IN (198, 412)
GROUP BY 'CNT', TO_CHAR (cnt_contract_looptijd_tot, 'yyyy'), ins_discipline_key -- GROUP BY 'CNT', TO_CHAR (cnt_contract_looptijd_tot, 'yyyy'), ins_discipline_key
; --;
--
CREATE OR REPLACE PROCEDURE uwva_daily --CREATE OR REPLACE PROCEDURE uwva_daily
AS --AS
CURSOR cbes -- CURSOR cbes
IS -- IS
SELECT bes_bestelling_key FROM uwva_v_rap_bes_schoning WHERE jaar <= '2005'; -- SELECT bes_bestelling_key FROM uwva_v_rap_bes_schoning WHERE jaar <= '2005';
--
CURSOR cbez -- CURSOR cbez
IS -- IS
SELECT bez_afspraak_key FROM uwva_v_rap_bez_schoning WHERE jaar <= '2005'; -- SELECT bez_afspraak_key FROM uwva_v_rap_bez_schoning WHERE jaar <= '2005';
--
CURSOR cres -- CURSOR cres
IS -- IS
SELECT res_rsv_ruimte_key FROM uwva_v_rap_res_schoning WHERE jaar <= '2005'; -- SELECT res_rsv_ruimte_key FROM uwva_v_rap_res_schoning WHERE jaar <= '2005';
--
CURSOR cmld -- CURSOR cmld
IS -- IS
SELECT mld_melding_key FROM uwva_v_rap_mld_schoning WHERE jaar <= '2005'; -- SELECT mld_melding_key FROM uwva_v_rap_mld_schoning WHERE jaar <= '2005';
--
v_errormsg VARCHAR2 (1000); -- v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER; -- oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200); -- oracle_err_mes VARCHAR2 (200);
v_count NUMBER (10); -- v_count NUMBER (10);
BEGIN --BEGIN
IF TO_CHAR (SYSDATE, 'dd-mm-yyyy') = '01-03-2021' -- IF TO_CHAR (SYSDATE, 'dd-mm-yyyy') = '01-03-2021'
THEN -- THEN
v_count := 0; -- v_count := 0;
FOR r IN cbes -- FOR r IN cbes
LOOP -- LOOP
v_errormsg := 'Fout schonen bestellingen: ' || TO_CHAR (r.bes_bestelling_key); -- v_errormsg := 'Fout schonen bestellingen: ' || TO_CHAR (r.bes_bestelling_key);
mld.remove (r.bes_bestelling_key, 'BES'); -- mld.remove (r.bes_bestelling_key, 'BES');
v_count := v_count + 1; -- v_count := v_count + 1;
-- Elke 1000 meldingen een COMMIT! -- -- Elke 1000 meldingen een COMMIT!
IF MOD (v_count, 1000) = 0 THEN COMMIT; END IF; -- IF MOD (v_count, 1000) = 0 THEN COMMIT; END IF;
END LOOP; -- END LOOP;
--
fac.writelog ('DAILY', 'S', '#Bestellingen geschoond: ' || TO_CHAR (v_count), ''); -- fac.writelog ('DAILY', 'S', '#Bestellingen geschoond: ' || TO_CHAR (v_count), '');
COMMIT; -- COMMIT;
--
v_count := 0; -- v_count := 0;
FOR r IN cbez -- FOR r IN cbez
LOOP -- LOOP
v_errormsg := 'Fout schonen afspraken: ' || TO_CHAR (r.bez_afspraak_key); -- v_errormsg := 'Fout schonen afspraken: ' || TO_CHAR (r.bez_afspraak_key);
mld.remove (r.bez_afspraak_key, 'BEZ'); -- mld.remove (r.bez_afspraak_key, 'BEZ');
v_count := v_count + 1; -- v_count := v_count + 1;
-- Elke 1000 meldingen een COMMIT! -- -- Elke 1000 meldingen een COMMIT!
IF MOD (v_count, 1000) = 0 THEN COMMIT; END IF; -- IF MOD (v_count, 1000) = 0 THEN COMMIT; END IF;
END LOOP; -- END LOOP;
--
fac.writelog ('DAILY', 'S', '#Afspraken geschoond: ' || TO_CHAR (v_count), ''); -- fac.writelog ('DAILY', 'S', '#Afspraken geschoond: ' || TO_CHAR (v_count), '');
COMMIT; -- COMMIT;
--
v_count := 0; -- v_count := 0;
FOR r IN cres -- FOR r IN cres
LOOP -- LOOP
v_errormsg := 'Fout schonen reserveringen: ' || TO_CHAR (r.res_rsv_ruimte_key); -- v_errormsg := 'Fout schonen reserveringen: ' || TO_CHAR (r.res_rsv_ruimte_key);
mld.remove (r.res_rsv_ruimte_key, 'RES'); -- mld.remove (r.res_rsv_ruimte_key, 'RES');
v_count := v_count + 1; -- v_count := v_count + 1;
-- Elke 1000 meldingen een COMMIT! -- -- Elke 1000 meldingen een COMMIT!
IF MOD (v_count, 1000) = 0 THEN COMMIT; END IF; -- IF MOD (v_count, 1000) = 0 THEN COMMIT; END IF;
END LOOP; -- END LOOP;
--
fac.writelog ('DAILY', 'S', '#Reserveringen geschoond: ' || TO_CHAR (v_count), ''); -- fac.writelog ('DAILY', 'S', '#Reserveringen geschoond: ' || TO_CHAR (v_count), '');
COMMIT; -- COMMIT;
--
v_count := 0; -- v_count := 0;
FOR r IN cmld -- FOR r IN cmld
LOOP -- LOOP
v_errormsg := 'Fout schonen meldingen: ' || TO_CHAR (r.mld_melding_key); -- v_errormsg := 'Fout schonen meldingen: ' || TO_CHAR (r.mld_melding_key);
mld.remove (r.mld_melding_key, 'MLD'); -- mld.remove (r.mld_melding_key, 'MLD');
v_count := v_count + 1; -- v_count := v_count + 1;
-- Elke 1000 meldingen een COMMIT! -- -- Elke 1000 meldingen een COMMIT!
IF MOD (v_count, 1000) = 0 THEN COMMIT; END IF; -- IF MOD (v_count, 1000) = 0 THEN COMMIT; END IF;
END LOOP; -- END LOOP;
--
fac.writelog ('DAILY', 'S', '#Meldingen geschoond: ' || TO_CHAR (v_count), ''); -- fac.writelog ('DAILY', 'S', '#Meldingen geschoond: ' || TO_CHAR (v_count), '');
COMMIT; -- COMMIT;
END IF; -- END IF;
EXCEPTION --EXCEPTION
WHEN OTHERS -- WHEN OTHERS
THEN -- THEN
oracle_err_num := SQLCODE; -- oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200); -- oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')'; -- v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog ('DAILY', 'E', 'Proces DAILY afgebroken!', v_errormsg); -- fac.writelog ('DAILY', 'E', 'Proces DAILY afgebroken!', v_errormsg);
COMMIT; -- COMMIT;
END; --END;
/ --/
------ payload end ------ ------ payload end ------