Index: vhDeploy/JBL/Deploy201111150827.cls.xml
===================================================================
diff -u
--- vhDeploy/JBL/Deploy201111150827.cls.xml	(revision 0)
+++ vhDeploy/JBL/Deploy201111150827.cls.xml	(revision 2937)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.JBL.Deploy201111150827">
+<Description>
+</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>Config item instellen voor logging van webservices.</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("WS.WebService.Log",0)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: WS/WebService.cls.xml
===================================================================
diff -u -r2882 -r2937
--- WS/WebService.cls.xml	(.../WebService.cls.xml)	(revision 2882)
+++ WS/WebService.cls.xml	(.../WebService.cls.xml)	(revision 2937)
@@ -120,17 +120,31 @@
 	set Webmethod = $Get(%request.CgiEnvs("HTTP_SOAPACTION"))
 	set Webmethod = $Piece($Piece(Webmethod,".",$length(Webmethod,".")),"""")
 	
-	set Counter = $increment(^zWS.Logger(..%ClassName(1)_" "_Webmethod))
-	if Counter < 201 {
-		set Filename = ##class(TECH.Files).AppendFile(Path,..%ClassName(1)_"\"_Webmethod_"\"_$job_Direction_Timestamp_$Random(10000)_".log")	
-		set FileWriter = ##class(TECH.File.FileWriter).%New(Filename)
-		
-		Do FileWriter.WriteStream(Stream)
-		Do FileWriter.Close()
+	Set ClassName = ..%ClassName(1)
 	
-		do Stream.Rewind()
+	If (..IsLoggingNodig(ClassName, Webmethod))
+	{
+		set Counter = $increment(^zWS.Logger(ClassName_" "_Webmethod))
+		if Counter < 201 {
+			set Filename = ##class(TECH.Files).AppendFile(Path,ClassName_"\"_Webmethod_"\"_$job_Direction_Timestamp_$Random(10000)_".log")	
+			set FileWriter = ##class(TECH.File.FileWriter).%New(Filename)
+			
+			Do FileWriter.WriteStream(Stream)
+			Do FileWriter.Close()
+		
+			do Stream.Rewind()
+		}
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="IsLoggingNodig">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:%String,Webmethod:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("WS.WebService.Log")
+]]></Implementation>
+</Method>
 </Class>
 </Export>