Index: AXimpl/ResponseProcessor.cls.xml
===================================================================
diff -u -r42386 -r49374
--- AXimpl/ResponseProcessor.cls.xml	(.../ResponseProcessor.cls.xml)	(revision 42386)
+++ AXimpl/ResponseProcessor.cls.xml	(.../ResponseProcessor.cls.xml)	(revision 49374)
@@ -18,13 +18,18 @@
 <Private>1</Private>
 </Property>
 
-<Property name="RequestGeneratorConfig">
-<Type>AXimpl.RequestGeneratorConfig</Type>
+<Property name="ConfigOut">
+<Type>AXimpl.ConfigOut</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>FileAPI:TECH.File.FileAPI,XmlCorrelater:TECH.XMLCorrelater,EventRaiser:AXimpl.EventRaiser,RequestGeneratorConfig:AXimpl.RequestGeneratorConfig</FormalSpec>
+<FormalSpec>FileAPI:TECH.File.FileAPI,XmlCorrelater:TECH.XMLCorrelater,EventRaiser:AXimpl.EventRaiser,RequestGeneratorConfig:AXimpl.ConfigOut,Logger:vhLib.Logger=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -33,7 +38,8 @@
 	set ..FileAPI = $$$Inject(FileAPI,##class(TECH.File.impl.FileAPI).%New())
 	set ..XmlCorrelater = $$$Inject(XmlCorrelater,##class(TECH.XMLCorrelater).%New())
 	set ..EventRaiser = $$$Inject(EventRaiser,##class(AXimpl.EventRaiser).%New())
-	set ..RequestGeneratorConfig = $$$Inject(RequestGeneratorConfig,##class(AXimpl.RequestGeneratorConfig).%New())
+	set ..ConfigOut = $$$Inject(RequestGeneratorConfig,##class(AXimpl.ConfigOut).%New())
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New())
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -42,7 +48,16 @@
 <FormalSpec>FullFilename:%String</FormalSpec>
 <Implementation><![CDATA[
 	try {
-		#dim KlasseNaam As %String = ..RequestGeneratorConfig.GetEnvelopeViaSubPath(##class(TECH.StringUtils).Replace(FullFilename,##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_AIF_RequestPath"),""))
+		#dim SubPath As %String = ##class(TECH.StringUtils).Replace(##class(TECH.File).GetDirectory(FullFilename),##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_IF_OUT_ResponsePath"),"")
+		set SubPath = $tr($E(SubPath,2,*-1),"\","/")
+		set StringIterator = ##class(TECH.StringIterator).%New(SubPath,"/")
+		#dim MijnSubPath As %String = ""
+		while StringIterator.HasNext() {
+			#dim String As %String = StringIterator.Next()
+			set MijnSubPath = MijnSubPath _ $zconvert($E(String),"U")_$Extract(String,2,*)
+			set:StringIterator.HasNext() MijnSubPath = MijnSubPath _ "/"
+		}
+		#dim KlasseNaam As %String = ..ConfigOut.GetResponseEnvelope(MijnSubPath)
 		#dim Message As %CacheString = ..XmlCorrelater.GeefObjectVanBestand(FullFilename,KlasseNaam,"Envelope")
 		do ..EventRaiser.RaiseResponseReceivedEvent(Message,..FileAPI.GeefFileReader(FullFilename).GeefStream())
 		
@@ -51,7 +66,8 @@
 	} catch {
 		
 		#dim Exception As TECH.Exception = ##class(TECH.ExceptionHandler).Catch()
-		#dim ErrorPath As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("AX_AIF_ErrorPath")
+		Do ..Logger.LogExceptie(Exception)
+		#dim ErrorPath As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("AX_IF_OUT_ErrorPath")
 		#dim ErrorFilename As %String = ##class(TECH.Files).AppendFile(ErrorPath,##class(TECH.File).GetFilename(FullFilename))
 		
 		do ..EventRaiser.RaiseCorruptedResponseReceivedEvent(FullFilename,..FileAPI.GeefFileReader(FullFilename).GeefStream())