diff --git a/ALG/ALG_TRI.SRC b/ALG/ALG_TRI.SRC
index 91b431dd..be3da85b 100644
--- a/ALG/ALG_TRI.SRC
+++ b/ALG/ALG_TRI.SRC
@@ -76,7 +76,10 @@ BEGIN
         WHEN TOO_MANY_ROWS THEN raise_application_error(-20000,'cnt_m028');
       END;
     END IF;
-
+    IF :new.alg_locatie_verwijder IS NOT NULL AND :old.alg_locatie_verwijder IS NULL THEN
+    THEN
+        DELETE FROM cad_tekening WHERE alg_locatie_key=:old.alg_locatie_key;
+    END IF;
 #ifdef MS_SQL
 lerror:
 #endif
@@ -205,6 +208,10 @@ BEGIN
       END;
     END IF;
 //</CNT>
+    IF :new.alg_verdieping_verwijder IS NOT NULL AND :old.alg_verdieping_verwijder IS NULL THEN
+    THEN
+        DELETE FROM cad_tekening WHERE alg_verdieping_key=:old.alg_verdieping_key;
+    END IF;
 #ifdef MS_SQL
 lerror:
 #endif
diff --git a/CAD/CAD_PAC.SRC b/CAD/CAD_PAC.SRC
index 3ba36c93..ca66b130 100644
--- a/CAD/CAD_PAC.SRC
+++ b/CAD/CAD_PAC.SRC
@@ -1,5 +1,5 @@
 #ifdef CAD // 22-05-1998 KTH
-
+#ifdef RETAIN_OBSOLETE_PARTS
 /*  REVISIONS:
  *
  * 17-03-2003 RL "DISTINCT" syntax changed in cad_KILLtrajecten, EindTrajectGroter cursor
@@ -3745,6 +3745,6 @@ cad_tekening_key,
   END cad_GetKenmerkWaarde;
 END cad;
 /
-
+#endif // RETAIN_OBSOLETE_PARTS
 #endif // CAD
 
diff --git a/CAD/CAD_SEQ.SRC b/CAD/CAD_SEQ.SRC
index a9be4cde..db011f52 100644
--- a/CAD/CAD_SEQ.SRC
+++ b/CAD/CAD_SEQ.SRC
@@ -1,20 +1,21 @@
 #ifdef CAD // 22-05-1998 KTH
 
-/*  REVISIONS:
- *
- *  --- 01.43 ---
- * 26-02-1999 BIV LOG # 2278 - Sequence toegevoegd t.b.v. cad_symbool. 
- *  --- 01.42 ---
- *  --- 01.41 ---
- *  --- 01.40 ---
- *  --- 01.39 ---
- *  --- 01.38 ---
- *  --- 01.37 ---
- * 22-05-1998 KTH LOG#1821: Wijzigingen tbv tabel CAD_TEKENING geintroduceerd
+/*  $History: CAD_SEQ.SRC $
+ * 
+ * *****************  Version 3  *****************
+ * User: Pf           Date: 21-09-05   Time: 12:52
+ * Updated in $/Facilitor/SRC/SQL/CAD
+ * FSN#1251
+ * 
  */
 
 CREATE SEQUENCE cad_s_cad_tekening_key MINVALUE 1;
 CREATE SEQUENCE cad_s_cad_symbool_key MINVALUE 1;
 
+CREATE SEQUENCE cad_s_cad_legenda_key MINVALUE 1;
+CREATE SEQUENCE cad_s_cad_legendawaarde_key MINVALUE 1;
+CREATE SEQUENCE cad_s_cad_thema_key MINVALUE 1;
+CREATE SEQUENCE cad_s_cad_label_key MINVALUE 1;
+CREATE SEQUENCE cad_s_cad_imp_contour_key MINVALUE 1;
 
 #endif // CAD