Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder/Test.cls.xml
===================================================================
diff -u -r47359 -r47360
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 47359)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 47360)
@@ -25,14 +25,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test : een order met 2 orderlijnen wordt gesorteerd en bewaart een order met 2 orderlijnen">
+<Implementation><![CDATA[
+	Set GlobalNode = ##class(TECH.Persistentie.GlobalNode).%New()
+	
+	#dim ProductOrderLijn1 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("1", GlobalNode)
+	#dim ProductOrderLijn2 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("2", GlobalNode)
+	
+	Set OnGesorteerdeOrderLijnenLijst = ##class(%ListOfObjects).%New()
+	Do OnGesorteerdeOrderLijnenLijst.Insert(ProductOrderLijn1)
+	Do OnGesorteerdeOrderLijnenLijst.Insert(ProductOrderLijn2)
+
+	Set VerwachteGesorteerdeOrderLijnenLijst = ##class(%ListOfObjects).%New()
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(ProductOrderLijn1, 101))
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(ProductOrderLijn2, 102))
+	
+	Do ..AssertSorteringOrderLijst(OnGesorteerdeOrderLijnenLijst, VerwachteGesorteerdeOrderLijnenLijst)
+]]></Implementation>
+</Method>
+
 <Method name="AssertSorteringOrderLijst">
 <FormalSpec>OnGesorteerdeOrderLijnenLijst:%ListOfObjects,VerwachteGesorteerdeOrderLijnenLijst:%ListOfObjects</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do ..ZetOrderLijnenOpOrder(OnGesorteerdeOrderLijnenLijst)
 
 	Set OrderLijnenUpdaterMock = ##class(vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.OrderLijnenUpdater).%New()
-	Do OrderLijnenUpdaterMock.VerwachtMethodCall("UpdateOrderMetGesorteerdeLijst", ..OrderMock, ..Matches.List(VerwachteGesorteerdeOrderLijnenLijst)).ExactAantalKeer(1).DanDoeNiks()
+	Do OrderLijnenUpdaterMock.VerwachtMethodCall("UpdateOrderMetGesorteerdeLijst", ..OrderMock, ..Matches.ObjectListMatcher(VerwachteGesorteerdeOrderLijnenLijst)).ExactAantalKeer(1).DanDoeNiks()
 	
 	Set OrderlijnenSorteerder = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder).%New(OrderLijnenUpdaterMock)
 	Do OrderlijnenSorteerder.SorteerGepersisteerdeOrderLijnen(..OrderMock)
@@ -71,6 +90,7 @@
 <Implementation><![CDATA[
 	Do ..OrderMock.IndienMethodCall("GeefOrderLijnIterator").DanReturn(..GeefOrderlijnenIterator(OrderLijnen))
 	Do ..OrderMock.IndienMethodCall("GeefOrderLijnen").DanReturn(OrderLijnen)
+	Do ..OrderMock.IndienMethodCall("GeefTypeOrderLijnIterator","KF11").DanReturn(..GeefTextLijnenIterator(..GeefTextLijnen()))
 ]]></Implementation>
 </Method>
 
@@ -83,15 +103,45 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTextLijnenIterator">
+<FormalSpec>TextLijnen:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[
+	Set OrderlijnenIterator = ##class(TECH.ListIterator).%New(TextLijnen)
+	Quit OrderlijnenIterator
+]]></Implementation>
+</Method>
+
 <Method name="GeefOrderlijnenIterator">
 <FormalSpec>OrderLijnen:%ListOfObjects</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.ListIterator</ReturnType>
 <Implementation><![CDATA[
-	Set OrderlijnenIterator = ##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New(OrderLijnen))
+	Set OrderlijnenIterator = ##class(TECH.ListIterator).%New(OrderLijnen)
 	Quit OrderlijnenIterator
 ]]></Implementation>
 </Method>
+
+<Method name="MaakProductLijn">
+<FormalSpec>LijnNr:%Integer,GlobalNode:TECH.Persistentie.GlobalNode</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.impl.DataM.DataMProductOrderlijn</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.VKP.impl.DataM.DataMProductOrderlijn).%New(..OrderMock, LijnNr, GlobalNode, ##class(DOM.VKP.enu.OrderLijnType).Product())
+]]></Implementation>
+</Method>
+
+<Method name="MaakGesorteerdeOrderlijn">
+<FormalSpec>Orderlijn:DOM.VKP.impl.DataM.DataMOrderlijn,OrderLijnVolgNr</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.impl.DataM.DataMOrder.OrderlijnenSorteerder.Orderlijn</ReturnType>
+<Implementation><![CDATA[
+	Set Lijn = ##class(DOM.VKP.impl.DataM.DataMOrder.OrderlijnenSorteerder.Orderlijn).%New()
+	Set Lijn.Orderlijn = Orderlijn
+	Set Lijn.NieuwLijnVolgNr = OrderLijnVolgNr
+	Quit Lijn
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder.cls.xml
===================================================================
diff -u -r47353 -r47360
--- AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder.cls.xml	(.../OrderlijnenSorteerder.cls.xml)	(revision 47353)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder.cls.xml	(.../OrderlijnenSorteerder.cls.xml)	(revision 47360)
@@ -58,7 +58,7 @@
 <Implementation><![CDATA[
 	If $$$Not(Order.GeefOrderLijnen().Count() = ..OrderLijnenLijst.Count()) {
 		#dim Message As %String = "Tijdens het sorteren van de orderlijst is er een verschil opgetreden in het aantal orderlijnen." _$$$CRLF
-		Set Message = Message _"Aantal op het Order : '" _Order.OrderLijnen.Count() _"' en aantal na sortering '" _..OrderLijnenLijst.Count() _"'" _$$$CRLF
+		Set Message = Message _"Aantal op het Order : '" _Order.GeefOrderLijnen().Count() _"' en aantal na sortering '" _..OrderLijnenLijst.Count() _"'" _$$$CRLF
 		Set Message = Message _"Voor OrderID '" _Order.GeefID() _"'"
 		Do ##class(TECH.Exceptions.GeneralErrorException).Throw(Message)
 	}