Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml
===================================================================
diff -u -r61022 -r61023
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61022)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61023)
@@ -188,14 +188,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: TBX, voorlopig dummy -1 teruggeven">
+<Method name="Test: TBX, voorlopig dummy 0 teruggeven">
 <Implementation><![CDATA[
 	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set DnaCode.DnaCode = "TABCDE0"
 	Set DnaCode.BatchId = 12345
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()
 	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
-	Do $$$AssertEquals(Antwoord.AantalInToelevering,-1)
+	Do $$$AssertEquals(Antwoord.AantalInToelevering,0)
 ]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r61022 -r61023
--- WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61022)
+++ WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61023)
@@ -44,10 +44,58 @@
 <Private>1</Private>
 <ReturnType>WS.Halux.AAP.DnaCodeAfmeldenResponse</ReturnType>
 <Implementation><![CDATA[
+	
+	Do ##class(Tools.Wlip).%New(127).String("100")
 	#dim Resultaat = ##class(WS.Halux.AAP.DnaCodeAfmeldenResponse).%New()
-	Set Resultaat.AantalInToelevering = -1
-	Set Resultaat.AantalReedsGescand = -1
+	Set Resultaat.AantalInToelevering = 0
+	Set Resultaat.AantalReedsGescand = 0
+	
+	Quit:$$$Not(..SequentieService.HeeftSequentie(DnaCode.BatchId)) Resultaat
+	
+	Do ##class(Tools.Wlip).%New(127).String("200")
+	#dim ItemIterator As TECH.Iterator = ..GeefTbxSequentieIterator(DnaCode.BatchId)
+	Set AantallenPerVhoss = ##class(TECH.FrequentieTabel).%New()
+	Set AantallenGescandPerVhoss = ##class(TECH.FrequentieTabel).%New()
+	#dim VhossidVanDnaCode As %String = ""
+	#dim TbxSequentie As %CacheString
+	While ItemIterator.HasNext() {
+	Do ##class(Tools.Wlip).%New(127).String("300")
+		Set TbxSequentie = ItemIterator.Next()
+		Do AantallenPerVhoss.Verhoog(TbxSequentie.GetData(2))
+	Do ##class(Tools.Wlip).%New(127).String("400 "_DnaCode.BatchId_" "_TbxSequentie.GetData(3)_"/"_TbxSequentie.GetData(2)_"/"_TbxSequentie.GetData(1))
+		If ..IsDnaCodeGescand(DnaCode.BatchId, TbxSequentie.GetData(1)) {
+			Do AantallenGescandPerVhoss.Verhoog(TbxSequentie.GetData(2))
+		}
+		If DnaCode.SequentieNummer = TbxSequentie.GetData(1) {
+			Set VhossidVanDnaCode = TbxSequentie.GetData(2)
+		}
+	}
+	Set ItemIterator = ..GeefTbxSequentieIterator(DnaCode.BatchId)
+	While ItemIterator.HasNext() {
+		Set TbxSequentie = ItemIterator.Next()
+		If TbxSequentie.GetData(2) = VhossidVanDnaCode {
+			Do Resultaat.DnaCodes.Insert(..DnaCodeNaarDto(DnaCode))
+		}
+	}
+	
+	Do ##class(Tools.Wlip).%New(127).String(AantallenPerVhoss.ToString())
+	Do ##class(Tools.Wlip).%New(127).String(AantallenGescandPerVhoss.ToString())
+	#dim AantalInVhoss As %Integer = 0
+	#dim AantallenGescandInVhoss As %Integer = 0
+	Try {
+		Set AantalInVhoss = AantallenPerVhoss.GeefFrequentieVanItem(VhossidVanDnaCode)
+		Set AantallenGescandInVhoss = AantallenGescandPerVhoss.GeefFrequentieVanItem(VhossidVanDnaCode)
+	}
+	Catch {
+		Set AantalInVhoss = 0
+		Set AantallenGescandInVhoss = 0
+	}
+	Set Resultaat.AantalInToelevering = AantalInVhoss
+	Set Resultaat.AantalReedsGescand = AantallenGescandInVhoss
 	Quit Resultaat
+	
+	
+	Quit Resultaat
 ]]></Implementation>
 </Method>
 
@@ -162,6 +210,19 @@
 	Quit DnaCodeDto
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTbxSequentieIterator">
+<FormalSpec>BatchId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim Query As %String = "SELECT ID, WPVerpak_Unitnr, Sequence FROM PPS.TBX_Queue WHERE BatchID = ? "
+	#dim QueryParams As %List = $ListBuild(BatchId)
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(Query, QueryParams)
+	
+	Quit ##class(TECH.ResultSetIterator).%New(ResultSet)
+]]></Implementation>
+</Method>
 </Class>