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

#2376

Browse Source 
svn path=/Database/trunk/; revision=6736
This commit is contained in:
Peter Feij
1999-04-28 16:32:22 +00:00
parent 23890b5191
commit de447c0aa5
5 changed files with 65 additions and 186 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
ALG/ALG_TAB.SRC
View File

@@ -215,6 +215,12 @@ CREATE_TABLE(alg_terreinsector,ALG_NORMAAL_PRIVILEGE)
alg_terreinsector_upper
VARCHAR2(30)
NOT_NULL(alg_terreinsector_upper, alg_c_alg_terreinsector_upper),
alg_terreinsector_oppervlak
NUMBER(10,2)
CONSTRAINT alg_c_alg_terreinsector_opp CHECK(alg_terreinsector_oppervlak >= 0),
alg_terreinsector_omtrek
NUMBER(8,2)
CONSTRAINT alg_c_alg_terreinsector_omtrek CHECK(alg_terreinsector_omtrek >= 0),
alg_terreinsector_aanmaak
DATE
DEFAULT SYSDATE
@@ -295,6 +301,9 @@ CREATE_TABLE(alg_gebouw,ALG_NORMAAL_PRIVILEGE)
alg_gebouw_bruto_vloeropp
NUMBER(9,2)
CONSTRAINT alg_c_alg_gebouw_vloeropp CHECK(alg_gebouw_bruto_vloeropp >= 0),
alg_gebouw_omtrek
NUMBER(8,2)
CONSTRAINT alg_c_alg_gebouw_omtrek CHECK(alg_gebouw_omtrek >= 0),
alg_gebouw_inhoud
NUMBER(10),
CONSTRAINT alg_c_alg_gebouw_inhoud CHECK(alg_gebouw_inhoud >= 0),
@@ -627,9 +636,7 @@ ADD
(
alg_systeemcluster_key
NUMBER(10)
CONSTRAINT alg_r_alg_systeemcluster_key REFERENCES alg_systeemcluster(alg_systeemcluster_key),
alg_gebouw_omtrek
NUMBER(8,2)
CONSTRAINT alg_r_alg_systeemcluster_key REFERENCES alg_systeemcluster(alg_systeemcluster_key)
);
CREATE_TABLE(alg_srtterrein,ALG_NORMAAL_PRIVILEGE)

163
ALG/ALG_VIE.SRC
View File

@@ -1,14 +1,14 @@
#ifdef ALG // 13-03-96 AH
/*
* Revisie:
*
* 28-04-1999 PF Niet-Facilitor-views verwijderd (VGI/BEB)
* 27-04-1999 EGR Privileges vooraf laten gaan door module.
* 11-03-1999 BIV - View alg_v_aanwezigrefkenmerk toegevoegd.
* 05-02-1999 EGR #2242 Toevoegen van veld alg_ruimte_aanduiding in alg_v_ruimte_gegevens.
* --- 01.40 ---
* --- 01.39 ---
* --- 01.38 ---
* 30-06-1998 BIV LOG# 1904 - View ALG_V_RUIMTE_GEGEVENS aangepast.
* 30-06-1998 BIV LOG# 1904 - View ALG_V_RUIMTE_GEGEVENS aangepast.
* --- 01.37 ---
* 13/05/1998 BIV View ALG_V_AANWEZIGSRTVLOER.
* --- 01.36 ---
@@ -17,7 +17,7 @@
* 11/03/1998 AH View ALG_V_ONROERENDGOED_GEGEVENS aangemaakt voor omschrijving, code, enz
* van de verschillende onroerendgoed-zaken.
* 10/03/1998 BIV #1513: ALG_V_RUIMTE_GEGEVENS uitgebreid met SCH_SRTVLOER_KEY (#ifdef SCH)
* 05/02/1998 AH ALG_V_VERDIEPING_GEGEVENS extra veld alg_verdieping_in_bewerking
* 05/02/1998 AH ALG_V_VERDIEPING_GEGEVENS extra veld alg_verdieping_in_bewerking
* --- 01.33 ---
* --- 01.32 ---
* --- 01.31 ---
@@ -143,7 +143,6 @@ DEFINIEER_VIEW_AANWEZIG(alg_kostenpost,
CREATE_VIEW(alg_v_district_gegevens,ALG_NORMAAL_PRIVILEGE) AS
SELECT ALG_R.alg_regio_key, ALG_R.alg_regio_omschrijving,
ALG_R.alg_regio_upper, ALG_D.alg_district_key,
ALG_D.alg_district_module,
ALG_D.alg_district_omschrijving, ALG_D.alg_district_upper
FROM alg_regio ALG_R, alg_v_aanwezigdistrict ALG_D
WHERE ALG_R.alg_regio_key = ALG_D.alg_regio_key;
@@ -174,7 +173,6 @@ CREATE_VIEW(alg_v_locatie_gegevens,ALG_NORMAAL_PRIVILEGE)
FROM alg_regio ALG_R, alg_district ALG_D,
alg_v_aanweziglocatie ALG_L
WHERE ALG_D.alg_district_key = ALG_L.alg_district_key AND
ALG_D.alg_district_module IS NULL AND
ALG_R.alg_regio_key = ALG_D.alg_regio_key;
CREATE_VIEW(alg_v_locatie_gegevens_2,ALG_NORMAAL_PRIVILEGE)
@@ -203,7 +201,6 @@ CREATE_VIEW(alg_v_locatie_gegevens_2,ALG_NORMAAL_PRIVILEGE)
FROM alg_regio ALG_R, alg_district ALG_D,
alg_v_aanweziglocatie ALG_L
WHERE ALG_D.alg_district_key = ALG_L.alg_district_key_2 AND
ALG_D.alg_district_module IS NOT NULL AND
ALG_R.alg_regio_key = ALG_D.alg_regio_key
UNION
SELECT TO_NUMBER(NULL),
@@ -277,15 +274,12 @@ CREATE_VIEW(alg_v_ruimte_gegevens,ALG_NORMAAL_PRIVILEGE)
, alg_ruimte_opp_separatieglas
, alg_ruimte_opp_gevelbekleding
, alg_ruimte_aanduiding
#ifdef HUI
, prs_huismeester_key
#endif
#ifdef SCH
, sch_srtvloer_key
#endif
#endif
#ifdef AKZ
, alg_srtvloer_key
#endif
#endif
)
AS SELECT ALG_L.alg_locatie_key, ALG_L.alg_district_key,
ALG_L.alg_locatie_omschrijving, ALG_L.alg_locatie_code,
@@ -308,15 +302,12 @@ CREATE_VIEW(alg_v_ruimte_gegevens,ALG_NORMAAL_PRIVILEGE)
ALG_G.alg_gebouw_code ||' - '
|| to_char(ALG_V.alg_verdieping_volgnr) ||' - '
|| ALG_R.alg_ruimte_nr
#ifdef HUI
, ALG_R.prs_huismeester_key
#endif
#ifdef SCH
, ALG_R.sch_srtvloer_key
#endif
, ALG_R.sch_srtvloer_key
#endif
#ifdef AKZ
, ALG_R.alg_srtvloer_key
#endif
, ALG_R.alg_srtvloer_key
#endif
FROM alg_locatie ALG_L, alg_gebouw ALG_G,
alg_verdieping ALG_V, alg_v_aanwezigruimte ALG_R,
alg_v_aanwezigsrtruimte ALG_S
@@ -412,7 +403,7 @@ CREATE_VIEW(alg_v_allonroerendgoed,ALG_NORMAAL_PRIVILEGE) (alg_onroerendgoed_key
'T'
FROM alg_terreinsector ALG_T;
CREATE_VIEW(alg_v_onroerendgoed_gegevens,ALG_NORMAAL_PRIVILEGE)
CREATE_VIEW(alg_v_onroerendgoed_gegevens,ALG_NORMAAL_PRIVILEGE)
(alg_onroerendgoed_keys,
alg_onroerendgoed_code,
alg_onroerendgoed_omschrijving,
@@ -453,7 +444,7 @@ CREATE_VIEW(alg_v_onroerendgoed_gegevens,ALG_NORMAAL_PRIVILEGE)
TO_CHAR(ALG_V.alg_verdieping_volgnr),
ALG_V.alg_verdieping_omschrijving,
to_number(NULL),
NULL,
NULL,
NULL,
ALG_V.alg_verdieping_key,
ALG_V.alg_verdieping_volgnr,
@@ -559,26 +550,6 @@ CREATE_VIEW(alg_v_mld_kostenpost_geraamd, ALG_NORMAAL_PRIVILEGE)
WHERE MLD_P.alg_kostenpost_key = MLD_B.alg_kostenpost_key;
#endif
#ifdef LEV
/* View om de geraamde kosten te bepalen van bestellingen
* per kostenpost.
* Geraamde kosten zijn de prijs van de nog niet
* werkelijk geleverde ins_srtdelen van de bestellingen.
*/
CREATE_VIEW(alg_v_lev_kostenpost_geraamd, ALG_NORMAAL_PRIVILEGE)
(alg_kostenpost_key,
alg_kostenpost_geraamd) AS
SELECT LEV_B.lev_alg_kostenpost_key,
SUM((NVL(LEV_BR.lev_bestelregel_aantal, 0) -
NVL(LEV_BR.lev_bestelregel_geleverd, 0)) *
NVL(INV_SD.inv_srtdeel_prijs, 0))
FROM lev_bestelling LEV_B, lev_bestelregel LEV_BR, ins_srtdeel INV_SD
WHERE LEV_BR.lev_ins_srtdeel_key = INV_SD.ins_srtdeel_key
AND LEV_BR.lev_bestelregel_aantal > 0
AND LEV_BR.lev_bestelling_key = LEV_B.lev_bestelling_key
AND LEV_B.lev_bestelstatus <> 'V'
GROUP BY LEV_B.lev_alg_kostenpost_key;
#endif
/* View voor een overzicht van de aanwezige kostenposten
* incl. de geraamde en bestede bedragen.
@@ -602,29 +573,19 @@ CREATE_VIEW(alg_v_alg_kostenpost_gegevens, ALG_NORMAAL_PRIVILEGE)
SUM(
#ifdef MLD
NVL(MLD_K.alg_kostenpost_geraamd, 0)
#else
0
#endif
+
#ifdef LEV
NVL(LEV_K.alg_kostenpost_geraamd, 0)
#else
0
#endif
+
0
)
FROM alg_v_aanwezigkostenpost ALG_K
#ifdef MLD
, alg_v_mld_kostenpost_geraamd MLD_K
#endif
#ifdef LEV
, alg_v_lev_kostenpost_geraamd LEV_K
#endif
WHERE ALG_K.alg_kostenpost_key IS NOT NULL
#ifdef MLD
AND MLD_K.alg_kostenpost_key (+) = ALG_K.alg_kostenpost_key
#endif
#ifdef LEV
AND LEV_K.alg_kostenpost_key (+) = ALG_K.alg_kostenpost_key
#endif
GROUP BY ALG_K.alg_kostenpost_key,
ALG_K.alg_kostenpost_omschrijving,
@@ -634,104 +595,6 @@ CREATE_VIEW(alg_v_alg_kostenpost_gegevens, ALG_NORMAAL_PRIVILEGE)
ALG_K.alg_kostenpost_datum,
ALG_K.alg_kostenpost_jaar;
DEFINIEER_VIEW_AANWEZIG(alg_objectdeel, alg_objectdeel_verwijder,
alg_v_aanwezigobjectdeel,ALG_NORMAAL_PRIVILEGE);
DEFINIEER_VIEW_AANWEZIG(alg_systeemcluster, alg_systeemcluster_verwijder,
alg_v_aanwezigsysteemcluster,ALG_NORMAAL_PRIVILEGE);
DEFINIEER_VIEW_AANWEZIG(alg_bouwdeel, alg_bouwdeel_verwijder,
alg_v_aanwezigbouwdeel,ALG_NORMAAL_PRIVILEGE);
CREATE_VIEW(alg_v_systeemcluster_gegevens, ALG_NORMAAL_PRIVILEGE) AS
SELECT ALG_O.alg_locatie_key,
ALG_O.alg_objectdeel_key,
ALG_O.alg_objectdeel_omschrijving,
ALG_O.alg_objectdeel_upper,
ALG_S.alg_systeemcluster_key,
ALG_S.alg_systeemclust_omschrijving,
ALG_S.alg_systeemcluster_upper
FROM alg_v_aanwezigsysteemcluster ALG_S, alg_objectdeel ALG_O
WHERE ALG_S.alg_objectdeel_key = ALG_O.alg_objectdeel_key;
CREATE_VIEW(alg_v_systeemcluster_onrgoed, ALG_NORMAAL_PRIVILEGE)
(alg_locatie_key,
alg_objectdeel_key,
alg_objectdeel_omschrijving,
alg_objectdeel_upper,
alg_systeemcluster_key,
alg_systeemclust_omschrijving,
alg_systeemcluster_upper,
alg_onroerendgoed_keys,
alg_onroerendgoed_type,
alg_onroerendgoed_omschrijving,
alg_onroerendgoed_upper) AS
SELECT ALG_O.alg_locatie_key,
ALG_O.alg_objectdeel_key,
ALG_O.alg_objectdeel_omschrijving,
ALG_O.alg_objectdeel_upper,
ALG_S.alg_systeemcluster_key,
ALG_S.alg_systeemclust_omschrijving,
ALG_S.alg_systeemcluster_upper,
ALG_G.alg_gebouw_key,
'G',
ALG_G.alg_gebouw_omschrijving,
ALG_G.alg_gebouw_upper
FROM alg_v_aanwezigsysteemcluster ALG_S, alg_objectdeel ALG_O,
alg_v_aanweziggebouw ALG_G
WHERE ALG_S.alg_objectdeel_key = ALG_O.alg_objectdeel_key
AND ALG_G.alg_systeemcluster_key = ALG_S.alg_systeemcluster_key
UNION
SELECT ALG_O.alg_locatie_key,
ALG_O.alg_objectdeel_key,
ALG_O.alg_objectdeel_omschrijving,
ALG_O.alg_objectdeel_upper,
ALG_S.alg_systeemcluster_key,
ALG_S.alg_systeemclust_omschrijving,
ALG_S.alg_systeemcluster_upper,
ALG_T.alg_terreinsector_key,
'T',
ALG_T.alg_terreinsector_omschrijving,
ALG_T.alg_terreinsector_upper
FROM alg_v_aanwezigsysteemcluster ALG_S, alg_objectdeel ALG_O,
alg_v_aanwezigterreinsector ALG_T
WHERE ALG_S.alg_objectdeel_key = ALG_O.alg_objectdeel_key
AND ALG_T.alg_systeemcluster_key = ALG_S.alg_systeemcluster_key;
CREATE_VIEW(alg_v_bouwdeel_gegevens, ALG_NORMAAL_PRIVILEGE) AS
SELECT ALG_G.alg_locatie_key,
ALG_G.alg_gebouw_key,
ALG_G.alg_gebouw_omschrijving,
ALG_G.alg_gebouw_upper,
ALG_B.alg_bouwdeel_key,
ALG_B.alg_bouwdeel_omschrijving,
ALG_B.alg_bouwdeel_upper
FROM alg_v_aanwezigbouwdeel ALG_B, alg_gebouw ALG_G
WHERE ALG_B.alg_gebouw_key = ALG_G.alg_gebouw_key;
CREATE_VIEW(alg_v_bouwdeel_verdieping, ALG_NORMAAL_PRIVILEGE)
AS
SELECT ALG_G.alg_locatie_key,
ALG_G.alg_gebouw_key,
ALG_G.alg_gebouw_omschrijving,
ALG_G.alg_gebouw_upper,
ALG_B.alg_bouwdeel_key,
ALG_B.alg_bouwdeel_omschrijving,
ALG_B.alg_bouwdeel_upper,
ALG_V.alg_verdieping_key,
ALG_V.alg_verdieping_omschrijving,
ALG_V.alg_verdieping_volgnr
FROM alg_v_aanwezigbouwdeel ALG_B, alg_gebouw ALG_G,
alg_v_aanwezigverdieping ALG_V
WHERE ALG_B.alg_gebouw_key = ALG_G.alg_gebouw_key
AND ALG_B.alg_bouwdeel_key = ALG_V.alg_bouwdeel_key;
DEFINIEER_VIEW_AANWEZIG(alg_srtterrein, alg_srtterrein_verwijder,
alg_v_aanwezigsrtterrein,ALG_NORMAAL_PRIVILEGE);
DEFINIEER_VIEW_AANWEZIG(alg_srtverdieping, alg_srtverdieping_verwijder,
alg_v_aanwezigsrtverdieping,ALG_NORMAAL_PRIVILEGE);
DEFINIEER_VIEW_AANWEZIG(alg_srtvloer, alg_srtvloer_verwijder,
alg_v_aanwezigsrtvloer,ALG_NORMAAL_PRIVILEGE);

64
CAD/CAD_PAC.SRC
View File

@@ -2,6 +2,9 @@
/* REVISIONS:
*
* 28-04-1999 PF update van de _getekend-velden toegevoegd. De database weet hierdoor dat de
* betreffende update hiervandaan komt, en staat het dan toe (#2376).
* 28-04-1999 PF Procedure cad_p_ruimte_update_opp verwijderd (obsolete)
* 27-04-1999 BIV Zelfde al vorige regel, maar dan voor terreinsectoren.
* --- 01.44 ---
* 22-04-1999 BIV Procedure cad_slnkPredraw zodanig aangepast dat bij een deel ALLE discipline-tekeningen die de
@@ -61,7 +64,6 @@ CREATE OR REPLACE PACKAGE cad AS
FUNCTION cad_f_deel_get_discipline(key IN NUMBER) RETURN NUMBER;
FUNCTION cad_f_deel_get_tekeningnaam(key IN NUMBER) RETURN VARCHAR2;
FUNCTION cad_f_ruimte_get_tekeningnaam(key IN NUMBER) RETURN VARCHAR2;
PROCEDURE cad_p_ruimte_update_opp(key IN NUMBER, VloerOpp IN NUMBER);
PROCEDURE cad_SLNKSTRUCTinsertVALINT(Session_Id NUMBER, entry VARCHAR2, seqnr NUMBER, value NUMBER, ClrEntry NUMBER);
PROCEDURE cad_SLNKSTRUCTinsertVALSTR(Session_Id NUMBER, entry VARCHAR2, seqnr NUMBER, value VARCHAR2, ClrEntry NUMBER);
PROCEDURE cad_SLNKSTRUCTinsertVALREAL(Session_Id NUMBER, entry VARCHAR2, seqnr NUMBER, value NUMBER, ClrEntry NUMBER);
@@ -259,21 +261,6 @@ CREATE OR REPLACE PACKAGE BODY cad AS
END cad_f_ruimte_get_tekeningnaam;
/*
* CAD_P_RUIMTE_UPDATE_OPP wordt aangeroepen vanuit AutoCAD
* en wijzigt de vloeroppervlakte van een opgegeven ruimte
*
* Merk op dat een eventuele EXCEPTION hier niet expliciet wordt afgevangen!
*/
PROCEDURE cad_p_ruimte_update_opp(Key IN NUMBER, VloerOpp IN NUMBER) IS
BEGIN
/* alleen indien het een logisch aanwezige ruimte betreft passen we de opp aan */
UPDATE alg_v_aanwezigruimte
SET alg_ruimte_bruto_vloeropp = VloerOpp
WHERE alg_ruimte_key = Key;
COMMIT;
END cad_p_ruimte_update_opp;
FUNCTION Bepaal_locatiecode(locatie_key IN NUMBER) RETURN VARCHAR2 IS
locatie_code VARCHAR2(5);
BEGIN
@@ -1778,7 +1765,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
WHEN NO_DATA_FOUND THEN
/* Verwijderdatum wordt NULL */
UPDATE alg_terreinsector
SET alg_terreinsector_verwijder = NULL
SET alg_terreinsector_verwijder = NULL,
alg_terreinsector_getekend = SYSDATE /* It's CAD */
WHERE alg_terreinsector_key = LPNKeyINSO;
RetValue := TRUE;
END;
@@ -1796,7 +1784,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
WHEN NO_DATA_FOUND THEN
/* Verwijderdatum wordt NULL */
UPDATE alg_gebouw
SET alg_gebouw_verwijder = NULL
SET alg_gebouw_verwijder = NULL,
alg_gebouw_getekend = SYSDATE /* It's CAD */
WHERE alg_gebouw_key = LPNKeyINSO;
RetValue := TRUE;
END;
@@ -1814,7 +1803,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
WHEN NO_DATA_FOUND THEN
/* Verwijderdatum wordt NULL */
UPDATE alg_ruimte
SET alg_ruimte_verwijder = NULL
SET alg_ruimte_verwijder = NULL,
alg_ruimte_getekend = SYSDATE /* It's CAD */
WHERE alg_ruimte_key = LPNKeyINSO;
RetValue := TRUE;
END;
@@ -1832,7 +1822,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
WHEN NO_DATA_FOUND THEN
/* Verwijderdatum wordt NULL */
UPDATE prs_werkplek
SET prs_werkplek_verwijder = NULL
SET prs_werkplek_verwijder = NULL,
prs_werkplek_getekend = SYSDATE /* IT's CAD */
WHERE prs_werkplek_key = LPNKeyINSO;
RetValue := TRUE;
END;
@@ -1851,7 +1842,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
EXCEPTION
WHEN NO_DATA_FOUND THEN
UPDATE ins_deel
SET ins_deel_verwijder = NULL
SET ins_deel_verwijder = NULL,
ins_deel_getekend = SYSDATE /* It's CAD */
WHERE ins_deel_key = LPNKeyINSO;
RetValue := TRUE;
END;
@@ -2581,7 +2573,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
IF DODeelUpdate THEN
UPDATE ins_deel
SET ins_alg_ruimte_key = LPNCondKey,
ins_alg_ruimte_type = RuimteType
ins_alg_ruimte_type = RuimteType,
ins_deel_getekend = SYSDATE /* It's CAD */
WHERE ins_deel_key = LPNKey;
END IF;
ELSIF LPNNAME = 'LPN_ALG_GEBOUW' THEN
@@ -2669,7 +2662,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
LPNKey := cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYDELO');
IF LPNName = 'LPN_INS_DEEL' THEN
UPDATE ins_deel
SET ins_deel_verwijder = SYSDATE
SET ins_deel_verwijder = SYSDATE,
ins_deel_getekend = NULL /* It's CAD */
WHERE ins_deel_key = LPNKey;
DELETE FROM ins_deelkoppeling
WHERE ins_deelkoppeling_van_key = LPNKEY
@@ -2677,7 +2671,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
COMMIT;
ELSIF LPNName = 'LPN_ALG_GEBOUW' THEN
UPDATE alg_gebouw
SET alg_gebouw_verwijder = SYSDATE
SET alg_gebouw_verwijder = SYSDATE,
alg_gebouw_getekend = NULL /* It's CAD */
WHERE alg_gebouw_key = LPNKey;
COMMIT;
ELSIF LPNName = 'LPN_ALG_RUIMTE' THEN
@@ -2733,7 +2728,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
END;
END;
UPDATE alg_ruimte
SET alg_ruimte_verwijder = SYSDATE
SET alg_ruimte_verwijder = SYSDATE,
alg_ruimte_getekend = NULL /* It's CAD */
WHERE alg_ruimte_key = LPNKey;
COMMIT;
ELSIF LPNName = 'LPN_PRS_WERKPLEK' THEN
@@ -2760,7 +2756,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
END;
END;
UPDATE prs_werkplek
SET prs_werkplek_verwijder = SYSDATE
SET prs_werkplek_verwijder = SYSDATE,
prs_werkplek_getekend = NULL /* It's CAD */
WHERE prs_werkplek_key = LPNKey;
COMMIT;
ELSIF LPNName = 'LPN_ALG_TERREINSECTOR' THEN
@@ -2791,7 +2788,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
END;
END;
UPDATE alg_terreinsector
SET alg_terreinsector_verwijder = Datum
SET alg_terreinsector_verwijder = Datum,
alg_terreinsector_getekend = NULL /* It's CAD */
WHERE alg_terreinsector_key = LPNKey;
COMMIT;
#else
@@ -2817,7 +2815,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
END;
END;
UPDATE alg_terreinsector
SET alg_terreinsector_verwijder = SYSDATE
SET alg_terreinsector_verwijder = SYSDATE,
alg_terreinsector_getekend = NULL /* It's CAD */
WHERE alg_terreinsector_key = LPNKey;
COMMIT;
#endif //NONBIS
@@ -2927,7 +2926,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
IF DODeelUpdate THEN
UPDATE ins_deel
SET ins_alg_ruimte_key = LPNCondKey,
ins_alg_ruimte_type = RuimteType
ins_alg_ruimte_type = RuimteType,
ins_deel_getekend = SYSDATE /* It's CAD */
WHERE ins_deel_key = LPNKey;
END IF;
END IF;
@@ -3018,7 +3018,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
IF LPNCondKeyOK THEN
BEGIN
UPDATE prs_werkplek
SET prs_alg_ruimte_key = LPNCondKey
SET prs_alg_ruimte_key = LPNCondKey,
prs_werkplek_getekend = SYSDATE /* IT's CAD */
WHERE prs_werkplek_key = LPNKey;
EXCEPTION
WHEN DUP_VAL_ON_INDEX THEN
@@ -3028,7 +3029,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
WHERE prs_alg_ruimte_key = LPNCondKey;
UPDATE prs_werkplek
SET prs_werkplek_volgnr = WerkplekNr,
prs_alg_ruimte_key = LPNCondKey
prs_alg_ruimte_key = LPNCondKey,
prs_werkplek_getekend = SYSDATE /* It's CAD */
WHERE prs_werkplek_key = LPNKey;
END;
END IF;

3
FAC/FAC_INI.SRC
View File

@@ -3793,6 +3793,7 @@ DEF_FAC_MESSAGE ('ALG_C_ALG_DISTRICT_OMSCHR', 'De omschrijving van het district
DEF_FAC_MESSAGE ('ALG_C_ALG_DISTRICT_UPPER', 'De omschrijving van het district is niet ingevuld.');
DEF_FAC_MESSAGE ('ALG_C_ALG_GEBOUW_CODE', 'De code van het gebouw is niet ingevuld.');
DEF_FAC_MESSAGE ('ALG_C_ALG_GEBOUW_INHOUD', 'De inhoud van het gebouw moet groter zijn dan 0.');
DEF_FAC_MESSAGE ('ALG_C_ALG_GEBOUW_OMTREK', 'De omtrek van het gebouw moet groter zijn dan 0.');
DEF_FAC_MESSAGE ('ALG_C_ALG_GEBOUW_NAAM', 'De naam van het gebouw is niet ingevuld.');
DEF_FAC_MESSAGE ('ALG_C_ALG_GEBOUW_OMSCHRIJVING', 'De omschrijving van het gebouw is niet ingevuld.');
DEF_FAC_MESSAGE ('ALG_C_ALG_GEBOUW_UPPER', 'De omschrijving van het gebouw is niet ingevuld.');
@@ -3833,6 +3834,8 @@ DEF_FAC_MESSAGE ('ALG_C_ALG_TERREINSECTOR_NAAM', 'De naam van de terreinsector i
#endif
DEF_FAC_MESSAGE ('ALG_C_ALG_TERREINSECTOR_OMSCHR', 'De omschrijving van de terreinsector is niet ingevuld.');
DEF_FAC_MESSAGE ('ALG_C_ALG_TERREINSECTOR_UPPER', 'De omschrijving van de terreinsector is niet ingevuld.');
DEF_FAC_MESSAGE ('ALG_C_ALG_TERREINSECTOR_OMTREK', 'De omtrek van de terreinsector moet groter dan 0 zijn.');
DEF_FAC_MESSAGE ('ALG_C_ALG_TERREINSECTOR_OPP', 'De oppervlakte van de terreinsector moet groter dan 0 zijn.');
DEF_FAC_MESSAGE ('ALG_C_ALG_VERDIEPING_OMSCHR', 'De omschrijving van de verdieping is niet ingevuld.');
DEF_FAC_MESSAGE ('ALG_C_ALG_VERDIEPING_UPPER', 'De omschrijving van de verdieping is niet ingevuld.');
DEF_FAC_MESSAGE ('ALG_C_ALG_VERDIEPING_VOLGNR', 'Het volgnummer van de verdieping is niet ingevuld.');

8
INS/INS_VIE.SRC
View File

@@ -351,8 +351,9 @@ CREATE_VIEW(ins_v_alg_overzicht,INS_NORMAAL_PRIVILEGE)
, alg_terreinsector_code
, alg_terreinsector_omschrijving
, alg_terreinsector_upper
)
AS SELECT ALG_G.alg_gebouw_key,'G'
) AS
#ifdef DELENOPVERDIEPINGOFGEBOUWNIVEAU
SELECT ALG_G.alg_gebouw_key,'G'
, ALG_G.alg_gebouw_code
, ALG_G.alg_locatie_key
, ALG_G.alg_gebouw_key
@@ -384,6 +385,7 @@ AS SELECT ALG_G.alg_gebouw_key,'G'
, alg_gebouw ALG_G
WHERE ALG_V.alg_gebouw_key = ALG_G.alg_gebouw_key
UNION
#endif //DELENOPVERDIEPINGOFGEBOUWNIVEAU
SELECT ALG_R.alg_ruimte_key,'R'
, ALG_G.alg_gebouw_code ||' - '
|| to_char(ALG_V.alg_verdieping_volgnr) ||' - '
@@ -559,6 +561,7 @@ CREATE_VIEW(ins_v_deel_gegevens_keys,INS_NORMAAL_PRIVILEGE)
,alg_gebouw_key,alg_verdieping_key,alg_ruimte_key,prs_werkplek_key,alg_terreinsector_key,ins_deel_key
)
AS
#ifdef DELENOPVERDIEPINGOFGEBOUWNIVEAU
select de.ins_discipline_key,gr.ins_srtgroep_key,de.ins_srtdeel_key
,de.ins_alg_locatie_key,de.ins_alg_ruimte_key,to_number(null)
,to_number(null),to_number(null),to_number(null),de.ins_deel_key
@@ -577,6 +580,7 @@ and de.ins_alg_ruimte_type = 'V') and de.ins_deel_module = 'INS'
and de.ins_deel_verwijder IS NULL and de.ins_deel_parent_key IS NULL
and exists (select '' from ins_discipline where ins_discipline_key = de.ins_discipline_key)
union
#endif //DELENOPVERDIEPINGOFGEBOUWNIVEAU
select de.ins_discipline_key,gr.ins_srtgroep_key,de.ins_srtdeel_key
,de.ins_alg_locatie_key,ve.alg_gebouw_key,ru.alg_verdieping_key
,de.ins_alg_ruimte_key,to_number(null),to_number(null),de.ins_deel_key