FSN#26953 WP-labelthema erbij

svn path=/Database/trunk/; revision=18408

CAD/CAD_VIE.SRC

@@ -298,34 +298,33 @@ SELECT   wp.prs_alg_ruimte_key, COUNT (*)
 CREATE_VIEW(cad_v_label_werkplekken,0)
     (alg_ruimte_key, waarde, highlight)
 AS
-   SELECT prs_alg_ruimte_key,
-             CHR (1)
-          || prs_werkplek_volgnr
-          || ' ('
-          || TO_CHAR (wpopp, 'FM9999.0')
-          || 'm2 '
-          || TO_CHAR (bez)
-          || '%)' waarde,
-		  DECODE (SIGN (bez - 100),
-                  1, 2,
-                  0
-                 ) highlight
-     FROM (SELECT   prs_w.prs_alg_ruimte_key, prs_w.prs_werkplek_volgnr,
-                    SUM (NVL (prs_pw.prs_perslidwerkplek_bezetting, 0)) bez,
-                    wpopp
-               FROM PRS_WERKPLEK prs_w,
-                    prs_v_werkplek_oppervlakte pwo,
-                    (SELECT *
-                       FROM PRS_PERSLIDWERKPLEK
-                      WHERE prs_perslidwerkplek_verwijder IS NULL) prs_pw
-              WHERE prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key(+)
-                AND pwo.prs_werkplek_key(+) = prs_w.prs_werkplek_key
-                AND prs_w.prs_werkplek_verwijder IS NULL
-           GROUP BY prs_w.prs_alg_ruimte_key,
-                    prs_w.prs_werkplek_volgnr,
-                    'prs_werkplek',
-                    prs_w.prs_werkplek_key,
-                    wpopp) vdata;
+    SELECT prs_alg_ruimte_key,
+              CHR (1)
+           || prs_werkplek_volgnr
+           || ' ('
+           || TO_CHAR (wpopp, 'FM9990.0')
+           || ' m2'
+           || DECODE (bez, 100, '', ' '||TO_CHAR (bez) || '%')
+           || ')'
+               waarde,
+           DECODE (SIGN (bez - 100), 1, 2, 0) highlight
+      FROM (  SELECT prs_w.prs_alg_ruimte_key,
+                     prs_w.prs_werkplek_volgnr,
+                     SUM (NVL (prs_pw.prs_perslidwerkplek_bezetting, 0)) bez,
+                     wpopp
+                FROM prs_werkplek prs_w,
+                     prs_v_werkplek_oppervlakte pwo,
+                     (SELECT *
+                        FROM prs_perslidwerkplek
+                       WHERE prs_perslidwerkplek_verwijder IS NULL) prs_pw
+               WHERE     prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key(+)
+                     AND pwo.prs_werkplek_key(+) = prs_w.prs_werkplek_key
+                     AND prs_w.prs_werkplek_verwijder IS NULL
+            GROUP BY prs_w.prs_alg_ruimte_key,
+                     prs_w.prs_werkplek_volgnr,
+                     'prs_werkplek',
+                     prs_w.prs_werkplek_key,
+                     wpopp);
 
 CREATE_VIEW(CAD_V_THEMA_WPOPP, 0)
 (alg_ruimte_key, waarde)
@@ -571,6 +570,41 @@ AS
               AND pwp.prs_werkplek_key(+) = wp.prs_werkplek_key
    GROUP BY   wp.prs_werkplek_key;
 
+-- Werkplekthema met de bezetter(s) ervan
+CREATE_VIEW(cad_v_label_wp_bewoner, 0)
+(
+   prs_werkplek_key,
+   waarde
+)
+AS
+    SELECT DISTINCT
+           prs_w.prs_werkplek_key,
+           DECODE (
+               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
+                  WHEN prs_pw.prs_perslidwerkplek_bezetting < 100
+                  THEN
+                      ' (' || TO_CHAR (NVL (prs_pw.prs_perslidwerkplek_bezetting, 0)) || '%)'
+              END
+               waarde
+      FROM prs_werkplek prs_w,
+           (SELECT *
+              FROM prs_perslidwerkplek
+             WHERE prs_perslidwerkplek_verwijder IS NULL) prs_pw,
+           prs_perslid prs_p
+     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 = prs_p.prs_perslid_key;
+
 -- Reserveerbare ruimtes kleurenthema (waarde = aantal minuten nog vrij)
 CREATE_VIEW(cad_v_thema_ruimte_reservering,0)
 (ALG_RUIMTE_KEY, WAARDE)
@@ -609,7 +643,7 @@ AS
                           || TO_CHAR (res_rsv_ruimte_van, 'HH24:MI')
                           || '-'
                           || TO_CHAR (res_rsv_ruimte_tot, 'HH24:MI')
-                          || '[br][s50]host: '
+                          || '[br][s50]'
                           || prs_perslid_naam_full
                           || '[br][s80][b]'
                           || res_rsv_ruimte_omschrijving)
@@ -666,6 +700,38 @@ AS
                                   AND  res_rsv_deel_tot - 1 / 24 / 60) res -- NU bezig
     WHERE isd.ins_deel_key = res.res_ins_deel_key(+);
 
+--
+-- Thema's gebaseerd op objectstatus van objecten binnen ruimte/werkplek (typisch sensoren)
+--
+CREATE_VIEW(cad_v_thema_ruimtesensor,0)
+(
+    alg_ruimte_key,
+    waarde
+)
+AS
+    SELECT r.alg_ruimte_key alg_ruimte_key, initcap(d.ins_deel_state) status
+      FROM alg_ruimte r, ins_deel d
+     WHERE     r.alg_ruimte_verwijder IS NULL
+           AND d.ins_deel_verwijder IS NULL
+           AND d.ins_alg_ruimte_type = 'R'
+           AND d.ins_alg_ruimte_key = r.alg_ruimte_key
+           AND d.ins_deel_state IS NOT NULL;
+
+CREATE_VIEW(cad_v_thema_wpsensor,0)
+(
+    prs_werkplek_key,
+    waarde
+)
+AS
+    SELECT wp.prs_werkplek_key prs_werkplek_key, initcap(d.ins_deel_state) status
+      FROM prs_werkplek wp, ins_deel d
+     WHERE     wp.prs_werkplek_verwijder IS NULL
+           AND d.ins_deel_verwijder IS NULL
+           AND wp.prs_werkplek_virtueel = 0
+           AND d.ins_alg_ruimte_type = 'W'
+           AND d.ins_alg_ruimte_key = wp.prs_werkplek_key
+           AND d.ins_deel_state IS NOT NULL;
+
 REGISTERRUN('$Workfile: CAD_VIE.SRC $','$Revision$')
 
 #endif // CAD