Index: WS/TAPI/SMSTools/SMSClient.cls.xml
===================================================================
diff -u
--- WS/TAPI/SMSTools/SMSClient.cls.xml	(revision 0)
+++ WS/TAPI/SMSTools/SMSClient.cls.xml	(revision 62902)
@@ -0,0 +1,124 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.TAPI.SMSTools.SMSClient">
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="Server">
+<Type>%String</Type>
+<Default>api.smsgatewayapi.com</Default>
+</Parameter>
+
+<Parameter name="Location">
+<Type>String</Type>
+<Default>/v1/message/send</Default>
+</Parameter>
+
+<Parameter name="ClientId">
+<Type>%String</Type>
+<Default>784487677138158563135</Default>
+</Parameter>
+
+<Parameter name="ClientSecret">
+<Type>%String</Type>
+<Default>jTuBQ6JWSWOhckcPHC9Dc</Default>
+</Parameter>
+
+<Property name="HttpAPI">
+<Type>TECH.Http.HttpAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>HttpAPI:TECH.Http.HttpAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..HttpAPI = $$$Inject(HttpAPI,##class(TECH.Context).Instance().GeefHttpAPI())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="StuurBericht">
+<FormalSpec>Recipient:%String,Message:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Result As %String =""
+	try {
+		Do ..SendStream(..GeefJSONStream(Recipient,Message))	
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Result = Exception.GeefErrorInformatie()
+	}
+	Quit Result
+]]></Implementation>
+</Method>
+
+<Method name="GetBalance">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+ 	Set HttpRequest = ##class(%Net.HttpRequest).%New()
+ 	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
+ 	 	
+    #dim StatusCode As %Status = HttpRequest.Get("/v1/balance")
+    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)
+	    Do ##class(TECH.ExceptionHandler).Throw(Exception)
+    }
+]]></Implementation>
+</Method>
+
+<Method name="SendStream">
+<FormalSpec>Stream:%GlobalCharacterStream</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim HttpMessage As TECH.Http.Message = ##class(TECH.Http.Message).%New()
+	#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.ClientId = "784487677138158563135"
+	Set HttpMessage.ClientSecret = "jTuBQ6JWSWOhckcPHC9Dc"
+	
+	set HttpMessage.ContentType= "text/plain"
+	Set HttpMessage.Data = Stream
+	
+	Do Poster.SetSslConfiguration("SMSTools")
+	
+	Do Poster.PostMessage(HttpMessage)
+]]></Implementation>
+</Method>
+
+<Method name="GeefJSONStream">
+<FormalSpec>TelNo:%String,Message:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%GlobalCharacterStream</ReturnType>
+<Implementation><![CDATA[
+	#dim Stream As %GlobalCharacterStream = ##class(%GlobalCharacterStream).%New()
+
+	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("}"_ $$$CRLF)
+	Quit Stream
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/TAPI/SMSTools/BalanceResponse.cls.xml
===================================================================
diff -u
--- WS/TAPI/SMSTools/BalanceResponse.cls.xml	(revision 0)
+++ WS/TAPI/SMSTools/BalanceResponse.cls.xml	(revision 62902)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.TAPI.SMSTools.BalanceResponse">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="credits">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>