359 lines
12 KiB
Plaintext
359 lines
12 KiB
Plaintext
#ifdef CAD // 22-05-1998 KTH
|
|
|
|
/* REVISIONS:
|
|
*
|
|
* 27-04-1999 EGR CAD-tabellen worden op de module FAC afgebeeld met bijbehorende privileges.
|
|
* 27-04-1999 BIV View cad_v_lpn_prs_werkplek_2 verplaatst naar cad_vie2.src i.v.m. volgorde
|
|
* afhankelijkheid met view prs_v_perslidwerkplek_gegevens.
|
|
* --- 01.44 ---
|
|
* 15-04-1999 BIV Syntaxfouten(AS) verwijderd uit 8 views + ; toegevoegd in cad_v_lpn_ins_deel_1.
|
|
* 14-04-1999 PF Syntaxfout (AS) en cad_v_alg_gebouw en cad_v_alg_locatie toegevoegd
|
|
* 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.43 ---
|
|
* 01-12-1998 PF Foutje in CAV_V_INS_DEEL (niet-AKZ) verbeterd. CAD_V_ALG_TERREINSECTOR
|
|
* toegevoegd (nog niet gebruikt?)
|
|
* --- 01.42 ---
|
|
* --- 01.41 ---
|
|
* --- 01.40 ---
|
|
* --- 01.39 ---
|
|
* 23-07-1998 KTH LOG#1938: cad_vie.src opgesplitst in cad_vie1.src en cad_vie2.src
|
|
* 21-07-1998 BIV View cad_v_alg_ruimte_tekening toegevoegd.
|
|
* 21-07-1998 BIV View cad_v_cad_tekening uitgebreidt met CAD_TEKENING_TYPE.
|
|
* 16-07-1998 BIV View toegevoegd voor Plattegrond-, Contour- en Disciplinetekeningen.
|
|
* 09-07-1998 KTH Dubbel stukje cad_v_ins_deel_tekening verwijderd
|
|
* 09-07-1998 PF View cad_v_ins_deel_tekening toegevoegd
|
|
* 08-07-1998 PF View cad_v_cad_tekening toegevoegd (voor raadplegen vanuit FCLTCAD)
|
|
* --- 01.38 ---
|
|
* 01-07-1998 KTH - CAD_V_ALG_GEBOUW toegevoegd (voor PF)
|
|
* - CAD_V_ALG_RUIMTE.ALG_VERDIEPING_KEY toegevoegd (voor PF)
|
|
* 29-06-1998 KTH LOG#1905: CAD_V_ALG_RUIMTE en CAD_V_INS_DEEL toegevoegd
|
|
* --- 01.37 ---
|
|
* 08-06-1998 KTH LOG#1824: CAD_V_CAD_TEKENING_GEGEVENS toegevoegd t.b.v. overzichtscherm CAD011.
|
|
* 22-05-1998 KTH LOG#1821: Wijzigingen tbv tabel CAD_TEKENING geintroduceerd
|
|
*/
|
|
|
|
#include "comsql.h"
|
|
|
|
CREATE_VIEW(cad_v_cad_aanwezigtekening, FAC_NORMAAL_PRIVILEGE) AS
|
|
SELECT * FROM cad_tekening C_T
|
|
WHERE C_T.ins_discipline_key IN (SELECT ins_discipline_key
|
|
FROM ins_discipline)
|
|
OR C_T.ins_discipline_key IS NULL;
|
|
|
|
CREATE_VIEW(cad_v_cad_tekening_gegevens, FAC_NORMAAL_PRIVILEGE)
|
|
(cad_tekening_key,
|
|
alg_locatie_key,
|
|
alg_locatie_code,
|
|
alg_gebouw_key,
|
|
alg_gebouw_code,
|
|
alg_verdieping_key,
|
|
alg_verdieping_omschrijving,
|
|
ins_discipline_key,
|
|
ins_discipline_omschrijving) AS
|
|
SELECT C_T.cad_tekening_key,
|
|
C_T.alg_locatie_key,
|
|
ALG_L.alg_locatie_code,
|
|
ALG_G.alg_gebouw_key,
|
|
ALG_G.alg_gebouw_code,
|
|
C_T.alg_verdieping_key,
|
|
ALG_V.alg_verdieping_omschrijving,
|
|
C_T.ins_discipline_key,
|
|
INS_D.ins_discipline_omschrijving
|
|
FROM alg_locatie ALG_L,
|
|
alg_verdieping ALG_V,
|
|
alg_gebouw ALG_G,
|
|
ins_discipline INS_D,
|
|
cad_v_cad_aanwezigtekening C_T
|
|
WHERE C_T.alg_locatie_key = ALG_L.alg_locatie_key
|
|
AND C_T.alg_verdieping_key = ALG_V.alg_verdieping_key (+)
|
|
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, FAC_NORMAAL_PRIVILEGE) AS
|
|
SELECT * FROM cad_tekening
|
|
WHERE UPPER(cad_tekening_type) = 'P';
|
|
|
|
CREATE_VIEW(cad_v_contour, FAC_NORMAAL_PRIVILEGE) AS
|
|
SELECT * FROM cad_tekening
|
|
WHERE UPPER(cad_tekening_type) = 'C';
|
|
|
|
CREATE_VIEW(cad_v_discipline, FAC_NORMAAL_PRIVILEGE) AS
|
|
SELECT * FROM cad_tekening
|
|
WHERE UPPER(cad_tekening_type) = 'D';
|
|
|
|
/* 29-06-1998 KTH LOG#1905
|
|
* Views die door de AutoCAD Map-user FCLTCAD worden geraadpleegd.
|
|
* Bij die user heet de SYNONYM ernaar toe wellicht anders.
|
|
*/
|
|
|
|
#ifdef ALG
|
|
CREATE_VIEW(cad_v_alg_locatie, FAC_NORMAAL_PRIVILEGE)
|
|
(alg_locatie_key,
|
|
alg_locatie_cadlabel,
|
|
alg_locatie_code
|
|
) AS
|
|
SELECT L.alg_locatie_key,
|
|
L.alg_locatie_omschrijving,
|
|
L.alg_locatie_code
|
|
FROM alg_v_aanwezigLocatie L;
|
|
/* Nog geen ToolTip views voor locatie */
|
|
|
|
|
|
CREATE_VIEW(cad_v_alg_terreinsector, FAC_NORMAAL_PRIVILEGE)
|
|
(alg_terreinsector_key,
|
|
alg_terreinsector_cadlabel,
|
|
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_2, FAC_NORMAAL_PRIVILEGE) AS
|
|
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_lpn_alg_terreinsector_1, FAC_NORMAAL_PRIVILEGE) AS
|
|
SELECT T.alg_terreinsector_key,
|
|
T.alg_terreinsector_code,
|
|
T.alg_terreinsector_naam
|
|
FROM alg_v_aanwezigterreinsector T;
|
|
|
|
|
|
CREATE_VIEW(cad_v_alg_gebouw, FAC_NORMAAL_PRIVILEGE)
|
|
(alg_gebouw_key,
|
|
alg_gebouw_cadlabel,
|
|
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_lpn_alg_gebouw_2, FAC_NORMAAL_PRIVILEGE) AS
|
|
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_1, FAC_NORMAAL_PRIVILEGE) AS
|
|
SELECT G.alg_gebouw_key,
|
|
G.alg_gebouw_code,
|
|
G.alg_gebouw_naam
|
|
FROM alg_v_aanweziggebouw G;
|
|
|
|
|
|
CREATE_VIEW(cad_v_alg_verdieping, FAC_NORMAAL_PRIVILEGE)
|
|
(alg_verdieping_key,
|
|
alg_verdieping_cadlabel,
|
|
alg_verdieping_code
|
|
) AS
|
|
SELECT V.alg_verdieping_key,
|
|
V.alg_verdieping_omschrijving,
|
|
V.alg_verdieping_volgnr
|
|
FROM alg_v_aanwezigverdieping V;
|
|
/* Nog geen ToolTip views voor verdieping */
|
|
|
|
CREATE_VIEW(cad_v_alg_ruimte, FAC_NORMAAL_PRIVILEGE)
|
|
(alg_ruimte_key,
|
|
alg_verdieping_key,
|
|
alg_ruimte_cadlabel,
|
|
alg_ruimte_nr,
|
|
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_lpn_alg_ruimte_2, FAC_NORMAAL_PRIVILEGE) AS
|
|
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_1, FAC_NORMAAL_PRIVILEGE) AS
|
|
SELECT R.alg_ruimte_key,
|
|
R.alg_ruimte_nr,
|
|
R.alg_ruimte_omschrijving
|
|
FROM alg_v_aanwezigruimte R;
|
|
|
|
#endif //ALG
|
|
|
|
|
|
/* View met ALLE tekeningen, ongeacht de autorisatie; minimale kolommen, gebruikt in CAD_PAC.SRC */
|
|
CREATE_VIEW(cad_v_cad_tekening, FAC_NORMAAL_PRIVILEGE) AS
|
|
SELECT ins_discipline_key,
|
|
alg_locatie_key,
|
|
alg_verdieping_key,
|
|
cad_tekening_type,
|
|
cad_tekening_filenaam
|
|
FROM cad_tekening C_T;
|
|
|
|
#ifdef INS
|
|
/* 29-06-1998 KTH LOG#1905
|
|
* View CAD_V_INS_DEEL wordt door de AutoCAD Map-user FCLTCAD geraadpleegd.
|
|
* Bij die user heet de SYNONYM ernaar toe anders (zie CAD_ROL).
|
|
*/
|
|
#ifdef AKZ
|
|
/* voor AKZ wordt alleen het laatste stuk van de omschrijving gebruikt */
|
|
CREATE_VIEW(cad_v_ins_deel, FAC_NORMAAL_PRIVILEGE)
|
|
(ins_deel_key,
|
|
ins_deel_cadlabel,
|
|
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, FAC_NORMAAL_PRIVILEGE)
|
|
(ins_deel_key,
|
|
ins_deel_cadlabel,
|
|
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_2, FAC_NORMAAL_PRIVILEGE) AS
|
|
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_1, FAC_NORMAAL_PRIVILEGE) AS
|
|
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, FAC_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, FAC_NORMAAL_PRIVILEGE) AS
|
|
SELECT W.prs_werkplek_key,
|
|
W.prs_werkplek_volgnr,
|
|
W.prs_werkplek_omschrijving
|
|
FROM prs_v_aanwezigwerkplek W;
|
|
|
|
#endif // PRS
|
|
|
|
|
|
#endif // CAD
|