Index: vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56846 -r57868
--- vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56846)
+++ vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 57868)
@@ -28,10 +28,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakDnaCodesVoorBatch">
+<FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakDnaCodesVoorBatch",Batch)
+]]></Implementation>
+</Method>
+
 <Method name="MaakDnaCodesVoorToeleveringLijn">
-<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
+<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,BatchId:%String=""</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakDnaCodesVoorToeleveringLijn",ToeleveringLijn)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakDnaCodesVoorToeleveringLijn",ToeleveringLijn,BatchId)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorBatch/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorBatch/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorBatch/Test.cls.xml	(revision 57868)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.AAP.DnaCodeService.MaakDnaCodesVoorBatch.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Batch met 1 Toelevering met 1 ToeleveringLijn met aantal 1">
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn()
+	
+	#dim BatchId As %Integer = 1234
+	#dim LijnId As APPS.Halux.common.enu.ProductieLijn = ##class(APPS.Halux.common.enu.ProductieLijn).Een()
+	#dim Batch As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New(LijnId)
+	Do Batch.IndienMethodCall("GeefToeleveringIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(Toelevering))
+	Do Batch.IndienMethodCall("GeefID").DanReturn(BatchId)
+	Do Batch.IndienMethodCall("GeefIsWegwerpPallet").DanReturn($$$True)
+	Do Batch.IndienMethodCall("GeefLijn").DanReturn(LijnId)
+	
+	Set ProductTypeAPIStub = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New()
+	Do ProductTypeAPIStub.IndienMethodCall("GeefProductTypePrefix", $$$ElkeWaarde).DanReturn("L")
+	
+	Set DnaCodeGeneratorStub = ##class(vhTest.Mock.APPS.Halux.AAP.DnaCodeGenerator).%New()
+	Do DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn("OAAAAA3")
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(, ProductTypeAPIStub, DnaCodeGeneratorStub)
+	#dim DnaCodes as %ListOfDataTypes = DnaCodeService.MaakDnaCodesVoorBatch(Batch)
+	
+	Do $$$AssertEquals(DnaCodes.Count(),1)
+	Do $$$AssertEquals(DnaCodes.GetAt(1).Lijn,LijnId)
+	Do $$$AssertEquals(DnaCodes.GetAt(1).Status,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch())
+	Do $$$AssertEquals(DnaCodes.GetAt(1).IsWegwerpPallet,$$$True)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Batch met 1 Toelevering zonder lijnen">
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).StandaardToeleveringHoofding()
+	Do Toelevering.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(..EmptyIterator())
+	
+	#dim BatchId As %Integer = 1234
+	#dim LijnId As APPS.Halux.common.enu.ProductieLijn = ##class(APPS.Halux.common.enu.ProductieLijn).Een()
+	#dim Batch As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New(LijnId)
+	Do Batch.IndienMethodCall("GeefToeleveringIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(Toelevering))
+	Do Batch.IndienMethodCall("GeefID").DanReturn(BatchId)
+	Do Batch.IndienMethodCall("GeefIsWegwerpPallet").DanReturn($$$True)
+	Do Batch.IndienMethodCall("GeefLijn").DanReturn(LijnId)
+	
+	Set ProductTypeAPIStub = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New()
+	Do ProductTypeAPIStub.IndienMethodCall("GeefProductTypePrefix", $$$ElkeWaarde).DanReturn("L")
+	
+	Set DnaCodeGeneratorStub = ##class(vhTest.Mock.APPS.Halux.AAP.DnaCodeGenerator).%New()
+	Do DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn("OAAAAA3")
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(, ProductTypeAPIStub, DnaCodeGeneratorStub)
+	#dim DnaCodes as %ListOfDataTypes = DnaCodeService.MaakDnaCodesVoorBatch(Batch)
+	
+	Do $$$AssertEquals(DnaCodes.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Batch met 2 Toeleveringen">
+<Implementation><![CDATA[
+	#dim Toelevering1 As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn()
+	#dim Toelevering2 As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn()
+	
+	#dim BatchId As %Integer = 1234
+	#dim LijnId As APPS.Halux.common.enu.ProductieLijn = ##class(APPS.Halux.common.enu.ProductieLijn).Een()
+	#dim Batch As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New(LijnId)
+	Do Batch.IndienMethodCall("GeefToeleveringIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(Toelevering1, Toelevering2))
+	Do Batch.IndienMethodCall("GeefID").DanReturn(BatchId)
+	Do Batch.IndienMethodCall("GeefIsWegwerpPallet").DanReturn($$$True)
+	Do Batch.IndienMethodCall("GeefLijn").DanReturn(LijnId)
+	
+	Set ProductTypeAPIStub = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New()
+	Do ProductTypeAPIStub.IndienMethodCall("GeefProductTypePrefix", $$$ElkeWaarde).DanReturn("L")
+	
+	Set DnaCodeGeneratorStub = ##class(vhTest.Mock.APPS.Halux.AAP.DnaCodeGenerator).%New()
+	Do DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn("OAAAAA3")
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(, ProductTypeAPIStub, DnaCodeGeneratorStub)
+	#dim DnaCodes as %ListOfDataTypes = DnaCodeService.MaakDnaCodesVoorBatch(Batch)
+	
+	Do $$$AssertEquals(DnaCodes.Count(),2)
+	Do $$$AssertEquals(DnaCodes.GetAt(1).Status,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch())
+	Do $$$AssertEquals(DnaCodes.GetAt(2).Status,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r57102 -r57868
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 57102)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 57868)
@@ -30,15 +30,44 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakDnaCodesVoorBatch">
+<FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set DnaCodes = ##class(%ListOfDataTypes).%New()
+	
+	#dim Toelevering As DOM.AKP.Toelevering
+	#dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
+	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn
+	#dim ToeleveringLijnIterator As TECH.Iterator
+	While ToeleveringIterator.HasNext() {
+		Set Toelevering = ToeleveringIterator.Next()
+		
+		Set ToeleveringLijnIterator = Toelevering.GeefToeleveringLijnIterator()
+		While ToeleveringLijnIterator.HasNext() {
+			Set ToeleveringLijn = ToeleveringLijnIterator.Next()
+			
+			#dim Teller As %Integer = 1
+			While Teller <= ToeleveringLijn.GeefAantal() {
+				Do DnaCodes.Insert(..MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch))
+				Set Teller = Teller + 1
+			}
+		}
+	}
+	
+	Quit DnaCodes
+]]></Implementation>
+</Method>
+
 <Method name="MaakDnaCodesVoorToeleveringLijn">
-<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
+<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,BatchId:%String=""</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	Set DnaCodes = ##class(%ListOfDataTypes).%New()
 	
 	#dim Teller As %Integer = 1
 	While Teller <= ToeleveringLijn.GeefAantal() {
-		Do DnaCodes.Insert(..MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn))
+		Do DnaCodes.Insert(..MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn, BatchId))
 		Set Teller = Teller + 1
 	}
 	
@@ -112,13 +141,12 @@
 </Method>
 
 <Method name="MaakDnaCodeVoorToeleveringLijn">
-<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
+<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Batch:APPS.Halux.common.impl.BatchImpl=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.Halux.AAP.DnaCode</ReturnType>
 <Implementation><![CDATA[
 	#dim ProductID As %String = ToeleveringLijn.GeefProductID()
 	#dim Toelevering As DOM.AKP.Toelevering= ToeleveringLijn.GeefToelevering()
-	
 	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set DnaCode.ProductNummer = ProductID
 	Set DnaCode.DnaCode = ..DnaCodeGenerator.GenereerDnaCode(..ProductTypeAPI.GeefProductTypePrefix(ProductID))
@@ -127,6 +155,12 @@
 	Set DnaCode.ParentDnaCode = "" //genereren onder voorwaarde
 	Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
 	Set DnaCode.ToeleveringLijn = ToeleveringLijn.GeefID()
+	If $IsObject(Batch) {
+		Set DnaCode.BatchId = Batch.GeefID()
+		Set DnaCode.IsWegwerpPallet = Batch.GeefIsWegwerpPallet()
+		Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()
+		Set DnaCode.Lijn = Batch.GeefLijn()
+	}
 
 	Quit DnaCode
 ]]></Implementation>
Index: vhTest/Utils/DOM/AKP/Toelevering.cls.xml
===================================================================
diff -u -r56385 -r57868
--- vhTest/Utils/DOM/AKP/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 56385)
+++ vhTest/Utils/DOM/AKP/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 57868)
@@ -34,12 +34,14 @@
 	#dim ProductToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
 	Do ProductToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(1000)
 	Do ProductToeleveringLijn.IndienMethodCall("GeefID").DanReturn(101)
+	Do ProductToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(1)
 	
 	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..StandaardToeleveringHoofding(LeverancierId, ProductLijnen)
 	Do ToeleveringMock.IndienMethodCall("GeefToeleveringLijn",$$$ElkeWaarde).DanReturn(ProductToeleveringLijn)
 	Do ToeleveringMock.IndienMethodCall("GeefToeleveringLijnViaVolgNr",$$$ElkeWaarde).DanReturn(ProductToeleveringLijn)
 	Do ToeleveringMock.IndienMethodCall("GeefKlantID").DanReturn("K||1234")
 	Do ToeleveringMock.IndienMethodCall("GeefOrderID").DanReturn("1000")
+	Do ToeleveringMock.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(ProductToeleveringLijn))
 	
 	Quit ToeleveringMock
 ]]></Implementation>
Index: vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56845 -r57868
--- vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56845)
+++ vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 57868)
@@ -19,6 +19,13 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="MaakDnaCodesVoorBatch">
+<FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="MaakDnaCodesVoorToeleveringLijn">
 <FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>