13-04-1999 PF DE LPN-views uitgebreid om Map-AlterProperties te ondersteunen. CAD_PRIVILEGE door NORMAAL_PRIVILEGE vervangen (nog onafh. module) Ook nog (alvast) de Views tbv de tooltip (LPN_xx_1 en LPN_xx_2) teogevoegd.

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

CAD/CAD_VIE.SRC

@@ -2,6 +2,9 @@
 
 /*  REVISIONS:
  *
+ * 13-04-1999 PF  DE LPN-views uitgebreid om Map-AlterProperties te ondersteunen.
+ *                CAD_PRIVILEGE door NORMAAL_PRIVILEGE vervangen (nog onafh. module)
+ *                Ook nog (alvast) de Views tbv de tooltip (LPN_xx_1 en LPN_xx_2) teogevoegd.
  * 01-12-1998 PF  Foutje in CAV_V_INS_DEEL (niet-AKZ) verbeterd. CAD_V_ALG_TERREINSECTOR 
  *                toegevoegd (nog niet gebruikt?)
  *  --- 01.40 ---
@@ -59,15 +62,15 @@ CREATE_VIEW(cad_v_cad_tekening_gegevens, NORMAAL_PRIVILEGE)
       AND ALG_V.alg_gebouw_key = ALG_G.alg_gebouw_key (+)
       AND C_T.ins_discipline_key = INS_D.ins_discipline_key (+);
 
-CREATE_VIEW(cad_v_plattegrond, CAD_PRIVILEGE) AS
+CREATE_VIEW(cad_v_plattegrond, NORMAAL_PRIVILEGE) AS
   SELECT * FROM cad_tekening 
    WHERE UPPER(cad_tekening_type) = 'P';
 
-CREATE_VIEW(cad_v_contour, CAD_PRIVILEGE) AS
+CREATE_VIEW(cad_v_contour, NORMAAL_PRIVILEGE) AS
   SELECT * FROM cad_tekening 
    WHERE UPPER(cad_tekening_type) = 'C';
 
-CREATE_VIEW(cad_v_discipline, CAD_PRIVILEGE) AS
+CREATE_VIEW(cad_v_discipline, NORMAAL_PRIVILEGE) AS
   SELECT * FROM cad_tekening 
    WHERE UPPER(cad_tekening_type) = 'D';
 
@@ -77,49 +80,112 @@ CREATE_VIEW(cad_v_discipline, CAD_PRIVILEGE) AS
  */
 
 #ifdef ALG
-CREATE_VIEW(cad_v_alg_gebouw, CAD_PRIVILEGE)
+CREATE_VIEW(cad_v_alg_gebouw, NORMAAL_PRIVILEGE)
   (alg_gebouw_key,
    alg_gebouw_cadlabel,
-   alg_gebouw_code) AS
+   alg_gebouw_code,
- SELECT alg_gebouw_key,
+   alg_gebouw_omschrijving,
-        alg_gebouw_code,
+   alg_gebouw_bruto_vloeropp,
-        alg_gebouw_code
+   alg_srtgebouw_omschrijving
- FROM alg_v_aanweziggebouw;
+) AS
+ SELECT G.alg_gebouw_key,
+        G.alg_gebouw_code,
+        G.alg_gebouw_code,
+        G.alg_gebouw_naam,
+        TO_CHAR(G.alg_gebouw_bruto_vloeropp)||' m2',
+        SG.alg_srtgebouw_omschrijving
+ FROM alg_v_aanweziggebouw G, alg_srtgebouw SG
+WHERE SG.alg_srtgebouw_key=G.alg_srtgebouw_key;
 
-CREATE_VIEW(cad_v_alg_ruimte, CAD_PRIVILEGE)
+CREATE_VIEW(cad_v_lpn_alg_gebouw_1, NORMAAL_PRIVILEGE)
+ SELECT G.alg_gebouw_key,
+        'Oppervlakte' label,
+        TO_CHAR(G.alg_gebouw_bruto_vloeropp)||' m2' alg_gebouw_bruto_vloeropp
+ FROM alg_v_aanweziggebouw G
+UNION
+ SELECT G.alg_gebouw_key,
+        'Omtrek' label,
+        TO_CHAR(G.alg_gebouw_omtrek)||' m' alg_gebouw_omtrek
+ FROM alg_v_aanweziggebouw G;
+
+CREATE_VIEW(cad_v_lpn_alg_gebouw_2, NORMAAL_PRIVILEGE)
+ SELECT G.alg_gebouw_key,
+        G.alg_gebouw_code,
+        G.alg_gebouw_naam
+ FROM alg_v_aanweziggebouw G;
+
+CREATE_VIEW(cad_v_alg_ruimte, NORMAAL_PRIVILEGE)
   (alg_ruimte_key,
+   alg_verdieping_key,
    alg_ruimte_cadlabel,
    alg_ruimte_nr,
-   alg_verdieping_key) AS
+   alg_ruimte_omschrijving,
- SELECT alg_ruimte_key,
+   alg_ruimte_oppervlakte,
-        alg_ruimte_nr,
+   alg_srtruimte_omschrijving
-        alg_ruimte_nr,
+) AS
-        alg_verdieping_key
+ SELECT R.alg_ruimte_key,
- FROM alg_v_aanwezigruimte;
+        R.alg_verdieping_key,
+        R.alg_ruimte_nr,
+        R.alg_ruimte_nr,
+        R.alg_ruimte_omschrijving,
+        TO_CHAR(alg_ruimte_bruto_vloeropp)||' m2',
+        SR.alg_srtruimte_omschrijving
+ FROM alg_v_aanwezigruimte R, alg_srtruimte SR
+ WHERE SR.alg_srtruimte_key=R.alg_srtruimte_key;
 
-CREATE_VIEW(cad_v_alg_terreinsector, CAD_PRIVILEGE)
+CREATE_VIEW(cad_v_lpn_alg_ruimte_1, NORMAAL_PRIVILEGE)
+ SELECT R.alg_ruimte_key,
+        'Oppervlakte' label,
+        TO_CHAR(R.alg_ruimte_bruto_vloeropp)||' m2' alg_ruimte_bruto_vloeropp
+ FROM alg_v_aanwezigruimte R
+UNION
+ SELECT R.alg_ruimte_key,
+        'Omtrek' label,
+        TO_CHAR(R.alg_ruimte_omtrek)||' m' alg_ruimte_omtrek
+ FROM alg_v_aanwezigruimte R;
+
+CREATE_VIEW(cad_v_lpn_alg_ruimte_2, NORMAAL_PRIVILEGE)
+ SELECT R.alg_ruimte_key,
+        R.alg_ruimte_nr,
+        R.alg_ruimte_omschrijving
+ FROM alg_v_aanwezigruimte R;
+
+CREATE_VIEW(cad_v_alg_terreinsector, NORMAAL_PRIVILEGE)
   (alg_terreinsector_key,
    alg_terreinsector_cadlabel,
-   alg_terreinsector_code) AS
+   alg_terreinsector_code,
- SELECT alg_terreinsector_key,
+   alg_terreinsector_omschrijving,
-        alg_terreinsector_code,
+   alg_terreinsector_oppervlak,
-        alg_terreinsector_code
+   alg_terreinsector_omtrek
- FROM alg_v_aanwezigterreinsector;
+) AS
+ SELECT T.alg_terreinsector_key,
+        T.alg_terreinsector_code,
+        T.alg_terreinsector_code,
+        T.alg_terreinsector_naam,
+        NVL(TO_CHAR(T.alg_terreinsector_oppervlak),'-')||' m2',
+        NVL(TO_CHAR(T.alg_terreinsector_omtrek),'-')||' m'
+ FROM alg_v_aanwezigterreinsector T;
 
+CREATE_VIEW(cad_v_lpn_alg_terreinsector_1, NORMAAL_PRIVILEGE)
+ SELECT T.alg_terreinsector_key,
+        'Oppervlakte' label,
+        NVL(TO_CHAR(T.alg_terreinsector_oppervlak),'-')||' m2' alg_terreinsector_oppervlak
+   FROM alg_v_aanwezigterreinsector T
+UNION
+ SELECT T.alg_terreinsector_key,
+        'Omtrek' label,
+        NVL(TO_CHAR(T.alg_terreinsector_omtrek),'-')||' m' alg_terreinsector_omtrek
+   FROM alg_v_aanwezigterreinsector T;
 
-CREATE_VIEW(cad_v_prs_werkplek, CAD_PRIVILEGE)
+CREATE_VIEW(cad_v_lpn_alg_terreinsector_2, NORMAAL_PRIVILEGE)
-  (prs_werkplek_key,
+ SELECT T.alg_terreinsector_key,
-   prs_werkplek_cadlabel,
+        T.alg_terreinsector_code,
-   prs_werkplek_volgnr) AS
+        T.alg_terreinsector_naam
- SELECT prs_werkplek_key,
+ FROM alg_v_aanwezigterreinsector T;
-        prs_werkplek_volgnr,
-        prs_werkplek_volgnr
-   FROM prs_v_aanwezigwerkplek;
- 
 #endif //ALG
  
 /* View met ALLE tekeningen, ongeacht de autorisatie; minimale kolommen, gebruikt in CAD_PAC.SRC */
-CREATE_VIEW(cad_v_cad_tekening, CAD_PRIVILEGE) AS
+CREATE_VIEW(cad_v_cad_tekening, NORMAAL_PRIVILEGE) AS
   SELECT ins_discipline_key,
          alg_locatie_key,
          alg_verdieping_key,
@@ -134,27 +200,129 @@ CREATE_VIEW(cad_v_cad_tekening, CAD_PRIVILEGE) AS
  */
 #ifdef AKZ
 /* voor AKZ wordt alleen het laatste stuk van de omschrijving gebruikt */
-CREATE_VIEW(cad_v_ins_deel, CAD_PRIVILEGE)
+CREATE_VIEW(cad_v_ins_deel, NORMAAL_PRIVILEGE)
   (ins_deel_key,
    ins_deel_cadlabel,
-   ins_deel_upper) AS
+   ins_srtdeel_omschrijving,
-  SELECT ins_deel_key,
+   ins_deel_oppervlak,
-         SUBSTR(ins_deel_upper, LENGTH(ins_deel_upper)-5), /* laatste 5 karakters */
+   ins_deel_omtrek
-         ins_deel_upper
+) AS
-  FROM ins_deel
+  SELECT D.ins_deel_key,
-  WHERE ins_deel_verwijder IS NULL; /* alleen de logisch aanwezige delen */
+         SUBSTR(D.ins_deel_upper, LENGTH(D.ins_deel_upper)-5), /* laatste 5 karakters */
+         SD.ins_srtdeel_omschrijving,
+         NULL,
+         NULL
+  FROM ins_v_aanwezigdeel D, ins_srtdeel SD
+  WHERE SD.ins_srtdeel_key=D.ins_srtdeel_key
+    AND SD.ins_srtdeel_dimensie=0
+UNION
+  SELECT D.ins_deel_key,
+         SUBSTR(D.ins_deel_upper, LENGTH(D.ins_deel_upper)-5), /* laatste 5 karakters */
+         SD.ins_srtdeel_omschrijving,
+         NULL,
+         NVL(TO_CHAR(D.ins_deel_omtrek),'-')||' m'
+  FROM ins_v_aanwezigdeel D, ins_srtdeel SD
+  WHERE SD.ins_srtdeel_key=D.ins_srtdeel_key
+    AND SD.ins_srtdeel_dimensie=1
+UNION
+  SELECT D.ins_deel_key,
+         SUBSTR(D.ins_deel_upper, LENGTH(D.ins_deel_upper)-5), /* laatste 5 karakters */
+         SD.ins_srtdeel_omschrijving,
+         NVL(TO_CHAR(D.ins_deel_oppervlak),'-')||' m2',
+         NVL(TO_CHAR(D.ins_deel_omtrek),'-')||' m'
+  FROM ins_v_aanwezigdeel D, ins_srtdeel SD
+  WHERE SD.ins_srtdeel_key=D.ins_srtdeel_key
+    AND SD.ins_srtdeel_dimensie=2; 
 #else
-CREATE_VIEW(cad_v_ins_deel, CAD_PRIVILEGE)
+CREATE_VIEW(cad_v_ins_deel, NORMAAL_PRIVILEGE)
   (ins_deel_key,
    ins_deel_cadlabel,
-   ins_deel_upper) AS
+   ins_srtdeel_omschrijving,
-  SELECT ins_deel_key,
+   ins_deel_oppervlak,
-         ins_deel_omschrijving,
+   ins_deel_omtrek
-         ins_deel_upper
+) AS
-  FROM ins_deel
+  SELECT D.ins_deel_key,
-  WHERE ins_deel_verwijder IS NULL; /* alleen de logisch aanwezige delen */
+         D.ins_deel_omschrijving,
+         SD.ins_srtdeel_omschrijving,
+         NULL,
+         NULL
+  FROM ins_v_aanwezigdeel D, ins_srtdeel SD
+  WHERE SD.ins_srtdeel_key=D.ins_srtdeel_key
+    AND SD.ins_srtdeel_dimensie=0
+UNION
+  SELECT D.ins_deel_key,
+         D.ins_deel_omschrijving,
+         SD.ins_srtdeel_omschrijving,
+         NULL,
+         NVL(TO_CHAR(D.ins_deel_omtrek),'-')||' m'
+  FROM ins_v_aanwezigdeel D, ins_srtdeel SD
+  WHERE SD.ins_srtdeel_key=D.ins_srtdeel_key
+    AND SD.ins_srtdeel_dimensie=1
+UNION
+  SELECT D.ins_deel_key,
+         D.ins_deel_omschrijving,
+         SD.ins_srtdeel_omschrijving,
+         NVL(TO_CHAR(D.ins_deel_oppervlak),'-')||' m2',
+         NVL(TO_CHAR(D.ins_deel_omtrek),'-')||' m'
+  FROM ins_v_aanwezigdeel D, ins_srtdeel SD
+  WHERE SD.ins_srtdeel_key=D.ins_srtdeel_key
+    AND SD.ins_srtdeel_dimensie=2; 
 #endif // AKZ
 
+CREATE_VIEW(cad_v_lpn_ins_deel_1, NORMAAL_PRIVILEGE)
+SELECT
+  D.ins_deel_key,
+  ins_srtkenmerk_omschrijving,
+  KD.ins_kenmerkdeel_waarde ||' '|| SK.ins_srtkenmerk_dimensie INS_KENMERKDEEL_WAARDE2
+FROM
+  ins_srtkenmerk SK,
+  ins_kenmerk K,
+  ins_kenmerkdeel KD,
+  ins_deel D
+WHERE SK.ins_srtkenmerk_key=K.ins_srtkenmerk_key 
+  AND K.ins_kenmerk_key=KD.ins_kenmerk_key
+  AND KD.ins_deel_key=D.ins_deel_key
+
+CREATE_VIEW(cad_v_lpn_ins_deel_2, NORMAAL_PRIVILEGE)
+SELECT
+  D.ins_deel_key,
+  SD.ins_srtdeel_omschrijving,
+  D.ins_deel_omschrijving
+FROM
+  ins_srtdeel SD,
+  ins_deel D
+WHERE D.ins_srtdeel_key = SD.ins_srtdeel_key;
 #endif // INS
 
+
+#ifdef PRS
+CREATE_VIEW(cad_v_prs_werkplek, NORMAAL_PRIVILEGE)
+  (prs_werkplek_key,
+   prs_werkplek_cadlabel,
+   prs_werkplek_volgnr,
+   prs_werkplek_omschrijving,
+   prs_werkplek_opp
+) AS
+ SELECT W.prs_werkplek_key,
+        '#'||TO_CHAR(W.prs_werkplek_volgnr),
+        W.prs_werkplek_volgnr,
+        W.prs_werkplek_omschrijving,
+        W.prs_werkplek_opp   /* Alleen een waarde indien prs_werkplek_vastopp 1 is, anders te traag? */
+   FROM prs_v_aanwezigwerkplek W;
+
+CREATE_VIEW(cad_v_lpn_prs_werkplek_1, NORMAAL_PRIVILEGE)
+ SELECT W.prs_werkplek_key,
+        prs_afd_perslid_naam,
+        TO_CHAR(W.prs_perslidwerkplek_bezetting)||' %' prs_perslidwerkplek_bezetting2
+   FROM prs_v_perslidwerkplek_gegevens W;
+
+CREATE_VIEW(cad_v_lpn_prs_werkplek_2, NORMAAL_PRIVILEGE)
+ SELECT W.prs_werkplek_key,
+        W.prs_werkplek_volgnr,
+        W.prs_werkplek_omschrijving,
+   FROM prs_v_aanwezigwerkplek W;
+
+#endif // PRS
+
+
 #endif // CAD