Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorToeleveringLijn/Test.cls.xml
===================================================================
diff -u -r57896 -r60097
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 57896)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 60097)
@@ -33,6 +33,8 @@
 	Set DnaCodeGeneratorStub = ##class(vhTest.Mock.APPS.Halux.AAP.DnaCodeGenerator).%New()
 	Do DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn("OAAAAA3")
 	
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+	
 	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(, ProductTypeAPIStub, DnaCodeGeneratorStub)
 	#dim DnaCodes as %ListOfDataTypes = DnaCodeService.MaakDnaCodesVoorToeleveringLijn(ToeleveringLijn)
 	
@@ -42,6 +44,7 @@
 		Do $$$AssertEquals(DnaCodes.GetAt(1).KlantNummer,"K||1234")
 		Do $$$AssertEquals(DnaCodes.GetAt(1).DnaCode,"OAAAAA3")
 		Do $$$AssertEquals(DnaCodes.GetAt(1).OrderId,"100000")
+		Do $$$AssertEquals(DnaCodes.GetAt(1).AanmaakTijdstip,##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog())
 	}
 ]]></Implementation>
 </Method>
Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r59589 -r60097
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 59589)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60097)
@@ -174,6 +174,7 @@
 	Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
 	Set DnaCode.ToeleveringLijn = ToeleveringLijn.GeefID()
 	Set DnaCode.OrderId = ToeleveringLijn.GeefOrderID()
+	Set DnaCode.AanmaakTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
 	If $IsObject(Batch) {
 		Set DnaCode.BatchId = Batch.GeefID()
 		Set DnaCode.IsWegwerpPallet = Batch.GeefIsWegwerpPallet()