Index: WS/TAPI/SMSTools/SMSClient.cls.xml
===================================================================
diff -u -r62957 -r74487
--- WS/TAPI/SMSTools/SMSClient.cls.xml	(.../SMSClient.cls.xml)	(revision 62957)
+++ WS/TAPI/SMSTools/SMSClient.cls.xml	(.../SMSClient.cls.xml)	(revision 74487)
@@ -3,16 +3,42 @@
 <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>api.smsgatewayapi.com</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>/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>/p/rewrite/smstools/v1/balance</Default>
+</Parameter>
+
 <Parameter name="ClientId">
 <Type>%String</Type>
 <Default>784487677138158563135</Default>
@@ -66,19 +92,20 @@
  	Set HttpRequest.Server = ..#Server
  	
  	Do HttpRequest.SetHeader("X-Client-Id",..#ClientId)
-	Do HttpRequest.SetHeader("X-Client-Secret",..#ClientSecret)	 	
+	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("/v1/balance")
+    #dim StatusCode As %Status = HttpRequest.Get(..#BalanceLocation)
     If HttpRequest.HttpResponse.StatusCode = 200 {
    	    #dim Response as WS.TAPI.SMSTools.BalanceResponse
 	    Do ##class(TECH.JSON.Parser).ParseJSON(HttpRequest.HttpResponse.Data.Read(HttpRequest.HttpResponse.Data.Size),##class(WS.TAPI.SMSTools.BalanceResponse).%ClassName(1),.Response)
 	    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>
@@ -92,8 +119,9 @@
 	#dim Poster as TECH.Http.Poster = ..HttpAPI.GeefHttpPoster()
 	;Set Poster = ##class(TECH.Http.impl.Poster).%New()	; om te testen op andere omgeving dan prod.
 	
-	Set HttpMessage.Server="api.smsgatewayapi.com"
-	Set HttpMessage.Location = "/v1/message/send"
+	Set HttpMessage.Server=..#Server
+	Set HttpMessage.Location = ..#Location
+	
 	Set HttpMessage.Port = "443"
 	Set HttpMessage.ClientId = "784487677138158563135"
 	Set HttpMessage.ClientSecret = "jTuBQ6JWSWOhckcPHC9Dc"
@@ -117,7 +145,7 @@
 	Do Stream.Write("{ "_$$$CRLF)
 	Do Stream.Write("	""message"":"""_Message_""" ," _ $$$CRLF)
 	Do Stream.Write("	""to"": """ _ TelNo _ ""","_ $$$CRLF)
-	Do Stream.Write("	""sender"": ""Van Hoecke ICT"""_ $$$CRLF)
+	Do Stream.Write("	""sender"": ""VHICT"""_ $$$CRLF)
 	Do Stream.Write("}"_ $$$CRLF)
 	Quit Stream
 ]]></Implementation>