Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder/Test.cls.xml
===================================================================
diff -u -r47365 -r47366
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 47365)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 47366)
@@ -49,8 +49,8 @@
 	Set OnGesorteerdeOrderLijnenTextLijnen = ##class(%ListOfObjects).%New()
 
 	Set VerwachteGesorteerdeOrderLijnenLijst = ##class(%ListOfObjects).%New()
-	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(ProductOrderLijn1, 101))
-	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(ProductOrderLijn2, 102))
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(ProductOrderLijn1, "101"))
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(ProductOrderLijn2, "102"))
 	
 	Do ..AssertSorteringOrderLijst(OnGesorteerdeOrderLijnenLijst, VerwachteGesorteerdeOrderLijnenLijst, OnGesorteerdeTextLijnen, OnGesorteerdeOrderLijnenTextLijnen)
 ]]></Implementation>
@@ -77,11 +77,11 @@
 	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 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, OnGesorteerdeOrderLijnenTextLijnen)
 ]]></Implementation>
@@ -91,9 +91,9 @@
 <Implementation><![CDATA[
 	Set OnGesorteerdeTekstLijnen = ##class(%ListOfObjects).%New()
 
-	#dim TekstOrderLijn1 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("103", 110)
-	#dim TekstOrderLijn2 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("104", 110)
-	#dim TekstOrderLijn3 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("105", 110)
+	#dim TekstOrderLijn1 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("103", "110")
+	#dim TekstOrderLijn2 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("104", "110")
+	#dim TekstOrderLijn3 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("105", "110")
 
 	Set OnGesorteerdeOrderLijnenTextLijnen = ##class(%ListOfObjects).%New()
 	Do OnGesorteerdeOrderLijnenTextLijnen.Insert(TekstOrderLijn1)
@@ -107,16 +107,77 @@
 	Do OnGesorteerdeOrderLijnenLijst.Insert(ProductOrderLijn2)
 
 	Set VerwachteGesorteerdeOrderLijnenLijst = ##class(%ListOfObjects).%New()
-	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(ProductOrderLijn1, 101))
-	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(TekstOrderLijn1, 102))
-	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(TekstOrderLijn2, 103))
-	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(TekstOrderLijn3, 104))
-	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(ProductOrderLijn2, 105))
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(ProductOrderLijn1, "101"))
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(TekstOrderLijn1, "102"))
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(TekstOrderLijn2, "103"))
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(TekstOrderLijn3, "104"))
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(ProductOrderLijn2, "105"))
 	
 	Do ..AssertSorteringOrderLijst(OnGesorteerdeOrderLijnenLijst, VerwachteGesorteerdeOrderLijnenLijst, OnGesorteerdeTekstLijnen, OnGesorteerdeOrderLijnenTextLijnen)
 ]]></Implementation>
 </Method>
 
+<Method name="Test : 1 orderlijn met 2 tekstlijnen en 1 orderlijn met 1 tekstlijn worden gesorteerd en bewaart een order waarbij de tekstlijnen onder de juiste orderlijn staan">
+<Implementation><![CDATA[
+	Set OnGesorteerdeTekstLijnen = ##class(%ListOfObjects).%New()
+
+	#dim TekstOrderLijn1 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("103", "120")
+	#dim TekstOrderLijn2 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("104", "110")
+	#dim TekstOrderLijn3 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("105", "110")
+
+	Set OnGesorteerdeOrderLijnenTextLijnen = ##class(%ListOfObjects).%New()
+	Do OnGesorteerdeOrderLijnenTextLijnen.Insert(TekstOrderLijn1)
+	Do OnGesorteerdeOrderLijnenTextLijnen.Insert(TekstOrderLijn2)
+	Do OnGesorteerdeOrderLijnenTextLijnen.Insert(TekstOrderLijn3)
+
+	#dim ProductOrderLijn1 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("101", "110")
+	#dim ProductOrderLijn2 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("102", "120")
+	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(TekstOrderLijn2, "102"))
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(TekstOrderLijn3, "103"))
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(ProductOrderLijn2, "104"))
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(TekstOrderLijn1, "105"))
+	
+	Do ..AssertSorteringOrderLijst(OnGesorteerdeOrderLijnenLijst, VerwachteGesorteerdeOrderLijnenLijst, OnGesorteerdeTekstLijnen, OnGesorteerdeOrderLijnenTextLijnen)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Een order met tekstlijn en 2 orderlijnen met elke een tekstlijn worden gesorteerd en bewaart een order waarbij de tekstlijnen onder de juiste orderlijn staan">
+<Implementation><![CDATA[
+	#dim TekstOrderLijn1 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("105")
+
+	Set OnGesorteerdeTekstLijnen = ##class(%ListOfObjects).%New()
+	Do OnGesorteerdeTekstLijnen.Insert(TekstOrderLijn1)
+
+	#dim TekstOrderLijn2 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("103", "120")
+	#dim TekstOrderLijn3 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("104", "110")
+
+	Set OnGesorteerdeOrderLijnenTextLijnen = ##class(%ListOfObjects).%New()
+	Do OnGesorteerdeOrderLijnenTextLijnen.Insert(TekstOrderLijn2)
+	Do OnGesorteerdeOrderLijnenTextLijnen.Insert(TekstOrderLijn3)
+
+	#dim ProductOrderLijn1 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("101", "110")
+	#dim ProductOrderLijn2 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("102", "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(ProductOrderLijn1, "102"))
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(TekstOrderLijn3, "103"))
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(ProductOrderLijn2, "104"))
+	Do VerwachteGesorteerdeOrderLijnenLijst.Insert(..MaakGesorteerdeOrderlijn(TekstOrderLijn2, "105"))
+	
+	Do ..AssertSorteringOrderLijst(OnGesorteerdeOrderLijnenLijst, VerwachteGesorteerdeOrderLijnenLijst, OnGesorteerdeTekstLijnen, OnGesorteerdeOrderLijnenTextLijnen)
+]]></Implementation>
+</Method>
+
 <Method name="AssertSorteringOrderLijst">
 <FormalSpec>OnGesorteerdeOrderLijnenLijst:%ListOfObjects,VerwachteGesorteerdeOrderLijnenLijst:%ListOfObjects,OnGesorteerdeTextLijnen:%ListOfObjects,OnGesorteerdeOrderLijnenTextLijnen:%ListOfObjects</FormalSpec>
 <Private>1</Private>