Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml
===================================================================
diff -u -r61023 -r61024
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61023)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61024)
@@ -158,36 +158,6 @@
 ]]></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 Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
-	Do $$$AssertEquals(Antwoord.AantalInToelevering,0)
-]]></Implementation>
-</Method>
-
-<Method name="aTest: niet TBX en wel sequentie gekend">
-<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($$$True)
-	
-	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()
-	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
-	Do $$$AssertEquals(Antwoord.AantalInToelevering,0)
-]]></Implementation>
-</Method>
-
 <Method name="Test: TBX, voorlopig dummy 0 teruggeven">
 <Implementation><![CDATA[
 	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
Index: WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r61023 -r61024
--- WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61023)
+++ WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61024)
@@ -44,25 +44,20 @@
 <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 = 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))
 		}
@@ -78,8 +73,6 @@
 		}
 	}
 	
-	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 {