Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml
===================================================================
diff -u -r60944 -r61008
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 60944)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61008)
@@ -18,6 +18,84 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: niet TBX sequentie met 1 items op 1 Vhoss -&gt; aantal 1">
+<Implementation><![CDATA[
+	#dim BatchId = 12345
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.DnaCode = "HABCDE0"
+	Set DnaCode.BatchId = BatchId
+	Set DnaCode.SequentieNummer = 42
+	
+	Set ProductieSequentieItem1 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem1.VHOSSID = 1
+	Set ProductieSequentieItem1.SequentieNummer = 42
+	
+	Set BatchStub = ##class(vhTest.Mock.APPS.Halux.common.TaorboxBatch).%New()
+	Do BatchStub.IndienMethodCall("GeefID").DanReturn(BatchId)
+	Do BatchStub.IndienMethodCall("GeefCategorie").DanReturn(##class(APPS.Halux.common.enu.Categorie).TAORbox())
+	
+	Set ProductieSequentie = ##class(vhUnitTest.APPS.Halux.common.impl.UTProductieSequentie).%New(BatchStub)
+	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem1)
+	
+	Set SequentieService = ##class(vhTest.Mock.APPS.Halux.common.impl.SequentieService).%New()
+	Do SequentieService.IndienMethodCall("HeeftProductieSequentie",DnaCode.BatchId).DanReturn($$$True)
+	Do SequentieService.IndienMethodCall("GeefProductieSequentie",DnaCode.BatchId).DanReturn(ProductieSequentie)
+	
+	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService)
+	#dim Aantal = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals(Aantal,1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: niet TBX sequentie met 2 items op 1 Vhoss -&gt; aantal 2">
+<Implementation><![CDATA[
+	#dim BatchId = 12345
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.DnaCode = "HABCDE0"
+	Set DnaCode.BatchId = BatchId
+	Set DnaCode.SequentieNummer = 42
+	
+	Set ProductieSequentieItem1 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem1.VHOSSID = 1
+	Set ProductieSequentieItem1.SequentieNummer = 42
+	
+	Set ProductieSequentieItem2 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem2.VHOSSID = 1
+	Set ProductieSequentieItem2.SequentieNummer = 43
+	
+	Set BatchStub = ##class(vhTest.Mock.APPS.Halux.common.TaorboxBatch).%New()
+	Do BatchStub.IndienMethodCall("GeefID").DanReturn(BatchId)
+	Do BatchStub.IndienMethodCall("GeefCategorie").DanReturn(##class(APPS.Halux.common.enu.Categorie).TAORbox())
+	
+	Set ProductieSequentie = ##class(vhUnitTest.APPS.Halux.common.impl.UTProductieSequentie).%New(BatchStub)
+	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem1)
+	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem2)
+	
+	Set SequentieService = ##class(vhTest.Mock.APPS.Halux.common.impl.SequentieService).%New()
+	Do SequentieService.IndienMethodCall("HeeftProductieSequentie",DnaCode.BatchId).DanReturn($$$True)
+	Do SequentieService.IndienMethodCall("GeefProductieSequentie",DnaCode.BatchId).DanReturn(ProductieSequentie)
+	
+	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService)
+	#dim Aantal = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals(Aantal,2)
+]]></Implementation>
+</Method>
+
+<Method name="aTest: niet TBX sequentie met 1 Vhossen -&gt; aantal ingevuld">
+<Implementation><![CDATA[
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.DnaCode = "LABCDE0"
+	Set DnaCode.BatchId = 12345
+	
+	Set SequentieService = ##class(vhTest.Mock.APPS.Halux.common.impl.SequentieService).%New()
+	Do SequentieService.IndienMethodCall("HeeftSequentie",DnaCode.BatchId).DanReturn($$$False)
+	
+	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()
+	#dim Aantal = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals(Aantal,0)
+]]></Implementation>
+</Method>
+
 <Method name="aTest: niet TBX en wel sequentie gekend">
 <Implementation><![CDATA[
 	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
Index: WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r60943 -r61008
--- WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 60943)
+++ WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61008)
@@ -46,9 +46,31 @@
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	Quit:$$$Not(..SequentieService.HeeftSequentie(DnaCode.BatchId)) 0
+	Quit:$$$Not(..SequentieService.HeeftProductieSequentie(DnaCode.BatchId)) 0
 	
-	Quit 42
+	#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie = ..SequentieService.GeefProductieSequentie(DnaCode.BatchId)
+	#dim ItemIterator As TECH.Iterator = ProductieSequentie.GeefItemIterator()
+	#dim ProductieSequentieItem As APPS.Halux.common.VHOSSProductieSequentieItem
+	Set AantallenPerVhoss = ##class(TECH.FrequentieTabel).%New()
+	#dim VhossidVanDnaCode As %String = ""
+	While ItemIterator.HasNext() {
+		Set ProductieSequentieItem = ItemIterator.Next()
+		If ProductieSequentieItem.%IsA(##class(APPS.Halux.common.VHOSSProductieSequentieItem).%ClassName($$$True)) {
+			Do AantallenPerVhoss.Verhoog(ProductieSequentieItem.VHOSSID)
+			If DnaCode.SequentieNummer = ProductieSequentieItem.SequentieNummer {
+				Set VhossidVanDnaCode = ProductieSequentieItem.VHOSSID
+			}
+		}
+	}
+	
+	#dim AantalInVhoss As %Integer = 0
+	Try {
+		Set AantalInVhoss = AantallenPerVhoss.GeefFrequentieVanItem(VhossidVanDnaCode)
+	}
+	Catch {
+		Set AantalInVhoss = 0
+	}
+	Quit AantalInVhoss
 ]]></Implementation>
 </Method>
 </Class>