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

FCLT#66178 openbare core-labelthema's (voor wp-reservering) houden rekening met visibility-setting van personen

Browse Source 
Tevens beetje onderhoud qua naam_friendly en i18n

svn path=/Database/trunk/; revision=50708
This commit is contained in:
Peter Feij
2021-04-08 14:23:56 +00:00
parent e23bd05e18
commit b37bcd35fa
1 changed files with 119 additions and 159 deletions
Download Patch File Download Diff File Expand all files Collapse all files

278
CAD/CAD_VIE.SRC
View File

@@ -50,22 +50,19 @@ SELECT
CREATE_VIEW(cad_v_label_bewoner, 0) CREATE_VIEW(cad_v_label_bewoner, 0)
(alg_ruimte_key, waarde) (alg_ruimte_key, waarde)
AS AS
SELECT prs_w.prs_alg_ruimte_key, SELECT prs_w.prs_alg_ruimte_key,
prs_p.prs_perslid_naam prs_p.prs_perslid_naam_friendly
|| DECODE (prs_p.prs_perslid_voorletters, NULL, '', ', ' || prs_p.prs_perslid_voorletters) FROM prs_werkplek prs_w, prs_perslidwerkplek prs_pw, prs_v_perslid_fullnames prs_p
|| DECODE (prs_p.prs_perslid_voornaam, NULL, '', ' (' || prs_p.prs_perslid_voornaam || ')') WHERE prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key
FROM prs_werkplek prs_w, prs_perslidwerkplek prs_pw, prs_perslid prs_p AND prs_pw.prs_perslid_key IS NOT NULL
WHERE prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key AND prs_pw.prs_perslid_key = prs_p.prs_perslid_key
AND prs_pw.prs_perslid_key IS NOT NULL AND prs_w.prs_werkplek_virtueel = 0
AND prs_pw.prs_perslid_key = prs_p.prs_perslid_key UNION
AND prs_w.prs_werkplek_virtueel = 0 SELECT prs_w.prs_alg_ruimte_key, '['||lcl.l('lcl_free')||']'
UNION FROM prs_werkplek prs_w, prs_v_werkplek_bezetting prs_wb
SELECT prs_w.prs_alg_ruimte_key, '[Vrij]' WHERE prs_w.prs_werkplek_key = prs_wb.prs_werkplek_key
FROM prs_werkplek prs_w, prs_v_werkplek_bezetting prs_wb AND prs_w.prs_werkplek_virtueel = 0
WHERE prs_w.prs_werkplek_key = prs_wb.prs_werkplek_key AND prs_wb.prs_werkplek_bezetting < 100;
AND prs_w.prs_werkplek_virtueel = 0
AND prs_wb.prs_werkplek_bezetting < 100;
-- Toont alle afdelingen die aan een ruimte gekoppeld zijn -- Toont alle afdelingen die aan een ruimte gekoppeld zijn
CREATE_VIEW(cad_v_label_afdelingen, 0) CREATE_VIEW(cad_v_label_afdelingen, 0)
@@ -128,37 +125,31 @@ SELECT wp.prs_alg_ruimte_key, d.prs_afdeling_naam
CREATE_VIEW(cad_v_label_bewonerwp, 0) (alg_ruimte_key,waarde) CREATE_VIEW(cad_v_label_bewonerwp, 0) (alg_ruimte_key,waarde)
AS AS
SELECT DISTINCT prs_alg_ruimte_key, waarde SELECT DISTINCT prs_alg_ruimte_key, waarde
FROM (SELECT prs_w.prs_alg_ruimte_key, FROM (SELECT prs_w.prs_alg_ruimte_key,
CHR (1) CHR (1)
|| prs_w.prs_werkplek_volgnr || prs_w.prs_werkplek_volgnr
|| ' ' || ' '
|| prs_p.prs_perslid_naam || prs_p.prs_perslid_naam_friendly
|| DECODE (prs_p.prs_perslid_voorletters, NULL, '', ', ' || prs_p.prs_perslid_voorletters) || ' '
|| DECODE (prs_p.prs_perslid_voornaam, NULL, '', ' (' || prs_p.prs_perslid_voornaam || ')') || TO_CHAR (NVL (prs_pw.prs_perslidwerkplek_bezetting, 0))
|| ': ' || '%'
|| TO_CHAR (NVL (prs_pw.prs_perslidwerkplek_bezetting, 0)) waarde
|| '%' waarde FROM prs_werkplek prs_w, prs_perslidwerkplek prs_pw, prs_v_perslid_fullnames prs_p
FROM prs_werkplek prs_w, WHERE prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key
prs_perslidwerkplek prs_pw, AND prs_pw.prs_perslid_key IS NOT NULL
prs_perslid prs_p AND prs_pw.prs_perslid_key = prs_p.prs_perslid_key
WHERE prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key UNION
AND prs_pw.prs_perslid_key IS NOT NULL SELECT prs_w.prs_alg_ruimte_key,
AND prs_pw.prs_perslid_key = prs_p.prs_perslid_key CHR (1)
UNION || prs_w.prs_werkplek_volgnr
SELECT prs_w.prs_alg_ruimte_key, || ' '|| initcap(lcl.l('lcl_free'))||' '
CHR (1) || TO_CHAR (100 - NVL (SUM (prs_wb.prs_perslidwerkplek_bezetting), 0))
|| prs_w.prs_werkplek_volgnr || '%'
|| ' Vrij: ' FROM prs_werkplek prs_w, prs_perslidwerkplek prs_wb
|| TO_CHAR (100 - NVL (SUM (prs_wb.prs_perslidwerkplek_bezetting), 0)) WHERE prs_w.prs_werkplek_key = prs_wb.prs_werkplek_key(+)
|| '%' GROUP BY prs_w.prs_alg_ruimte_key, prs_w.prs_werkplek_key, prs_w.prs_werkplek_volgnr
FROM prs_werkplek prs_w, HAVING SUM (NVL (prs_wb.prs_perslidwerkplek_bezetting, 0)) < 100) data;
prs_perslidwerkplek prs_wb
WHERE prs_w.prs_werkplek_key = prs_wb.prs_werkplek_key(+)
GROUP BY prs_w.prs_alg_ruimte_key, prs_w.prs_werkplek_key, prs_w.prs_werkplek_volgnr
HAVING SUM (NVL (prs_wb.prs_perslidwerkplek_bezetting, 0)) < 100) DATA
/
CREATE_VIEW(CAD_V_THEMA_AANTALWP, 0) (ALG_RUIMTE_KEY, WAARDE) CREATE_VIEW(CAD_V_THEMA_AANTALWP, 0) (ALG_RUIMTE_KEY, WAARDE)
AS AS
@@ -274,26 +265,24 @@ AS
CREATE_VIEW(cad_v_label_bewoner2,0) (alg_ruimte_key, waarde) CREATE_VIEW(cad_v_label_bewoner2,0) (alg_ruimte_key, waarde)
AS AS
SELECT alg_ruimte_key, SELECT alg_ruimte_key,
prs_p.prs_perslid_naam pf.prs_perslid_naam_friendly
|| DECODE (prs_p.prs_perslid_voorletters, || '-'
NULL, '', || CASE
', ' || prs_p.prs_perslid_voorletters WHEN aantalwp > 1 AND norm_verband IS NOT NULL THEN norm_verband || '/'
) ELSE ''
|| DECODE (prs_p.prs_perslid_voornaam, END
NULL, '', || CASE
' (' || prs_p.prs_perslid_voornaam || ')' WHEN p.prs_perslid_dienstverband IS NOT NULL
) THEN
|| '-' p.prs_perslid_dienstverband || '%'
|| CASE ELSE
WHEN aantalwp > 1 ''
THEN norm_verband || '/' END
ELSE '' FROM prs_v_perslid_fullnames pf, prs_perslid p, prs_v_norm_verband pnv
END WHERE pf.prs_perslid_key = p.prs_perslid_key
|| prs_p.prs_perslid_dienstverband AND pnv.prs_perslid_key = p.prs_perslid_key
|| ' FTE' AND p.prs_perslid_verwijder IS NULL;
FROM prs_perslid prs_p, prs_v_norm_verband pnv
WHERE pnv.prs_perslid_key = prs_p.prs_perslid_key;
CREATE OR REPLACE FORCE VIEW PRJ_V_CAD_LABEL_BEWONERWPE CREATE OR REPLACE FORCE VIEW PRJ_V_CAD_LABEL_BEWONERWPE
( (
@@ -302,59 +291,48 @@ CREATE OR REPLACE FORCE VIEW PRJ_V_CAD_LABEL_BEWONERWPE
HIGHLIGHT HIGHLIGHT
) )
AS AS
SELECT DISTINCT SELECT DISTINCT prj_werkplek_key, waarde, DECODE (prj_selectie_key, NULL, 0, 1)
prj_werkplek_key, waarde, DECODE (prj_selectie_key, NULL, 0, 1) FROM (SELECT prj_r.prj_scenario_key,
FROM (SELECT prj_r.prj_scenario_key, prs_w.prj_werkplek_key,
prs_w.prj_werkplek_key, prs_p.prs_perslid_naam_friendly
prs_p.prs_perslid_naam || ': '
|| DECODE (prs_p.prs_perslid_voorletters, || TO_CHAR (NVL (prs_pw.prj_perslidwerkplek_bezetting, 0))
NULL, '', || '%'
', ' || prs_p.prs_perslid_voorletters) waarde,
|| DECODE (prs_p.prs_perslid_voornaam, 'PRJ_WERKPLEK'
NULL, '', label_soort,
' (' || prs_p.prs_perslid_voornaam || ')') prs_pw.prj_werkplek_key
|| ': ' label_key
|| TO_CHAR (NVL (prs_pw.prj_perslidwerkplek_bezetting, 0)) FROM prj_ruimte prj_r,
|| '%' prj_werkplek prs_w,
waarde, (SELECT *
'PRJ_WERKPLEK' label_soort, FROM prj_perslidwerkplek
prs_pw.prj_werkplek_key label_key WHERE prj_perslidwerkplek_verwijder IS NULL) prs_pw,
FROM PRJ_RUIMTE prj_r, prs_v_perslid_fullnames prs_p
PRJ_WERKPLEK prs_w, WHERE prs_w.prj_werkplek_key = prs_pw.prj_werkplek_key
(SELECT * AND prs_pw.prs_perslid_key IS NOT NULL
FROM PRJ_PERSLIDWERKPLEK AND prs_pw.prs_perslid_key = prs_p.prs_perslid_key
WHERE prj_perslidwerkplek_verwijder IS NULL) prs_pw, AND prs_w.prj_ruimte_key = prj_r.prj_ruimte_key
PRS_PERSLID prs_p UNION
WHERE prs_w.prj_werkplek_key = prs_pw.prj_werkplek_key SELECT -1,
AND prs_pw.prs_perslid_key IS NOT NULL prs_w.prj_werkplek_key,
AND prs_pw.prs_perslid_key = prs_p.prs_perslid_key ' Vrij: '
AND prs_w.prj_ruimte_key = prj_r.prj_ruimte_key || TO_CHAR (100 - NVL (SUM (prs_wb.prj_perslidwerkplek_bezetting), 0))
UNION || '%',
SELECT -1, 'PRJ_WERKPLEK',
prs_w.prj_werkplek_key, prs_w.prj_werkplek_key
' Vrij: ' FROM prj_werkplek prs_w,
|| TO_CHAR(100 (SELECT *
- NVL ( FROM prj_perslidwerkplek
SUM (prs_wb.prj_perslidwerkplek_bezetting), WHERE prj_perslidwerkplek_verwijder IS NULL) prs_wb
0)) WHERE prs_w.prj_werkplek_key = prs_wb.prj_werkplek_key(+)
|| '%', AND prj_werkplek_verwijder IS NULL
'PRJ_WERKPLEK', GROUP BY prs_w.prj_werkplek_key, prs_w.prj_werkplek_key, prs_w.prj_werkplek_volgnr
prs_w.prj_werkplek_key HAVING SUM (NVL (prs_wb.prj_perslidwerkplek_bezetting, 0)) < 100) data,
FROM PRJ_WERKPLEK prs_w, prj_selectie ps
(SELECT * WHERE ps.prj_scenario_key(+) = data.prj_scenario_key
FROM PRJ_PERSLIDWERKPLEK AND ps.prj_selectie_tabelnaam(+) = label_soort
WHERE prj_perslidwerkplek_verwijder IS NULL) prs_wb AND ps.prj_selectie_tabelkey(+) = label_key;
WHERE prs_w.prj_werkplek_key = prs_wb.prj_werkplek_key(+)
AND prj_werkplek_verwijder IS NULL
GROUP BY prs_w.prj_werkplek_key,
prs_w.prj_werkplek_key,
prs_w.prj_werkplek_volgnr
HAVING SUM (NVL (prs_wb.prj_perslidwerkplek_bezetting, 0)) < 100)
DATA,
PRJ_SELECTIE ps
WHERE ps.prj_scenario_key(+) = DATA.prj_scenario_key
AND ps.prj_selectie_tabelnaam(+) = label_soort
AND ps.prj_selectie_tabelkey(+) = label_key;
/* Lijstje met (ALGCAD) wijzigingen op een ruimte /* Lijstje met (ALGCAD) wijzigingen op een ruimte
Kolom FAC_TRACKING_DATUM om een klantspecifieke beperking mogelijk te maken Kolom FAC_TRACKING_DATUM om een klantspecifieke beperking mogelijk te maken
@@ -443,26 +421,14 @@ CREATE_VIEW(cad_v_label_wp_bewoner, 0)
AS AS
SELECT DISTINCT SELECT DISTINCT
prs_w.prs_werkplek_key, prs_w.prs_werkplek_key,
DECODE ( prs_p.prs_perslid_naam_friendly
prs_p.prs_perslid_voornaam,
NULL,
DECODE (prs_p.prs_perslid_voorletters,
NULL, '',
prs_p.prs_perslid_voorletters || ' '),
prs_p.prs_perslid_voornaam || ' ')
|| DECODE (prs_p.prs_perslid_tussenvoegsel,
NULL, '',
prs_p.prs_perslid_tussenvoegsel || ' ')
|| prs_p.prs_perslid_naam
|| CASE || CASE
WHEN prs_pw.prs_perslidwerkplek_bezetting < 100 WHEN prs_pw.prs_perslidwerkplek_bezetting < 100
THEN THEN
' (' || TO_CHAR (NVL (prs_pw.prs_perslidwerkplek_bezetting, 0)) || '%)' ' (' || TO_CHAR (NVL (prs_pw.prs_perslidwerkplek_bezetting, 0)) || '%)'
END END
waarde waarde
FROM prs_werkplek prs_w, FROM prs_werkplek prs_w, prs_perslidwerkplek prs_pw, prs_v_perslid_fullnames prs_p
prs_perslidwerkplek prs_pw,
prs_perslid prs_p
WHERE prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key WHERE prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key
AND prs_pw.prs_perslid_key IS NOT NULL AND prs_pw.prs_perslid_key IS NOT NULL
AND prs_pw.prs_perslid_key = prs_p.prs_perslid_key; AND prs_pw.prs_perslid_key = prs_p.prs_perslid_key;
@@ -629,10 +595,10 @@ AS
CHR (10) CHR (10)
|| LISTAGG ( || LISTAGG (
DECODE ( DECODE (
prs_perslid_naam_friendly, naam,
NULL, '', NULL, '',
'[s40]' '[s40]'
|| prs_perslid_naam_friendly || naam
|| ' (' || ' ('
|| TO_CHAR (res_rsv_deel_van, 'HH24:MI') || TO_CHAR (res_rsv_deel_van, 'HH24:MI')
|| '-' || '-'
@@ -645,65 +611,59 @@ AS
waarde1, waarde1,
CHR (10) CHR (10)
|| LISTAGG ( || LISTAGG (
DECODE ( DECODE (naam,
prs_perslid_naam_friendly, NULL, '',
NULL, '', '[s40]' || TO_CHAR (res_rsv_deel_van, 'HH24:MI') || ' ' || naam),
'[s40]'
|| TO_CHAR (res_rsv_deel_van, 'HH24:MI')
|| ' '
|| prs_perslid_naam_friendly),
CHR (10)) CHR (10))
WITHIN GROUP (ORDER BY res_rsv_deel_van) WITHIN GROUP (ORDER BY res_rsv_deel_van)
waarde2, waarde2,
CHR (10) CHR (10)
|| LISTAGG ( || LISTAGG (DECODE (naam, NULL, '', '[s40]' || naam), CHR (10))
DECODE (prs_perslid_naam_friendly,
NULL, '',
'[s40]' || prs_perslid_naam_friendly),
CHR (10))
WITHIN GROUP (ORDER BY res_rsv_deel_van) WITHIN GROUP (ORDER BY res_rsv_deel_van)
waarde3, waarde3,
LISTAGG ( LISTAGG (
DECODE ( DECODE (
prs_perslid_naam_friendly, naam,
NULL, '', NULL, '',
'<span class="body">' '<span class="body">'
|| TO_CHAR (res_rsv_deel_van, 'HH24:MI') || TO_CHAR (res_rsv_deel_van, 'HH24:MI')
|| ' ' || ' '
|| prs_perslid_naam_friendly || naam
|| '</span>'), || '</span>'),
'<br>') '<br>')
WITHIN GROUP (ORDER BY res_rsv_deel_van) WITHIN GROUP (ORDER BY res_rsv_deel_van)
waarde_html, waarde_html,
LISTAGG ( LISTAGG (DECODE (naam, NULL, '', '<span class="body">' || naam || '</span>'), '<br>')
DECODE (prs_perslid_naam_friendly,
NULL, '',
'<span class="body">' || prs_perslid_naam_friendly || '</span>'),
'<br>')
WITHIN GROUP (ORDER BY res_rsv_deel_van) WITHIN GROUP (ORDER BY res_rsv_deel_van)
waarde_html2 waarde_html2
FROM res_v_aanwezigdeel isd, FROM res_v_aanwezigdeel isd,
datums, datums,
(SELECT datum, (SELECT datum,
res_ins_deel_key, res_ins_deel_key,
prs_perslid_naam_friendly, DECODE (p.prs_perslid_visibility,
1, pf.prs_perslid_naam_friendly,
a.prs_afdeling_omschrijving)
naam,
res_rsv_deel_van, res_rsv_deel_van,
res_rsv_deel_tot res_rsv_deel_tot
FROM res_v_aanwezigdeel r, FROM res_v_aanwezigdeel r,
res_v_aanwezigrsv_deel rrd, res_v_aanwezigrsv_deel rrd,
res_rsv_ruimte rrr, res_rsv_ruimte rrr,
prs_v_perslid_fullnames p, prs_v_perslid_fullnames pf,
prs_perslid p,
prs_afdeling a,
datums datums
WHERE r.res_deel_key = rrd.res_deel_key WHERE r.res_deel_key = rrd.res_deel_key
AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
AND rrr.res_rsv_ruimte_host_key = p.prs_perslid_key AND rrr.res_rsv_ruimte_host_key = pf.prs_perslid_key
AND pf.prs_perslid_key = p.prs_perslid_key
AND p.prs_afdeling_key = a.prs_afdeling_key
AND datum >= TRUNC (res_rsv_deel_van) AND datum >= TRUNC (res_rsv_deel_van)
AND datum < TRUNC (res_rsv_deel_tot + 1)) res -- Bezet AND datum < TRUNC (res_rsv_deel_tot + 1)) res -- Bezet
WHERE isd.res_ins_deel_key = res.res_ins_deel_key(+) AND datums.datum = res.datum(+) WHERE isd.res_ins_deel_key = res.res_ins_deel_key(+) AND datums.datum = res.datum(+)
GROUP BY datums.datum, isd.res_ins_deel_key, res_deel_omschrijving; GROUP BY datums.datum, isd.res_ins_deel_key, res_deel_omschrijving;
-- --
-- Thema's gebaseerd op objectstatus van objecten binnen ruimte/werkplek (typisch sensoren) -- Thema's gebaseerd op objectstatus van objecten binnen ruimte/werkplek (typisch sensoren)
-- --