Index: vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTest.cls.xml
===================================================================
diff -u -r44699 -r44700
--- vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTest.cls.xml	(.../DataMToeleveringTest.cls.xml)	(revision 44699)
+++ vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTest.cls.xml	(.../DataMToeleveringTest.cls.xml)	(revision 44700)
@@ -146,6 +146,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test Wijzigen creatiedatum">
+<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 = ""
+	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Do $$$AssertEquals(Toelevering.GeefAanmaakDatum(),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 = ""
+	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Do $$$AssertEquals(Toelevering.GeefReferentie(),"Test referentie")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Wijzig Product">
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)