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

...SLNKPostDraw aangepast i.v.m. _getekend veld voor : alg_terreinsector, alg_gebouw etc.

Browse Source 
svn path=/Database/trunk/; revision=6752
This commit is contained in:
Bert in het Veld
1999-05-04 15:07:04 +00:00
parent 1032447f83
commit a4a06e279d
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
CAD/CAD_PAC.SRC
View File

@@ -1970,7 +1970,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
END IF;
INSERT INTO prs_werkplek(prs_werkplek_module, prs_werkplek_volgnr, prs_werkplek_omschrijving,
prs_alg_ruimte_key) VALUES ('PRR', WerkplekNr, Omschrijving, LPNCondKey);
prs_alg_ruimte_key, prs_werkplek_getekend)
VALUES ('PRR', WerkplekNr, Omschrijving, LPNCondKey, SYSDATE);
RecordAdded := TRUE;
/* Bepaal sleutel van zojuist toegevoegde werkplek i.v.m. aanroep Predraw */
LPNName := 'LPN_PRS_WERKPLEK';
@@ -2582,21 +2583,24 @@ 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_ALG_TERREINSECTOR' THEN
Oppervlak := cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA');
Omtrek := cad_SLNKSTRUCTreadVALREAL(Session_id, 'LENGTH');
UPDATE alg_terreinsector
SET alg_terreinsector_oppervlak = Oppervlak,
alg_terreinsector_omtrek = Omtrek
alg_terreinsector_omtrek = Omtrek,
alg_terreinsector_getekend = SYSDATE
WHERE alg_terreinsector_key = LPNKey;
#ifdef BIS
ELSIF LPNName = 'LPN_BIS_BORING' THEN