Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r61018 -r61050
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61018)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61050)
@@ -104,14 +104,13 @@
 </Method>
 
 <Method name="ZoekViaPalletCode">
-<FormalSpec>ZoakViaPalletCodeRequest:WS.Halux.AAP.ZoekViaPalletCodeRequest</FormalSpec>
+<FormalSpec>ZoekViaPalletCodeRequest:WS.Halux.AAP.ZoekViaPalletCodeRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.ZoekViaPalletCodeResponse</ReturnType>
 <Implementation><![CDATA[
 	Set Response = ##class(WS.Halux.AAP.ZoekViaPalletCodeResponse).%New()
 	
 	Try {
-		#dim PalletCode = ##class(TECH.StringUtils).ToUpper(ZoakViaPalletCodeRequest.PalletCode)
-		
+		#dim PalletCode = ##class(TECH.StringUtils).ToUpper(ZoekViaPalletCodeRequest.PalletCode)
 		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaPalletCodeEnRecent(PalletCode)
 		
 		If DnaCodeIterator.HasNext() {
@@ -133,6 +132,47 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekAlleVhossLadesBijDnaCode">
+<FormalSpec>ZoekAlleVhossLadesBijDnaCode:WS.Halux.AAP.ZoekAlleVhossLadesBijDnaCodeRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.ZoekAlleVhossLadesBijDnaCodeResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(WS.Halux.AAP.ZoekAlleVhossLadesBijDnaCodeResponse).%New()
+	
+	Try {
+		#dim PalletCode = ##class(TECH.StringUtils).ToUpper(ZoekAlleVhossLadesBijDnaCode.PalletCode)
+		#dim DnaCodeIterator As TECH.Iterator
+		If $$$HasLength(ZoekAlleVhossLadesBijDnaCode.GuiVhossVolgnummer) {
+			#dim AfmeldenResponse As WS.Halux.AAP.DnaCodeAfmeldenResponse
+			#dim TempDnaCodeIterator As TECH.Iterator
+			Set TempDnaCodeIterator = ..DnaCodeRepository.ZoekViaDnaCode(ZoekAlleVhossLadesBijDnaCode.DnaCode)
+			If TempDnaCodeIterator.HasNext() {
+				#dim DnaCode As DOM.Halux.AAP.DnaCode = TempDnaCodeIterator.Next() 
+				Set AfmeldenResponse = ..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode, ZoekAlleVhossLadesBijDnaCode.GuiVhossVolgnummer)	
+				Set DnaCodeIterator = ##class(TECH.ListIterator).%New(AfmeldenResponse.DnaCodes)
+			}
+		} Else {
+			Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCodeEnRecent(PalletCode)
+		}
+		
+		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 pallet '"_PalletCode_"'"
+		}
+	} 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="ZoekViaDnaCode">
 <FormalSpec>ZoekViaDnaCodeRequest:WS.Halux.AAP.ZoekViaDnaCodeRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.ZoekViaDnaCodeResponse</ReturnType>
@@ -241,6 +281,7 @@
 				
 				If ..IsGeldigeVhossCode(DnaCodeAfmeldenRequest.PalletCode) {
 					Set Response = ..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+					Set Response.Header.Status = "200"
 				} Else {
 					Set ToeleveringId = DnaCode.Toelevering
 					Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId)