When I run this code, the IF line returns .t., but the line right after ENDIF fails with "you must be logged on" error. ??? The same username and password work with the sample UT access code. Too bad: would make for a good demo of VFP's web services capabilities. (And yes, I can access other Web Services.)

Hank Fay

LOCAL loUT as UniversalThread
LOCAL loWS
ON error
loWS = NEWOBJECT("Wsclient",HOME()+"ffc\_webservices.vcx")
loWS.cWSName = "UniversalThread"
loUT = loWS.SetupClient("http://www.levelextreme.com/universalthread.wsdl", "UniversalThread", "WebServiceSoapPort")
lcUser = "<myusername>" && real username used in real code
lcPassword = "<mypwd>" && real password used in real code
IF !loUT.login(lcUser,lcPassword)
	is(loUT.Login(lcUser,lcPassword))
	RETURN
ENDIF
lcMsgs = loUT.GetMessage(DATE()-2)
=XMLTOCURSOR(lcMsgs,"_msgs")
SELECT _msgs
browse