Index: vhLib/WebServiceLogger/Logger.cls.xml
===================================================================
diff -u -r3460 -r3750
--- vhLib/WebServiceLogger/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3460)
+++ vhLib/WebServiceLogger/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3750)
@@ -25,7 +25,7 @@
 
 <Method name="LogStream">
 <Abstract>1</Abstract>
-<FormalSpec>Stream:%Stream,Direction:%String,ClassName:%String</FormalSpec>
+<FormalSpec>Stream:%Stream,Direction:%String,ClassName:%String,ThisWebService:%SOAP.WebService</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
@@ -42,6 +42,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefWebMethodFromService">
+<FormalSpec>ThisWebService:%SOAP.WebService</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Webmethod As %String = ""
+	
+	If $IsObject(ThisWebService) && $IsObject(ThisWebService.MsgClass) {
+		Set Webmethod = ThisWebService.MsgClass.%ClassName(0)
+	}
+	
+	If (Webmethod = "") {
+		Set Webmethod = ..GeefWebMethod()   ; fallback naar de vorige implementatie 
+	}
+	
+	Quit Webmethod
+]]></Implementation>
+</Method>
+
 <Method name="GeefWebMethod">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
Index: vhLib/WebServiceLogger/impl/VhLibLogger.cls.xml
===================================================================
diff -u -r3301 -r3750
--- vhLib/WebServiceLogger/impl/VhLibLogger.cls.xml	(.../VhLibLogger.cls.xml)	(revision 3301)
+++ vhLib/WebServiceLogger/impl/VhLibLogger.cls.xml	(.../VhLibLogger.cls.xml)	(revision 3750)
@@ -6,9 +6,9 @@
 <Super>vhLib.WebServiceLogger.Logger</Super>
 
 <Method name="LogStream">
-<FormalSpec>Stream:%Stream,Direction:%String,ClassName:%String</FormalSpec>
+<FormalSpec>Stream:%Stream,Direction:%String,ClassName:%String,ThisWebService:%SOAP.WebService</FormalSpec>
 <Implementation><![CDATA[
-	#dim Webmethod As %String = ..GeefWebMethod()	
+	#dim Webmethod As %String = ..GeefWebMethodFromService(ThisWebService)
 	If (..IsLoggingNodig(ClassName, Webmethod)) {
 		#dim Actie As %String = Webmethod_" "_Direction
 		If ..GeefLogNiveau(ClassName) = ##class(vhLib.WebServiceLogger.enu.LogNiveau).Debug() {
Index: vhLib/WebServiceLogger/LogService.cls.xml
===================================================================
diff -u -r3301 -r3750
--- vhLib/WebServiceLogger/LogService.cls.xml	(.../LogService.cls.xml)	(revision 3301)
+++ vhLib/WebServiceLogger/LogService.cls.xml	(.../LogService.cls.xml)	(revision 3750)
@@ -5,10 +5,10 @@
 
 <Method name="LogStream">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Stream:%Stream,Direction:%String,ClassName:%String</FormalSpec>
+<FormalSpec>Stream:%Stream,Direction:%String,ClassName:%String,ThisWebService:%SOAP.WebService</FormalSpec>
 <Implementation><![CDATA[
 	Try{
-		Do ##class(vhLib.WebServiceLogger.Logger).Instance().LogStream(Stream,Direction,ClassName)
+		Do ##class(vhLib.WebServiceLogger.Logger).Instance().LogStream(Stream,Direction,ClassName,ThisWebService)
 		Do ..ZetWebServiceRequestStream(Stream)
 	}Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
Index: vhLib/WebServiceHelper.cls.xml
===================================================================
diff -u -r2881 -r3750
--- vhLib/WebServiceHelper.cls.xml	(.../WebServiceHelper.cls.xml)	(revision 2881)
+++ vhLib/WebServiceHelper.cls.xml	(.../WebServiceHelper.cls.xml)	(revision 3750)
@@ -17,25 +17,25 @@
 </Method>
 
 <Method name="OnAfterWriteSOAPMessage">
-<FormalSpec>ClassName:%String</FormalSpec>
+<FormalSpec>ClassName:%String,ThisWebService:%SOAP.WebService</FormalSpec>
 <Implementation><![CDATA[
 	Do ..IO.Reset()
 	#dim Stream As %FileCharacterStream = ..IO.GeefStream()
 	while 'Stream.AtEnd {
 		write Stream.Read()
 	}
 	#dim UitvoeringTijd As %Decimal = $$RestartTimer^vhLib()
-	Do ##class(vhLib.WebServiceLogger.LogService).LogStream(Stream,"OUT",ClassName)
+	Do ##class(vhLib.WebServiceLogger.LogService).LogStream(Stream,"OUT",ClassName, $G(ThisWebService))
 	Do ##class(vhLib.WebServiceLogger.LogService).LogUitvoeringTijd(ClassName,UitvoeringTijd)
 	Do ..IO.KuisOp()
 ]]></Implementation>
 </Method>
 
 <Method name="ProcessBody">
-<FormalSpec><![CDATA[action:%String,requestBody:%CharacterStream,&responseBody:%CharacterStream,ClassName:%String]]></FormalSpec>
+<FormalSpec><![CDATA[action:%String,requestBody:%CharacterStream,&responseBody:%CharacterStream,ClassName:%String,ThisWebService:%SOAP.WebService]]></FormalSpec>
 <Implementation><![CDATA[
 	Do StartTimer^vhLib
-	Do ##class(vhLib.WebServiceLogger.LogService).LogStream(requestBody,"IN",ClassName)
+	Do ##class(vhLib.WebServiceLogger.LogService).LogStream(requestBody,"IN",ClassName, $G(ThisWebService))
 	Try {
 		#dim Personality as %String = ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()
 	} Catch{		
Index: vhLib/WebServiceLogger/impl/BestandLogger.cls.xml
===================================================================
diff -u -r1301 -r3750
--- vhLib/WebServiceLogger/impl/BestandLogger.cls.xml	(.../BestandLogger.cls.xml)	(revision 1301)
+++ vhLib/WebServiceLogger/impl/BestandLogger.cls.xml	(.../BestandLogger.cls.xml)	(revision 3750)
@@ -6,13 +6,12 @@
 <Super>vhLib.WebServiceLogger.Logger</Super>
 
 <Method name="LogStream">
-<FormalSpec>Stream:%Stream,Direction:%String,ClassName:%String</FormalSpec>
+<FormalSpec>Stream:%Stream,Direction:%String,ClassName:%String,ThisWebService:%SOAP.WebService</FormalSpec>
 <Implementation><![CDATA[
 	#dim Path As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("DefaultExportDirectory")
 	#dim Timestamp As %String = $tr($zdt($ZU(188),8,,3),":","")
 
-	#dim Webmethod As %String = %request.GetCgiEnv("HTTP_SOAPACTION")
-	set Webmethod = $Piece($Piece(Webmethod,".",$length(Webmethod,".")),"""")
+	#dim Webmethod As %String = ..GeefWebMethodFromService(ThisWebService)
 
 	If (..IsLoggingNodig(ClassName, Webmethod))
 	{