Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml
===================================================================
diff -u -r61018 -r61022
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61018)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61022)
@@ -45,6 +45,7 @@
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService)
 	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
 	Do $$$AssertEquals(Antwoord.AantalInToelevering,1)
+	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),1)
 ]]></Implementation>
 </Method>
 
@@ -78,6 +79,7 @@
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService, DnaCodeRepository)
 	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
 	Do $$$AssertEquals(Antwoord.AantalReedsGescand,1)
+	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),1)
 ]]></Implementation>
 </Method>
 
@@ -112,6 +114,7 @@
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService)
 	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
 	Do $$$AssertEquals(Antwoord.AantalInToelevering,2)
+	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2)
 ]]></Implementation>
 </Method>
 
@@ -151,6 +154,7 @@
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService)
 	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
 	Do $$$AssertEquals(Antwoord.AantalInToelevering,1)
+	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),1)
 ]]></Implementation>
 </Method>
 
@@ -180,7 +184,7 @@
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()
 	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
-	Do $$$AssertEquals($LI(Aantal,1),0)
+	Do $$$AssertEquals(Antwoord.AantalInToelevering,0)
 ]]></Implementation>
 </Method>
 
Index: WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r61018 -r61022
--- WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61018)
+++ WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61022)
@@ -80,6 +80,13 @@
 			}
 		}
 	}
+	Do ItemIterator.Reset()
+	While ItemIterator.HasNext() {
+		Set ProductieSequentieItem = ItemIterator.Next()
+		If ProductieSequentieItem.VHOSSID = VhossidVanDnaCode {
+			Do Resultaat.DnaCodes.Insert(..DnaCodeNaarDto(DnaCode))
+		}
+	}
 	
 	#dim AantalInVhoss As %Integer = 0
 	#dim AantallenGescandInVhoss As %Integer = 0
@@ -97,6 +104,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalVhossIdVanDnaCode">
+<FormalSpec>SequentieNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductieSequentieItem As APPS.Halux.common.VHOSSProductieSequentieItem
+	Set ProductieSequentieItem = ..SequentieService.GeefProductieSequentieItem(SequentieNummer)
+	Quit ProductieSequentieItem.VHOSSID
+]]></Implementation>
+</Method>
+
 <Method name="IsDnaCodeGescand">
 <FormalSpec>BatchId:%String,SequentieNummer:%String</FormalSpec>
 <Private>1</Private>
@@ -115,6 +133,35 @@
 	Quit Resultaat
 ]]></Implementation>
 </Method>
+
+<Method name="DnaCodeNaarDto">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<Private>1</Private>
+<ReturnType>WSimpl.Halux.AAP.dto.DnaCode</ReturnType>
+<Implementation><![CDATA[
+	Set DnaCodeDto = ##class(WSimpl.Halux.AAP.dto.DnaCode).%New()
+	
+	Set DnaCodeDto.AxProductieOrderNummer = DnaCode.AxProductieOrderNummer 
+	Set DnaCodeDto.ProductNummer = DnaCode.ProductNummer 
+	Set DnaCodeDto.DnaCode = DnaCode.DnaCode 
+	Set DnaCodeDto.PalletCode = DnaCode.PalletCode 
+	Set DnaCodeDto.Toelevering = DnaCode.Toelevering 
+	Set DnaCodeDto.KlantNummer = DnaCode.KlantNummer 
+	Set DnaCodeDto.Locatie = DnaCode.Locatie 
+	Set DnaCodeDto.Lijn = DnaCode.Lijn 
+	Set DnaCodeDto.InitialenScanner = DnaCode.InitialenScanner 
+	Set DnaCodeDto.ScanTijdstip = ##class(TECH.DateTime).HorologToTimeStamp(DnaCode.ScanTijdstip)
+	Set DnaCodeDto.LadeCode = DnaCode.LadeCode 
+	Set DnaCodeDto.Status = DnaCode.Status 
+	Set DnaCodeDto.IsDirecteLevering = DnaCode.IsDirecteLevering
+	Set DnaCodeDto.ParentDnaCode = DnaCode.ParentDnaCode 
+	Set DnaCodeDto.SequentieNummer = DnaCode.SequentieNummer 
+	Set DnaCodeDto.IsWegwerpPallet = DnaCode.IsWegwerpPallet
+	Set DnaCodeDto.BatchId = DnaCode.BatchId 
+	
+	Quit DnaCodeDto
+]]></Implementation>
+</Method>
 </Class>