Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58390 -r58407
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58390)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58407)
@@ -374,8 +374,15 @@
 <ReturnType>WS.Halux.AAP.DirecteLeveringResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set Response = ##class(WS.Halux.AAP.DirecteLeveringResponse).%New()
-	Set Response.IsDirecteLevering = $$$Not($$$HasLength(##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleViaToelevering(DirecteLeveringRequest.Toelevering)))
+	Try {
+		Set Response = ##class(WS.Halux.AAP.DirecteLeveringResponse).%New()
+		Set Response.IsDirecteLevering = $$$Not($$$HasLength(##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleViaToelevering(DirecteLeveringRequest.Toelevering)))
+		Set Response.Header.Status = "200"
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Header.Status = Exception.GeefExceptionCode()
+		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
 	Quit Response
 ]]></Implementation>
 </Method>