Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56496 -r56598
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56496)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56598)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",PalletCodeValidator:WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator=""</FormalSpec>
 <Private>1</Private>
@@ -27,6 +32,7 @@
 <Implementation><![CDATA[
 	Set ..DnaCodeRepository = $$$Inject(DnaCodeRepository, ##class(DOM.Halux.AAP.DnaCodeRepository).%New())
 	Set ..PalletCodeValidator = $$$Inject(PalletCodeValidator, ##class(WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New())
+	Set ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -155,6 +161,7 @@
 				} Else {
 					Set DnaCode.InitialenScanner = DnaCodeAfmeldenRequest.Header.Initialen
 					Set DnaCode.PalletCode = DnaCodeAfmeldenRequest.PalletCode
+					Set DnaCode.ScanTijdstip = ..DateTimeAPI.CurrentHorolog()
 					Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand()
 				}