Index: BL/Legacy/Toelevering.cls.xml
===================================================================
diff -u -r33088 -r67417
--- BL/Legacy/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 33088)
+++ BL/Legacy/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 67417)
@@ -86,6 +86,49 @@
 	Quit $$$Piece10(^KTO(LeverancierNr,ToeleveringID,1))
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderAlleIndexen">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ToeleveringID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..VerwijderIndexenVanHoofding(ToeleveringID)
+	Do ..VerwijderIndexenVanLijnen(ToeleveringID)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderIndexenVanHoofding">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ToeleveringID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Kill ^KTO1(ToeleveringID)
+	Kill ^KTO3(ToeleveringID)
+	
+	#dim LeverancierID As %String = ""
+	For  Set LeverancierID=$O(^KTO2(LeverancierID))  Quit:(LeverancierID="")  Do
+	. Kill ^KTO2(LeverancierID,ToeleveringID)
+	
+	Set LeverancierID = ""
+	#dim ProductIDEnToeleveringID As %String = ""
+	For  Set LeverancierID=$O(^KTO4(LeverancierID))  Quit:(LeverancierID="")  Do
+	. Do ..VerwijderIndexKTO4(LeverancierID,ToeleveringID)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderIndexenVanLijnen">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ToeleveringID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim ProductID As %String = ""
+	Set ProductID = $O(^TO("IP",""))
+	While ProductID '= "" {
+		#dim Toe As %String = $O(^TO("IP",ProductID,""))
+		Kill ^TO("IP",ProductID,ToeleveringID)
+		Set ProductID = $O(^TO("IP",ProductID))
+	}
+	
+	Kill ^TO("IU",ToeleveringID)
+]]></Implementation>
+</Method>
 </Class>