FishEye: Tag 3850 refers to a dead (removed) revision in file `WS/TAPI/SMSserviceSoap.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
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>
 
Index: WS/TAPI/SMSClient.cls.xml
===================================================================
diff -u
--- WS/TAPI/SMSClient.cls.xml	(revision 0)
+++ WS/TAPI/SMSClient.cls.xml	(revision 3850)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="WS.TAPI.SMSClient">
+<Super>%SOAP.WebClient</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="LOCATION">
+<Description>
+This is the URL used to access the web service.</Description>
+<Default>http://tapi/csp/admin1/WS.TAPI.SMSService.cls</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Description>
+This is the namespace used by the Service</Description>
+<Default>http://www.vanhoecke.be</Default>
+</Parameter>
+
+<Parameter name="SERVICENAME">
+<Description>
+This is the name of the Service</Description>
+<Default>WS.TAPI.SMSService</Default>
+</Parameter>
+
+<Method name="StuurBericht">
+<Final>1</Final>
+<FormalSpec>Recipient:%String,Message:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ 	Set Feedback = ..WebMethod("StuurBericht").Invoke(##this,"http://www.vanhoecke.be/WS.TAPI.SMSService/StuurBericht",.Recipient,.Message)
+ 	If ($Length(Feedback)){
+		Set Logger = ##class(vhLib.Logger).%New("WS.TAPI.SMSClient")
+		Do Logger.ErrorMail("StuurBericht",Feedback)
+	}
+	Quit Feedback
+]]></Implementation>
+</Method>
+</Class>
+</Export>