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>