Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56847 -r57085
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56847)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 57085)
@@ -88,10 +88,16 @@
 <FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
 <Implementation><![CDATA[
 	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	#dim Toelevering As DOM.AKP.Toelevering
+	#dim DnaCodeIterator As TECH.Iterator
+	
 	#dim ToeleveringIterator as TECH.Iterator = Batch.GeefToeleveringIterator()
-	If ToeleveringIterator.HasNext() {
-		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringIterator.Next().GeefID())
 	
+	While ToeleveringIterator.HasNext() {
+		Set Toelevering = ToeleveringIterator.Next()
+		
+		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringId(Toelevering.GeefID())
+	
 		While DnaCodeIterator.HasNext() {
 			Set DnaCode = DnaCodeIterator.Next()
 			If DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw() {
Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeBijwerkenMetBatchGegevens/Test.cls.xml
===================================================================
diff -u -r56706 -r57085
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeBijwerkenMetBatchGegevens/Test.cls.xml	(.../Test.cls.xml)	(revision 56706)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeBijwerkenMetBatchGegevens/Test.cls.xml	(.../Test.cls.xml)	(revision 57085)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DnaCodeIteratorEenStuk">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -22,11 +27,15 @@
 	Set DnaCode3 = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set DnaCode3.Toelevering = "222222"
 	Set DnaCode3.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
+	Set DnaCode4 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode4.Toelevering = "222222"
+	Set DnaCode4.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
 	Set ..DnaCodeIteratorDrieStuks = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3)
+	Set ..DnaCodeIteratorEenStuk = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode4)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Batchgegevens moeten in DnaCodes terechtkomen">
+<Method name="Test: Batchgegevens met 1 toelevering 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")
@@ -48,6 +57,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Batchgegevens met meerdere toeleveringen 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())
+	
+	#dim Toelevering2 As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn()
+	Do Toelevering2.IndienMethodCall("GeefDueOutTime","").DanReturn("11:00")
+	Do Toelevering2.IndienMethodCall("GeefTypeToeleveringLijnIterator","KTRPL").DanReturn(..EmptyIterator())
+	Do Toelevering2.IndienMethodCall("GeefID","").DanReturn(42)
+	
+	Set Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do Batch.IndienMethodCall("GeefToeleveringIterator",).DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(Toelevering, Toelevering2))
+	Do Batch.IndienMethodCall("GeefLijn",).DanReturn("L1")
+	Do Batch.IndienMethodCall("GeefIsWegwerpPallet").DanReturn($$$True)
+
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",Toelevering.GeefID()).DanReturn(..DnaCodeIteratorDrieStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",Toelevering2.GeefID()).DanReturn(..DnaCodeIteratorEenStuk)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",..Matches.Extends("DOM.Halux.AAP.DnaCode")).ExactAantalKeer(4).DanDoeNiks()
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Do DnaCodeService.DnaCodeBijwerkenMetBatchGegevens(Batch)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Geen toelevering -&gt; niets opslaan">
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn()