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() {