Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r62631 -r62656
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62631)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62656)
@@ -786,8 +786,8 @@
 				Do AantallenPerVhoss.Verhoog(DnaCodeTemp.PalletCode)
 			} Else {
 			  	If ##class(TECH.StringUtils).StartsWith(DnaCodeTemp.DnaCode,"T") {
-					#dim TbxSequentieIterator as TECH.Iterator = ..RondAfVhossKastHelper.GeefTbxSequentieIterator(RondAfVhossBatchRequest.BatchId, DnaCodeTemp.SequentieNummer)
-					Do AantallenPerVhoss.Verhoog(..RondAfVhossKastHelper.ProbeerEchteVhossIdTeBepalenTBX(TbxSequentieIterator, VhossMapper))
+					#dim TbxSequentieItemIterator as TECH.Iterator = ..RondAfVhossKastHelper.GeefTbxSequentieItemIterator(RondAfVhossBatchRequest.BatchId, DnaCodeTemp.SequentieNummer)
+					Do AantallenPerVhoss.Verhoog(..RondAfVhossKastHelper.ProbeerEchteVhossIdTeBepalenTBX(TbxSequentieItemIterator, VhossMapper))
 				} Else {
 				  	#dim ProductieItem As APPS.Halux.common.VHOSSProductieSequentieItem = ProductieSequentie.GeefVHOSSProductieSequentieItemViaSequentieNummer(DnaCodeTemp.SequentieNummer)
 				  	Do AantallenPerVhoss.Verhoog(..RondAfVhossKastHelper.ProbeerEchteVhossIdTeBepalenNietTBX(RondAfVhossBatchRequest.BatchId,ProductieItem.VHOSSID, ProductieSequentie))