Index: vhTest/Fake/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r60940 -r60942
--- vhTest/Fake/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 60940)
+++ vhTest/Fake/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 60942)
@@ -12,6 +12,20 @@
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalAantalGescandeVhossSequentieItemsNietTbx">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAantalGescandeVhossSequentieItemsTbx">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml
===================================================================
diff -u -r60941 -r60942
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 60941)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 60942)
@@ -3,10 +3,13 @@
 <Class name="vhUnitTest.WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test die nog niets doet">
+<Method name="Test: niet TBX en geen sequentie gekend -&gt; aantal = 0">
 <Implementation><![CDATA[
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.DnaCode = "LABCDE0"
+	Set DnaCode.BatchId = 12345
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()
-	#dim Aantal = Bepaler.BepaalAantalGescandeVhossSequentieItems()
+	#dim Aantal = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
 	Do $$$AssertEquals(Aantal,0)
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r60940 -r60942
--- vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 60940)
+++ vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 60942)
@@ -8,9 +8,17 @@
 <Super>WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>SequentieService:APPS.Halux.common.SequentieService</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BepaalAantalGescandeVhossSequentieItems">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalAantalGescandeVhossSequentieItems")
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalAantalGescandeVhossSequentieItems",DnaCode)
 ]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r60941 -r60942
--- WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 60941)
+++ WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 60942)
@@ -3,11 +3,54 @@
 <Class name="WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler">
 <Super>TECH.Mockable</Super>
 
+<Property name="SequentieService">
+<Type>APPS.Halux.common.SequentieService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>SequentieService:APPS.Halux.common.SequentieService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..SequentieService = $$$Inject(SequentieService, ##class(APPS.Halux.common.impl.SequentieService).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BepaalAantalGescandeVhossSequentieItems">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit 0
+<Implementation><![CDATA[
+	If ##class(TECH.StringUtils).StartsWith(DnaCode,"T") {
+		Quit ..BepaalAantalGescandeVhossSequentieItemsTbx(DnaCode)
+	} Else {
+		Quit ..BepaalAantalGescandeVhossSequentieItemsNietTbx(DnaCode)
+	}
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalAantalGescandeVhossSequentieItemsTbx">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit -1
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAantalGescandeVhossSequentieItemsNietTbx">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Quit:$$$Not(..SequentieService.HeeftSequentie(DnaCode.BatchId)) 0
+	
+	Quit 42
+]]></Implementation>
+</Method>
 </Class>