Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder/Test.cls.xml
===================================================================
diff -u -r47360 -r47363
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 47360)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 47363)
@@ -11,17 +11,26 @@
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
+	Do ##super(aTestName)
 	Do ..MaakOrderMock()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..OrderMock = ""
 	Do ##super(aTestName)
 ]]></Implementation>
 </Method>
 
 <Method name="Test : een order zonder orderlijnen wordt gesorteerd en bewaart een order zonder orderlijnen">
 <Implementation><![CDATA[
+	Set OnGesorteerdeTextLijnen = ##class(%ListOfObjects).%New()
 	Set OnGesorteerdeOrderLijnenLijst = ##class(%ListOfObjects).%New()
 	Set VerwachteGesorteerdeOrderLijnenLijst = ##class(%ListOfObjects).%New()
 
-	Do ..AssertSorteringOrderLijst(OnGesorteerdeOrderLijnenLijst, VerwachteGesorteerdeOrderLijnenLijst)
+	Do ..AssertSorteringOrderLijst(OnGesorteerdeOrderLijnenLijst, VerwachteGesorteerdeOrderLijnenLijst, OnGesorteerdeTextLijnen)
 ]]></Implementation>
 </Method>
 
@@ -32,6 +41,8 @@
 	#dim ProductOrderLijn1 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("1", GlobalNode)
 	#dim ProductOrderLijn2 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("2", GlobalNode)
 	
+	Set OnGesorteerdeTextLijnen = ##class(%ListOfObjects).%New()
+	
 	Set OnGesorteerdeOrderLijnenLijst = ##class(%ListOfObjects).%New()
 	Do OnGesorteerdeOrderLijnenLijst.Insert(ProductOrderLijn1)
 	Do OnGesorteerdeOrderLijnenLijst.Insert(ProductOrderLijn2)
@@ -40,15 +51,46 @@
 	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(ProductOrderLijn1, 101))
 	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(ProductOrderLijn2, 102))
 	
-	Do ..AssertSorteringOrderLijst(OnGesorteerdeOrderLijnenLijst, VerwachteGesorteerdeOrderLijnenLijst)
+	Do ..AssertSorteringOrderLijst(OnGesorteerdeOrderLijnenLijst, VerwachteGesorteerdeOrderLijnenLijst, OnGesorteerdeTextLijnen)
 ]]></Implementation>
 </Method>
 
+<Method name="Test : een order met 2 orderlijnen en 3 tekstlijnen wordt gesorteerd en bewaart een order met 5 orderlijnen waarbij de ordertekstlijnen bovenaan staan">
+<Implementation><![CDATA[
+	Set GlobalNode = ##class(TECH.Persistentie.GlobalNode).%New()
+
+	#dim TekstOrderLijn1 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("103", GlobalNode)
+	#dim TekstOrderLijn2 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("104", GlobalNode)
+	#dim TekstOrderLijn3 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("105", GlobalNode)
+
+	Set OnGesorteerdeTekstLijnen = ##class(%ListOfObjects).%New()
+	Do OnGesorteerdeTekstLijnen.Insert(TekstOrderLijn1)
+	Do OnGesorteerdeTekstLijnen.Insert(TekstOrderLijn2)
+	Do OnGesorteerdeTekstLijnen.Insert(TekstOrderLijn3)
+	
+	#dim ProductOrderLijn1 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("101", GlobalNode,"110")
+	#dim ProductOrderLijn2 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("102", GlobalNode,"120")
+	
+	Set OnGesorteerdeOrderLijnenLijst = ##class(%ListOfObjects).%New()
+	Do OnGesorteerdeOrderLijnenLijst.Insert(ProductOrderLijn1)
+	Do OnGesorteerdeOrderLijnenLijst.Insert(ProductOrderLijn2)
+
+	Set VerwachteGesorteerdeOrderLijnenLijst = ##class(%ListOfObjects).%New()
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(TekstOrderLijn1, 101))
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(TekstOrderLijn2, 102))
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(TekstOrderLijn3, 103))
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(ProductOrderLijn1, 104))
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(ProductOrderLijn2, 105))
+	
+	Do ..AssertSorteringOrderLijst(OnGesorteerdeOrderLijnenLijst, VerwachteGesorteerdeOrderLijnenLijst, OnGesorteerdeTekstLijnen)
+]]></Implementation>
+</Method>
+
 <Method name="AssertSorteringOrderLijst">
-<FormalSpec>OnGesorteerdeOrderLijnenLijst:%ListOfObjects,VerwachteGesorteerdeOrderLijnenLijst:%ListOfObjects</FormalSpec>
+<FormalSpec>OnGesorteerdeOrderLijnenLijst:%ListOfObjects,VerwachteGesorteerdeOrderLijnenLijst:%ListOfObjects,OnGesorteerdeTextLijnen:%ListOfObjects</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ..ZetOrderLijnenOpOrder(OnGesorteerdeOrderLijnenLijst)
+	Do ..ZetOrderLijnenOpOrder(OnGesorteerdeOrderLijnenLijst, OnGesorteerdeTextLijnen)
 
 	Set OrderLijnenUpdaterMock = ##class(vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.OrderLijnenUpdater).%New()
 	Do OrderLijnenUpdaterMock.VerwachtMethodCall("UpdateOrderMetGesorteerdeLijst", ..OrderMock, ..Matches.ObjectListMatcher(VerwachteGesorteerdeOrderLijnenLijst)).ExactAantalKeer(1).DanDoeNiks()
@@ -81,25 +123,22 @@
 	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>
+<FormalSpec>OrderLijnen:%ListOfObjects,TextLijnen:%ListOfObjects</FormalSpec>
 <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>
+	#dim AlleOrderlijnen As %ListOfObjects = OrderLijnen.%ConstructClone()
+	#dim Iterator As TECH.ListIterator = ..GeefTextLijnenIterator(TextLijnen)
+	while Iterator.HasNext() { 
+		do AlleOrderlijnen.Insert(Iterator.Next()) 
+	}
 
-<Method name="GeefTextLijnen">
-<Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-	Set TextLijnen = ##class(%ListOfObjects).%New()
-	Quit TextLijnen
+	Do ..OrderMock.IndienMethodCall("GeefOrderLijnIterator").DanReturn(..GeefOrderlijnenIterator(AlleOrderlijnen))
+	Do ..OrderMock.IndienMethodCall("GeefOrderLijnen").DanReturn(AlleOrderlijnen)
+	Do ..OrderMock.IndienMethodCall("GeefTypeOrderLijnIterator","KF11").DanReturn(..GeefTextLijnenIterator(TextLijnen))
+	Do ..OrderMock.IndienMethodCall("GeefTextlijnenVoorAfdrukDocumentType", "").DanReturn(TextLijnen)
 ]]></Implementation>
 </Method>
 
@@ -124,13 +163,27 @@
 </Method>
 
 <Method name="MaakProductLijn">
-<FormalSpec>LijnNr:%Integer,GlobalNode:TECH.Persistentie.GlobalNode</FormalSpec>
+<FormalSpec>LijnNr:%Integer,GlobalNode:TECH.Persistentie.GlobalNode,ProductID:%String=""</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><![CDATA[
+	Set ProductOrderlijn = ##class(DOM.VKP.impl.DataM.DataMProductOrderlijn).%New(..OrderMock, LijnNr, GlobalNode, ##class(DOM.VKP.enu.OrderLijnType).Product())
+	Do ProductOrderlijn.ZetID(ProductID)
+	Quit ProductOrderlijn
 ]]></Implementation>
 </Method>
 
+<Method name="MaakTekstLijn">
+<FormalSpec>LijnNr:%Integer,GlobalNode:TECH.Persistentie.GlobalNode,GekoppeldAanProductID:%String=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.impl.DataM.DataMProductOrderlijn</ReturnType>
+<Implementation><![CDATA[
+	Set TekstOrderLijn = ##class(DOM.VKP.impl.DataM.DataMTekstOrderlijn).%New(..OrderMock, LijnNr, GlobalNode, ##class(DOM.VKP.enu.OrderLijnType).Tekst())
+	Do TekstOrderLijn.ZetGekoppeldAanProductLijn(GekoppeldAanProductID)
+	Quit TekstOrderLijn
+]]></Implementation>
+</Method>
+
 <Method name="MaakGesorteerdeOrderlijn">
 <FormalSpec>Orderlijn:DOM.VKP.impl.DataM.DataMOrderlijn,OrderLijnVolgNr</FormalSpec>
 <Private>1</Private>