Index: WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml
===================================================================
diff -u -r53188 -r58624
--- WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml	(.../KlantDocumentService.cls.xml)	(revision 53188)
+++ WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml	(.../KlantDocumentService.cls.xml)	(revision 58624)
@@ -270,8 +270,9 @@
 	Do ..HeaderValidator.ValidateHeader(Request.Header)
 	Do ..SessionManager.RegisterSession(Request.Header)
 	
-	#dim Response As WS.Vhisie4.KlantDocument.GeefDocumentResponse
-	Set Response = ##class(AX.Uitgaand.EC.Data.impl.DocumentOphalen).%New(Request).GeefResponse()
+	Set DocumentOphaler = ##class(AX.Uitgaand.EC.Data.impl.DocumentOphalen).%New()
+	Do DocumentOphaler.GenereerDocumentMetTimings(Request)
+	#dim Response As WS.Vhisie4.KlantDocument.GeefDocumentResponse = DocumentOphaler.GeefResponse()
 	
 	If ..Connected2AX
 	{
Index: AX/Uitgaand/EC/Data/impl/DocumentOphalen.cls.xml
===================================================================
diff -u -r58357 -r58624
--- AX/Uitgaand/EC/Data/impl/DocumentOphalen.cls.xml	(.../DocumentOphalen.cls.xml)	(revision 58357)
+++ AX/Uitgaand/EC/Data/impl/DocumentOphalen.cls.xml	(.../DocumentOphalen.cls.xml)	(revision 58624)
@@ -27,11 +27,20 @@
 <Description>
 DocType : Factuur, Levering, Order, Offerte, PrijsLijst, Rappel
 GenerateType : PDF, XML</Description>
-<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefDocumentRequest</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..DocumentLocationService = ##class(AXimpl.Dynamics.DocumentLocationOut.DocumentLocationService).%New()
 	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenereerDocumentMetTimings">
+<Description>
+DocType : Factuur, Levering, Order, Offerte, PrijsLijst, Rappel
+GenerateType : PDF, XML</Description>
+<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefDocumentRequest</FormalSpec>
+<Implementation><![CDATA[
 	Set Timer=##class(TECH.Timing.Timer).%New("")
 	Do Timer.Start()
 
@@ -40,12 +49,11 @@
 	Do ..GenereerDocument()	
 
 	Set ..Response.Tijd=Timer.Stop()\1
-	
-	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GenereerDocument">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set %Taal=..Request.Header.Taal
 	Set %ECSession=##class(Derde.EC.Session).%New()