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>