Index: APPS/Halux/common/impl/ProductieSequentie/Legrabox.cls.xml
===================================================================
diff -u -r38746 -r71437
--- APPS/Halux/common/impl/ProductieSequentie/Legrabox.cls.xml	(.../Legrabox.cls.xml)	(revision 38746)
+++ APPS/Halux/common/impl/ProductieSequentie/Legrabox.cls.xml	(.../Legrabox.cls.xml)	(revision 71437)
@@ -49,8 +49,9 @@
 
 		Set Item.SequentieNummer = $Increment(SequentieNummer)
 		Set Item.GroepSequentieNummer = Item.SequentieNummer
-		Set Item.ToeleveringSequentieNummer = ..FrequentieTabel.Verhoog(Item.ToeleveringID)
-			
+		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)
 	}