Index: vhTest/Mock/AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml
===================================================================
diff -u -r57026 -r57028
--- vhTest/Mock/AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 57026)
+++ vhTest/Mock/AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 57028)
@@ -15,6 +15,12 @@
 ]]></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: AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml
===================================================================
diff -u -r57026 -r57028
--- AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 57026)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 57028)
@@ -39,10 +39,7 @@
 <Implementation><![CDATA[
 	#dim ControleerToeleveringenInBatch As %Boolean = $$$True   ; Kan later ook als method parameter gevraagd worden. 
 	If ControleerToeleveringenInBatch {
-		#dim ToeleveringenReedsInBatch As %ListOfDataTypes = ..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.")
-		}
+		Do ..ControleerToeleveringen(Order)
 	}
 
 	Do ##class(vhLib.OldSchool).InitVars()			
@@ -55,6 +52,16 @@
 ]]></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>
Index: vhTest/Fake/AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml
===================================================================
diff -u -r57026 -r57028
--- vhTest/Fake/AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 57026)
+++ vhTest/Fake/AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 57028)
@@ -12,6 +12,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="ControleerToeleveringen">
+<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="GeefToeleveringenReedsInBatch">
 <FormalSpec>Order:DOM.VKP.Order</FormalSpec>
 <ReturnType>%ArrayOfDataTypes</ReturnType>