Index: vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r71890 -r71956
--- vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 71890)
+++ vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 71956)
@@ -69,8 +69,8 @@
 </Method>
 
 <Method name="VulInSequentieId">
-<FormalSpec>SequentieId:%String,BatchId:%String,ToeleveringId:%String,ToeleveringlijnId:%String</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("VulInSequentieId",SequentieId,BatchId,ToeleveringId,ToeleveringlijnId)
+<FormalSpec>SequentieId:%String,BatchId:%String,ToeleveringId:%String,ToeleveringlijnId:%String,ProductId:%String=""</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VulInSequentieId",SequentieId,BatchId,ToeleveringId,ToeleveringlijnId,ProductId)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/common/impl/ProductieSequentie/Legrabox.cls.xml
===================================================================
diff -u -r71437 -r71956
--- APPS/Halux/common/impl/ProductieSequentie/Legrabox.cls.xml	(.../Legrabox.cls.xml)	(revision 71437)
+++ APPS/Halux/common/impl/ProductieSequentie/Legrabox.cls.xml	(.../Legrabox.cls.xml)	(revision 71956)
@@ -51,7 +51,7 @@
 		Set Item.GroepSequentieNummer = Item.SequentieNummer
 		Set Item.ToeleveringSequentieNummer = ..FrequentieTabel.Verhoog(Item.ToeleveringID)		
 		
-		Do ##class(APPS.Halux.AAP.DnaCodeService).%New().VulInSequentieId(Item.SequentieNummer, Item.BatchID, Item.ToeleveringID, Item.ToeleveringLijnID)
+		Do ##class(APPS.Halux.AAP.DnaCodeService).%New().VulInSequentieId(Item.SequentieNummer, Item.BatchID, Item.ToeleveringID, Item.ToeleveringLijnID, Item.ProductID)
 		Do GesorteerdeProductieSequentieItems.Insert(Item)
 	}
 	
Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/VulInSequentieIds/Test.cls.xml
===================================================================
diff -u -r71954 -r71956
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/VulInSequentieIds/Test.cls.xml	(.../Test.cls.xml)	(revision 71954)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/VulInSequentieIds/Test.cls.xml	(.../Test.cls.xml)	(revision 71956)
@@ -73,6 +73,141 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Indien ProductId leeg is -&gt; SequentieId invullen voor 1 dnacode">
+<Implementation><![CDATA[
+	#dim SequentieId As %Integer = 1
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekVolgendeMetLeegSequentieItem",..Batch.GeefID(),"222222","100").DanReturn(DnaCodeIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar", DnaCode1).ExactAantalKeer(1).DanDoeNiks()
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Do DnaCodeService.VulInSequentieId(SequentieId,..Batch.GeefID(), "222222", "100")
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien twee dnacodes met SST -&gt; SequentieId invullen voor beide dnacodes">
+<Implementation><![CDATA[
+	#dim SequentieId As %Integer = 1
+	#dim ProductId As %String = "1234"
+	#dim IsSpaceStep As %Boolean = $$$True
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.DnaCode = "A11111"
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2.DnaCode = "O11111"
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekVolgendeMetLeegSequentieItem",..Batch.GeefID(),"222222","100").DanReturn(DnaCodeIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar", DnaCode1).ExactAantalKeer(1).DanDoeNiks()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar", DnaCode2).ExactAantalKeer(1).DanDoeNiks()
+	
+	#dim LbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set IngegevenKenmerkenSpaceStepHelperMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper).%New()
+	Do IngegevenKenmerkenSpaceStepHelperMock.VerwachtMethodCall("IsSpaceStep", LbxKenmerken).DanReturn(IsSpaceStep)
+	
+	Set ProductMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+	Do ProductMock.VerwachtMethodCall("GeefIngegevenKenmerken").DanReturn(LbxKenmerken)
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ProductId).DanReturn(ProductMock)
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,, ProductApiMock,,,, IngegevenKenmerkenSpaceStepHelperMock)
+	Do DnaCodeService.VulInSequentieId(SequentieId,..Batch.GeefID(), "222222", "100", ProductId)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+	Do IngegevenKenmerkenSpaceStepHelperMock.Verifieer()
+	Do ProductMock.Verifieer()
+	Do ProductApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien twee dnacodes zonder SST -&gt; SequentieId invullen voor enkel de eerste dnacode">
+<Implementation><![CDATA[
+	#dim SequentieId As %Integer = 1
+	#dim ProductId As %String = "1234"
+	#dim IsSpaceStep As %Boolean = $$$False
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.DnaCode = "A11111"
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2.DnaCode = "A11112"
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekVolgendeMetLeegSequentieItem",..Batch.GeefID(),"222222","100").DanReturn(DnaCodeIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar", DnaCode1).ExactAantalKeer(1).DanDoeNiks()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar", DnaCode2).ExactAantalKeer(0).DanDoeNiks()
+	
+	#dim LbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set IngegevenKenmerkenSpaceStepHelperMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper).%New()
+	Do IngegevenKenmerkenSpaceStepHelperMock.VerwachtMethodCall("IsSpaceStep", LbxKenmerken).DanReturn(IsSpaceStep)
+	
+	Set ProductMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+	Do ProductMock.VerwachtMethodCall("GeefIngegevenKenmerken").DanReturn(LbxKenmerken)
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ProductId).DanReturn(ProductMock)
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,, ProductApiMock,,,, IngegevenKenmerkenSpaceStepHelperMock)
+	Do DnaCodeService.VulInSequentieId(SequentieId,..Batch.GeefID(), "222222", "100", ProductId)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+	Do IngegevenKenmerkenSpaceStepHelperMock.Verifieer()
+	Do ProductMock.Verifieer()
+	Do ProductApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien meerdere dnacodes met meerdere SST -&gt; SequentieId invullen voor eerstvolgende SST">
+<Implementation><![CDATA[
+	#dim SequentieId As %Integer = 1
+	#dim ProductId As %String = "1234"
+	#dim IsSpaceStep As %Boolean = $$$True
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.DnaCode = "A11111"
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2.DnaCode = "A11112"
+	Set DnaCode3 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode3.DnaCode = "O11111"
+	Set DnaCode4 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode4.DnaCode = "O11112"
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3, DnaCode4)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekVolgendeMetLeegSequentieItem",..Batch.GeefID(),"222222","100").DanReturn(DnaCodeIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar", DnaCode1).ExactAantalKeer(1).DanDoeNiks()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar", DnaCode2).ExactAantalKeer(0).DanDoeNiks()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar", DnaCode3).ExactAantalKeer(1).DanDoeNiks()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar", DnaCode4).ExactAantalKeer(0).DanDoeNiks()
+	
+	#dim LbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set IngegevenKenmerkenSpaceStepHelperMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper).%New()
+	Do IngegevenKenmerkenSpaceStepHelperMock.VerwachtMethodCall("IsSpaceStep", LbxKenmerken).DanReturn(IsSpaceStep)
+	
+	Set ProductMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+	Do ProductMock.VerwachtMethodCall("GeefIngegevenKenmerken").DanReturn(LbxKenmerken)
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ProductId).DanReturn(ProductMock)
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,, ProductApiMock,,,, IngegevenKenmerkenSpaceStepHelperMock)
+	Do DnaCodeService.VulInSequentieId(SequentieId,..Batch.GeefID(), "222222", "100", ProductId)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+	Do IngegevenKenmerkenSpaceStepHelperMock.Verifieer()
+	Do ProductMock.Verifieer()
+	Do ProductApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Batch heeft geen ProductieSequentie -&gt; niets bijwerken">
 <Implementation><![CDATA[
 	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()