Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56544 -r56688
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56544)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56688)
@@ -83,6 +83,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="DnaCodeBijwerkenMetBatchGegevens">
+<FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
+<Implementation><![CDATA[
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	
+	#dim ToeleveringIterator as TECH.Iterator = Batch.GeefToeleveringIterator()
+	If ToeleveringIterator.HasNext() {
+		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringIterator.Next().GeefID())
+	
+		While DnaCodeIterator.HasNext() {
+			Set DnaCode = DnaCodeIterator.Next()
+			If DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw() {
+				Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()
+				Set DnaCode.Lijn = Batch.GeefLijn()
+				//Set DnaCode.IsWegwerpPallet = Batch.IsWegwerppallet
+				Do ..DnaCodeRepository.Bewaar(DnaCode)
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="MaakDnaCodeVoorToeleveringLijn">
 <FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeBijwerkenMetBatchGegevens/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeBijwerkenMetBatchGegevens/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeBijwerkenMetBatchGegevens/Test.cls.xml	(revision 56688)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.AAP.DnaCodeService.DnaCodeBijwerkenMetBatchGegevens.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="DnaCodeIteratorDrieStuks">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.Toelevering = "222222"
+	Set DnaCode1.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2.Toelevering = "222222"
+	Set DnaCode2.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
+	Set DnaCode3 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode3.Toelevering = "222222"
+	Set DnaCode3.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
+	Set ..DnaCodeIteratorDrieStuks = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Batchgegevens moeten in DnaCodes terechtkomen">
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn()
+	Do Toelevering.IndienMethodCall("GeefDueOutTime","").DanReturn("11:00")
+	Do Toelevering.IndienMethodCall("GeefTypeToeleveringLijnIterator","KTRPL").DanReturn(..EmptyIterator())
+	
+	Set Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do Batch.IndienMethodCall("GeefToeleveringIterator",).DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(Toelevering))
+	Do Batch.IndienMethodCall("GeefLijn",).DanReturn("L1")
+
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",Toelevering.GeefID()).DanReturn(..DnaCodeIteratorDrieStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(3).DanDoeNiks()
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Do DnaCodeService.DnaCodeBijwerkenMetBatchGegevens(Batch)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>