Index: APPS/Halux/common/impl/SequentieService.cls.xml
===================================================================
diff -u -r60926 -r60945
--- APPS/Halux/common/impl/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 60926)
+++ APPS/Halux/common/impl/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 60945)
@@ -318,8 +318,9 @@
 					Set Queue.WPLosOnderdeel = WPLosOnderdeel
 					Set Queue.WPVerpak = WPVerpak
 					Set Queue.SorteerSleutel = SorteerSleutelBepaler.Bepaal(TAORbox, ..MaakProductieSequentieItemVanQueue(Queue))
-					
+
 					Do Queue.Save()
+					Do ##class(APPS.Halux.AAP.DnaCodeService).%New().VulInSequentieId(Queue.Sequence,Queue.BatchID,Queue.TOENr,Queue.TLUNr)
 				}
 				
 				#dim FabKey As %String = ##class(BL.Legacy.HaluxProductieOpvolging).FABKEYT(Toelevering.GeefID(), ProductLijn.GeefID())