Index: WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r60942 -r60943
--- WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 60942)
+++ WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 60943)
@@ -25,7 +25,7 @@
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	If ##class(TECH.StringUtils).StartsWith(DnaCode,"T") {
+	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"T") {
 		Quit ..BepaalAantalGescandeVhossSequentieItemsTbx(DnaCode)
 	} Else {
 		Quit ..BepaalAantalGescandeVhossSequentieItemsNietTbx(DnaCode)
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml
===================================================================
diff -u -r60942 -r60943
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 60942)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 60943)
@@ -13,6 +13,17 @@
 	Do $$$AssertEquals(Aantal,0)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: TBX, voorlopig dummy -1 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 Aantal = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals(Aantal,-1)
+]]></Implementation>
+</Method>
 </Class>