Index: APPS/Halux/common/impl/ProductieSequentie/Tandembox.cls.xml
===================================================================
diff -u -r71882 -r73612
--- APPS/Halux/common/impl/ProductieSequentie/Tandembox.cls.xml	(.../Tandembox.cls.xml)	(revision 71882)
+++ APPS/Halux/common/impl/ProductieSequentie/Tandembox.cls.xml	(.../Tandembox.cls.xml)	(revision 73612)
@@ -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: BL/PPS/TBX/Sequencer.cls.xml
===================================================================
diff -u -r60931 -r73612
--- BL/PPS/TBX/Sequencer.cls.xml	(.../Sequencer.cls.xml)	(revision 60931)
+++ BL/PPS/TBX/Sequencer.cls.xml	(.../Sequencer.cls.xml)	(revision 73612)
@@ -124,7 +124,6 @@
 	. . . Set oQ.WPLosOnderdeel=##class(BL.PPS.WPLosOnderdeel).Create(KLNr,TOENr,TLUNr,PRNr,Qty)
 	. . . Set oQ.WPPers=##class(WPPers).Create(KLNr,TOENr,TLUNr,PRNr,Qty)
 	. . . Set Status=oQ.%Save()
-	. . . Do ##class(APPS.Halux.AAP.DnaCodeService).%New().VulInSequentieId(oQ.Sequence,oQ.BatchID,oQ.TOENr,oQ.TLUNr)
 	. . . Set QtyLade=QtyLade+1
 	. . If Status=$$$OK Set X=##class(BL.Legacy.HaluxProductieOpvolging).MARKPR(##class(BL.Legacy.HaluxProductieOpvolging).FABKEYT(TOENr,TLUNr),"B",Qty,Qty,$H)  ; HADPR invullen met status "B"
 	set blPrebuild=##class(BL.PPS.TBX.Prebuild).Instantiate()