Index: APPS/Halux/common/ProductieSequentie.cls.xml
===================================================================
diff -u -r38746 -r60931
--- APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 38746)
+++ APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 60931)
@@ -39,6 +39,11 @@
 <Transient>1</Transient>
 </Property>
 
+<Property name="SequentieService">
+<Type>APPS.Halux.AAP.DnaCodeService</Type>
+<Private>1</Private>
+</Property>
+
 <Index name="idxBatchID">
 <Properties>BatchID</Properties>
 </Index>
@@ -53,6 +58,7 @@
 	Set ..BatchID = Batch.GeefID()
 	Set ..SequentieItems = ##class(%ListOfObjects).%New()
 	Set ..Categorie = Batch.GeefCategorie()
+	Set ..SequentieService = ##class(APPS.Halux.AAP.DnaCodeService).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -267,6 +273,7 @@
 		
 		Do ..SequentieItems.Insert(Item)
 		
+		Do ..SequentieService.VulInSequentieId(Item.SequentieNummer,Item.BatchID,Item.ToeleveringID,Item.ToeleveringLijnID)
 		Do blOptiVHoss.NextLoop(.lbIndex)
 	}
 	
@@ -303,11 +310,14 @@
 <Implementation><![CDATA[
 	#dim ProductieSequentieItems As %ListOfObjects = ##class(%ListOfObjects).%New()
 	#dim ProductID As DOM.common.ProductID = ProductLijn.GeefProductID()
+	#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem
 	
 	If (..IsOpTeNemenInSequentie(ProductID)) {
 		#dim i As %Integer
 		For i=1:1:ProductLijn.GeefAantal() {
-			Do ProductieSequentieItems.Insert(..MaakProductieSequentieItem(ProductID, Toelevering, ProductLijn, i))
+			Set ProductieSequentieItem = ..MaakProductieSequentieItem(ProductID, Toelevering, ProductLijn, i)
+			Do ProductieSequentieItems.Insert(ProductieSequentieItem)
+			Do ##class(APPS.Halux.AAP.DnaCodeService).%New().VulInSequentieId(ProductieSequentieItem.SequentieNummer,ProductieSequentieItem.BatchID,ProductieSequentieItem.ToeleveringID,ProductieSequentieItem.ToeleveringLijnID)
 		}
 	}
 	
@@ -369,6 +379,9 @@
 <Value name="4">
 <Value>SequentieItems</Value>
 </Value>
+<Value name="5">
+<Value>SequentieService</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: BL/PPS/TBX/Sequencer.cls.xml
===================================================================
diff -u -r38442 -r60931
--- BL/PPS/TBX/Sequencer.cls.xml	(.../Sequencer.cls.xml)	(revision 38442)
+++ BL/PPS/TBX/Sequencer.cls.xml	(.../Sequencer.cls.xml)	(revision 60931)
@@ -124,6 +124,7 @@
 	. . . 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()
@@ -200,6 +201,7 @@
 	. Set oQ.WPPers=##class(WPPers).Create(KLNr,oQ.TOENr,oQ.TLUNr,PRNr,1)
 	. ;Set oQ.WPZaag=##class(WPZaag).Create(KLNr,TOENr,TLUNr,PRNr,Qty)
 	. Set Status=oQ.%Save() D:$$$ISERR(Status) WE^vhDBG(Status,"PPSTBX AddBatch")
+	. Do ##class(APPS.Halux.AAP.DnaCodeService).%New().VulInSequentieId(oQ.Sequence,oQ.BatchID,oQ.TOENr,oQ.TLUNr)
 	. ; aanpassen HADPR
 	. If Status=$$$OK,(Deel=1) Set X=##class(BL.Legacy.HaluxProductieOpvolging).MARKPR(##class(BL.Legacy.HaluxProductieOpvolging).FABKEYT(TOENr,TLUNr),"B",Totaal,Totaal,$H)  ; HADPR invullen met status "B"
 	;