Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder/Test.cls.xml
===================================================================
diff -u -r47366 -r47367
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 47366)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 47367)
@@ -58,6 +58,9 @@
 
 <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[
+	#dim OrderLijnID1 As %String = "110"
+	#dim OrderLijnID2 As %String = "120"
+
 	#dim TekstOrderLijn1 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("103")
 	#dim TekstOrderLijn2 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("104")
 	#dim TekstOrderLijn3 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("105")
@@ -69,8 +72,8 @@
 
 	Set OnGesorteerdeOrderLijnenTextLijnen = ##class(%ListOfObjects).%New()
 	
-	#dim ProductOrderLijn1 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("101", "110")
-	#dim ProductOrderLijn2 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("102", "120")
+	#dim ProductOrderLijn1 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("101", OrderLijnID1)
+	#dim ProductOrderLijn2 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("102", OrderLijnID2)
 	
 	Set OnGesorteerdeOrderLijnenLijst = ##class(%ListOfObjects).%New()
 	Do OnGesorteerdeOrderLijnenLijst.Insert(ProductOrderLijn1)
@@ -89,19 +92,22 @@
 
 <Method name="Test : 2 orderlijnen en 3 tekstlijnen van een orderlijn worden gesorteerd en bewaart een order waarbij de tekstlijnen onder de overeenkomstige orderlijn staan">
 <Implementation><![CDATA[
+	#dim OrderLijnID1 As %String = "110"
+	#dim OrderLijnID2 As %String = "120"
+
 	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", OrderLijnID1)
+	#dim TekstOrderLijn2 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("104", OrderLijnID1)
+	#dim TekstOrderLijn3 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("105", OrderLijnID1)
 
 	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")
+	#dim ProductOrderLijn1 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("101", OrderLijnID1)
+	#dim ProductOrderLijn2 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("102", OrderLijnID2)
 	Set OnGesorteerdeOrderLijnenLijst = ##class(%ListOfObjects).%New()
 	Do OnGesorteerdeOrderLijnenLijst.Insert(ProductOrderLijn1)
 	Do OnGesorteerdeOrderLijnenLijst.Insert(ProductOrderLijn2)
@@ -119,19 +125,22 @@
 
 <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[
+	#dim OrderLijnID1 As %String = "110"
+	#dim OrderLijnID2 As %String = "120"
+	
 	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")
+	#dim TekstOrderLijn1 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("103", OrderLijnID2)
+	#dim TekstOrderLijn2 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("104", OrderLijnID1)
+	#dim TekstOrderLijn3 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("105", OrderLijnID1)
 
 	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")
+	#dim ProductOrderLijn1 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("101", OrderLijnID1)
+	#dim ProductOrderLijn2 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("102", OrderLijnID2)
 	Set OnGesorteerdeOrderLijnenLijst = ##class(%ListOfObjects).%New()
 	Do OnGesorteerdeOrderLijnenLijst.Insert(ProductOrderLijn1)
 	Do OnGesorteerdeOrderLijnenLijst.Insert(ProductOrderLijn2)
@@ -149,20 +158,23 @@
 
 <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 OrderLijnID1 As %String = "110"
+	#dim OrderLijnID2 As %String = "120"
+
 	#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")
+	#dim TekstOrderLijn2 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("103", OrderLijnID2)
+	#dim TekstOrderLijn3 As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakTekstLijn("104", OrderLijnID1)
 
 	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")
+	#dim ProductOrderLijn1 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("101", OrderLijnID1)
+	#dim ProductOrderLijn2 As DOM.VKP.impl.DataM.DataMProductOrderlijn = ..MaakProductLijn("102", OrderLijnID2)
 	Set OnGesorteerdeOrderLijnenLijst = ##class(%ListOfObjects).%New()
 	Do OnGesorteerdeOrderLijnenLijst.Insert(ProductOrderLijn1)
 	Do OnGesorteerdeOrderLijnenLijst.Insert(ProductOrderLijn2)
@@ -259,25 +271,25 @@
 </Method>
 
 <Method name="MaakProductLijn">
-<FormalSpec>LijnNr:%Integer,OrderLijnID:%String=""</FormalSpec>
+<FormalSpec>OrderLijnVolgNr:%Integer,OrderLijnID:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.VKP.impl.DataM.DataMProductOrderlijn</ReturnType>
 <Implementation><![CDATA[
 	Set GlobalNode = ##class(TECH.Persistentie.GlobalNode).%New()
-	Set ProductOrderlijn = ##class(DOM.VKP.impl.DataM.DataMProductOrderlijn).%New(..OrderMock, LijnNr, GlobalNode, ##class(DOM.VKP.enu.OrderLijnType).Product())
+	Set ProductOrderlijn = ##class(DOM.VKP.impl.DataM.DataMProductOrderlijn).%New(..OrderMock, OrderLijnVolgNr, GlobalNode, ##class(DOM.VKP.enu.OrderLijnType).Product())
 	Do ProductOrderlijn.ZetID(OrderLijnID)
 	Quit ProductOrderlijn
 ]]></Implementation>
 </Method>
 
 <Method name="MaakTekstLijn">
-<FormalSpec>LijnNr:%Integer,GekoppeldAanProductID:%String=""</FormalSpec>
+<FormalSpec>OrderLijnVolgNr:%Integer,GekoppeldAanOrderLijnID:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.VKP.impl.DataM.DataMProductOrderlijn</ReturnType>
 <Implementation><![CDATA[
 	Set GlobalNode = ##class(TECH.Persistentie.GlobalNode).%New()
-	Set TekstOrderLijn = ##class(DOM.VKP.impl.DataM.DataMTekstOrderlijn).%New(..OrderMock, LijnNr, GlobalNode, ##class(DOM.VKP.enu.OrderLijnType).Tekst())
-	Do TekstOrderLijn.ZetGekoppeldAanProductLijn(GekoppeldAanProductID)
+	Set TekstOrderLijn = ##class(DOM.VKP.impl.DataM.DataMTekstOrderlijn).%New(..OrderMock, OrderLijnVolgNr, GlobalNode, ##class(DOM.VKP.enu.OrderLijnType).Tekst())
+	Do TekstOrderLijn.ZetGekoppeldAanProductLijn(GekoppeldAanOrderLijnID)
 	Quit TekstOrderLijn
 ]]></Implementation>
 </Method>