Index: WS/TAPI/SMSMessageSingle.cls.xml
===================================================================
diff -u -r2588 -r3850
--- WS/TAPI/SMSMessageSingle.cls.xml	(.../SMSMessageSingle.cls.xml)	(revision 2588)
+++ WS/TAPI/SMSMessageSingle.cls.xml	(.../SMSMessageSingle.cls.xml)	(revision 3850)
@@ -71,9 +71,13 @@
 	Set $ZT=""
 	Set Status="Error message: "_$ZE
 	Set Body=Status_$$$CRLF
-	Set:isObject(..Parent.Creator) Body=Body_$$$CRLF_"SMS Creator:"_..Parent.Creator.Naam
-	Set From="SMSGateway@vanhoecke.be"
-	Set Subj="SMS ERROR report (ID="_..Parent.%Id()_")"
+	If ($IsObject(..Parent.Creator)){
+		Set Body=Body_$$$CRLF_"SMS Creator:"_..Parent.Creator.Naam
+		Set Subj="SMS ERROR report (ID="_..Parent.%Id()_")"
+	}Else{
+		Set Subj="Fout bij verzenden van SMS naar "_ ..Recipient_ " met inhoud : "_$C(13,10)_..Message
+	}
+	Set From="SMSGateway@vanhoecke.be"	
 	Set To=$LB("pv@vanhoecke.be","itadmin@vanhoecke.be")
 	Do SendMiniMail^vhLib(From,To,Subj,Body,,,,,)
 	Quit
@@ -83,45 +87,11 @@
 <Method name="SendMessage">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Recipient:%String,Message:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set Status = ""
-	Set COMPort="COM6"
-	Open COMPort::5		// trachten COM poort naar GSM te openen
-	if '$Test {
-		set Logger = ##class(vhLib.Logger).%New("WS.TAPI.SMS")
-		do Logger.ErrorMail("Send","GSM-toestel niet bereikbaar")
-		Set Status = "GSM is niet te contacteren, toestel waarschijnlijk uitgeschakeld"
-	}
-	
-	Quit:$L(Status) Status  
-	Use COMPort:("":"S") Write "AT+CPIN=4606",!  ; pincode ingeven.
-	Read Ans:5
-	H 1  		; secondje wachten 't GSMeke heeft wat tijd nodig om te processen.
-	Use COMPort:("":"S") Write "AT+CMGF=1",!     ; sms type op simple zetten
-	Read Ans:5
-	H 1         
-	Use COMPort:("":"S") Write "AT+CMGS="_Recipient,!  ; sms sender opgeven.
-	H 1         
-	Use COMPort:("":"S") Write Message_$C(26),!		; message in bericht plaatsen en verzenden via CTRL+Z $C(26)
-	Read Ans:5  
-	H 1			
-	Set Status = "SMS verzonden, maar geen OK verkregen van GSM"
-	; / Uitlezen van gegevens nogal redelijk vuil manier van aanpakken.
-	; / x aantal lijntjes uitlezen want testen op '$TEST dan stopt het vroeger dan gewenst..
-	; / 
-	; / Volgens testen staat de uiteindelijke ok ergens op lijn 20, vooral zekerheid maar een paar lijntjes meer trachten te lezen.
-	; /
-	Set Counter = 0
-	For  Set Counter=Counter + 1 Use COMPort:("":"S") Read @("Line"_Counter_":1") Quit:Counter=25 
-	; / Lijntjes aflopen en kijken of er ergens een +CMGS: in staat indien ja zoeken naar OK
-	; / 
-	Set LineCounter = Counter
-	Set QuitFlag = 0
-	For Counter = 1 : 1  : LineCounter  Quit:QuitFlag  If $G(@("Line"_Counter)) [ "+CMGS: " Do
-	. Set QuitFlag = 1
-	. For Counter=Counter:1:LineCounter If $G(@("Line"_Counter)) [ "OK" Set Status = ""
-	close COMPort
-	Quit Status
+	Set Feedback = ##class(WS.TAPI.SMSClient).%New().StuurBericht(Recipient,Message)
+	If ($Length(Feedback)) Quit '$$$OK
+	Quit $$$OK
 ]]></Implementation>
 </Method>