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>