Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder/Test.cls.xml
===================================================================
diff -u -r47358 -r47359
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 47358)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 47359)
@@ -3,6 +3,19 @@
 <Class name="vhUnitTest.AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Property name="OrderMock">
+<Type>DOM.VKP.impl.DataM.DataMOrder</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..MaakOrderMock()
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
 <Method name="Test : een order zonder orderlijnen wordt gesorteerd en bewaart een order zonder orderlijnen">
 <Implementation><![CDATA[
 	Set OnGesorteerdeOrderLijnenLijst = ##class(%ListOfObjects).%New()
@@ -16,47 +29,51 @@
 <FormalSpec>OnGesorteerdeOrderLijnenLijst:%ListOfObjects,VerwachteGesorteerdeOrderLijnenLijst:%ListOfObjects</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Order As DOM.VKP.impl.DataM.DataMOrder = ..GeefOrder(OnGesorteerdeOrderLijnenLijst)
+	Do ..ZetOrderLijnenOpOrder(OnGesorteerdeOrderLijnenLijst)
 
 	Set OrderLijnenUpdaterMock = ##class(vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.OrderLijnenUpdater).%New()
-	Do OrderLijnenUpdaterMock.VerwachtMethodCall("UpdateOrderMetGesorteerdeLijst", Order, ..Matches.List(VerwachteGesorteerdeOrderLijnenLijst)).ExactAantalKeer(1).DanDoeNiks()
+	Do OrderLijnenUpdaterMock.VerwachtMethodCall("UpdateOrderMetGesorteerdeLijst", ..OrderMock, ..Matches.List(VerwachteGesorteerdeOrderLijnenLijst)).ExactAantalKeer(1).DanDoeNiks()
 	
 	Set OrderlijnenSorteerder = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder).%New(OrderLijnenUpdaterMock)
-	Do OrderlijnenSorteerder.SorteerGepersisteerdeOrderLijnen(Order)
+	Do OrderlijnenSorteerder.SorteerGepersisteerdeOrderLijnen(..OrderMock)
 	
 	Do OrderLijnenUpdaterMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOrder">
+<Method name="MaakOrderMock">
 <FormalSpec>OrderLijnen:%ListOfObjects</FormalSpec>
 <Private>1</Private>
-<ReturnType>vhTest.Mock.DOM.VKP.Order</ReturnType>
 <Implementation><![CDATA[
-	Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
-	Do OrderMock.IndienMethodCall("ZetAfleveradres", $$$ElkeWaarde).DanDoeNiks()
-	Do OrderMock.IndienMethodCall("ZetDocumentReferenties", $$$ElkeWaarde).DanDoeNiks()
-	Do OrderMock.IndienMethodCall("GeefDocumentReferenties").DanReturn("")
-	Do OrderMock.IndienMethodCall("ZetCreatieDatum", $$$ElkeWaarde).DanDoeNiks()
-	Do OrderMock.IndienMethodCall("ZetMunt", $$$ElkeWaarde).DanDoeNiks()
-	Do OrderMock.IndienMethodCall("ZetEDINummer", $$$ElkeWaarde).DanDoeNiks()
-	Do OrderMock.IndienMethodCall("ZetLeveringVoorwaarde", $$$ElkeWaarde).DanDoeNiks()
-	Do OrderMock.IndienMethodCall("ZetVerzendingWijze", $$$ElkeWaarde).DanDoeNiks()
-	Do OrderMock.IndienMethodCall("ZetIngegevenDoor", $$$ElkeWaarde).DanDoeNiks()
-	Do OrderMock.IndienMethodCall("ZetIngegevenOpTijdstip", $$$ElkeWaarde).DanDoeNiks()
-	Do OrderMock.IndienMethodCall("ZetOorsprong", $$$ElkeWaarde).DanDoeNiks()
-	Do OrderMock.IndienMethodCall("ZetStatus", $$$ElkeWaarde).DanDoeNiks()
-	Do OrderMock.IndienMethodCall("ZetAxSalesId", $$$ElkeWaarde).DanDoeNiks()
-	Do OrderMock.IndienMethodCall("GeefKlantID").DanReturn("DummyKlantID")
-	Do OrderMock.IndienMethodCall("GeefID").DanReturn("DummyOrderID")
-	Do OrderMock.IndienMethodCall("ZetTextVoorAfdrukDocumentType", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
-	Do OrderMock.IndienMethodCall("GeefTextlijnenVoorAfdrukDocumentType", $$$ElkeWaarde).DanReturn(..GeefTextLijnen())
-	Do OrderMock.IndienMethodCall("GeefOrderLijnIterator").DanReturn(..GeefOrderlijnenIterator(OrderLijnen))
-	Do OrderMock.IndienMethodCall("GeefOrderLijnen").DanReturn(OrderLijnen)
-	Quit OrderMock
+	Set ..OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do ..OrderMock.IndienMethodCall("ZetAfleveradres", $$$ElkeWaarde).DanDoeNiks()
+	Do ..OrderMock.IndienMethodCall("ZetDocumentReferenties", $$$ElkeWaarde).DanDoeNiks()
+	Do ..OrderMock.IndienMethodCall("GeefDocumentReferenties").DanReturn("")
+	Do ..OrderMock.IndienMethodCall("ZetCreatieDatum", $$$ElkeWaarde).DanDoeNiks()
+	Do ..OrderMock.IndienMethodCall("ZetMunt", $$$ElkeWaarde).DanDoeNiks()
+	Do ..OrderMock.IndienMethodCall("ZetEDINummer", $$$ElkeWaarde).DanDoeNiks()
+	Do ..OrderMock.IndienMethodCall("ZetLeveringVoorwaarde", $$$ElkeWaarde).DanDoeNiks()
+	Do ..OrderMock.IndienMethodCall("ZetVerzendingWijze", $$$ElkeWaarde).DanDoeNiks()
+	Do ..OrderMock.IndienMethodCall("ZetIngegevenDoor", $$$ElkeWaarde).DanDoeNiks()
+	Do ..OrderMock.IndienMethodCall("ZetIngegevenOpTijdstip", $$$ElkeWaarde).DanDoeNiks()
+	Do ..OrderMock.IndienMethodCall("ZetOorsprong", $$$ElkeWaarde).DanDoeNiks()
+	Do ..OrderMock.IndienMethodCall("ZetStatus", $$$ElkeWaarde).DanDoeNiks()
+	Do ..OrderMock.IndienMethodCall("ZetAxSalesId", $$$ElkeWaarde).DanDoeNiks()
+	Do ..OrderMock.IndienMethodCall("GeefKlantID").DanReturn("DummyKlantID")
+	Do ..OrderMock.IndienMethodCall("GeefID").DanReturn("DummyOrderID")
+	Do ..OrderMock.IndienMethodCall("ZetTextVoorAfdrukDocumentType", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	Do ..OrderMock.IndienMethodCall("GeefTextlijnenVoorAfdrukDocumentType", $$$ElkeWaarde).DanReturn(..GeefTextLijnen())
 ]]></Implementation>
 </Method>
 
+<Method name="ZetOrderLijnenOpOrder">
+<FormalSpec>OrderLijnen:%ListOfObjects</FormalSpec>
+<Implementation><![CDATA[
+	Do ..OrderMock.IndienMethodCall("GeefOrderLijnIterator").DanReturn(..GeefOrderlijnenIterator(OrderLijnen))
+	Do ..OrderMock.IndienMethodCall("GeefOrderLijnen").DanReturn(OrderLijnen)
+]]></Implementation>
+</Method>
+
 <Method name="GeefTextLijnen">
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
@@ -75,15 +92,6 @@
 	Quit OrderlijnenIterator
 ]]></Implementation>
 </Method>
-
-<Method name="GeefOrderlijnen">
-<Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-	Set Orderlijnen = ##class(%ListOfObjects).%New()
-	Quit Orderlijnen
-]]></Implementation>
-</Method>
 </Class>