Index: vhPowerTools/DOM/AKP/ToeleveringTools.cls.xml
===================================================================
diff -u -r33745 -r67418
--- vhPowerTools/DOM/AKP/ToeleveringTools.cls.xml	(.../ToeleveringTools.cls.xml)	(revision 33745)
+++ vhPowerTools/DOM/AKP/ToeleveringTools.cls.xml	(.../ToeleveringTools.cls.xml)	(revision 67418)
@@ -150,51 +150,23 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ToeleveringID:%String</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Kill ^KTOB(ToeleveringID)
+<Implementation><![CDATA[	Do ##class(DOM.AKP.ToeleveringPrintbak).VerwijderToelevering(ToeleveringID)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwijderIndexen">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ToeleveringID:%String</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[
-	Kill ^KTO1(ToeleveringID)
-	Kill ^KTO3(ToeleveringID)
-	
-	#dim LeverancierID As %String = ""
-	For  Set LeverancierID=$O(^KTO2(LeverancierID))  Quit:(LeverancierID="")  Do
-	. If $D(^KTO2(LeverancierID,ToeleveringID))  Do
-	. . Kill ^KTO2(LeverancierID,ToeleveringID)
-	
-	Set LeverancierID = ""
-	#dim ProductIDEnToeleveringID As %String = ""
-	For  Set LeverancierID=$O(^KTO4(LeverancierID))  Quit:(LeverancierID="")  Do
-	. For  Set ProductIDEnToeleveringID=$O(^KTO4(LeverancierID,ProductIDEnToeleveringID))  Quit:(ProductIDEnToeleveringID="")  Do
-	. . If $Piece(ProductIDEnToeleveringID,"\",2) = ToeleveringID Do
-	. . . Kill ^KTO4(LeverancierID,ProductIDEnToeleveringID)
+<Implementation><![CDATA[	Do ##class(BL.Legacy.Toelevering).VerwijderIndexenVanHoofding(ToeleveringID)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwijderTO">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ToeleveringID:%String</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[
-	#dim ProductID As %String = ""
-	Set ProductID = $O(^TO("IP",""))
-	While ProductID '= "" {
-		#dim Toe As %String = $O(^TO("IP",ProductID,""))
-		while Toe '= "" {
-			If Toe = ToeleveringID {
-				Kill ^TO("IP",ProductID,Toe)
-			}
-			set Toe = $O(^TO("IP",ProductID,Toe))
-		}
-		Set ProductID = $O(^TO("IP",ProductID))
-	}
-	
-	Kill ^TO("IU",ToeleveringID)
+<Implementation><![CDATA[	Do ##class(BL.Legacy.Toelevering).VerwijderIndexenVanLijnen(ToeleveringID)
 ]]></Implementation>
 </Method>