Index: vhUnitTest/APPS/common/Toelevering.cls.xml
===================================================================
diff -u -r2783 -r2786
--- vhUnitTest/APPS/common/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 2783)
+++ vhUnitTest/APPS/common/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 2786)
@@ -66,7 +66,14 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ToeleveringID</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[	Do DELOBJ^FLOWTOE(ToeleveringID)
+<Implementation><![CDATA[
+	If $Data(^KTO1(ToeleveringID)){
+		Set LeverancierID = $Piece(^KTO1(ToeleveringID),"\",1)
+		If ($Data(^KTO(LeverancierID,ToeleveringID))){
+			Do DELOBJ^FLOWTOE(ToeleveringID)
+		}
+	}
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 </Class>