Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondKaderdeurDagAf/Test.cls.xml
===================================================================
diff -u -r60363 -r60546
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondKaderdeurDagAf/Test.cls.xml	(.../Test.cls.xml)	(revision 60363)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondKaderdeurDagAf/Test.cls.xml	(.../Test.cls.xml)	(revision 60546)
@@ -3,19 +3,186 @@
 <Class name="vhUnitTest.WSimpl.Halux.AAP.DnaCodeService.RondKaderdeurDagAf.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: Standaardgedrag">
+<Method name="Test: Standaardgedrag: toelevering met enkel afgescande dnacodes -&gt; leeg resultaat">
 <Implementation><![CDATA[
 	Set Request = ##class(WS.Halux.AAP.RondKaderdeurDagAfRequest).%New()
-	Set Request.DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set Request.DnaCode.DnaCode = "KABCDE1"
+	Set Request.DnaCode = "KABCDE1"
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New()
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.DnaCode = "KABCDE1"
+	Set DnaCode1.Toelevering = "222222"
+	Set DnaCode1.ScanTijdstip = $H
+	Set DnaCode1.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand()
 	
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2.DnaCode = "KABCDF2"
+	Set DnaCode2.Toelevering = "222222"
+	Set DnaCode2.ScanTijdstip = $H
+	Set DnaCode2.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer()
+	
+	#dim DnaCodeIteratorEenStuk As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1)
+	#dim DnaCodeIteratorTweeStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaDnaCode",Request.DnaCode).DanReturn(DnaCodeIteratorEenStuk)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaDatum",DnaCode1.ScanTijdstip).DanReturn(DnaCodeIteratorTweeStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnRecent",DnaCode1.Toelevering).DanReturn(DnaCodeIteratorTweeStuks)
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	
 	#dim Antwoord As WS.Halux.AAP.RondKaderdeurDagAfResponse = DnaCodeService.RondKaderdeurDagAf(Request)
 	
 	Do $$$AssertEquals(Antwoord.ToeleveringMetAantallen.Count(),0)
+	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: toelevering met nog 1 te scannen dnacode -&gt; 1 item in resultaat">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.RondKaderdeurDagAfRequest).%New()
+	Set Request.DnaCode = "KABCDE1"
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.DnaCode = "KABCDE1"
+	Set DnaCode1.Toelevering = "222222"
+	Set DnaCode1.ScanTijdstip = $H
+	Set DnaCode1.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand()
+	
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2.DnaCode = "KABCDF2"
+	Set DnaCode2.Toelevering = "222222"
+	Set DnaCode2.ScanTijdstip = $H
+	Set DnaCode2.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()
+	
+	#dim DnaCodeIteratorEenStuk As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1)
+	#dim DnaCodeIteratorTweeStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaDnaCode",Request.DnaCode).DanReturn(DnaCodeIteratorEenStuk)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaDatum",DnaCode1.ScanTijdstip).DanReturn(DnaCodeIteratorTweeStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnRecent",DnaCode1.Toelevering).DanReturn(DnaCodeIteratorTweeStuks)
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	
+	#dim Antwoord As WS.Halux.AAP.RondKaderdeurDagAfResponse = DnaCodeService.RondKaderdeurDagAf(Request)
+	
+	If $$$AssertEquals(Antwoord.ToeleveringMetAantallen.Count(),1) {
+		Do $$$AssertEquals(Antwoord.ToeleveringMetAantallen.GetAt(1).ToeleveringID,DnaCode1.Toelevering )
+		Do $$$AssertEquals(Antwoord.ToeleveringMetAantallen.GetAt(1).AantalKaderdeuren,2)
+		Do $$$AssertEquals(Antwoord.ToeleveringMetAantallen.GetAt(1).AantalKaderdeurenGescand,1)
+	}
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: toelevering met nog 2 te scannen dnacodes -&gt; 1 item in resultaat">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.RondKaderdeurDagAfRequest).%New()
+	Set Request.DnaCode = "KABCDE1"
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.DnaCode = "KABCDE1"
+	Set DnaCode1.Toelevering = "222222"
+	Set DnaCode1.ScanTijdstip = $H
+	Set DnaCode1.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand()
+	
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2.DnaCode = "KABCDF2"
+	Set DnaCode2.Toelevering = "222222"
+	Set DnaCode2.ScanTijdstip = $H
+	Set DnaCode2.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand()
+	
+	Set DnaCode3 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode3.DnaCode = "KABCDG3"
+	Set DnaCode3.Toelevering = "222222"
+	Set DnaCode3.ScanTijdstip = $H
+	Set DnaCode3.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()
+	
+	Set DnaCode4 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode4.DnaCode = "KABCDH4"
+	Set DnaCode4.Toelevering = "222222"
+	Set DnaCode4.ScanTijdstip = $H
+	Set DnaCode4.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()
+	
+	#dim DnaCodeIteratorEenStuk As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1)
+	#dim DnaCodeIteratorTweeStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	#dim DnaCodeIteratorVierStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3, DnaCode4)
+	#dim AndereDnaCodeIteratorVierStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3, DnaCode4)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaDnaCode",Request.DnaCode).DanReturn(DnaCodeIteratorEenStuk)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaDatum",DnaCode1.ScanTijdstip).DanReturn(DnaCodeIteratorVierStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnRecent",DnaCode1.Toelevering).DanReturn(AndereDnaCodeIteratorVierStuks)
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	
+	#dim Antwoord As WS.Halux.AAP.RondKaderdeurDagAfResponse = DnaCodeService.RondKaderdeurDagAf(Request)
+	
+	If $$$AssertEquals(Antwoord.ToeleveringMetAantallen.Count(),1) {
+		Do $$$AssertEquals(Antwoord.ToeleveringMetAantallen.GetAt(1).ToeleveringID,DnaCode1.Toelevering )
+		Do $$$AssertEquals(Antwoord.ToeleveringMetAantallen.GetAt(1).AantalKaderdeuren,4)
+		Do $$$AssertEquals(Antwoord.ToeleveringMetAantallen.GetAt(1).AantalKaderdeurenGescand,2)
+	}
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: meerdere toelevering met nog meerdere te scannen dnacodes -&gt; 1 item per toelevering in resultaat">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.RondKaderdeurDagAfRequest).%New()
+	Set Request.DnaCode = "KABCDE1"
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.DnaCode = "KABCDE1"
+	Set DnaCode1.Toelevering = "222222"
+	Set DnaCode1.ScanTijdstip = $H
+	Set DnaCode1.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand()
+	
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2.DnaCode = "KABCDF2"
+	Set DnaCode2.Toelevering = "222222"
+	Set DnaCode2.ScanTijdstip = $H
+	Set DnaCode2.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()
+	
+	Set DnaCode3 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode3.DnaCode = "KABCDG3"
+	Set DnaCode3.Toelevering = "222223"
+	Set DnaCode3.ScanTijdstip = $H
+	Set DnaCode3.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()
+	
+	#dim DnaCodeIteratorEenStuk As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1)
+	#dim DnaCodeIteratorTweeStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	#dim DnaCodeIteratorDrieStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3)
+	#dim DnaCodeIteratorTweedeToelevering As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode3)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaDnaCode",Request.DnaCode).DanReturn(DnaCodeIteratorEenStuk)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaDatum",DnaCode1.ScanTijdstip).DanReturn(DnaCodeIteratorDrieStuks)
+	Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent",DnaCode1.Toelevering).DanReturn(DnaCodeIteratorTweeStuks)
+	Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent",DnaCode3.Toelevering).DanReturn(DnaCodeIteratorTweedeToelevering)
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	
+	#dim Antwoord As WS.Halux.AAP.RondKaderdeurDagAfResponse = DnaCodeService.RondKaderdeurDagAf(Request)
+	
+	If $$$AssertEquals(Antwoord.ToeleveringMetAantallen.Count(),2) {
+		Do $$$AssertEquals(Antwoord.ToeleveringMetAantallen.GetAt(1).ToeleveringID,DnaCode1.Toelevering )
+		Do $$$AssertEquals(Antwoord.ToeleveringMetAantallen.GetAt(1).AantalKaderdeuren,2)
+		Do $$$AssertEquals(Antwoord.ToeleveringMetAantallen.GetAt(1).AantalKaderdeurenGescand,1)
+		Do $$$AssertEquals(Antwoord.ToeleveringMetAantallen.GetAt(2).ToeleveringID,DnaCode3.Toelevering )
+		Do $$$AssertEquals(Antwoord.ToeleveringMetAantallen.GetAt(2).AantalKaderdeuren,1)
+		Do $$$AssertEquals(Antwoord.ToeleveringMetAantallen.GetAt(2).AantalKaderdeurenGescand,0)
+	}
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// de resultset bevat lijnen dubbel: als er een toelevering is met 4 lijnen waarvan al 2 werden ingescand, komt voor elke nog niet ingescande lijn de gegevens van die toelevering in het resultaat. 1 keer per toelevering is voldoende
+
+]]></Content>
+</UDLText>
 </Class>
 
 
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60536 -r60546
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60536)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60546)
@@ -511,32 +511,38 @@
 		
 		#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)
+		
+		Set FrequentieTabel = ##class(TECH.FrequentieTabel).%New()
+		While DnaCodeViaDatumIterator.HasNext() {
+			Do FrequentieTabel.Verhoog(DnaCodeViaDatumIterator.Next().Toelevering)
+		}
+		
+		#dim ToeleveringIdIterator As TECH.Iterator = FrequentieTabel.GeefItemIterator()
+		While ToeleveringIdIterator.HasNext() {
 			#dim AantalKaderdeuren As %Integer = 0
 			#dim AantalKaderdeurenGescand As %Integer = 0
-			#dim DnaCodesViaToeleveringIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(DnaCode.Toelevering)
-			while DnaCodesViaToeleveringIterator.HasNext() {
+			Do ToeleveringIdIterator.Next()
+			#dim ToeleveringId As %String = ToeleveringIdIterator.Key()
+			#dim DnaCodesViaToeleveringIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId)
+			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) {
+			If $$$Not(AantalKaderdeuren = AantalKaderdeurenGescand) {
 				Set ToeleveringMetAantallen = ##class(WS.Halux.AAP.RondKaderdeurDagAf.ToeleveringMetAantallen).%New()
-				Set ToeleveringMetAantallen.ToeleveringID = DnaCode.Toelevering
+				Set ToeleveringMetAantallen.ToeleveringID = ToeleveringId
 				Set ToeleveringMetAantallen.AantalKaderdeuren = AantalKaderdeuren
 				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()
 		Set Response.Header.Status = Exception.GeefExceptionCode()