Index: BL/Legacy/Toelevering/KTO4.cls.xml
===================================================================
diff -u -r29059 -r33087
--- BL/Legacy/Toelevering/KTO4.cls.xml	(.../KTO4.cls.xml)	(revision 29059)
+++ BL/Legacy/Toelevering/KTO4.cls.xml	(.../KTO4.cls.xml)	(revision 33087)
@@ -6,9 +6,7 @@
 <Method name="HerbouwIndexKTO4">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>LeverancierNr:%String,ToeleveringID:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ..VerwijderIndexKTO4(LeverancierNr,ToeleveringID)
-	Do ..BouwIndexKTO4(LeverancierNr,ToeleveringID)
+<Implementation><![CDATA[	Do ##class(BL.Legacy.Toelevering).HerbouwIndexKTO4(LeverancierNr,ToeleveringID)
 ]]></Implementation>
 </Method>
 
@@ -17,14 +15,7 @@
 Deze loopt alle indexen af (i.e. de subnodes van de ^KTO4(LevNr, ...) ) </Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>LeverancierNr:%String,ToeleveringID:%String</FormalSpec>
-<Implementation><![CDATA[
-	#dim IndexKTO4 As %String = ""
-	For { Set IndexKTO4=$O(^KTO4(LeverancierNr,IndexKTO4))  Quit:(IndexKTO4="")
-		
-		If $P(IndexKTO4,"\",2)=ToeleveringID {
-			Kill ^KTO4(LeverancierNr,IndexKTO4)
-		}
-	}
+<Implementation><![CDATA[	Do ##class(BL.Legacy.Toelevering).VerwijderIndexKTO4(LeverancierNr,ToeleveringID)
 ]]></Implementation>
 </Method>
 
@@ -33,9 +24,7 @@
 Deze houdt enkel rekening met de index van het huidige BestelBevestigingNr. </Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>LeverancierNr:%String,ToeleveringID:%String,BestelBevestigingNr:%String</FormalSpec>
-<Implementation><![CDATA[
-	#dim IndexKTO4 As %String = ..GeefIndexKTO4(LeverancierNr,ToeleveringID,BestelBevestigingNr)
-	Kill ^KTO4(LeverancierNr,IndexKTO4)
+<Implementation><![CDATA[	Do ##class(BL.Legacy.Toelevering).VerwijderIndexKTO4viaBestelBevestigingNr(LeverancierNr,ToeleveringID,BestelBevestigingNr)
 ]]></Implementation>
 </Method>
 
@@ -44,26 +33,9 @@
 BestelBevestigingNr is optioneel</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>LeverancierNr:%String,ToeleveringID:%String,BestelBevestigingNr:%String</FormalSpec>
-<Implementation><![CDATA[
-	#dim IndexKTO4 As %String = ..GeefIndexKTO4(LeverancierNr,ToeleveringID,.BestelBevestigingNr)
-	Set ^KTO4(LeverancierNr,IndexKTO4)=""
-	Quit
+<Implementation><![CDATA[	Do ##class(BL.Legacy.Toelevering).BouwIndexKTO4(LeverancierNr,ToeleveringID,.BestelBevestigingNr)
 ]]></Implementation>
 </Method>
-
-<Method name="GeefIndexKTO4">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>LeverancierNr:%String,ToeleveringID:%String,BestelBevestigingNr:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#define Piece10(%v)   $P(%v,"\",10)
-
-	If ('$D(BestelBevestigingNr)) {
-		Set BestelBevestigingNr=$$$Piece10(^KTO(LeverancierNr,ToeleveringID,1))
-	}
-	Quit $$UPTRIMAN^vhRtn1(BestelBevestigingNr)_"\"_ToeleveringID
-]]></Implementation>
-</Method>
 </Class>