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

UWVA#77854 Schoning/Verbeteren telling (voor via BES geschoonde/gekoppelde CNT)

Browse Source 
svn path=/Customer/trunk/; revision=61397
This commit is contained in:
Maarten van der Heide
2023-08-08 11:08:28 +00:00
parent f1e11eb992
commit 3a230f0f9a
1 changed files with 180 additions and 158 deletions
Download Patch File Download Diff File Expand all files Collapse all files

264
UWVA/uwva_misc.sql
View File

@@ -15277,11 +15277,109 @@ AS
ORDER BY datum, ins_deel_key;
-- UWVA#61083: Bewaartermijnen/automatische schoning!
CREATE OR REPLACE VIEW uwva_v_rap_cnt_schoning
(
ins_discipline_key,
huur_jn,
contractsoort,
cnt_contract_key,
contractnr,
cnt_contract_omschrijving,
cnt_contract_looptijd_tot,
cnt_contract_status,
bes_bestelling_key
)
AS
WITH c
AS (SELECT c.ins_discipline_key,
c.cnt_contract_key,
c.cnt_contract_nummer_intern,
c.cnt_contract_versie,
c.cnt_contract_omschrijving,
c.cnt_contract_verwijder,
c.cnt_contract_looptijd_tot,
c.cnt_contract_status,
c.cnt_contract_mantel_key,
cp.cnt_alg_plaats_key,
cp.cnt_alg_plaats_code,
c.bes_bestelopdr_key
FROM cnt_contract c, cnt_contract_plaats cp
WHERE c.ins_discipline_key IN (198, 412) -- Huurcontracten/Mantel huurcontracten
AND c.cnt_contract_key = cp.cnt_contract_key(+))
SELECT DISTINCT
c.ins_discipline_key,
'J' huur_jn,
cd.ins_discipline_omschrijving,
c.cnt_contract_key,
c.cnt_contract_nummer_intern || DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie)
contractnr,
c.cnt_contract_omschrijving,
c.cnt_contract_looptijd_tot,
c.cnt_contract_status,
(SELECT MAX (bbi.bes_bestelling_key)
FROM bes_bestelopdr_item boi, bes_bestelling_item bbi
WHERE boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
AND boi.bes_bestelopdr_key = c.bes_bestelopdr_key) bes_bestelling_key
FROM c, cnt_discipline cd
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 NOT EXISTS -- Geen dossier-contract op dezelfde plaats <= 10 jaar geleden
(SELECT 1
FROM c dc
WHERE dc.cnt_contract_verwijder IS NULL
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_code = c.cnt_alg_plaats_code)
AND NOT EXISTS -- Geen dossier-contract onder dezelfde mantel <= 10 jaar geleden
(SELECT 1
FROM c dc
WHERE dc.cnt_contract_verwijder IS NULL
AND dc.cnt_contract_looptijd_tot >= TRUNC (ADD_MONTHS (SYSDATE, -120), 'yyyy')
AND dc.cnt_contract_mantel_key = c.cnt_contract_key)
AND NOT EXISTS -- Geen lopende facturen op contract!
(SELECT 1
FROM fin_factuur
WHERE fin_factuur_verwijder IS NULL
AND fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur
AND cnt_contract_key = c.cnt_contract_key)
UNION ALL
SELECT DISTINCT
c.ins_discipline_key,
'N' huur_jn,
cd.ins_discipline_omschrijving,
c.cnt_contract_key,
c.cnt_contract_nummer_intern || DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie)
contractnr,
c.cnt_contract_omschrijving,
c.cnt_contract_looptijd_tot,
c.cnt_contract_status,
(SELECT MAX (bbi.bes_bestelling_key)
FROM bes_bestelopdr_item boi, bes_bestelling_item bbi
WHERE boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
AND boi.bes_bestelopdr_key = c.bes_bestelopdr_key) bes_bestelling_key
FROM cnt_contract c, cnt_discipline cd
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 cd.ins_discipline_key NOT IN (198, 412) -- Huurcontracten/Mantel huurcontracten
AND NOT EXISTS -- Geen dossier-contract onder dezelfde mantel <= 7 jaar geleden
(SELECT 1
FROM cnt_contract dc
WHERE dc.cnt_contract_verwijder IS NULL
AND dc.cnt_contract_looptijd_tot >= TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')
AND dc.cnt_contract_mantel_key = c.cnt_contract_key)
AND NOT EXISTS -- Geen lopende facturen op contract!
(SELECT 1
FROM fin_factuur
WHERE fin_factuur_verwijder IS NULL
AND fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur
AND cnt_contract_key = c.cnt_contract_key);
-- TODO: Periodieke bestelaanvragen/opdrachten niet beschouwen? => Bij UWV niet gebruikt!
CREATE OR REPLACE VIEW uwva_v_rap_bes_schoning
(
jaar,
bes_bestelling_key
bes_bestelling_key,
contracten
)
AS
WITH b
@@ -15297,10 +15395,21 @@ AS
FROM bes_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
SELECT TO_CHAR (b.bes_bestelling_datum, 'yyyy') jaar, bes_bestelling_key
FROM b
SELECT TO_CHAR (b.bes_bestelling_datum, 'yyyy') jaar, b.bes_bestelling_key, c.contracten
FROM b,
( SELECT bes_bestelling_key, COUNT (DISTINCT cnt_contract_key) contracten
FROM uwva_v_rap_cnt_schoning
GROUP BY bes_bestelling_key) c
WHERE 1 = 1 --b.gesloten < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy') -- Gesloten > 7 jaar geleden
AND bes_bestelling_retourvan_key IS NULL -- Alleen bron-bestelling (dus zonder de retouren)
AND b.bes_bestelling_key = c.bes_bestelling_key(+)
AND (c.bes_bestelling_key IS NOT NULL -- Gekoppeld contract ook geschoond? => Apart tellen!
OR NOT EXISTS -- Geen enkel gekoppeld contract!
(SELECT 1
FROM cnt_contract c, bes_bestelopdr_item boi, bes_bestelling_item bbi
WHERE c.bes_bestelopdr_key = boi.bes_bestelopdr_key
AND boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
AND bbi.bes_bestelling_key = b.bes_bestelling_key))
--AND NOT EXISTS
-- (SELECT 1
-- FROM bes_bestelling_item bbi, bes_bestelopdr_item boi, bes_bestelopdr bo
@@ -15452,93 +15561,6 @@ AS
AND f.mld_opdr_key = o.mld_opdr_key
AND o.mld_melding_key = m.mld_melding_key);
CREATE OR REPLACE VIEW uwva_v_rap_cnt_schoning
(
ins_discipline_key,
huur_jn,
contractsoort,
cnt_contract_key,
contractnr,
cnt_contract_omschrijving,
cnt_contract_looptijd_tot,
cnt_contract_status
)
AS
WITH c
AS (SELECT c.ins_discipline_key,
c.cnt_contract_key,
c.cnt_contract_nummer_intern,
c.cnt_contract_versie,
c.cnt_contract_omschrijving,
c.cnt_contract_verwijder,
c.cnt_contract_looptijd_tot,
c.cnt_contract_status,
c.cnt_contract_mantel_key,
cp.cnt_alg_plaats_key,
cp.cnt_alg_plaats_code
FROM cnt_contract c, cnt_contract_plaats cp
WHERE c.ins_discipline_key IN (198, 412) -- Huurcontracten/Mantel huurcontracten
AND c.cnt_contract_key = cp.cnt_contract_key(+))
SELECT DISTINCT
c.ins_discipline_key,
'J' huur_jn,
cd.ins_discipline_omschrijving,
c.cnt_contract_key,
c.cnt_contract_nummer_intern || DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie)
contractnr,
c.cnt_contract_omschrijving,
c.cnt_contract_looptijd_tot,
c.cnt_contract_status -- c.cnt_alg_plaats_key, c.cnt_alg_plaats_code
FROM c, cnt_discipline cd
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 NOT EXISTS -- Geen dossier-contract op dezelfde plaats <= 10 jaar geleden
(SELECT 1
FROM c dc
WHERE dc.cnt_contract_verwijder IS NULL
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_code = c.cnt_alg_plaats_code)
AND NOT EXISTS -- Geen dossier-contract onder dezelfde mantel <= 10 jaar geleden
(SELECT 1
FROM c dc
WHERE dc.cnt_contract_verwijder IS NULL
AND dc.cnt_contract_looptijd_tot >= TRUNC (ADD_MONTHS (SYSDATE, -120), 'yyyy')
AND dc.cnt_contract_mantel_key = c.cnt_contract_key)
AND NOT EXISTS -- Geen lopende facturen op contract!
(SELECT 1
FROM fin_factuur
WHERE fin_factuur_verwijder IS NULL
AND fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur
AND cnt_contract_key = c.cnt_contract_key)
UNION ALL
SELECT DISTINCT
c.ins_discipline_key,
'N' huur_jn,
cd.ins_discipline_omschrijving,
c.cnt_contract_key,
c.cnt_contract_nummer_intern || DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie)
contractnr,
c.cnt_contract_omschrijving,
c.cnt_contract_looptijd_tot,
c.cnt_contract_status
FROM cnt_contract c, cnt_discipline cd
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 cd.ins_discipline_key NOT IN (198, 412) -- Huurcontracten/Mantel huurcontracten
AND NOT EXISTS -- Geen dossier-contract onder dezelfde mantel <= 7 jaar geleden
(SELECT 1
FROM cnt_contract dc
WHERE dc.cnt_contract_verwijder IS NULL
AND dc.cnt_contract_looptijd_tot >= TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')
AND dc.cnt_contract_mantel_key = c.cnt_contract_key)
AND NOT EXISTS -- Geen lopende facturen op contract!
(SELECT 1
FROM fin_factuur
WHERE fin_factuur_verwijder IS NULL
AND fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur
AND cnt_contract_key = c.cnt_contract_key);
CREATE OR REPLACE VIEW uwva_v_rap_auto_schoning
(
module,
@@ -15551,7 +15573,7 @@ CREATE OR REPLACE VIEW uwva_v_rap_auto_schoning
omschrijving
)
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, SUM (contracten) subaantal, NULL fac_key, NULL fac_id, NULL omschrijving
FROM uwva_v_rap_bes_schoning
GROUP BY 'BES', jaar
UNION ALL
@@ -15613,6 +15635,7 @@ AS
v_datum DATE;
v_datum1 DATE;
v_datum2 DATE;
v_contracten NUMBER;
BEGIN
-- Aanname dat er in elk jaar minimaal te schonen BEZ zijn!
v_errormsg := 'Fout bepalen of er nog iets te schonen valt';
@@ -15637,6 +15660,12 @@ BEGIN
FROM uwva_v_rap_bes_schoning
WHERE jaar > '1999';
v_errormsg := 'Fout bepalen contracten!';
SELECT SUM (contracten)
INTO v_contracten
FROM uwva_v_rap_bes_schoning
WHERE jaar <= v_jaar2;
FOR r IN cbes (v_jaar2)
LOOP
BEGIN
@@ -15663,6 +15692,10 @@ BEGIN
ELSE
fac.writelog ('DAILY', 'S', '#Bestellingen geschoond (jaar=' || v_jaar1 || ' t/m ' || v_jaar2 || '): ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
END IF;
IF v_contracten > 0
THEN
fac.writelog ('DAILY', 'S', '#B-Contracten geschoond (jaar=' || v_jaar1 || '): ' || TO_CHAR (v_contracten), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
END IF;
COMMIT;
v_count := 0;
@@ -16190,8 +16223,8 @@ AS
-- UWVA#77362: QR-codes/Verbeteren klantreis!
CREATE OR REPLACE VIEW UWVA_V_RAP_QRC
AS
SELECT fac_bookmark_naam || '|' || pa.alg_plaatsaanduiding hide_f_sort,
fac_bookmark_naam fclt_f_bookmark,
SELECT b.fac_bookmark_naam || '|' || pa.alg_plaatsaanduiding hide_f_sort,
b.fac_bookmark_naam fclt_f_bookmark,
--'Plaats' gekoppeld_aan,
l.alg_locatie_omschrijving fclt_f_locatie,
pa.alg_plaatsaanduiding || ' / ' || r.alg_ruimte_omschrijving fclt_f_plaats,
@@ -16204,14 +16237,12 @@ AS
NULL res_ruimte_key,
b.fac_bookmark_id hide_f_bookmark_id
FROM --fac_bookmark b,
(SELECT SUBSTR (SUBSTR (UPPER (fac_bookmark_query), INSTR (UPPER (fac_bookmark_query), 'DISC=') + 5), 1, INSTR (SUBSTR (UPPER (fac_bookmark_query), INSTR (UPPER (fac_bookmark_query), 'DISC=') + 5) || '&', '&') - 1)
disc_key,
fac_bookmark_naam,
fac_bookmark_id
(SELECT fac_bookmark_naam, fac_bookmark_id
FROM fac_bookmark
WHERE (fac_bookmark_expire IS NULL OR fac_bookmark_expire > SYSDATE)
AND UPPER (TRIM (fac_bookmark_path)) = 'APPL/PDA/MELDING.ASP'
AND INSTR (UPPER (fac_bookmark_query), 'DISC=') > 0) b, -- DISC-bookmarks tbv. ruimtemeldingen SANITAIR!
--AND UPPER (TRIM (fac_bookmark_path)) = 'APPL/PDA/MELDING.ASP'
--AND INSTR (UPPER (fac_bookmark_query), 'STDM_KEYS=') > 0
AND INSTR (fac_bookmark_id, 'dQ2oGB1GCAdm13yV') > 0) b, -- Bookmark tbv. ruimtemeldingen SANITAIR!
alg_v_aanwezigruimte r,
alg_verdieping v,
alg_gebouw g,
@@ -16223,8 +16254,7 @@ AS
AND g.alg_locatie_key = l.alg_locatie_key
AND pa.alg_onroerendgoed_type = 'R'
AND r.alg_ruimte_key = pa.alg_onroerendgoed_keys
--AND b.disc_key = md.ins_discipline_key -- TODO:Bestaat vakgroep?
UNION ALL -- Reserveerbare ruimtes 50=Gemeentehuis
UNION ALL
SELECT b.fac_bookmark_naam || '|' || d.ins_deel_omschrijving hide_f_sort,
b.fac_bookmark_naam fclt_f_bookmark,
--'Plaats' gekoppeld_aan,
@@ -16239,14 +16269,12 @@ AS
NULL res_ruimte_key,
b.fac_bookmark_id hide_f_bookmark_id
FROM --fac_bookmark b,
(SELECT SUBSTR (SUBSTR (UPPER (fac_bookmark_query), INSTR (UPPER (fac_bookmark_query), 'STDMKINA=') + 9), 1, INSTR (SUBSTR (UPPER (fac_bookmark_query), INSTR (UPPER (fac_bookmark_query), 'STDMKINA=') + 9) || '&', '&') - 1)
stdmkina,
fac_bookmark_naam,
fac_bookmark_id
(SELECT fac_bookmark_naam, fac_bookmark_id
FROM fac_bookmark
WHERE (fac_bookmark_expire IS NULL OR fac_bookmark_expire > SYSDATE)
AND UPPER (TRIM (fac_bookmark_path)) = 'APPL/PDA/INS_DEEL.ASP'
AND INSTR (UPPER (fac_bookmark_query), 'STDMKINA=') > 0) b, -- STDMKINA-bookmarks tbv. objectmeldingen KOFFIEAUTOMAAT!
--AND UPPER (TRIM (fac_bookmark_path)) = 'APPL/PDA/INS_DEEL.ASP'
--AND INSTR (UPPER (fac_bookmark_query), 'STDMKINA=') > 0
AND INSTR (fac_bookmark_id, 'KIx4a1nTxSUEMVU-') > 0) b, -- Bookmark tbv. objectmeldingen KOFFIEAUTOMAAT!
ins_v_aanwezigdeel d,
ins_srtdeel sd,
ins_srtgroep sg,
@@ -16267,8 +16295,8 @@ AS
--AND sm.mld_stdmelding_key = smsd.mld_stdmelding_key
--AND smsd.ins_srtinstallatie_key = DECODE (smsd.ins_srtinstallatie_niveau, 'S', sd.ins_srtdeel_key, 'G', sg.ins_srtgroep_key, 'D', dd.ins_discipline_key)
UNION ALL
SELECT fac_bookmark_naam || '|' || l.alg_locatie_code || rr.res_ruimte_nr hide_f_sort,
fac_bookmark_naam fclt_f_bookmark,
SELECT b.fac_bookmark_naam || '|' || l.alg_locatie_code || rr.res_ruimte_nr hide_f_sort,
b.fac_bookmark_naam fclt_f_bookmark,
--NULL gekoppeld_aan,
l.alg_locatie_omschrijving fclt_f_locatie,
l.alg_locatie_code || ' / ' || rr.res_ruimte_nr fclt_f_plaats,
@@ -16281,13 +16309,11 @@ AS
rr.res_ruimte_key,
b.fac_bookmark_id
FROM --fac_bookmark b,
(SELECT SUBSTR (SUBSTR (UPPER (fac_bookmark_query), INSTR (UPPER (fac_bookmark_query), 'DISC=') + 5), 1, INSTR (SUBSTR (UPPER (fac_bookmark_query), INSTR (UPPER (fac_bookmark_query), 'DISC=') + 5) || '&', '&') - 1)
disc_key,
fac_bookmark_naam,
fac_bookmark_id
(SELECT fac_bookmark_naam, fac_bookmark_id
FROM fac_bookmark
WHERE (fac_bookmark_expire IS NULL OR fac_bookmark_expire > SYSDATE)
AND UPPER (TRIM (fac_bookmark_path)) = 'APPL/PDA/RESERVERINGEN.ASP') b, -- Bookmarks tbv. ruimtereserveringen VERGADERING!
--AND UPPER (TRIM (fac_bookmark_path)) = 'APPL/PDA/RESERVERINGEN.ASP'
AND INSTR (fac_bookmark_id, '3XaYsCdQbN36seGf') > 0) b, -- Bookmark tbv. ruimtereserveringen VERGADERING!
res_ruimte rr,
( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
FROM res_alg_ruimte
@@ -16307,8 +16333,7 @@ AS
;
/*
UNION ALL
SELECT DISTINCT
b.fac_bookmark_naam || '|' || d.ins_deel_omschrijving hide_f_sort,
SELECT b.fac_bookmark_naam || '|' || d.ins_deel_omschrijving hide_f_sort,
b.fac_bookmark_naam fclt_f_bookmark,
--'Persoon' gekoppeld_aan,
NULL fclt_f_locatie,
@@ -16321,14 +16346,11 @@ AS
d.ins_deel_key,
b.fac_bookmark_id hide_f_bookmark_id
FROM --fac_bookmark b,
(SELECT SUBSTR (SUBSTR (UPPER (fac_bookmark_query), INSTR (UPPER (fac_bookmark_query), 'STDMKINA=') + 9), 1, INSTR (SUBSTR (UPPER (fac_bookmark_query), INSTR (UPPER (fac_bookmark_query), 'STDMKINA=') + 9) || '&', '&') - 1)
stdmkina,
fac_bookmark_naam,
fac_bookmark_id
(SELECT fac_bookmark_naam, fac_bookmark_id
FROM fac_bookmark
WHERE (fac_bookmark_expire IS NULL OR fac_bookmark_expire > SYSDATE)
AND UPPER (TRIM (fac_bookmark_path)) = 'APPL/PDA/INS_DEEL.ASP'
AND INSTR (UPPER (fac_bookmark_query), 'STDMKINA=') > 0) b, -- STDMKINA-bookmarks tbv. objectmeldingen PERSOONSGEBONDEN!
AND INSTR (UPPER (fac_bookmark_query), 'STDMKINA=') > 0) b, -- Bookmark tbv. objectmeldingen PERSOONSGEBONDEN!
ins_v_aanwezigdeel d,
ins_srtdeel sd,
ins_srtgroep sg,