From a4a06e279dfc609b21b483fe0a5fab5408781ebe Mon Sep 17 00:00:00 2001
From: Bert in het Veld <notexist@aareon.nl>
Date: Tue, 4 May 1999 15:07:04 +0000
Subject: [PATCH] ...SLNKPostDraw aangepast i.v.m. _getekend veld voor :
 alg_terreinsector, alg_gebouw etc.

svn path=/Database/trunk/; revision=6752
---
 CAD/CAD_PAC.SRC | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/CAD/CAD_PAC.SRC b/CAD/CAD_PAC.SRC
index c96041f4..0516fbc5 100644
--- a/CAD/CAD_PAC.SRC
+++ b/CAD/CAD_PAC.SRC
@@ -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