Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60358 -r60372
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60358)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60372)
@@ -508,7 +508,28 @@
 <Implementation><![CDATA[
 	Try {
 		Set Response = ##class(WS.Halux.AAP.RondKaderdeurDagAfResponse).%New()
-		
+		#dim DnaCodeViaDatumIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaDatum(##class(TECH.DateTime).TimeStampToHorolog(RondKaderdeurDagAfRequest.DnaCode.ScanTijdstip))
+		while DnaCodeViaDatumIterator.HasNext() {
+			#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeViaDatumIterator.Next()
+			
+			#dim AantalKaderdeuren As %Integer = 0
+			#dim AantalKaderdeurenGescand As %Integer = 0
+			#dim DnaCodesViaToeleveringIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(DnaCode.Toelevering)
+			while DnaCodesViaToeleveringIterator.HasNext() {
+				#dim DnaCodeViaToelevering As DOM.Halux.AAP.DnaCode = DnaCodesViaToeleveringIterator.Next()
+				Set AantalKaderdeuren = AantalKaderdeuren + 1
+				If ##class(TECH.StringUtils).Contains(DnaCodeViaToelevering.Status,##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand(),##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer()) {
+					Set AantalKaderdeurenGescand = AantalKaderdeurenGescand + 1
+				}
+			}
+			if $$$Not(AantalKaderdeuren = AantalKaderdeurenGescand) {
+				Set ToeleveringMetAantallen = ##class(WS.Halux.AAP.RondKaderdeurDagAf.ToeleveringMetAantallen).%New()
+				Set ToeleveringMetAantallen.ToeleveringID = DnaCode.Toelevering
+				Set ToeleveringMetAantallen.AantalKaderdeuren = AantalKaderdeuren
+				Set ToeleveringMetAantallen.AantalKaderdeurenGescand = AantalKaderdeurenGescand
+				Do Response.ToeleveringMetAantallen.Insert(ToeleveringMetAantallen)
+			}
+		}
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Response.Header.Status = Exception.GeefExceptionCode()