Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r63184 -r63644
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 63184)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 63644)
@@ -440,13 +440,13 @@
 	Set Response = ##class(WS.Halux.AAP.ToeleveringBijwerkenResponse).%New()
 	Try {
 		#dim DnaCodeIterator As TECH.Iterator
-		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringBijwerkenRequest.Toelevering)
+		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringBijwerkenRequest.Toelevering)
 		While DnaCodeIterator.HasNext() {
 			Set DnaCode = DnaCodeIterator.Next()
 			Set DnaCode.IsDirecteLevering = ToeleveringBijwerkenRequest.IsDirecteLevering
 			Do ..DnaCodeRepository.Bewaar(DnaCode)
 		}
-		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringBijwerkenRequest.Toelevering)
+		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringBijwerkenRequest.Toelevering)
 		If DnaCodeIterator.HasNext() {
 			Do ..BufferHelper.DnaCodesKlaarmakenVoorBuffer(DnaCodeIterator, ToeleveringBijwerkenRequest.Status, ToeleveringBijwerkenRequest.Toelevering, ,ToeleveringBijwerkenRequest.Header.Initialen)
 			Set Response.Header.Status = "200"