Index: vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestProperties.cls.xml
===================================================================
diff -u -r44726 -r44732
--- vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestProperties.cls.xml	(.../DataMToeleveringTestProperties.cls.xml)	(revision 44726)
+++ vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestProperties.cls.xml	(.../DataMToeleveringTestProperties.cls.xml)	(revision 44732)
@@ -127,6 +127,96 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test ProductToeleveringLijn property AantalBesteld">
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	#dim ToeleveringLijn as DOM.AKP.ProductToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(102)
+	Do ToeleveringLijn.ZetAantal(2)
+	Do Toelevering.Save()
+	Kill Toelevering
+
+	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Set ToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(102)
+
+	Do ..AssertToeleveringLijn(ToeleveringLijn,"Aantal",2)
+]]></Implementation>
+</Method>
+
+<Method name="Test ProductToeleveringLijn property EenheidsPrijs">
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	#dim ToeleveringLijn as DOM.AKP.ProductToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(102)
+	Do ToeleveringLijn.ZetEenheidsPrijs(123)
+	Do Toelevering.Save()
+	Kill Toelevering
+
+	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Set ToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(102)
+
+	Do ..AssertToeleveringLijn(ToeleveringLijn,"EenheidsPrijs",123)
+]]></Implementation>
+</Method>
+
+<Method name="Test ProductToeleveringLijn property Nettoprijs">
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	#dim ToeleveringLijn as DOM.AKP.ProductToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(102)
+	Do ToeleveringLijn.ZetNettoprijs(123)
+	Do Toelevering.Save()
+	Kill Toelevering
+
+	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Set ToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(102)
+
+	Do ..AssertToeleveringLijn(ToeleveringLijn,"NettoPrijs",123)
+]]></Implementation>
+</Method>
+
+<Method name="Test ProductToeleveringLijn property BestelBevestigingNr">
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	#dim ToeleveringLijn as DOM.AKP.ProductToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(102)
+	Do ToeleveringLijn.ZetBestelBevestigingNr(123)
+	Do Toelevering.Save()
+	Kill Toelevering
+
+	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Set ToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(102)
+
+	Do ..AssertToeleveringLijn(ToeleveringLijn,"BestelBevestigingNr",123)
+]]></Implementation>
+</Method>
+
+<Method name="Test ProductToeleveringLijn property UniekLijnNummer">
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	#dim ToeleveringLijn as DOM.AKP.ProductToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(102)
+	Do ToeleveringLijn.ZetUniekLijnNummer(123)
+	Do Toelevering.Save()
+	Kill Toelevering
+
+	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Set ToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(102)
+
+	Do ..AssertToeleveringLijn(ToeleveringLijn,"UniekLijnNummer",123)
+]]></Implementation>
+</Method>
+
+<Method name="Test ProductToeleveringLijn property Urgentiecode">
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	#dim ToeleveringLijn as DOM.AKP.ProductToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(102)
+	Do ToeleveringLijn.ZetUrgentiecode("URG")
+	Do Toelevering.Save()
+	Kill Toelevering
+
+	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Set ToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(102)
+
+	Do ..AssertToeleveringLijn(ToeleveringLijn,"Urgentiecode","URG")
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderTestData">
 <Private>1</Private>
 <Implementation><![CDATA[	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1002)
@@ -173,12 +263,11 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(ToeleveringLijn.GeefAantal(),$Select(Propertyname="Aantal":Value,1:1))
-	Do $$$AssertEquals(ToeleveringLijn.GeefABLijnNummer(),$Select(Propertyname="ABLijnNummer":Value,1:""))
-	Do $$$AssertEquals(ToeleveringLijn.GeefBestelBevestigingNr(),$Select(Propertyname="BevestigingNr":Value,1:""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefBestelBevestigingNr(),$Select(Propertyname="BestelBevestigingNr":Value,1:""))
 	Do $$$AssertEquals(ToeleveringLijn.GeefBlumLijnNr(),$Select(Propertyname="BlumLijnNr":Value,1:""))
 	Do $$$AssertEquals(ToeleveringLijn.GeefEenheidsPrijs(),$Select(Propertyname="EenheidsPrijs":Value,1:""))
 	Do $$$AssertEquals(ToeleveringLijn.GeefGrootteOrde(),$Select(Propertyname="GrootteOrde":Value,1:""))
-	Do $$$AssertEquals(ToeleveringLijn.GeefID(),$Select(Propertyname="ID":Value,1:110))
+	Do $$$AssertEquals(ToeleveringLijn.GeefID(),$Select(((Propertyname="ID")||(Propertyname="UniekLijnNummer")):Value,1:110))
 	Do $$$AssertEquals(ToeleveringLijn.GeefKorting(),$Select(Propertyname="Korting":Value,1:0))
 	Do $$$AssertEquals(ToeleveringLijn.GeefLeverdag(),$Select(Propertyname="Leverdag":Value,1:62168))
 	Do $$$AssertEquals(ToeleveringLijn.GeefLeveringsWeekVoorziene(),$Select(Propertyname="LeveringsWeekVoorziene":Value,1:""))
@@ -193,8 +282,9 @@
 	Do $$$AssertEquals(ToeleveringLijn.GeefProductID(),$Select(Propertyname="ProductID":Value,1:1002))
 	Do $$$AssertEquals(ToeleveringLijn.GeefSoortLijn(),$Select(Propertyname="SoortLijn":Value,1:"KTRPL"))
 	Do $$$AssertEquals(ToeleveringLijn.GeefTotaalBedrag(),$Select(Propertyname="TotaalBedrag":Value,1:""))
+	; cfr ID
 	Do $$$AssertEquals(ToeleveringLijn.GeefUniekLijnNummer(),$Select(Propertyname="UniekLijnNummer":Value,1:"110"))
-	Do $$$AssertEquals(ToeleveringLijn.GeefUrgentiecode(),$Select(Propertyname="UrgentieCode":Value,1:""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefUrgentiecode(),$Select(Propertyname="Urgentiecode":Value,1:""))
 ]]></Implementation>
 </Method>
 </Class>