Posterase aangepast. Door misverstand met MB DELETE gebruikt i.p.v. het setten van de verwijderdatum.

svn path=/Database/trunk/; revision=6565

CAD/CAD_PAC.SRC

@@ -1334,11 +1334,13 @@ CREATE OR REPLACE PACKAGE BODY cad AS
     LPNName := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASDELO');
     LPNKey := cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYDELO');
     IF LPNName = 'LPN_INS_DEEL' THEN
-      DELETE FROM ins_deel
+      UPDATE ins_deel
+         SET ins_deel_verwijder = SYSDATE
        WHERE ins_deel_key = LPNKey; 
       COMMIT;
     ELSIF LPNName = 'LPN_ALG_GEBOUW' THEN
-      DELETE FROM alg_gebouw
+      UPDATE alg_gebouw
+         SET alg_gebouw_verwijder = SYSDATE
        WHERE alg_gebouw_key = LPNKey; 
       COMMIT;   
     ELSIF LPNName = 'LPN_ALG_RUIMTE' THEN
@@ -1391,7 +1393,8 @@ CREATE OR REPLACE PACKAGE BODY cad AS
           END LOOP;
         END;
       END;  
-      DELETE FROM alg_ruimte
+      UPDATE alg_ruimte
+         SET alg_ruimte_verwijder = SYSDATE
        WHERE alg_ruimte_key = LPNKey;
       COMMIT;
     ELSIF LPNName = 'LPN_ALG_TERREINSECTOR' THEN
@@ -1447,7 +1450,8 @@ CREATE OR REPLACE PACKAGE BODY cad AS
         END LOOP;
       END;
     END;
-    DELETE FROM alg_terreinsector
+    UPDATE alg_terreinsector
+       SET alg_terreinsector_verwijder = SYSDATE
      WHERE alg_terreinsector_key = LPNKey;
     COMMIT;
   #endif //NONBIS