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()