Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60846 -r60848
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60846)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60848)
@@ -706,7 +706,6 @@
 					Do ..KlantinstellingenRepository.Bewaar(Klantinstellingen)
 				}
 			}
-			Set Response.Header.Status = "200"
 		} ElseIf BewerkKlantInstellingen.Actie = "Delete" {
 			Set KlantinstellingenIterator = ..KlantinstellingenRepository.ZoekViaKlantId(BewerkKlantInstellingen.KlantId)
 			If KlantinstellingenIterator.HasNext() {
@@ -717,6 +716,7 @@
 		While KlantinstellingenIterator.HasNext() {
 			Do Response.Klantinstellingen.Insert(..KlantinstellingenNaarDto(KlantinstellingenIterator.Next()))
 		}
+		Set Response.Header.Status = "200"
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Response.Header.Status = Exception.GeefExceptionCode()