Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml
===================================================================
diff -u -r61008 -r61009
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61008)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61009)
@@ -81,6 +81,45 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: niet TBX sequentie met 3 items op 2 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 ProductieSequentieItem2 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem2.VHOSSID = 2
+	Set ProductieSequentieItem2.SequentieNummer = 43
+	
+	Set ProductieSequentieItem3 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem3.VHOSSID = 2
+	Set ProductieSequentieItem3.SequentieNummer = 44
+	
+	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)
+	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem3)
+	
+	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="aTest: niet TBX sequentie met 1 Vhossen -&gt; aantal ingevuld">
 <Implementation><![CDATA[
 	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()