Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ZoekViaBatch/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ZoekViaBatch/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ZoekViaBatch/Test.cls.xml	(revision 61423)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.AAP.DnaCodeService.ZoekViaBatch.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Standaardgedrag: data gevonden">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.ZoekViaBatchRequest).%New()
+	Set Request.BatchId = "1234"
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaBatchId",Request.BatchId).DanReturn(DnaCodeIterator)
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	
+	#dim Antwoord As WS.Halux.AAP.ZoekViaBatchResponse = DnaCodeService.ZoekViaBatch(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2)
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen data gevonden">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.ZoekViaBatchRequest).%New()
+	Set Request.BatchId = "1234"
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaBatchId",Request.BatchId).DanReturn(..EmptyIterator())
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	
+	#dim Antwoord As WS.Halux.AAP.ZoekViaBatchResponse = DnaCodeService.ZoekViaBatch(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,##class(TECH.enu.ExceptionCode).DataNotFound())
+	Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Geen data gevonden voor BatchId '"_Request.BatchId_"'")
+	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0)
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r61415 -r61423
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61415)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61423)
@@ -801,6 +801,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekViaBatch">
+<FormalSpec>ZoekViaBatchRequest:WS.Halux.AAP.ZoekViaBatchRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.ZoekViaBatchResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(WS.Halux.AAP.ZoekViaBatchResponse).%New()
+	
+	Try {
+		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaBatchId(ZoekViaBatchRequest.BatchId)
+		
+		If DnaCodeIterator.HasNext() {
+			Set Response.Header.Status = "200"
+			While DnaCodeIterator.HasNext() {
+				Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCodeIterator.Next()))
+			}
+		} Else {
+			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+			Set Response.Header.Omschrijving = "Geen data gevonden voor BatchId '"_ZoekViaBatchRequest.BatchId_"'"
+		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Header.Status = Exception.GeefExceptionCode()
+		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
+	
+	Quit Response
+]]></Implementation>
+</Method>
+
 <Method name="BewerkKlantinstellingen">
 <FormalSpec>BewerkKlantInstellingen:WS.Halux.AAP.BewerkKlantinstellingenRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.BewerkKlantinstellingenResponse</ReturnType>