Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r61575 -r61576
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61575)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61576)
@@ -34,13 +34,13 @@
 		Quit:$$$Not(..SequentieService.HeeftSequentie(DnaCode.BatchId)) Resultaat
 		
 		#dim TbxSequentie As %CacheString = ..GeefOvereenkomendProductieSequentieItemTBX(DnaCode)		
-		Set Resultaat = ..VerwerkDnaCode(DnaCode, TbxSequentie, Pallet, BatchId)
+		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)
+		Set Resultaat = ..VerwerkDnaCode(DnaCode, ,ProductieSequentieItem, Pallet, BatchId)
 		
 	}
 	Quit Resultaat
@@ -88,7 +88,7 @@
 </Method>
 
 <Method name="VerwerkDnaCode">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,ProductieSequentieNummer:%String,Pallet:%String,BatchId:%String</FormalSpec>
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,TBXSequentie:%CacheString,ProductieSequentie:APPS.Halux.common.VHOSSProductieSequentieItem,Pallet:%String,BatchId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[