Index: WS/Transsmart/impl/TboxServicePort.cls.xml
===================================================================
diff -u -r59489 -r59578
--- WS/Transsmart/impl/TboxServicePort.cls.xml	(.../TboxServicePort.cls.xml)	(revision 59489)
+++ WS/Transsmart/impl/TboxServicePort.cls.xml	(.../TboxServicePort.cls.xml)	(revision 59578)
@@ -48,11 +48,16 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Do ##super(Logger)
-	Set ..Location = ..GeefUrl()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="ZetLocationVoorOmgeving">
+<FormalSpec>Omgeving:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..ZetLocation(Omgeving)
+]]></Implementation>
+</Method>
+
 <Method name="doBooking">
 <Final>1</Final>
 <FormalSpec>doBooking:WS.Transsmart.tns.doBooking</FormalSpec>
@@ -81,6 +86,7 @@
 <SoapBodyUse>literal</SoapBodyUse>
 <ReturnTypeParams>XMLNAME="getStatusResponse"</ReturnTypeParams>
 <Implementation><![CDATA[
+	Do ..LogHeaders("Transsmart doBooking headers")	
 	Do ..LogXmlAsStream("Transsmart doDelete request",doDelete)
 	#dim Response as WS.Transsmart.tns.getStatusResponse = ..WebMethod("doDelete").Invoke($this,"",.doDelete)
 	Do ..LogXmlAsStream("Transsmart doDelete response",Response)
@@ -98,6 +104,7 @@
 <SoapBodyUse>literal</SoapBodyUse>
 <ReturnTypeParams>XMLNAME="getDocsResponse"</ReturnTypeParams>
 <Implementation><![CDATA[
+	Do ..LogHeaders("Transsmart doBooking headers")	
 	Do ..LogXmlAsStream("Transsmart getDocs request",getDocs)
 	#dim Response as WS.Transsmart.tns.getDocsResponse = ..WebMethod("getDocs").Invoke($this,"",.getDocs)
 	Do ..LogXmlAsStream("Transsmart getDocs response",Response)
@@ -115,6 +122,7 @@
 <SoapBodyUse>literal</SoapBodyUse>
 <ReturnTypeParams>XMLNAME="getLabelResponse"</ReturnTypeParams>
 <Implementation><![CDATA[
+	Do ..LogHeaders("Transsmart doBooking headers")	
 	Do ..LogXmlAsStream("Transsmart getLabel request",getLabel)
 	#dim Response as WS.Transsmart.tns.getLabelResponse = ..WebMethod("getLabel").Invoke($this,"",.getLabel)
 	Do ..LogXmlAsStream("Transsmart getLabel response",Response)
@@ -126,6 +134,8 @@
 <FormalSpec>Actie:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	do ..Logger.Info(Actie _ " url " , ..Location _ $$$CRLF _ "SSLConfiguration :" _ $Select($Length(..SSLConfiguration):..SSLConfiguration,1:"Geen"))
+	
 	Set it = ##class(TECH.ListIterator).%New(..HeadersOut)
 	#dim Header As WS.Transsmart.tns.authentication
 	While(it.HasNext()){