Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60461 -r60536
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60461)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60536)
@@ -511,30 +511,32 @@
 		
 		#dim LaatsteDnaCode As DOM.Halux.AAP.DnaCode
 		Set LaatsteDnaCode = ..DnaCodeRepository.ZoekViaDnaCode(RondKaderdeurDagAfRequest.DnaCode).Next()
-		
+		Do ##class(Tools.Wlip).%New(127).String(LaatsteDnaCode.ScanTijdstip)
 		#dim DnaCodeViaDatumIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaDatum(LaatsteDnaCode.ScanTijdstip)
 		while DnaCodeViaDatumIterator.HasNext() {
 			#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeViaDatumIterator.Next()
-			
+			Do ##class(Tools.Wlip).%New(127).String("eerste while "_DnaCode.Toelevering_"/"_DnaCode.DnaCode)
 			#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()
+			Do ##class(Tools.Wlip).%New(127).String("tweede while "_DnaCodeViaToelevering.DnaCode)
 				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
 				}
 			}
+			Do ..DnaCodesKlaarmakenVoorBuffer(DnaCodesViaToeleveringIterator, ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer(), LaatsteDnaCode.Toelevering, ,RondKaderdeurDagAfRequest.Header.Initialen)
 			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)
 			}
-			Set Response.Header.Status = "200"
 		}
+		Set Response.Header.Status = "200"
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Response.Header.Status = Exception.GeefExceptionCode()