Index: vhLib/WebServiceLogger/impl/BestandLogger.cls.xml
===================================================================
diff -u -r945 -r1301
--- vhLib/WebServiceLogger/impl/BestandLogger.cls.xml	(.../BestandLogger.cls.xml)	(revision 945)
+++ vhLib/WebServiceLogger/impl/BestandLogger.cls.xml	(.../BestandLogger.cls.xml)	(revision 1301)
@@ -29,6 +29,10 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="LogUitvoeringTijd">
+<FormalSpec>ClassName:%String,UitvoeringTijd:%Decimal</FormalSpec>
+</Method>
 </Class>
 
 
Index: vhLib/WebServiceHelper.cls.xml
===================================================================
diff -u -r845 -r1301
--- vhLib/WebServiceHelper.cls.xml	(.../WebServiceHelper.cls.xml)	(revision 845)
+++ vhLib/WebServiceHelper.cls.xml	(.../WebServiceHelper.cls.xml)	(revision 1301)
@@ -23,14 +23,17 @@
 		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).LogUitvoeringTijd(ClassName,UitvoeringTijd)
 		Do ..IO.KuisOp()
 ]]></Implementation>
 </Method>
 
 <Method name="ProcessBody">
 <FormalSpec><![CDATA[action:%String,requestBody:%CharacterStream,&responseBody:%CharacterStream,ClassName:%String]]></FormalSpec>
 <Implementation><![CDATA[
+	Do StartTimer^vhLib
 	Do ##class(vhLib.WebServiceLogger.LogService).LogStream(requestBody,"IN",ClassName)
 	Try {
 		#dim Personality as %String = ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()
Index: vhLib/WebServiceLogger/impl/VhLibLogger.cls.xml
===================================================================
diff -u -r690 -r1301
--- vhLib/WebServiceLogger/impl/VhLibLogger.cls.xml	(.../VhLibLogger.cls.xml)	(revision 690)
+++ vhLib/WebServiceLogger/impl/VhLibLogger.cls.xml	(.../VhLibLogger.cls.xml)	(revision 1301)
@@ -59,6 +59,12 @@
 	Quit Debug
 ]]></Implementation>
 </Method>
+
+<Method name="LogUitvoeringTijd">
+<FormalSpec>ClassName:%String,UitvoeringTijd:%Decimal</FormalSpec>
+<Implementation><![CDATA[	Set ^vhLib.WebServiceLogger.UitvoeringTijd(UitvoeringTijd,$I(^vhLib.WebServiceLogger.UitvoeringTijd(UitvoeringTijd))) = $LB(ClassName,..GeefWebMethod())
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhLib/WebServiceLogger/LogService.cls.xml
===================================================================
diff -u -r812 -r1301
--- vhLib/WebServiceLogger/LogService.cls.xml	(.../LogService.cls.xml)	(revision 812)
+++ vhLib/WebServiceLogger/LogService.cls.xml	(.../LogService.cls.xml)	(revision 1301)
@@ -7,16 +7,23 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Stream:%Stream,Direction:%String,ClassName:%String</FormalSpec>
 <Implementation><![CDATA[
-		Try{
-			Do ##class(vhLib.WebServiceLogger.Logger).Instance().LogStream(Stream,Direction,ClassName)
-			Do ..ZetWebServiceRequestStream(Stream)
-		}Catch(E){
-			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-			Do ##class(vhLib.Logger).%New("WS.WebserviceLogger").ErrorMail("LogStream",Exception.ToString())	
-		}
+	Try{
+		Do ##class(vhLib.WebServiceLogger.Logger).Instance().LogStream(Stream,Direction,ClassName)
+		Do ..ZetWebServiceRequestStream(Stream)
+	}Catch(E){
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(vhLib.Logger).%New("WS.WebserviceLogger").ErrorMail("LogStream",Exception.ToString())	
+	}
 ]]></Implementation>
 </Method>
 
+<Method name="LogUitvoeringTijd">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:%String,UitvoeringTijd:%Decimal</FormalSpec>
+<Implementation><![CDATA[	Do ##class(vhLib.WebServiceLogger.Logger).Instance().LogUitvoeringTijd(ClassName,UitvoeringTijd)
+]]></Implementation>
+</Method>
+
 <Method name="ZetWebServiceRequestStream">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Stream:%Stream</FormalSpec>
Index: vhLib/WebServiceLogger/Logger.cls.xml
===================================================================
diff -u -r321 -r1301
--- vhLib/WebServiceLogger/Logger.cls.xml	(.../Logger.cls.xml)	(revision 321)
+++ vhLib/WebServiceLogger/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1301)
@@ -29,6 +29,11 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="LogUitvoeringTijd">
+<Abstract>1</Abstract>
+<FormalSpec>ClassName:%String,UitvoeringTijd:%Decimal</FormalSpec>
+</Method>
+
 <Method name="IsLoggingNodig">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ClassName:%String,Webmethod:%String=""</FormalSpec>
Index: vhLib/WebServiceLogger/Rapporteur.cls.xml
===================================================================
diff -u
--- vhLib/WebServiceLogger/Rapporteur.cls.xml	(revision 0)
+++ vhLib/WebServiceLogger/Rapporteur.cls.xml	(revision 1301)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhLib.WebServiceLogger.Rapporteur">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<Super>%RegisteredObject</Super>
+
+<Method name="GenereerRapport">
+<Implementation><![CDATA[
+		#dim ToonTopAantalInRapport As %Integer = 20
+		#dim AantalReedsOpgenomenInRapport As %Integer = 0
+		#dim Inhoud As %GlobalCharacterStream = ##class(%GlobalCharacterStream).%New()
+		#dim UitvoeringTijd As %Decimal = $O(^vhLib.WebServiceLogger.Uitvoeri(""),-1)
+		While (UitvoeringTijd '= "") && (AantalReedsOpgenomenInRapport <= ToonTopAantalInRapport)
+		{
+			#dim Teller As %Integer = $O(^vhLib.WebServiceLogger.Uitvoeri(UitvoeringTijd,""))
+			While Teller '= "" {
+				#dim InformatieLB As %List = ^vhLib.WebServiceLogger.Uitvoeri(UitvoeringTijd,Teller)
+				#dim InfoOverUitvoering As %String = UitvoeringTijd_":"_$C(9)_$LG(InformatieLB,1)_$C(9)_$LG(InformatieLB,2)
+				Do Inhoud.WriteLine(InfoOverUitvoering)
+					
+				Set Teller = $O(^vhLib.WebServiceLogger.Uitvoeri(UitvoeringTijd,Teller))
+			}
+			Set UitvoeringTijd = $O(^vhLib.WebServiceLogger.Uitvoeri(UitvoeringTijd),-1)
+		}
+		
+		#dim MailAPI As TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI()
+		#dim Mail As TECH.Mail.Mail = MailAPI.MaakNieuwMailVoorICT()
+		do Mail.ZetVerzender($$$SystemMail("WebServicesUitvoeringtijd"))
+		do Mail.ZetOnderwerp("Top "_ToonTopAantalInRapport_" van traagst uitgevoerde webservice calls.")
+		do Mail.ZetInhoudStream(Inhoud)
+		do MailAPI.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>