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

Procedure <cad_SLNKpostModify> aangepast. Getekend veld wordt gezet

Browse Source 
van alg_gebouw en alg_ruimte bij update omtrek/oppervlakte.

svn path=/Database/trunk/; revision=7190
This commit is contained in:
Richard Derks
1999-10-14 11:54:28 +00:00
parent 0df0081afc
commit 1fb9ac74b9
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
CAD/CAD_PAC.SRC
View File

@@ -2,6 +2,8 @@
/* REVISIONS:
*
* 14-10-1999 RD Procedure <cad_SLNKpostModify> aangepast. Getekend veld wordt gezet
* van alg_gebouw en alg_ruimte bij update omtrek/oppervlakte.
* 07-10-1999 BIV Functie AddDeel gewijzigd. Bij insert in ins_deel ook Locatiekey en Disciplinekey meegeven.
* 27-09-1999 EGR cad_slnkPrePostDimensie0, 1 en 2: Bij selecteren van ins_srtdeel_key met behulp
* van layer en symbol ook controleren of objectsoort niet verwijderd is.
@@ -3173,14 +3175,16 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
Omtrek := cad_SLNKSTRUCTreadVALREAL(Session_id, 'LENGTH');
UPDATE alg_gebouw
SET alg_gebouw_bruto_vloeropp = Oppervlak,
alg_gebouw_omtrek = Omtrek
alg_gebouw_omtrek = Omtrek,
alg_gebouw_getekend = SYSDATE
WHERE alg_gebouw_key = LPNKey;
ELSIF LPNName = 'LPN_ALG_RUIMTE' THEN
Oppervlak := cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA');
Omtrek := cad_SLNKSTRUCTreadVALREAL(Session_id, 'LENGTH');
UPDATE alg_ruimte
SET alg_ruimte_bruto_vloeropp = Oppervlak,
alg_ruimte_omtrek = Omtrek
alg_ruimte_omtrek = Omtrek,
alg_ruimte_getekend = SYSDATE
WHERE alg_ruimte_key = LPNKey;
ELSIF LPNName = 'LPN_PRS_WERKPLEK' THEN
/* Bepaal de nieuwe ruimte v/d werkplek */