Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60384 -r60461
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60384)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60461)
@@ -509,9 +509,10 @@
 	Try {
 		Set Response = ##class(WS.Halux.AAP.RondKaderdeurDagAfResponse).%New()
 		
-		#dim LaatsteDnaCode = ..DnaCodeRepository.ZoekViaDnaCode(RondKaderdeurDagAfRequest.DnaCode)
+		#dim LaatsteDnaCode As DOM.Halux.AAP.DnaCode
+		Set LaatsteDnaCode = ..DnaCodeRepository.ZoekViaDnaCode(RondKaderdeurDagAfRequest.DnaCode).Next()
 		
-		#dim DnaCodeViaDatumIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaDatum(##class(TECH.DateTime).TimeStampToHorolog(LaatsteDnaCode.ScanTijdstip))
+		#dim DnaCodeViaDatumIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaDatum(LaatsteDnaCode.ScanTijdstip)
 		while DnaCodeViaDatumIterator.HasNext() {
 			#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeViaDatumIterator.Next()
 			
@@ -532,6 +533,7 @@
 				Set ToeleveringMetAantallen.AantalKaderdeurenGescand = AantalKaderdeurenGescand
 				Do Response.ToeleveringMetAantallen.Insert(ToeleveringMetAantallen)
 			}
+			Set Response.Header.Status = "200"
 		}
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()