Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r63748 -r65863
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 63748)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 65863)
@@ -195,6 +195,7 @@
 	Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
 	Set DnaCode.ToeleveringLijn = ToeleveringLijn.GeefID()
 	Set DnaCode.OrderId = ToeleveringLijn.GeefOrderID()
+	Set DnaCode.OrderlijnId = ToeleveringLijn.GeefOrderLijnID()
 	Set DnaCode.AanmaakTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
 	#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductID)
 	If (Product.%Extends("DOM.PM.MaatwerkProduct")) {
@@ -238,6 +239,7 @@
 	Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
 	Set DnaCode.ToeleveringLijn = ToeleveringLijn.GeefID()
 	Set DnaCode.OrderId = ToeleveringLijn.GeefOrderID()
+	Set DnaCode.OrderlijnId = ToeleveringLijn.GeefOrderLijnID()
 	Set DnaCode.AanmaakTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
 	#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductID)
 	Set DnaCode.LadeCode = ..ProductApi.GeefProduct(ProductID).GeefDottedDossierCode()
Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml
===================================================================
diff -u -r63344 -r65863
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 63344)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 65863)
@@ -119,6 +119,7 @@
 	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(4)
 	Do ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(1000)
 	Do ToeleveringLijn.IndienMethodCall("GeefOrderID").DanReturn(100000)
+	Do ToeleveringLijn.IndienMethodCall("GeefOrderLijnID").DanReturn(100)
 	
 	Set ProductTypeAPIStub = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New()
 	Do ProductTypeAPIStub.IndienMethodCall("GeefProductTypePrefix", $$$ElkeWaarde).DanReturn("L")
@@ -144,6 +145,7 @@
 	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(5)
 	Do ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(1000)
 	Do ToeleveringLijn.IndienMethodCall("GeefOrderID").DanReturn(100000)
+	Do ToeleveringLijn.IndienMethodCall("GeefOrderLijnID").DanReturn(100)
 	
 	Set ProductTypeAPIStub = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New()
 	Do ProductTypeAPIStub.IndienMethodCall("GeefProductTypePrefix", $$$ElkeWaarde).DanReturn("L")
Index: DOM/Halux/AAP/DnaCode.cls.xml
===================================================================
diff -u -r61745 -r65863
--- DOM/Halux/AAP/DnaCode.cls.xml	(.../DnaCode.cls.xml)	(revision 61745)
+++ DOM/Halux/AAP/DnaCode.cls.xml	(.../DnaCode.cls.xml)	(revision 65863)
@@ -80,6 +80,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="OrderlijnId">
+<Type>%String</Type>
+</Property>
+
 <Property name="AfdrukTijdstip">
 <Type>TECH.Horolog</Type>
 </Property>
@@ -193,6 +197,9 @@
 <Value name="23">
 <Value>AanmaakTijdstip</Value>
 </Value>
+<Value name="24">
+<Value>OrderlijnId</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhTest/Utils/DOM/AKP/Toelevering.cls.xml
===================================================================
diff -u -r58728 -r65863
--- vhTest/Utils/DOM/AKP/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 58728)
+++ vhTest/Utils/DOM/AKP/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 65863)
@@ -36,6 +36,7 @@
 	Do ProductToeleveringLijn.IndienMethodCall("GeefID").DanReturn(101)
 	Do ProductToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(1)
 	Do ProductToeleveringLijn.IndienMethodCall("GeefOrderID").DanReturn("1000")
+	Do ProductToeleveringLijn.IndienMethodCall("GeefOrderLijnID").DanReturn(100)
 	
 	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..StandaardToeleveringHoofding(LeverancierId, ProductLijnen)
 	Do ToeleveringMock.IndienMethodCall("GeefToeleveringLijn",$$$ElkeWaarde).DanReturn(ProductToeleveringLijn)
Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorBatch/Test.cls.xml
===================================================================
diff -u -r63349 -r65863
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 63349)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 65863)
@@ -78,6 +78,7 @@
 	Do $$$AssertEquals(DnaCodes.GetAt(1).Status,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch())
 	Do $$$AssertEquals(DnaCodes.GetAt(1).IsWegwerpPallet,$$$True)
 	Do $$$AssertEquals(DnaCodes.GetAt(1).LadeCode,"A.BC.DE.F")
+	Do $$$AssertEquals(DnaCodes.GetAt(1).OrderlijnId,100)
 ]]></Implementation>
 </Method>
 
@@ -217,6 +218,7 @@
 	Do ProductToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(2)
 	Do ProductToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(1000)
 	Do ProductToeleveringLijn.IndienMethodCall("GeefOrderID").DanReturn(123000)
+	Do ProductToeleveringLijn.IndienMethodCall("GeefOrderLijnID").DanReturn(100)
 	
 	Set ProductToeleveringLijnList = ##class(%ListOfObjects).%New()
 	Do ProductToeleveringLijnList.Insert(ProductToeleveringLijn)