Index: WS/TAPI/SMSTools/SMSClient.cls.xml
===================================================================
diff -u -r70123 -r74487
--- WS/TAPI/SMSTools/SMSClient.cls.xml	(.../SMSClient.cls.xml)	(revision 70123)
+++ WS/TAPI/SMSTools/SMSClient.cls.xml	(.../SMSClient.cls.xml)	(revision 74487)
@@ -3,19 +3,40 @@
 <Class name="WS.TAPI.SMSTools.SMSClient">
 <Super>TECH.RegisteredObject</Super>
 
+<UDLText name="T">
+<Content><![CDATA[
+// Parameter Server As %String = "ax-loadbalancer.vanhoecke.be";
+
+]]></Content>
+</UDLText>
+
 <Parameter name="Server">
 <Type>%String</Type>
-<Default>ax-loadbalancer.vanhoecke.be</Default>
+<Default>proxy-int.vanhoecke.be</Default>
 </Parameter>
 
+<UDLText name="T">
+<Content><![CDATA[
+// Parameter Location As String = "://v1/message/send";
+
+]]></Content>
+</UDLText>
+
 <Parameter name="Location">
 <Type>String</Type>
-<Default>/smstools/v1/message/send</Default>
+<Default>/p/rewrite/smstools/v1/message/send</Default>
 </Parameter>
 
+<UDLText name="T">
+<Content><![CDATA[
+// Parameter BalanceLocation As String = "/smstools/v1/balance";
+
+]]></Content>
+</UDLText>
+
 <Parameter name="BalanceLocation">
 <Type>String</Type>
-<Default>/smstools/v1/balance</Default>
+<Default>/p/rewrite/smstools/v1/balance</Default>
 </Parameter>
 
 <Parameter name="ClientId">
@@ -71,10 +92,11 @@
  	Set HttpRequest.Server = ..#Server
  	
  	Do HttpRequest.SetHeader("X-Client-Id",..#ClientId)
-	Do HttpRequest.SetHeader("X-Client-Secret",..#ClientSecret)	 	
- 	;Set HttpRequest.SSLConfiguration = "SMSTools"
-	;Set HttpRequest.Https = 1
-	;Set HttpRequest.Port = 443
+	Do HttpRequest.SetHeader("X-Client-Secret",..#ClientSecret)	 
+	Do HttpRequest.SetHeader("Accept","*/*")	
+ 	Set HttpRequest.SSLConfiguration = "SMSTools"
+	Set HttpRequest.Https = 1
+	Set HttpRequest.Port = 443
  	 	
     #dim StatusCode As %Status = HttpRequest.Get(..#BalanceLocation)
     If HttpRequest.HttpResponse.StatusCode = 200 {
@@ -83,7 +105,7 @@
 	    Quit Response.credits    
     } else {
 		#dim ErrorInfo as %String = HttpRequest.HttpResponse.Data.Read(HttpRequest.HttpResponse.Data.Size)
-	    Set Exception = ##class(TECH.Exceptions.AbstractOmschrijvingException).%New("HttpGet to "_..#Server_" failed. "_HttpRequest.HttpResponse.ReasonPhrase _ $$$CRLF _ ErrorInfo)
+	    Set Exception = ##class(TECH.Exceptions.AbstractOmschrijvingException).%New("HttpGet to "_..#Server_..#BalanceLocation_" failed. "_HttpRequest.HttpResponse.ReasonPhrase _ $$$CRLF _ ErrorInfo)
 	    Do ##class(TECH.ExceptionHandler).Throw(Exception)
     }
 ]]></Implementation>
@@ -99,14 +121,15 @@
 	
 	Set HttpMessage.Server=..#Server
 	Set HttpMessage.Location = ..#Location
-	;Set HttpMessage.Port = "443"
+	
+	Set HttpMessage.Port = "443"
 	Set HttpMessage.ClientId = "784487677138158563135"
 	Set HttpMessage.ClientSecret = "jTuBQ6JWSWOhckcPHC9Dc"
 	
 	set HttpMessage.ContentType= "text/plain"
 	Set HttpMessage.Data = Stream
 	
-	;Do Poster.SetSslConfiguration("SMSTools")
+	Do Poster.SetSslConfiguration("SMSTools")
 	
 	Do Poster.PostMessage(HttpMessage)
 ]]></Implementation>