Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r62573 -r62578
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 62573)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 62578)
@@ -37,14 +37,10 @@
 	#dim InterneVhossIds As %List	
 	
 	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"T") {
-		Do ##class(Tools.Wlip).%New(127).String("100")
 		Quit:$$$Not(..SequentieService.HeeftSequentie(DnaCode.BatchId)) Resultaat
-		Do ##class(Tools.Wlip).%New(127).String("200")
 		
 		#dim TbxSequentie As %CacheString = ..GeefOvereenkomendProductieSequentieItemTBX(DnaCode)	
-		Do ##class(Tools.Wlip).%New(127).String("300")	
 		Set Resultaat = ..VerwerkDnaCode(DnaCode, TbxSequentie,, Pallet, BatchId)
-		Do ##class(Tools.Wlip).%New(127).String("400")
 
 	} Else {
 		Quit:$$$Not(..SequentieService.HeeftProductieSequentie(DnaCode.BatchId)) Resultaat
@@ -66,10 +62,8 @@
 	#dim TbxSequentie As %CacheString
 	#dim ItemIterator As TECH.Iterator = ..GeefTbxSequentieIterator(DnaCode.BatchId)
 
-		Do ##class(Tools.Wlip).%New(127).String("100")
 	While ItemIterator.HasNext() && $$$Not(Resultaat) {
 		Set TbxSequentie = ItemIterator.Next()
-		Do ##class(Tools.Wlip).%New(127).String("200 "_DnaCode.SequentieNummer_"/"_TbxSequentie.GetData(3))
 		If DnaCode.SequentieNummer = TbxSequentie.GetData(3) {
 			Set Resultaat = TbxSequentie
 		}