From de447c0aa5d1b916fc1895a77a287ab37aba1d92 Mon Sep 17 00:00:00 2001 From: Peter Feij Date: Wed, 28 Apr 1999 16:32:22 +0000 Subject: [PATCH] #2376 svn path=/Database/trunk/; revision=6736 --- ALG/ALG_TAB.SRC | 13 +++- ALG/ALG_VIE.SRC | 163 ++++-------------------------------------------- CAD/CAD_PAC.SRC | 64 ++++++++++--------- FAC/FAC_INI.SRC | 3 + INS/INS_VIE.SRC | 8 ++- 5 files changed, 65 insertions(+), 186 deletions(-) diff --git a/ALG/ALG_TAB.SRC b/ALG/ALG_TAB.SRC index 15218b65..fc398896 100644 --- a/ALG/ALG_TAB.SRC +++ b/ALG/ALG_TAB.SRC @@ -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) diff --git a/ALG/ALG_VIE.SRC b/ALG/ALG_VIE.SRC index 8d0de732..a1df73ec 100644 --- a/ALG/ALG_VIE.SRC +++ b/ALG/ALG_VIE.SRC @@ -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); diff --git a/CAD/CAD_PAC.SRC b/CAD/CAD_PAC.SRC index 0fafe1ae..c96041f4 100644 --- a/CAD/CAD_PAC.SRC +++ b/CAD/CAD_PAC.SRC @@ -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; diff --git a/FAC/FAC_INI.SRC b/FAC/FAC_INI.SRC index 6b793c0a..afa491b1 100644 --- a/FAC/FAC_INI.SRC +++ b/FAC/FAC_INI.SRC @@ -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.'); diff --git a/INS/INS_VIE.SRC b/INS/INS_VIE.SRC index 9207c623..1f388b6f 100644 --- a/INS/INS_VIE.SRC +++ b/INS/INS_VIE.SRC @@ -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