Index: vhTest/Utils/DOM/AKP/Toelevering.cls.xml
===================================================================
diff -u -r57868 -r57896
--- vhTest/Utils/DOM/AKP/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 57868)
+++ vhTest/Utils/DOM/AKP/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 57896)
@@ -35,6 +35,7 @@
 	Do ProductToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(1000)
 	Do ProductToeleveringLijn.IndienMethodCall("GeefID").DanReturn(101)
 	Do ProductToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(1)
+	Do ProductToeleveringLijn.IndienMethodCall("GeefOrderID").DanReturn("1000")
 	
 	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..StandaardToeleveringHoofding(LeverancierId, ProductLijnen)
 	Do ToeleveringMock.IndienMethodCall("GeefToeleveringLijn",$$$ElkeWaarde).DanReturn(ProductToeleveringLijn)
Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorToeleveringLijn/Test.cls.xml
===================================================================
diff -u -r56539 -r57896
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 56539)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 57896)
@@ -8,6 +8,7 @@
 	#dim ToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
 	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(0)
 	Do ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(1000)
+	Do ToeleveringLijn.IndienMethodCall("GeefOrderID").DanReturn(100000)
 	
 	Set DnaCodeGeneratorStub = ##class(vhTest.Mock.APPS.Halux.AAP.DnaCodeGenerator).%New()
 	Do DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn("OAAAAA3")
@@ -24,6 +25,7 @@
 	#dim ToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
 	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(1)
 	Do ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(1000)
+	Do ToeleveringLijn.IndienMethodCall("GeefOrderID").DanReturn(100000)
 	
 	Set ProductTypeAPIStub = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New()
 	Do ProductTypeAPIStub.IndienMethodCall("GeefProductTypePrefix", $$$ElkeWaarde).DanReturn("L")
@@ -39,6 +41,7 @@
 		Do $$$AssertEquals(DnaCodes.GetAt(1).ProductNummer,"1000")
 		Do $$$AssertEquals(DnaCodes.GetAt(1).KlantNummer,"K||1234")
 		Do $$$AssertEquals(DnaCodes.GetAt(1).DnaCode,"OAAAAA3")
+		Do $$$AssertEquals(DnaCodes.GetAt(1).OrderId,"100000")
 	}
 ]]></Implementation>
 </Method>
@@ -48,6 +51,7 @@
 	#dim ToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
 	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(2)
 	Do ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(1000)
+	Do ToeleveringLijn.IndienMethodCall("GeefOrderID").DanReturn(100000)
 	
 	Set ProductTypeAPIStub = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New()
 	Do ProductTypeAPIStub.IndienMethodCall("GeefProductTypePrefix", $$$ElkeWaarde).DanReturn("L")
@@ -63,10 +67,12 @@
 		Do $$$AssertEquals(DnaCodes.GetAt(1).ProductNummer,"1000")
 		Do $$$AssertEquals(DnaCodes.GetAt(1).KlantNummer,"K||1234")
 		Do $$$AssertEquals(DnaCodes.GetAt(1).DnaCode,"OAAAAA3")
+		Do $$$AssertEquals(DnaCodes.GetAt(1).OrderId,"100000")
 		Do $$$AssertEquals(DnaCodes.GetAt(2).Toelevering,"1")
 		Do $$$AssertEquals(DnaCodes.GetAt(2).ProductNummer,"1000")
 		Do $$$AssertEquals(DnaCodes.GetAt(2).KlantNummer,"K||1234")
 		Do $$$AssertEquals(DnaCodes.GetAt(2).DnaCode,"OAAAAA3")
+		Do $$$AssertEquals(DnaCodes.GetAt(2).OrderId,"100000")
 	}
 ]]></Implementation>
 </Method>
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()
Index: DOM/Halux/AAP/DnaCode.cls.xml
===================================================================
diff -u -r57857 -r57896
--- DOM/Halux/AAP/DnaCode.cls.xml	(.../DnaCode.cls.xml)	(revision 57857)
+++ DOM/Halux/AAP/DnaCode.cls.xml	(.../DnaCode.cls.xml)	(revision 57896)
@@ -76,6 +76,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="OrderId">
+<Type>%String</Type>
+</Property>
+
 <Index name="DnaCode">
 <Properties>DnaCode</Properties>
 </Index>
@@ -92,6 +96,10 @@
 <Properties>BatchId</Properties>
 </Index>
 
+<Index name="OrderId">
+<Properties>OrderId</Properties>
+</Index>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^DOM.Halux.AAP.DnaCodeD</DataLocation>
@@ -157,6 +165,9 @@
 <Value name="19">
 <Value>BatchId</Value>
 </Value>
+<Value name="20">
+<Value>OrderId</Value>
+</Value>
 </Data>
 </Storage>
 </Class>