Index: vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestProperties.cls.xml
===================================================================
diff -u -r44721 -r44724
--- vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestProperties.cls.xml	(.../DataMToeleveringTestProperties.cls.xml)	(revision 44721)
+++ vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestProperties.cls.xml	(.../DataMToeleveringTestProperties.cls.xml)	(revision 44724)
@@ -50,6 +50,7 @@
 <Method name="Test Wijzigen Aanmaakdatum">
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	do ..AssertToelevering(Toelevering)
 	Do Toelevering.ZetAanmaakDatum(62161)
 	Do Toelevering.Save()
 	Kill Toelevering
@@ -61,6 +62,7 @@
 <Method name="Test Wijzigen Referentie">
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	do ..AssertToelevering(Toelevering)
 	Do Toelevering.ZetReferentie("Test referentie")
 	Do Toelevering.Save()
 	Kill Toelevering
@@ -72,6 +74,7 @@
 <Method name="Test Wijzigen Bestelbevestigingnummer">
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	do ..AssertToelevering(Toelevering)
 	Do Toelevering.ZetBestelBevestigingNr("BestelbevestigingNr")
 	Do Toelevering.Save()
 	Kill Toelevering 
@@ -83,6 +86,7 @@
 <Method name="Test Wijzigen VerzendDatum">
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	do ..AssertToelevering(Toelevering)
 	Do Toelevering.ZetVerzendDatum(62161)
 	Do Toelevering.Save()
 	Kill Toelevering
@@ -94,6 +98,7 @@
 <Method name="Test Wijzigen Munt">
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	do ..AssertToelevering(Toelevering)
 	Do Toelevering.ZetMunt("USD")
 	Do Toelevering.Save()
 	Kill Toelevering
@@ -105,6 +110,7 @@
 <Method name="Test Wijzigen DueOutTime">
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	do ..AssertToelevering(Toelevering)
 	Do Toelevering.ZetDueOutTime("2011-03-19 12:00:00")
 	Do Toelevering.Save()
 	Kill Toelevering
@@ -113,6 +119,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test Basis ProductToeleveringlijn">
+<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 ..AssertToeleveringLijn(ToeleveringLijn)
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderTestData">
 <Private>1</Private>
 <Implementation><![CDATA[	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1002)
@@ -142,7 +156,8 @@
 </Method>
 
 <Method name="AssertToelevering">
-<FormalSpec>Toelevering:DOM.AKP.Toelevering,Propertyname:%String,Value:%String</FormalSpec>
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,Propertyname:%String="",Value:%String=""</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(Toelevering.GeefAanmaakDatum(),$Select(Propertyname="AanmaakDatum":Value,1:62160))
 	Do $$$AssertEquals(Toelevering.GeefReferentie(),$Select(Propertyname="Referentie":Value,1:"KOMM. TESTKLANT VAN HOECK"))
@@ -152,6 +167,35 @@
 	Do $$$AssertEquals(Toelevering.GeefDueOutTime(),$Select(Propertyname="DueOutTime":Value,1:"62168,43200"))
 ]]></Implementation>
 </Method>
+
+<Method name="AssertToeleveringLijn">
+<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Propertyname:%String="",Value:%String=""</FormalSpec>
+<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.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.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:""))
+	;Do $$$AssertEquals(ToeleveringLijn.GeefLijnIdLeverancier(),$Select(Propertyname="IdLeverancier":Value,1:""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefLijnVolgNr(),$Select(Propertyname="LijnVolgNr":Value,1:102))
+	Do $$$AssertEquals(ToeleveringLijn.GeefMunt(),$Select(Propertyname="Munt":Value,1:""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefNettoprijs(),$Select(Propertyname="NettoPrijs":Value,1:""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefOrderID(),$Select(Propertyname="OrderID":Value,1:""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefOrderLijnID(),$Select(Propertyname="OrderLijnID":Value,1:""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefOrderLijnVolgnummer(),$Select(Propertyname="OrderLijnVolgNummer":Value,1:""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefProductID(),$Select(Propertyname="ProductID":Value,1:1002))
+	;Do $$$AssertEquals(ToeleveringLijn.GeefSoortLijn(),$Select(Propertyname="SoortLijn":Value,1:""))
+	;Do $$$AssertEquals(ToeleveringLijn.GeefTotaalBedrag(),$Select(Propertyname="TotaalBedrag":Value,1:""))
+	;Do $$$AssertEquals(ToeleveringLijn.GeefUniekLijnNummer(),$Select(Propertyname="UniekLijnNummer":Value,1:""))
+	;Do $$$AssertEquals(ToeleveringLijn.GeefUrgentiecode(),$Select(Propertyname="UrgentieCode":Value,1:""))
+]]></Implementation>
+</Method>
 </Class>