Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/VulInSequentieIds/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/VulInSequentieIds/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/VulInSequentieIds/Test.cls.xml	(revision 60928)
@@ -0,0 +1,98 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.AAP.DnaCodeService.VulInSequentieIds.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="BatchId">
+<Type>%Integer</Type>
+<Default>1234</Default>
+</Parameter>
+
+<Property name="ProductTypeApiStub">
+<Type>DOM.PM.impl.ProductTypeAPIimpl</Type>
+</Property>
+
+<Property name="DnaCodeGeneratorStub">
+<Type>APPS.Halux.AAP.DnaCodeGenerator</Type>
+</Property>
+
+<Property name="LijnId">
+<Type>APPS.Halux.common.enu.ProductieLijn</Type>
+</Property>
+
+<Property name="Batch">
+<Type>APPS.Halux.common.Batch</Type>
+</Property>
+
+<Property name="ProductApiStub">
+<Type>DOM.PM.ProductAPI</Type>
+</Property>
+
+<Property name="SequentieService">
+<Type>APPS.Halux.common.impl.SequentieService</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New(..LijnId)
+	Do ..Batch.IndienMethodCall("GeefID").DanReturn(..#BatchId)
+	Set ..SequentieService = ##class(vhTest.Mock.APPS.Halux.common.impl.SequentieService).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Batch heeft ProductieSequentie -&gt; DnaCodes bijwerken (indien gevonden)">
+<Implementation><![CDATA[
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekVolgendeMetLeegSequentieItem",..Batch.GeefID(),"222222","100").DanReturn(DnaCodeIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).DanDoeNiks()
+	Do ..SequentieService.IndienMethodCall("HeeftSequentie",..Batch.GeefID()).DanReturn($$$True)
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,..SequentieService)
+	Do DnaCodeService.VulInSequentieId(1,..Batch.GeefID(), "222222", "100")
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Batch heeft ProductieSequentie en geen beschikbare dnacodes -&gt; niets bijwerken">
+<Implementation><![CDATA[
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekVolgendeMetLeegSequentieItem",..Batch.GeefID(),"222222","100").DanReturn(..EmptyIterator())
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).Nooit()
+	Do ..SequentieService.IndienMethodCall("HeeftSequentie",..Batch.GeefID()).DanReturn($$$True)
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,..SequentieService)
+	Do DnaCodeService.VulInSequentieId(1,..Batch.GeefID(), "222222", "100")
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Batch heeft geen ProductieSequentie -&gt; niets bijwerken">
+<Implementation><![CDATA[
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekVolgendeMetLeegSequentieItem",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).Nooit()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).Nooit()
+	Do ..SequentieService.IndienMethodCall("HeeftSequentie",..Batch.GeefID()).DanReturn($$$False)
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,..SequentieService)
+	Do DnaCodeService.VulInSequentieId(1,..Batch.GeefID(), "222222", "100")
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60112 -r60928
--- vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60112)
+++ vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60928)
@@ -21,6 +21,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VulInSequentieId">
+<FormalSpec>SequentieId:%String,BatchId:%String,ToeleveringId:%String,ToeleveringlijnId:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VulInSequentieIds">
+<FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="DnaCodeBijwerkenMetBatchGegevens">
 <FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60898 -r60928
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60898)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60928)
@@ -30,8 +30,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="SequentieService">
+<Type>APPS.Halux.common.SequentieService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",ProjectSettingsApi:DOM.common.ProjectSettingsAPI="",ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",ProjectSettingsApi:DOM.common.ProjectSettingsAPI="",ProductApi:DOM.PM.ProductAPI="",SequentieService:APPS.Halux.common.SequentieService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -43,6 +48,7 @@
 	Set ..ProjectSettingsApi = $$$Inject(ProjectSettingsApi, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
 	Set ..DateTimeApi = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..SequentieService = $$$Inject(SequentieService, ##class(APPS.Halux.common.impl.SequentieService).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -228,6 +234,20 @@
 	Quit Result
 ]]></Implementation>
 </Method>
+
+<Method name="VulInSequentieId">
+<FormalSpec>SequentieId:%String,BatchId:%String,ToeleveringId:%String,ToeleveringlijnId:%String</FormalSpec>
+<Implementation><![CDATA[
+	If ..SequentieService.HeeftSequentie(BatchId) {
+		#dim DnaCodeIterator = ..DnaCodeRepository.ZoekVolgendeMetLeegSequentieItem(BatchId, ToeleveringId, ToeleveringlijnId)
+		If DnaCodeIterator.HasNext() {
+			#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
+			Set DnaCode.SequentieNummer = SequentieId
+			Do ..DnaCodeRepository.Bewaar(DnaCode)
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60230 -r60928
--- vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60230)
+++ vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60928)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",ProjectSettingsApi:DOM.common.ProjectSettingsAPI="",ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",ProjectSettingsApi:DOM.common.ProjectSettingsAPI="",ProductApi:DOM.PM.ProductAPI="",SequentieService:APPS.Halux.common.SequentieService=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
@@ -54,6 +54,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VulInSequentieId">
+<FormalSpec>SequentieId:%String,BatchId:%String,ToeleveringId:%String,ToeleveringlijnId:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VulInSequentieId",SequentieId,BatchId,ToeleveringId,ToeleveringlijnId)
+]]></Implementation>
+</Method>
+
 <Method name="WijzigAantalDnaCodesVoorToeleveringLijn">
 <FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("WijzigAantalDnaCodesVoorToeleveringLijn",ToeleveringLijn)