diff --git a/CAD/CAD_PAC.SRC b/CAD/CAD_PAC.SRC
index c3685757..fc840d1a 100644
--- a/CAD/CAD_PAC.SRC
+++ b/CAD/CAD_PAC.SRC
@@ -2,6 +2,8 @@
 
 /*  REVISIONS:  
  *
+ * 27-09-1999 EGR cad_slnkPrePostDimensie0, cad_slnkPrePostDimensie2: Bij selecteren van ins_srtdeel_key met behulp
+ *                van layer en symbol ook controleren of objectsoort niet verwijderd is.
  * 27-08-1999 EGR cad_SLNKSTRUCTshift aangepast zodat PROJECTKEY met seqnr=1 tijdens shift niet wordt verwijderd.
  * 25-08-1999 EGR Functies Bepaal_locatiecode,cad_getLayerColor,cad_getLayerLinetype,cad_getLayerName,cad_SLNKSTRUCTreadVALSTR2
  *                ,cad_SLNKSTRUCTreadVALINT2 en pragma voor Bepaal_locatiecode toegevoegd zodat deze functies ook in de PRJ_PAC
@@ -2175,7 +2177,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
           SELECT MIN(ins_srtdeel_key) INTO SrtDeelKey
             FROM ins_srtdeel
            WHERE ins_srtdeel_dimensie = Dimensie
-             AND UPPER(ins_srtdeel_acadsymbol) = UPPER(BlockNaam);
+             AND UPPER(ins_srtdeel_acadsymbol) = UPPER(BlockNaam)
+             AND ins_srtdeel_verwijder IS NULL;
           IF SrtDeelKey IS NOT NULL THEN
            /*  Het is een srtdeel  */
             IF LPNCondName = 'LPN_ALG_TERREINSECTOR' OR LPNCondName = 'LPN_ALG_RUIMTE' OR
@@ -2567,7 +2570,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
           SELECT MIN(ins_srtdeel_key) INTO SrtDeelKey
             FROM ins_srtdeel
            WHERE ins_srtdeel_dimensie = Dimensie
-             AND UPPER(ins_srtdeel_cadlayer) = UPPER(LayerNaam);
+             AND UPPER(ins_srtdeel_cadlayer) = UPPER(LayerNaam)
+             AND ins_srtdeel_verwijder IS NULL;
 -- SM44 Fix #79  AND UPPER(ins_srtdeel_acadsymbol) = UPPER(BlockNaam);   
           IF SrtDeelKey IS NOT NULL THEN
            /* Het is een srtdeel... */