Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml
===================================================================
diff -u -r55687 -r55690
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml	(.../Test.cls.xml)	(revision 55687)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml	(.../Test.cls.xml)	(revision 55690)
@@ -15,6 +15,7 @@
 	Set DnaCode1.Toelevering = "333333"
 	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set DnaCode2.Toelevering = "333333"
+	Set DnaCode2.InitialenScanner = "XXX"
 	#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()
@@ -28,6 +29,8 @@
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,"200")
 	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2)
+	Do $$$AssertEquals(Antwoord.AantalInToelevering,"2")
+	Do $$$AssertEquals(Antwoord.AantalReedsGescand,"1")
 	Do HeaderValidatorMock.Verifieer()
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
@@ -51,6 +54,8 @@
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,##class(TECH.enu.ExceptionCode).DataNotFound())
 	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0)
+	Do $$$AssertEquals(Antwoord.AantalInToelevering,"0")
+	Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0")
 	Do HeaderValidatorMock.Verifieer()
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
@@ -78,6 +83,8 @@
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,##class(TECH.enu.ExceptionCode).InvalidInput())
 	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0)
+	Do $$$AssertEquals(Antwoord.AantalInToelevering,"0")
+	Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0")
 	Do HeaderValidatorMock.Verifieer()
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
@@ -105,6 +112,8 @@
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,##class(TECH.enu.ExceptionCode).InvalidInput())
 	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0)
+	Do $$$AssertEquals(Antwoord.AantalInToelevering,"0")
+	Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0")
 	Do HeaderValidatorMock.Verifieer()
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r55688 -r55690
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 55688)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 55690)
@@ -130,6 +130,10 @@
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	#dim ToeleveringId As %String = ""
+	#dim AantalReedsGescand As %Integer = 0
+	#dim AantalInToelevering As %Integer = 0
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	
 	Set Response = ##class(WS.Halux.AAP.DnaCodeAfmeldenResponse).%New()
 	
 	Try {
@@ -141,7 +145,7 @@
 			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
 			Set Response.Header.Omschrijving = "Geen DNACode-data gevonden voor DNACode '"_DnaCodeAfmeldenRequest.DnaCode_"'"
 		} Else {
-			#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
+			Set DnaCode = DnaCodeIterator.Next()
 			
 			If ..ValideerInput(DnaCodeAfmeldenRequest, .Response, DnaCode) {
 				Set DnaCode.InitialenScanner = DnaCodeAfmeldenRequest.Header.Initialen
@@ -156,7 +160,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()
@@ -171,6 +180,9 @@
 		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
 	}
 	
+	Set Response.AantalInToelevering = AantalInToelevering
+	Set Response.AantalReedsGescand = AantalReedsGescand
+	
 	Quit Response
 ]]></Implementation>
 </Method>