Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r61507 -r61510
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61507)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61510)
@@ -3,10 +3,80 @@
 <Class name="WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler">
 <Super>TECH.Mockable</Super>
 
+<Property name="SequentieService">
+<Type>APPS.Halux.common.SequentieService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>SequentieService:APPS.Halux.common.SequentieService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..SequentieService = $$$Inject(SequentieService, ##class(APPS.Halux.common.impl.SequentieService).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="MagDnaCodeInVhossKast">
-<FormalSpec>DnaCodeAfmeldenRequest:WS.Halux.AAP.DnaCodeAfmeldenRequest</FormalSpec>
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,Pallet:%String,GuiVhossVolgnummer:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As %Boolean = $$$False
+	#dim ItemIterator As TECH.Iterator
+	
+	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"T") {
+		Quit:$$$Not(..SequentieService.HeeftSequentie(DnaCode.BatchId)) Resultaat
+	
+		Set ItemIterator = ..GeefTbxSequentieIterator(DnaCode.BatchId)
+		Set AantallenPerVhoss = ##class(TECH.FrequentieTabel).%New()
+		Set AantallenGescandPerVhoss = ##class(TECH.FrequentieTabel).%New()
+		#dim TbxSequentie As %CacheString
+		
+		While ItemIterator.HasNext() {
+			Set TbxSequentie = ItemIterator.Next()
+			Do ..VerwerkDnaCode(DnaCode, TbxSequentie.GetData(1), TbxSequentie.GetData(2))
+		}
+
+	} Else {
+		Quit:$$$Not(..SequentieService.HeeftProductieSequentie(DnaCode.BatchId)) Resultaat
+		
+		#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie = ..SequentieService.GeefProductieSequentie(DnaCode.BatchId)
+		Set ItemIterator = ProductieSequentie.GeefItemIterator()
+		#dim ProductieSequentieItem As APPS.Halux.common.VHOSSProductieSequentieItem
+		Set AantallenPerVhoss = ##class(TECH.FrequentieTabel).%New()
+		Set AantallenGescandPerVhoss = ##class(TECH.FrequentieTabel).%New()
+		While ItemIterator.HasNext() {
+			Set ProductieSequentieItem = ItemIterator.Next()
+			Do ..VerwerkDnaCode(DnaCode, ProductieSequentieItem.SequentieNummer, ProductieSequentieItem.VHOSSID)
+		}
+	}
+	#dim VhossidVanDnaCode As %String = ""
+]]></Implementation>
 </Method>
+
+<Method name="VerwerkDnaCode">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,SequentieNummer:%String,VHOSSID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$True
+]]></Implementation>
+</Method>
+
+<Method name="GeefTbxSequentieIterator">
+<FormalSpec>BatchId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim Query As %String = "SELECT ID, WPVerpak_Unitnr, Sequence FROM PPS.TBX_Queue WHERE BatchID = ? "
+	#dim QueryParams As %List = $ListBuild(BatchId)
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(Query, QueryParams)
+	
+	Quit ##class(TECH.ResultSetIterator).%New(ResultSet)
+]]></Implementation>
+</Method>
 </Class>