Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r61574 -r61575
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61574)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61575)
@@ -33,62 +33,62 @@
 	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"T") {
 		Quit:$$$Not(..SequentieService.HeeftSequentie(DnaCode.BatchId)) Resultaat
 		
-		Set ItemIterator = ..GeefTbxSequentieIterator(DnaCode.BatchId)
-		Set InterneVhossIds = ..GeefInterneVhossIds(DnaCode, ItemIterator)
-		Do ItemIterator.Reset()
-		#dim TbxSequentie As %CacheString
-		While ItemIterator.HasNext() && $$$Not(Resultaat) {
-			Set TbxSequentie = ItemIterator.Next()
-			Set Resultaat = ..VerwerkDnaCode(DnaCode, TbxSequentie.GetData(1), InterneVhossIds.GetAt(1), InterneVhossIds.GetAt(2), Pallet, BatchId)
-		}
+		#dim TbxSequentie As %CacheString = ..GeefOvereenkomendProductieSequentieItemTBX(DnaCode)		
+		Set Resultaat = ..VerwerkDnaCode(DnaCode, TbxSequentie, Pallet, BatchId)
 
 	} Else {
 		Quit:$$$Not(..SequentieService.HeeftProductieSequentie(DnaCode.BatchId)) Resultaat
+
+		#dim ProductieSequentieItem As APPS.Halux.common.VHOSSProductieSequentieItem = ..GeefOvereenkomendProductieSequentieItemNietTBX(DnaCode)
+		Set Resultaat = ..VerwerkDnaCode(DnaCode, ProductieSequentieItem, Pallet, BatchId)
 		
-		#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie = ..SequentieService.GeefProductieSequentie(DnaCode.BatchId)
-		Set ItemIterator = ProductieSequentie.GeefItemIterator()
-		Set InterneVhossIds = ..GeefInterneVhossIds(DnaCode, ItemIterator)
-		Do ItemIterator.Reset()
-		#dim ProductieSequentieItem As APPS.Halux.common.VHOSSProductieSequentieItem
-		While ItemIterator.HasNext() && $$$Not(Resultaat) {
-			Set ProductieSequentieItem = ItemIterator.Next()
-			Set Resultaat = ..VerwerkDnaCode(DnaCode, ProductieSequentieItem.SequentieNummer, $lg(InterneVhossIds,1), $lg(InterneVhossIds,2), Pallet, BatchId)
-		}
 	}
 	Quit Resultaat
 ]]></Implementation>
 </Method>
 
-<Method name="GeefInterneVhossIds">
+<Method name="GeefOvereenkomendProductieSequentieItemTBX">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,SequentieIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
-<ReturnType>%List</ReturnType>
+<ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
-	#dim Resultaat As %List
-	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"T") {
-		#dim TbxSequentie As %CacheString
-		While SequentieIterator.HasNext() {
-			Set TbxSequentie = SequentieIterator.Next()
-			If DnaCode.SequentieNummer = TbxSequentie.GetData(1) {
-				Set Resultaat = $lb(TbxSequentie.GetData(2),TbxSequentie.GetData(3))
-			}
-		}		
-	} Else {
-		#dim ProductieSequentieItem As APPS.Halux.common.VHOSSProductieSequentieItem
-		While SequentieIterator.HasNext() {
-			Set ProductieSequentieItem = SequentieIterator.Next()
-			Do ##class(Tools.Wlip).%New(127).String(DnaCode.SequentieNummer_"/"_ProductieSequentieItem.SequentieNummer)
-			If DnaCode.SequentieNummer = ProductieSequentieItem.SequentieNummer {
-				Set Resultaat = $lb(ProductieSequentieItem.VHOSSID,ProductieSequentieItem.ZijVlakID)
-			}
+	#dim Resultaat As %cachestring
+	#dim TbxSequentie As %CacheString
+	#dim ItemIterator As TECH.Iterator = ..GeefTbxSequentieIterator(DnaCode.BatchId)
+
+	While SequentieIterator.HasNext() {
+		Set TbxSequentie = SequentieIterator.Next()
+		If DnaCode.SequentieNummer = TbxSequentie.GetData(1) {
+			Set Resultaat = $lb(TbxSequentie.GetData(2),TbxSequentie.GetData(3))
 		}
+	}		
+	 
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="GeefOvereenkomendProductieSequentieItemNietTBX">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.VHOSSProductieSequentieItem</ReturnType>
+<Implementation><![CDATA[
+	#dim SequentieItemIterator As TECH.Iterator
+	#dim Resultaat As APPS.Halux.common.VHOSSProductieSequentieItem
+	#dim ProductieSequentieItem As APPS.Halux.common.VHOSSProductieSequentieItem
+	#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie = ..SequentieService.GeefProductieSequentie(DnaCode.BatchId)
+	Set SequentieItemIterator = ProductieSequentie.GeefItemIterator()
+	While SequentieItemIterator.HasNext() {
+		Set ProductieSequentieItem = SequentieItemIterator.Next()
+		If DnaCode.SequentieNummer = ProductieSequentieItem.SequentieNummer {
+			Set Resultaat = ProductieSequentieItem
+		}
 	}
 	Quit Resultaat
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkDnaCode">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,ProductieSequentieNummer:%String,ProductieVHOSSID:%String,ProductieZijvlakID:%String,Pallet:%String,BatchId:%String</FormalSpec>
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,ProductieSequentieNummer:%String,Pallet:%String,BatchId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[