Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r61062 -r61064
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61062)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61064)
@@ -174,6 +174,52 @@
 <Method name="ZoekAlleDnaCodesDieOpVhossMoeten">
 <FormalSpec>ZoekAlleDnaCodesDieOpVhossMoetenRequest:WS.Halux.AAP.ZoekAlleDnaCodesDieOpVhossMoetenRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.ZoekAlleDnaCodesDieOpVhossMoetenResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(WS.Halux.AAP.ZoekAlleDnaCodesDieOpVhossMoetenResponse).%New()
+	
+	Try {
+		If ..IsGeldigeVhossCode(ZoekAlleDnaCodesDieOpVhossMoetenRequest.FrameId) {
+			#dim TempDnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaPalletCodeEnRecent(ZoekAlleDnaCodesDieOpVhossMoetenRequest.FrameId)
+			#dim AfmeldenResponse As WS.Halux.AAP.DnaCodeAfmeldenResponse
+			
+			If TempDnaCodeIterator.HasNext() {
+				#dim DnaCode As DOM.Halux.AAP.DnaCode = TempDnaCodeIterator.Next() 
+				Set AfmeldenResponse = ..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)	
+				Set DnaCodeIterator = ##class(TECH.ListIterator).%New(AfmeldenResponse.DnaCodes)
+			
+				If DnaCodeIterator.HasNext() {
+					Set Response.Header.Status = "200"
+					While DnaCodeIterator.HasNext() {
+						Do Response.DnaCodes.Insert(DnaCodeIterator.Next())
+					}
+				} Else {
+					Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+					Set Response.Header.Omschrijving = "Geen Vhoss-data gevonden voor kast '"_ZoekAlleDnaCodesDieOpVhossMoetenRequest.FrameId_"'"
+				}
+			} Else {
+				Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+				Set Response.Header.Omschrijving = "Geen Vhoss-data gevonden voor DnaCode '"_ZoekAlleDnaCodesDieOpVhossMoetenRequest.DnaCode_"'"
+			}
+			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 VHOSS '"_ZoekAlleDnaCodesDieOpVhossMoetenRequest.FrameId_"'"
+			}
+		} Else {
+			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+			Set Response.Header.Omschrijving = "'"_ZoekAlleDnaCodesDieOpVhossMoetenRequest.FrameId_"' is geen VHOSS"
+		}
+	} 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">