Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r62498 -r62573
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 62498)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 62573)
@@ -37,10 +37,14 @@
 	#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)		
+		#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
@@ -62,9 +66,11 @@
 	#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()
-		If DnaCode.SequentieNummer = TbxSequentie.GetData(1) {
+		Do ##class(Tools.Wlip).%New(127).String("200 "_DnaCode.SequentieNummer_"/"_TbxSequentie.GetData(3))
+		If DnaCode.SequentieNummer = TbxSequentie.GetData(3) {
 			Set Resultaat = TbxSequentie
 		}
 	}