Index: vhTest/Mock/AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml
===================================================================
diff -u -r57028 -r57033
--- vhTest/Mock/AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 57028)
+++ vhTest/Mock/AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 57033)
@@ -15,12 +15,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ControleerToeleveringen">
-<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("ControleerToeleveringen",Order)
-]]></Implementation>
-</Method>
-
 <Method name="GeefToeleveringenReedsInBatch">
 <FormalSpec>Order:DOM.VKP.Order</FormalSpec>
 <ReturnType>%ArrayOfDataTypes</ReturnType>
Index: vhTest/Fake/AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml
===================================================================
diff -u -r57028 -r57033
--- vhTest/Fake/AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 57028)
+++ vhTest/Fake/AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 57033)
@@ -7,23 +7,18 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService</Super>
 
-<Method name="VerwijderToeleveringenViaOrder">
+<Method name="GeefToeleveringenReedsInBatch">
 <FormalSpec>Order:DOM.VKP.Order</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
 </Method>
 
-<Method name="ControleerToeleveringen">
+<Method name="VerwijderToeleveringenViaOrder">
 <FormalSpec>Order:DOM.VKP.Order</FormalSpec>
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
-
-<Method name="GeefToeleveringenReedsInBatch">
-<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
-<ReturnType>%ArrayOfDataTypes</ReturnType>
-<Implementation><![CDATA[	Quit ""
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml
===================================================================
diff -u -r57028 -r57033
--- AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 57028)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 57033)
@@ -52,16 +52,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ControleerToeleveringen">
-<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
-<Implementation><![CDATA[
-	#dim ToeleveringenReedsInBatch As %ArrayOfDataTypes = ..GeefToeleveringenReedsInBatch(Order)
-	If ToeleveringenReedsInBatch.Count() > 0 {
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Voor het order '" _Order.GeefID() _"' zijn toeleveringen reeds in Batch (ToeNr: "_##class(TECH.ListUtils).ListToPieces(ToeleveringenReedsInBatch,", ")_ "). Toelevering(en) en Order worden niet verwijderd.")
-	}
-]]></Implementation>
-</Method>
-
 <Method name="GeefToeleveringenReedsInBatch">
 <FormalSpec>Order:DOM.VKP.Order</FormalSpec>
 <ReturnType>%ArrayOfDataTypes</ReturnType>
@@ -86,6 +76,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ControleerToeleveringen">
+<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ToeleveringenReedsInBatch As %ArrayOfDataTypes = ..GeefToeleveringenReedsInBatch(Order)
+	If ToeleveringenReedsInBatch.Count() > 0 {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Voor het order '" _Order.GeefID() _"' zijn toeleveringen reeds in Batch (ToeNr: "_##class(TECH.ListUtils).ListToPieces(##class(TECH.ListUtils).KeyList(ToeleveringenReedsInBatch),", ")_ "). Toelevering(en) en Order worden niet verwijderd.")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ZetToeleveringIDArray">
 <FormalSpec><![CDATA[Order:DOM.VKP.Order,&ToeleveringIDArray:TECH.MultiDim]]></FormalSpec>
 <Private>1</Private>