Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/MaakDnaCodeVoorToeleveringLijn/Test.cls.xml
===================================================================
diff -u -r66794 -r66805
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/MaakDnaCodeVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 66794)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/MaakDnaCodeVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 66805)
@@ -3,6 +3,10 @@
 <Class name="vhUnitTest.APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Property name="Batch">
+<Type>APPS.Halux.common.Batch</Type>
+</Property>
+
 <Property name="DnaCodeGeneratorStub">
 <Type>APPS.Halux.AAP.DnaCodeGenerator</Type>
 </Property>
@@ -15,6 +19,10 @@
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper</Type>
 </Property>
 
+<Property name="LijnId">
+<Type>APPS.Halux.common.enu.ProductieLijn</Type>
+</Property>
+
 <Property name="ProductApiStub">
 <Type>DOM.PM.ProductAPI</Type>
 </Property>
@@ -56,6 +64,12 @@
 	Do ..ToeleveringLijn.IndienMethodCall("GeefOrderID").DanReturn(1000)
 	Do ..ToeleveringLijn.IndienMethodCall("GeefOrderLijnID").DanReturn(100)
 	
+	Set ..LijnId = ##class(APPS.Halux.common.enu.ProductieLijn).Een()
+	Set ..Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New(..LijnId)
+	Do ..Batch.IndienMethodCall("GeefID").DanReturn(1234)
+	Do ..Batch.IndienMethodCall("GeefLijn").DanReturn(..LijnId)
+	Do ..Batch.IndienMethodCall("GeefIsWegwerpPallet",1).DanReturn($$$True)
+	
 	Set ..IngegevenKenmerkenSpaceStepHelperStub = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper).%New()
 	Do ..IngegevenKenmerkenSpaceStepHelperStub.IndienMethodCall("IsSpaceStep",..IngegevenKenmerkenStub).DanReturn($$$False)
 ]]></Implementation>
@@ -65,13 +79,18 @@
 <Implementation><![CDATA[
 	#dim DnaCode As DOM.Halux.AAP.DnaCode = ""
 	
-	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New("", "", ..ProductTypeApiStub, ..ProductApiStub, ..IngegevenKenmerkenSpaceStepHelperStub)
-	Set DnaCode = DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(..ToeleveringLijn)
+	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(..DnaCodeGeneratorStub,, ..ProductTypeApiStub, ..ProductApiStub, ..IngegevenKenmerkenSpaceStepHelperStub)
+	Set DnaCode = DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(..ToeleveringLijn, ..Batch)
 
+	Do $$$AssertEquals(DnaCode.DnaCode, "LAAAAA3")
 	Do $$$AssertEquals(DnaCode.ProductNummer, 123456)
 	Do $$$AssertEquals(DnaCode.ToeleveringLijn, ..ToeleveringLijn.GeefID())
 	Do $$$AssertEquals(DnaCode.OrderId, 1000)
 	Do $$$AssertEquals(DnaCode.OrderlijnId, 100)
+	Do $$$AssertEquals(DnaCode.IsWegwerpPallet, $$$True)
+	Do $$$AssertEquals(DnaCode.Lijn, ..LijnId)
+	Do $$$AssertEquals(DnaCode.Status, ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch())
+	Do $$$AssertEquals(DnaCode.BatchId, 1234)
 ]]></Implementation>
 </Method>
 
@@ -101,6 +120,8 @@
 	#dim DnaCode As DOM.Halux.AAP.DnaCode = ""
 	#Dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("SpaceStep voor MVX genereert nog geen DnaCodes!")
 	
+	
+	
 	Do ..ProductTypeApiStub.IndienMethodCall("IsLegraboxProduct", 123456).DanReturn($$$False)
 	Do ..ProductTypeApiStub.IndienMethodCall("IsTandemboxProduct", 123456).DanReturn($$$False)
 	Do ..ProductTypeApiStub.IndienMethodCall("IsTAORboxProduct", 123456).DanReturn($$$False)