Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60765 -r60771
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60765)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60771)
@@ -592,14 +592,16 @@
 <FormalSpec>ZoekViaKlantnummerRequest:WS.Halux.AAP.ZoekViaKlantnummerRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.ZoekViaKlantnummerResponse</ReturnType>
 <Implementation><![CDATA[
-	Set Response = ##class(WS.Halux.AAP.ZoekViaDnaCodeResponse).%New()
+	Set Response = ##class(WS.Halux.AAP.ZoekViaKlantnummerResponse).%New()
 	
 	Try {		
 		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaKlantnummer(ZoekViaKlantnummerRequest.Klantnummer)
 		
 		If DnaCodeIterator.HasNext() {
 			Set Response.Header.Status = "200"
-			Set Response.DnaCodes = ..DnaCodeNaarDto(DnaCodeIterator.Next())
+			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 Klantnummer '"_ZoekViaKlantnummerRequest.Klantnummer_"'"
@@ -618,14 +620,16 @@
 <FormalSpec>ZoekViaLadecodeRequest:WS.Halux.AAP.ZoekViaLadecodeRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.ZoekViaLadecodeResponse</ReturnType>
 <Implementation><![CDATA[
-	Set Response = ##class(WS.Halux.AAP.ZoekViaDnaCodeResponse).%New()
+	Set Response = ##class(WS.Halux.AAP.ZoekViaLadecodeResponse).%New()
 	
 	Try {
 		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaLadeCodeEnRecent(ZoekViaLadecodeRequest.Ladecode)
 		
 		If DnaCodeIterator.HasNext() {
 			Set Response.Header.Status = "200"
-			Set Response.DnaCodes = ..DnaCodeNaarDto(DnaCodeIterator.Next())
+			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 Ladecode '"_ZoekViaLadecodeRequest.Ladecode_"'"
@@ -644,14 +648,16 @@
 <FormalSpec>ZoekViaOrdernummerRequest:WS.Halux.AAP.ZoekViaOrdernummerRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.ZoekViaOrdernummerResponse</ReturnType>
 <Implementation><![CDATA[
-	Set Response = ##class(WS.Halux.AAP.ZoekViaDnaCodeResponse).%New()
+	Set Response = ##class(WS.Halux.AAP.ZoekViaOrdernummerResponse).%New()
 	
 	Try {
 		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaOrdernummer(ZoekViaOrdernummerRequest.Ordernummer)
 		
 		If DnaCodeIterator.HasNext() {
 			Set Response.Header.Status = "200"
-			Set Response.DnaCodes = ..DnaCodeNaarDto(DnaCodeIterator.Next())
+			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 Ordernummer '"_ZoekViaOrdernummerRequest.Ordernummer_"'"