Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r55690 -r55768
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 55690)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 55768)
@@ -99,7 +99,10 @@
 <ReturnType>WS.Halux.AAP.ZoekViaToeleveringResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set Response = ##class(WS.Halux.AAP.ZoekViaPalletCodeResponse).%New()
+	#dim AantalReedsGescand As %Integer = 0
+	#dim AantalInToelevering As %Integer = 0
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	Set Response = ##class(WS.Halux.AAP.ZoekViaToeleveringResponse).%New()
 	
 	Try {
 		Do ..HeaderValidator.ValidateHeader(ZoekViaToeleveringRequest.Header)
@@ -109,7 +112,12 @@
 		If DnaCodeIterator.HasNext() {
 			Set Response.Header.Status = "200"
 			While DnaCodeIterator.HasNext() {
-				Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCodeIterator.Next()))
+				Set DnaCode = DnaCodeIterator.Next()
+				Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCode))
+				Set AantalInToelevering = AantalInToelevering + 1
+				If $$$HasLength(DnaCode.InitialenScanner) {
+					Set AantalReedsGescand = AantalReedsGescand + 1
+				}
 			}
 		} Else {
 			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
@@ -120,6 +128,10 @@
 		Set Response.Header.Status = Exception.GeefExceptionCode()
 		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
 	}
+	
+	Set Response.AantalInToelevering = AantalInToelevering
+	Set Response.AantalReedsGescand = AantalReedsGescand
+	
 	Quit Response
 ]]></Implementation>
 </Method>
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ZoekViaToelevering/Test.cls.xml
===================================================================
diff -u -r55666 -r55768
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ZoekViaToelevering/Test.cls.xml	(.../Test.cls.xml)	(revision 55666)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ZoekViaToelevering/Test.cls.xml	(.../Test.cls.xml)	(revision 55768)
@@ -23,6 +23,8 @@
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,"200")
 	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2)
+	Do $$$AssertEquals(Antwoord.AantalInToelevering,"2")
+	Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0")
 	Do HeaderValidatorMock.Verifieer()
 ]]></Implementation>
 </Method>