Index: vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestProperties.cls.xml
===================================================================
diff -u -r45070 -r45583
--- vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestProperties.cls.xml	(.../DataMToeleveringTestProperties.cls.xml)	(revision 45070)
+++ vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestProperties.cls.xml	(.../DataMToeleveringTestProperties.cls.xml)	(revision 45583)
@@ -51,12 +51,12 @@
 <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 $$$AssertEqualsDate(Toelevering.GeefAanmaakDatum(),"10.03.2011") 
+	Do Toelevering.ZetAanmaakDatum($$INTDATE^vhLib.DataTypes("11.03.2011"))
 	Do Toelevering.Save()
 	Kill Toelevering
 	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do ..AssertToelevering(Toelevering,"AanmaakDatum",62161)
+	Do ..AssertToelevering(Toelevering,"AanmaakDatum","11.03.2011")
 ]]></Implementation>
 </Method>
 
@@ -90,12 +90,12 @@
 <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 $$$AssertEqualsDate(Toelevering.GeefVerzendDatum(),"09.03.2011") 
+	Do Toelevering.ZetVerzendDatum($$INTDATE^vhLib.DataTypes("11.03.2011"))
 	Do Toelevering.Save()
 	Kill Toelevering
 	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do ..AssertToelevering(Toelevering,"VerzendDatum",62161)
+	Do ..AssertToelevering(Toelevering,"VerzendDatum","11.03.2011")
 ]]></Implementation>
 </Method>
 
@@ -264,11 +264,11 @@
 	#dim Toelevering As DOM.AKP.Toelevering = Service.MaakToeleveringMetLeverancierGegevens(..LeverancierId,..#ToeleveringID)
 	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Service.VoegToeProductVoorLeverancier(Toelevering, ..LeverancierId, 1001, 1)
 	Set ToeleveringLijn = Service.VoegToeProductVoorLeverancier(Toelevering, ..LeverancierId, 1002, 1)
-	Do Toelevering.ZetAanmaakDatum(62160)
+	Do Toelevering.ZetAanmaakDatum($$INTDATE^vhLib.DataTypes("10.03.2011"))
 	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.ZetVerzendDatum($$INTDATE^vhLib.DataTypes("09.03.2011"))
 	do Toelevering.Save()
 ]]></Implementation>
 </Method>
@@ -277,10 +277,10 @@
 <FormalSpec>Toelevering:DOM.AKP.Toelevering,Propertyname:%String="",Value:%String=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do $$$AssertEquals(Toelevering.GeefAanmaakDatum(),$$$If(Propertyname="AanmaakDatum",Value,62160))
+	Do $$$AssertEqualsDate(Toelevering.GeefAanmaakDatum(),$$$If(Propertyname="AanmaakDatum",Value,"10.03.2011"))
 	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 $$$AssertEqualsDate(Toelevering.GeefVerzendDatum(),$$$If(Propertyname="VerzendDatum",Value,"09.03.2011"))
 	Do $$$AssertEquals(Toelevering.GeefMunt(),$$$If(Propertyname="Munt",Value,"EUR"))
 	Do $$$AssertEquals(Toelevering.GeefDueOutTime(),$$$If(Propertyname="DueOutTime",Value,"62168,43200"))
 ]]></Implementation>