Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r59919 -r60024
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 59919)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60024)
@@ -252,10 +252,18 @@
 	
 	Set Response = ##class(WS.Halux.AAP.ToeleveringBijwerkenResponse).%New()
 	Try {
-		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringBijwerkenRequest.Toelevering)
+		#dim DnaCodeIterator As TECH.Iterator
+		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringBijwerkenRequest.Toelevering)
+		While DnaCodeIterator.HasNext() {
+			Set DnaCode = DnaCodeIterator.Next()
+			Set DnaCode.IsDirecteLevering = ToeleveringBijwerkenRequest.IsDirecteLevering
+			Do ..DnaCodeRepository.Bewaar(DnaCode)
+		}
+		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringBijwerkenRequest.Toelevering)
 		If DnaCodeIterator.HasNext() {
-			Set Response.Header.Status = "200"
+			Do DnaCodeIterator.Reset()
 			Do ..DnaCodesKlaarmakenVoorBuffer(DnaCodeIterator, ToeleveringBijwerkenRequest.Status, ToeleveringBijwerkenRequest.Toelevering, ,ToeleveringBijwerkenRequest.Header.Initialen)
+			Set Response.Header.Status = "200"
 		} Else {
 			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
 			Set Response.Header.Omschrijving = "Geen data gevonden voor toelevering '"_ToeleveringBijwerkenRequest.Toelevering_"'"
@@ -278,8 +286,16 @@
 	
 	Set Response = ##class(WS.Halux.AAP.PalletBijwerkenResponse).%New()
 	Try {
-		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaPalletCode(PalletBijwerkenRequest.Pallet)
+		#dim DnaCodeIterator As TECH.Iterator
+		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCode(PalletBijwerkenRequest.Pallet)
+		While DnaCodeIterator.HasNext() {
+			Set DnaCode = DnaCodeIterator.Next()
+			Set DnaCode.IsDirecteLevering = PalletBijwerkenRequest.IsDirecteLevering
+			Do ..DnaCodeRepository.Bewaar(DnaCode)
+		}
+		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCode(PalletBijwerkenRequest.Pallet)
 		If DnaCodeIterator.HasNext() {
+			Do DnaCodeIterator.Reset()
 			Set Response.Header.Status = "200"
 			Do ..DnaCodesKlaarmakenVoorBuffer(DnaCodeIterator, PalletBijwerkenRequest.Status, , PalletBijwerkenRequest.Pallet, PalletBijwerkenRequest.Header.Initialen)
 		} Else {