Index: AXimpl/RequestComposer.cls.xml
===================================================================
diff -u -r48796 -r48904
--- AXimpl/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 48796)
+++ AXimpl/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 48904)
@@ -23,17 +23,30 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ObjectApi">
+<Type>TECH.Object.ObjectAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ExceptieMelder">
+<Type>AXimpl.RequestComposer.ExceptieMelder</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>MessageManager:AXimpl.MessageManager,ObjectValidator:AXimpl.ObjectValidator</FormalSpec>
+<FormalSpec>MessageManager:AXimpl.MessageManager="",ObjectValidator:AXimpl.ObjectValidator="",ConfigOut:AXimpl.ConfigOut="",ObjectApi:TECH.Object.ObjectAPI,ExceptieMelder:AXimpl.RequestComposer.ExceptieMelder=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..FirmaBepaler = ##class(AXimpl.InterneFirmaBepaler).%New()
-	set ..MessageManager = $$$Inject(MessageManager,##class(AXimpl.MessageManager).%New())
-	set ..ObjectValidator = $$$Inject(ObjectValidator,##class(AXimpl.ObjectValidator).%New())
-	set ..ConfigOut = ##class(AXimpl.ConfigOut).%New()
+	Set ..FirmaBepaler = ##class(AXimpl.InterneFirmaBepaler).%New()
+	Set ..MessageManager = $$$Inject(MessageManager, ##class(AXimpl.MessageManager).%New())
+	Set ..ObjectValidator = $$$Inject(ObjectValidator, ##class(AXimpl.ObjectValidator).%New())
+	Set ..ConfigOut = $$$Inject(ConfigOut, ##class(AXimpl.ConfigOut).%New())
+	Set ..ObjectApi = $$$Inject(ObjectApi, ##class(TECH.Object.impl.ObjectAPI).%New())
+	Set ..ExceptieMelder = $$$Inject(ExceptieMelder, ##class(AXimpl.RequestComposer.ExceptieMelder).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -42,18 +55,22 @@
 <FormalSpec>Request:%CacheString</FormalSpec>
 <ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
-	#dim Envelope As %CacheString = $classmethod(..ConfigOut.GetRequestEnvelope(Request),"%New")
-	
+	#dim Envelope As %CacheString = ..ObjectApi.New(..ConfigOut.GetRequestEnvelope(Request))
 	#dim MessageId As %String = ..MessageManager.GenerateID()
 	
-	set Envelope.Header.MessageId = MessageId
-	set Envelope.Header.Company = ..FirmaBepaler.GeefInitialen()
-	set Envelope.Header.Action = ..ConfigOut.GetAction(Request)
-	set Envelope.Body.MessageParts = ..ConfigOut.GetConverter(Request).Convert(Request,MessageId)
+	Set Envelope.Header.MessageId = MessageId
+	Set Envelope.Header.Company = ..FirmaBepaler.GeefInitialen()
+	Set Envelope.Header.Action = ..ConfigOut.GetAction(Request)
+	Set Envelope.Body.MessageParts = ..ConfigOut.GetConverter(Request).Convert(Request,MessageId)
 	
-	do ..ObjectValidator.Validate(Envelope,"Validatie AX request : "_Envelope.Header.Action)
+	Try {
+		Do ..ObjectValidator.Validate(Envelope, "Validatie AX request: " _ Envelope.Header.Action)
+	} Catch {
+		Do ..ExceptieMelder.VerwittigGebruiker(MessageId, Envelope.Header.Action)
+		Do ##class(TECH.ExceptionHandler).Rethrow()
+	}	
 	
-	quit Envelope
+	Quit Envelope
 ]]></Implementation>
 </Method>
 </Class>