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
This commit is contained in:
Peter Feij
260
CAD/CAD_VIE.SRC
260
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
|
||||
SELECT alg_gebouw_key,
|
||||
alg_gebouw_code,
|
||||
alg_gebouw_code
|
||||
FROM alg_v_aanweziggebouw;
|
||||
alg_gebouw_code,
|
||||
alg_gebouw_omschrijving,
|
||||
alg_gebouw_bruto_vloeropp,
|
||||
alg_srtgebouw_omschrijving
|
||||
) 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
|
||||
SELECT alg_ruimte_key,
|
||||
alg_ruimte_nr,
|
||||
alg_ruimte_nr,
|
||||
alg_verdieping_key
|
||||
FROM alg_v_aanwezigruimte;
|
||||
alg_ruimte_omschrijving,
|
||||
alg_ruimte_oppervlakte,
|
||||
alg_srtruimte_omschrijving
|
||||
) AS
|
||||
SELECT R.alg_ruimte_key,
|
||||
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
|
||||
SELECT alg_terreinsector_key,
|
||||
alg_terreinsector_code,
|
||||
alg_terreinsector_code
|
||||
FROM alg_v_aanwezigterreinsector;
|
||||
alg_terreinsector_code,
|
||||
alg_terreinsector_omschrijving,
|
||||
alg_terreinsector_oppervlak,
|
||||
alg_terreinsector_omtrek
|
||||
) 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)
|
||||
(prs_werkplek_key,
|
||||
prs_werkplek_cadlabel,
|
||||
prs_werkplek_volgnr) AS
|
||||
SELECT prs_werkplek_key,
|
||||
prs_werkplek_volgnr,
|
||||
prs_werkplek_volgnr
|
||||
FROM prs_v_aanwezigwerkplek;
|
||||
|
||||
CREATE_VIEW(cad_v_lpn_alg_terreinsector_2, NORMAAL_PRIVILEGE)
|
||||
SELECT T.alg_terreinsector_key,
|
||||
T.alg_terreinsector_code,
|
||||
T.alg_terreinsector_naam
|
||||
FROM alg_v_aanwezigterreinsector T;
|
||||
#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
|
||||
SELECT ins_deel_key,
|
||||
SUBSTR(ins_deel_upper, LENGTH(ins_deel_upper)-5), /* laatste 5 karakters */
|
||||
ins_deel_upper
|
||||
FROM ins_deel
|
||||
WHERE ins_deel_verwijder IS NULL; /* alleen de logisch aanwezige delen */
|
||||
ins_srtdeel_omschrijving,
|
||||
ins_deel_oppervlak,
|
||||
ins_deel_omtrek
|
||||
) AS
|
||||
SELECT D.ins_deel_key,
|
||||
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
|
||||
SELECT ins_deel_key,
|
||||
ins_deel_omschrijving,
|
||||
ins_deel_upper
|
||||
FROM ins_deel
|
||||
WHERE ins_deel_verwijder IS NULL; /* alleen de logisch aanwezige delen */
|
||||
ins_srtdeel_omschrijving,
|
||||
ins_deel_oppervlak,
|
||||
ins_deel_omtrek
|
||||
) AS
|
||||
SELECT D.ins_deel_key,
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user