Index: WS/TAPI/SMSTools/SMSClient.cls.xml
===================================================================
diff -u -r62957 -r66575
--- WS/TAPI/SMSTools/SMSClient.cls.xml	(.../SMSClient.cls.xml)	(revision 62957)
+++ WS/TAPI/SMSTools/SMSClient.cls.xml	(.../SMSClient.cls.xml)	(revision 66575)
@@ -5,14 +5,19 @@
 
 <Parameter name="Server">
 <Type>%String</Type>
-<Default>api.smsgatewayapi.com</Default>
+<Default>ax-loadbalancer.vanhoecke.be</Default>
 </Parameter>
 
 <Parameter name="Location">
 <Type>String</Type>
-<Default>/v1/message/send</Default>
+<Default>/smstools/v1/message/send</Default>
 </Parameter>
 
+<Parameter name="BalanceLocation">
+<Type>String</Type>
+<Default>/smstools/v1/balance</Default>
+</Parameter>
+
 <Parameter name="ClientId">
 <Type>%String</Type>
 <Default>784487677138158563135</Default>
@@ -67,11 +72,11 @@
  	
  	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
+ 	;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)
@@ -92,16 +97,16 @@
 	#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.Port = "443"
+	Set HttpMessage.Server=..#Server
+	Set HttpMessage.Location = ..#Location
+	;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>