Index: vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestProperties.cls.xml
===================================================================
diff -u -r44744 -r45070
--- vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestProperties.cls.xml	(.../DataMToeleveringTestProperties.cls.xml)	(revision 44744)
+++ vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestProperties.cls.xml	(.../DataMToeleveringTestProperties.cls.xml)	(revision 45070)
@@ -51,6 +51,7 @@
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
 	do ..AssertToelevering(Toelevering)
+	Do $$$AssertNotEquals(Toelevering.GeefAanmaakDatum(),62161)
 	Do Toelevering.ZetAanmaakDatum(62161)
 	Do Toelevering.Save()
 	Kill Toelevering
@@ -63,6 +64,7 @@
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
 	do ..AssertToelevering(Toelevering)
+	Do $$$AssertNotEquals(Toelevering.GeefReferentie(),"Test referentie")
 	Do Toelevering.ZetReferentie("Test referentie")
 	Do Toelevering.Save()
 	Kill Toelevering
@@ -75,6 +77,7 @@
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
 	do ..AssertToelevering(Toelevering)
+	Do $$$AssertNotEquals(Toelevering.GeefBestelBevestigingNr(),"BestelbevestigingNr")
 	Do Toelevering.ZetBestelBevestigingNr("BestelbevestigingNr")
 	Do Toelevering.Save()
 	Kill Toelevering 
@@ -87,6 +90,7 @@
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
 	do ..AssertToelevering(Toelevering)
+	Do $$$AssertNotEquals(Toelevering.GeefVerzendDatum(),62161)
 	Do Toelevering.ZetVerzendDatum(62161)
 	Do Toelevering.Save()
 	Kill Toelevering
@@ -99,6 +103,7 @@
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
 	do ..AssertToelevering(Toelevering)
+	Do $$$AssertNotEquals(Toelevering.GeefMunt(),"USD")
 	Do Toelevering.ZetMunt("USD")
 	Do Toelevering.Save()
 	Kill Toelevering
@@ -111,6 +116,7 @@
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
 	do ..AssertToelevering(Toelevering)
+	Do $$$AssertNotEquals(Toelevering.GeefDueOutTime(),"62169,43200")
 	Do Toelevering.ZetDueOutTime("2011-03-19 12:00:00")
 	Do Toelevering.Save()
 	Kill Toelevering
@@ -131,6 +137,7 @@
 <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 $$$AssertNotEquals(ToeleveringLijn.GeefAantal(),2)
 	Do ToeleveringLijn.ZetAantal(2)
 	Do Toelevering.Save()
 	Kill Toelevering
@@ -146,6 +153,7 @@
 <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 $$$AssertNotEquals(ToeleveringLijn.GeefGrootteOrde(),##class(DOM.PM.enu.GrootteOrde).Eenheid())
 	Do ToeleveringLijn.ZetGrootteOrde(##class(DOM.PM.enu.GrootteOrde).Eenheid())
 	Do Toelevering.Save()
 	Kill Toelevering
@@ -161,6 +169,7 @@
 <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 $$$AssertNotEquals(ToeleveringLijn.GeefEenheidsPrijs(),123)
 	Do ToeleveringLijn.ZetEenheidsPrijs(123)
 	Do Toelevering.Save()
 	Kill Toelevering
@@ -176,6 +185,7 @@
 <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 $$$AssertNotEquals(ToeleveringLijn.GeefNettoprijs(),123)
 	Do ToeleveringLijn.ZetNettoprijs(123)
 	Do Toelevering.Save()
 	Kill Toelevering
@@ -191,6 +201,7 @@
 <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 $$$AssertNotEquals(ToeleveringLijn.GeefBestelBevestigingNr(),123)
 	Do ToeleveringLijn.ZetBestelBevestigingNr(123)
 	Do Toelevering.Save()
 	Kill Toelevering
@@ -206,6 +217,7 @@
 <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 $$$AssertNotEquals(ToeleveringLijn.GeefUniekLijnNummer(),123)
 	Do ToeleveringLijn.ZetUniekLijnNummer(123)
 	Do Toelevering.Save()
 	Kill Toelevering
@@ -221,6 +233,7 @@
 <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 $$$AssertNotEquals(ToeleveringLijn.GeefUrgentiecode(),"URG")
 	Do ToeleveringLijn.ZetUrgentiecode("URG")
 	Do Toelevering.Save()
 	Kill Toelevering
@@ -264,42 +277,42 @@
 <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"))
-	Do $$$AssertEquals(Toelevering.GeefBestelBevestigingNr(),$Select(Propertyname="BestelBevestigingNr":Value,1:""))
-	Do $$$AssertEquals(Toelevering.GeefVerzendDatum(),$Select(Propertyname="VerzendDatum":Value,1:62159))
-	Do $$$AssertEquals(Toelevering.GeefMunt(),$Select(Propertyname="Munt":Value,1:"EUR"))
-	Do $$$AssertEquals(Toelevering.GeefDueOutTime(),$Select(Propertyname="DueOutTime":Value,1:"62168,43200"))
+	Do $$$AssertEquals(Toelevering.GeefAanmaakDatum(),$$$If(Propertyname="AanmaakDatum",Value,62160))
+	Do $$$AssertEquals(Toelevering.GeefReferentie(),$$$If(Propertyname="Referentie",Value,"KOMM. TESTKLANT VAN HOECK"))
+	Do $$$AssertEquals(Toelevering.GeefBestelBevestigingNr(),$$$If(Propertyname="BestelBevestigingNr",Value,""))
+	Do $$$AssertEquals(Toelevering.GeefVerzendDatum(),$$$If(Propertyname="VerzendDatum",Value,62159))
+	Do $$$AssertEquals(Toelevering.GeefMunt(),$$$If(Propertyname="Munt",Value,"EUR"))
+	Do $$$AssertEquals(Toelevering.GeefDueOutTime(),$$$If(Propertyname="DueOutTime",Value,"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.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")||(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:""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefAantal(),$$$If(Propertyname="Aantal",Value,1))
+	Do $$$AssertEquals(ToeleveringLijn.GeefBestelBevestigingNr(),$$$If(Propertyname="BestelBevestigingNr",Value,""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefBlumLijnNr(),$$$If(Propertyname="BlumLijnNr",Value,""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefEenheidsPrijs(),$$$If(Propertyname="EenheidsPrijs",Value,""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefGrootteOrde(),$$$If(Propertyname="GrootteOrde",Value,""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefID(),$$$If(((Propertyname="ID")||(Propertyname="UniekLijnNummer")),Value,110))
+	Do $$$AssertEquals(ToeleveringLijn.GeefKorting(),$$$If(Propertyname="Korting",Value,0))
+	Do $$$AssertEquals(ToeleveringLijn.GeefLeverdag(),$$$If(Propertyname="Leverdag",Value,62168))
+	Do $$$AssertEquals(ToeleveringLijn.GeefLeveringsWeekVoorziene(),$$$If(Propertyname="LeveringsWeekVoorziene",Value,""))
 	; kan niet vinden in bijbel wat dit is of welke piece
-	;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:"KTRPL"))
-	Do $$$AssertEquals(ToeleveringLijn.GeefTotaalBedrag(),$Select(Propertyname="TotaalBedrag":Value,1:""))
+	;Do $$$AssertEquals(ToeleveringLijn.GeefLijnIdLeverancier(),$$$If(Propertyname="IdLeverancier",Value,""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefLijnVolgNr(),$$$If(Propertyname="LijnVolgNr",Value,102))
+	Do $$$AssertEquals(ToeleveringLijn.GeefMunt(),$$$If(Propertyname="Munt",Value,""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefNettoprijs(),$$$If(Propertyname="NettoPrijs",Value,""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefOrderID(),$$$If(Propertyname="OrderID",Value,""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefOrderLijnID(),$$$If(Propertyname="OrderLijnID",Value,""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefOrderLijnVolgnummer(),$$$If(Propertyname="OrderLijnVolgNummer",Value,""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefProductID(),$$$If(Propertyname="ProductID",Value,1002))
+	Do $$$AssertEquals(ToeleveringLijn.GeefSoortLijn(),$$$If(Propertyname="SoortLijn",Value,"KTRPL"))
+	Do $$$AssertEquals(ToeleveringLijn.GeefTotaalBedrag(),$$$If(Propertyname="TotaalBedrag",Value,""))
 	; cfr ID
-	Do $$$AssertEquals(ToeleveringLijn.GeefUniekLijnNummer(),$Select(Propertyname="UniekLijnNummer":Value,1:"110"))
-	Do $$$AssertEquals(ToeleveringLijn.GeefUrgentiecode(),$Select(Propertyname="Urgentiecode":Value,1:""))
+	Do $$$AssertEquals(ToeleveringLijn.GeefUniekLijnNummer(),$$$If(Propertyname="UniekLijnNummer",Value,"110"))
+	Do $$$AssertEquals(ToeleveringLijn.GeefUrgentiecode(),$$$If(Propertyname="Urgentiecode",Value,""))
 ]]></Implementation>
 </Method>
 </Class>