Index: vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestProperties.cls.xml
===================================================================
diff -u -r44718 -r44721
--- vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestProperties.cls.xml	(.../DataMToeleveringTestProperties.cls.xml)	(revision 44718)
+++ vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestProperties.cls.xml	(.../DataMToeleveringTestProperties.cls.xml)	(revision 44721)
@@ -47,66 +47,72 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test Wijzigen creatiedatum">
+<Method name="Test Wijzigen Aanmaakdatum">
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefAanmaakDatum(),62160)
 	Do Toelevering.ZetAanmaakDatum(62161)
 	Do Toelevering.Save()
-	Set Toelevering = ""
+	Kill Toelevering
 	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefAanmaakDatum(),62161)
+	Do ..AssertToelevering(Toelevering,"AanmaakDatum",62161)
 ]]></Implementation>
 </Method>
 
 <Method name="Test Wijzigen Referentie">
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefReferentie(),"KOMM. TESTKLANT VAN HOECK")
 	Do Toelevering.ZetReferentie("Test referentie")
 	Do Toelevering.Save()
-	Set Toelevering = ""
+	Kill Toelevering
 	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefReferentie(),"Test referentie")
+	Do ..AssertToelevering(Toelevering,"Referentie","Test referentie")
 ]]></Implementation>
 </Method>
 
 <Method name="Test Wijzigen Bestelbevestigingnummer">
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefBestelBevestigingNr(),"")
 	Do Toelevering.ZetBestelBevestigingNr("BestelbevestigingNr")
 	Do Toelevering.Save()
-	Set Toelevering = ""
+	Kill Toelevering 
 	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefBestelBevestigingNr(),"BestelbevestigingNr")
+	Do ..AssertToelevering(Toelevering,"BestelBevestigingNr","BestelbevestigingNr")
 ]]></Implementation>
 </Method>
 
 <Method name="Test Wijzigen VerzendDatum">
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefVerzendDatum(),"")
 	Do Toelevering.ZetVerzendDatum(62161)
 	Do Toelevering.Save()
-	Set Toelevering = ""
+	Kill Toelevering
 	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefVerzendDatum(),62161)
+	Do ..AssertToelevering(Toelevering,"VerzendDatum",62161)
 ]]></Implementation>
 </Method>
 
 <Method name="Test Wijzigen Munt">
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefMunt(),"EUR")
 	Do Toelevering.ZetMunt("USD")
 	Do Toelevering.Save()
-	Set Toelevering = ""
+	Kill Toelevering
 	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefMunt(),"USD")
+	Do ..AssertToelevering(Toelevering,"Munt","USD")
 ]]></Implementation>
 </Method>
 
+<Method name="Test Wijzigen DueOutTime">
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Do Toelevering.ZetDueOutTime("2011-03-19 12:00:00")
+	Do Toelevering.Save()
+	Kill Toelevering
+	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Do ..AssertToelevering(Toelevering,"DueOutTime","62169,43200")
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderTestData">
 <Private>1</Private>
 <Implementation><![CDATA[	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1002)
@@ -130,9 +136,22 @@
 	Do Toelevering.ZetMunt("EUR")
 	Do Toelevering.ZetReferentie("KOMM. TESTKLANT VAN HOECK")
 	Do Toelevering.ZetDueOutTime("2011-03-18 12:00:00")
+	Do Toelevering.ZetVerzendDatum(62159)
 	do Toelevering.Save()
 ]]></Implementation>
 </Method>
+
+<Method name="AssertToelevering">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,Propertyname:%String,Value:%String</FormalSpec>
+<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"))
+]]></Implementation>
+</Method>
 </Class>