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

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;