Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r57882 -r57896
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 57882)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 57896)
@@ -161,6 +161,7 @@
 	Set DnaCode.ParentDnaCode = "" //genereren onder voorwaarde
 	Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
 	Set DnaCode.ToeleveringLijn = ToeleveringLijn.GeefID()
+	Set DnaCode.OrderId = ToeleveringLijn.GeefOrderID()
 	If $IsObject(Batch) {
 		Set DnaCode.BatchId = Batch.GeefID()
 		Set DnaCode.IsWegwerpPallet = Batch.GeefIsWegwerpPallet()