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>
 
 
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml
===================================================================
diff -u -r61508 -r61510
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml	(.../Test.cls.xml)	(revision 61508)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml	(.../Test.cls.xml)	(revision 61510)
@@ -145,6 +145,7 @@
 	Set Request.DnaCode = "DnaCode"
 	Set Request.Toelevering = "356789"
 	Set Request.PalletCode = "O100000042"
+	Set Request.GuiVhossVolgnummer = "1"
 	
 	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set DnaCode1.Toelevering = "222222"
@@ -154,7 +155,7 @@
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode1).DanDoeNiks()
 	
 	Set DnaCodeInVhossKastBepalerStub = ##class(vhTest.Mock.WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler).%New()
-	Do DnaCodeInVhossKastBepalerStub.IndienMethodCall("MagDnaCodeInVhossKast",Request).DanReturn($$$True)
+	Do DnaCodeInVhossKastBepalerStub.IndienMethodCall("MagDnaCodeInVhossKast",DnaCode1,Request.PalletCode,Request.GuiVhossVolgnummer).DanReturn($$$True)
 	
 	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,DnaCodeInVhossKastBepalerStub)
 	
Index: vhTest/Fake/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r61507 -r61510
--- vhTest/Fake/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61507)
+++ vhTest/Fake/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61510)
@@ -8,7 +8,7 @@
 <Super>WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler</Super>
 
 <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[	Quit ""
 ]]></Implementation>
Index: vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r61507 -r61510
--- vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61507)
+++ vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61510)
@@ -8,10 +8,17 @@
 <Super>WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>SequentieService:APPS.Halux.common.SequentieService</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	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[	quit ..VerwerkMethodCall("MagDnaCodeInVhossKast",DnaCodeAfmeldenRequest)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MagDnaCodeInVhossKast",DnaCode,Pallet,GuiVhossVolgnummer)
 ]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r61508 -r61510
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61508)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61510)
@@ -338,7 +338,7 @@
 				Do ..DnaCodeRepository.Bewaar(DnaCode)
 				
 				If ..IsGeldigeVhossCode(DnaCodeAfmeldenRequest.PalletCode) {
-					If ..DnaCodeInVhossKastBepaler.MagDnaCodeInVhossKast(DnaCodeAfmeldenRequest) {
+					If ..DnaCodeInVhossKastBepaler.MagDnaCodeInVhossKast(DnaCode, DnaCodeAfmeldenRequest.PalletCode, DnaCodeAfmeldenRequest.GuiVhossVolgnummer) {
 						Set Response = ..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode,)
 						Do ##class(Tools.Wlip).%New(127).ObjToXML(Response)
 						Set Response.Header.Status = "200"