Index: APPS/Halux/common/impl/ProductieSequentie/Tandembox.cls.xml
===================================================================
diff -u -r66584 -r71882
--- APPS/Halux/common/impl/ProductieSequentie/Tandembox.cls.xml	(.../Tandembox.cls.xml)	(revision 66584)
+++ APPS/Halux/common/impl/ProductieSequentie/Tandembox.cls.xml	(.../Tandembox.cls.xml)	(revision 71882)
@@ -50,7 +50,8 @@
 		Set Item.SequentieNummer = $Increment(SequentieNummer)
 		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 GesorteerdeProductieSequentieItems.Insert(Item)
 	}