Index: WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r61753 -r62573
--- WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61753)
+++ WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 62573)
@@ -59,10 +59,10 @@
 	While ItemIterator.HasNext() {
 		Set TbxSequentie = ItemIterator.Next()
 		Do AantallenPerVhoss.Verhoog(TbxSequentie.GetData(2))
-		If ..IsDnaCodeGescand(DnaCode.BatchId, TbxSequentie.GetData(1)) {
+		If ..IsDnaCodeGescand(DnaCode.BatchId, TbxSequentie.GetData(3)) {
 			Do AantallenGescandPerVhoss.Verhoog(TbxSequentie.GetData(2))
 		}
-		If DnaCode.SequentieNummer = TbxSequentie.GetData(1) {
+		If DnaCode.SequentieNummer = TbxSequentie.GetData(3) {
 			Set VhossidVanDnaCode = TbxSequentie.GetData(2)
 		}
 	}
@@ -71,7 +71,7 @@
 	While ItemIterator.HasNext() {
 		Set TbxSequentie = ItemIterator.Next()
 		If TbxSequentie.GetData(2) = VhossidVanDnaCode {
-			Do Resultaat.DnaCodes.Insert(..DnaCodeNaarDto(..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(DnaCode.BatchId,TbxSequentie.GetData(1)).Next()))
+			Do Resultaat.DnaCodes.Insert(..DnaCodeNaarDto(..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(DnaCode.BatchId,TbxSequentie.GetData(3)).Next()))
 		}
 	}
 	
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
 		}
 	}