Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ToeleveringBijwerken/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ToeleveringBijwerken/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ToeleveringBijwerken/Test.cls.xml	(revision 55818)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.AAP.DnaCodeService.ToeleveringBijwerken.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Standaardgedrag: Gescand -&gt; OnHold">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.ToeleveringBijwerkenRequest).%New()
+	Set Request.Toelevering = "333333"
+	Set Request.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).OnHold()
+	
+	Set HeaderValidatorMock = ##class(vhTest.Mock.WSimpl.Halux.AAP.HeaderValidator).%New()
+	Do HeaderValidatorMock.VerwachtMethodCall("ValidateHeader",Request.Header).ExactAantalKeer(1).DanDoeNiks()
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.Toelevering = "333333"
+	Set DnaCode1.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand()
+	
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2.Toelevering = "333333"
+	Set DnaCode2.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
+	
+	#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)
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(HeaderValidatorMock, DnaCodeRepositoryMock)
+	
+	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = DnaCodeService.ToeleveringBijwerken(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+	Do HeaderValidatorMock.Verifieer()
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen data gevonden">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.ToeleveringBijwerkenRequest).%New()
+	Set Request.Toelevering = "333333"
+	Set Request.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).OnHold()
+	
+	Set HeaderValidatorMock = ##class(vhTest.Mock.WSimpl.Halux.AAP.HeaderValidator).%New()
+	Do HeaderValidatorMock.VerwachtMethodCall("ValidateHeader",Request.Header).ExactAantalKeer(1).DanDoeNiks()
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringId",Request.Toelevering).DanReturn(..EmptyIterator())
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(0)
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(HeaderValidatorMock, DnaCodeRepositoryMock)
+	
+	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = DnaCodeService.ToeleveringBijwerken(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"-1021")
+	Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Geen data gevonden voor toelevering '333333'")
+	Do HeaderValidatorMock.Verifieer()
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r55811 -r55818
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 55811)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 55818)
@@ -208,9 +208,30 @@
 <FormalSpec>ToeleveringBijwerkenRequest:WS.Halux.AAP.ToeleveringBijwerkenRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.ToeleveringBijwerkenResponse</ReturnType>
 <Implementation><![CDATA[
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	
 	Set Response = ##class(WS.Halux.AAP.ToeleveringBijwerkenResponse).%New()
 	Try {
 		Do ..HeaderValidator.ValidateHeader(ToeleveringBijwerkenRequest.Header)
+
+		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringBijwerkenRequest.Toelevering)
+		If DnaCodeIterator.HasNext() {
+			Set Response.Header.Status = "200"
+			While DnaCodeIterator.HasNext() {
+				Set DnaCode = DnaCodeIterator.Next()
+				
+				If ToeleveringBijwerkenRequest.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).OnHold() {
+					If DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand() {
+						Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).OnHold()
+						Do ..DnaCodeRepository.Bewaar(DnaCode)
+					}
+				}
+			}
+		} Else {
+			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+			Set Response.Header.Omschrijving = "Geen data gevonden voor toelevering '"_ToeleveringBijwerkenRequest.Toelevering_"'"
+		}
+
 		
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()