Index: DOM/AKP/impl/DataM/DataMToelevering.cls.xml
===================================================================
diff -u -r34677 -r34692
--- DOM/AKP/impl/DataM/DataMToelevering.cls.xml	(.../DataMToelevering.cls.xml)	(revision 34677)
+++ DOM/AKP/impl/DataM/DataMToelevering.cls.xml	(.../DataMToelevering.cls.xml)	(revision 34692)
@@ -150,6 +150,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatToeleveringLijn">
+<FormalSpec>LijnID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim VolgNr As %Integer = ..GeefVolgNr(LijnID)
+	Quit:(VolgNr = "") $$$False
+	Quit $IsObject(..GeefToeleveringLijnViaVolgNr(VolgNr))
+]]></Implementation>
+</Method>
+
 <Method name="GeefVolgNr">
 <FormalSpec>LijnID:%String</FormalSpec>
 <Private>1</Private>
Index: DOM/AKP/Toelevering.cls.xml
===================================================================
diff -u -r29059 -r34692
--- DOM/AKP/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 29059)
+++ DOM/AKP/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 34692)
@@ -81,6 +81,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="BestaatToeleveringLijn">
+<Abstract>1</Abstract>
+<FormalSpec>LijnID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
 <Method name="GeefMunt">
 <Abstract>1</Abstract>
 <ReturnType>DOM.enu.Munt</ReturnType>
Index: vhConsistency/Checks/Events/ControleToeleveringen.cls.xml
===================================================================
diff -u -r29059 -r34692
--- vhConsistency/Checks/Events/ControleToeleveringen.cls.xml	(.../ControleToeleveringen.cls.xml)	(revision 29059)
+++ vhConsistency/Checks/Events/ControleToeleveringen.cls.xml	(.../ControleToeleveringen.cls.xml)	(revision 34692)
@@ -120,8 +120,7 @@
 	#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
 	If (ToeleveringAPI.BestaatToelevering(ToeleveringID)){
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringID)
-		#dim ToeleveringLijn As DOM.AKP.ToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnCode)
-		Set TeVerwijderen = '$IsObject(ToeleveringLijn)
+		Set TeVerwijderen = $$$Not(Toelevering.BestaatToeleveringLijn(ToeleveringLijnCode))
 	}Else{
 		Set TeVerwijderen = 1
 	}
Index: vhTest/Mock/DOM/AKP/Toelevering.cls.xml
===================================================================
diff -u -r29059 -r34692
--- vhTest/Mock/DOM/AKP/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/AKP/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 34692)
@@ -9,6 +9,13 @@
 <Super>DOM.AKP.Toelevering,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="BestaatToeleveringLijn">
+<FormalSpec>LijnID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestaatToeleveringLijn",LijnID)
+]]></Implementation>
+</Method>
+
 <Method name="GeefAanmaakDatum">
 <ReturnType>%Date</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefAanmaakDatum")