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 {
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ToeleveringBijwerken/Test.cls.xml
===================================================================
diff -u -r56496 -r60024
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ToeleveringBijwerken/Test.cls.xml	(.../Test.cls.xml)	(revision 56496)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ToeleveringBijwerken/Test.cls.xml	(.../Test.cls.xml)	(revision 60024)
@@ -20,8 +20,8 @@
 	#dim DnaCodeIteratorTweeStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringId",Request.Toelevering).DanReturn(DnaCodeIteratorTweeStuks)
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode1).ExactAantalKeer(1)
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode2).ExactAantalKeer(0)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode1).ExactAantalKeer(2)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode2).ExactAantalKeer(1)
 	
 	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
 	
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/PalletBijwerken/Test.cls.xml
===================================================================
diff -u -r56496 -r60024
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/PalletBijwerken/Test.cls.xml	(.../Test.cls.xml)	(revision 56496)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/PalletBijwerken/Test.cls.xml	(.../Test.cls.xml)	(revision 60024)
@@ -20,8 +20,8 @@
 	#dim DnaCodeIteratorTweeStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaPalletCode",Request.Pallet).DanReturn(DnaCodeIteratorTweeStuks)
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode1).ExactAantalKeer(1)
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode2).ExactAantalKeer(0)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode1).ExactAantalKeer(2)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode2).ExactAantalKeer(1)
 	
 	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)