Trigger prs_t_prs_werkplek aangepast. Bij de gekoppelde delen wordt de verwijderdatum niet op SYSDATE geset, maar op :new.prs_werkplek_verwijder.

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

PRS/PRS_TRI.SRC

@@ -6,6 +6,11 @@
 /*
  * Revisie:
  *
+ *
+ *  --- 01.44 ---
+ * 20-04-1999 BIV Trigger prs_t_prs_werkplek aangepast. Verwijderdatum van de delen worden nu niet meer gelijk aan SYSDATE,
+ *                maar aan :new.prs_werkplek_verwijder i.v.m. mogelijke Undo vanuit AutoCAD.       
+ *  --- 01.43 ---
  *  --- 01.42 ---
  *  --- 01.41 ---
  *  --- 01.40 ---
@@ -576,10 +581,10 @@ BEGIN
 #endif
     END IF;
 #ifdef INS
-    IF :new.prs_werkplek_verwijder IS NOT NULL
+    IF :new.prs_werkplek_verwijder <> :old.prs_werkplek_verwijder
     THEN
       UPDATE ins_deel
-         SET ins_deel_verwijder = SYSDATE
+         SET ins_deel_verwijder = :new.prs_werkplek_verwijder
        WHERE ins_alg_ruimte_key = :old.prs_werkplek_key
          AND ins_alg_ruimte_type = 'W';
     END IF;