*** Wrong *** lnResult = loCurrencyConvertor.ConversionRate(FromCurrency as Currency, ToCurrency as Currency) as double * Correct lnResult = loCurrencyConvertor.ConversionRate(FromCurrency, ToCurrency)>I'm trying to connect to a currency conversion web service. I've registered the service, used the example code stub as a a basis, and intellisense for the syntax - all I get is an error message: "Error 1300, Function Name is missing an )".
>LOCAL loCurrencyConvertor AS "XML Web Service" >* LOCAL loCurrencyConvertor AS "MSSOAP.SoapClient30" >* Do not remove or alter following line. It is used to support IntelliSense for your XML Web service. >*__VFPWSDef__: loCurrencyConvertor = http://www.webservicex.net/CurrencyConvertor.asmx?wsdl , CurrencyConvertor , CurrencyConvertorSoap >LOCAL loException, lcErrorMsg, loWSHandler >TRY > loWSHandler = NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC\")+"_ws3client.vcx") > loCurrencyConvertor = loWSHandler.SetupClient("http://www.webservicex.net/CurrencyConvertor.asmx?wsdl", "CurrencyConvertor", "CurrencyConvertorSoap") > * Call your XML Web service here. ex: leResult = loCurrencyConvertor.SomeMethod() > FromCurrency = [GBP] > ToCurrency = [USD] > lnResult = loCurrencyConvertor.ConversionRate(FromCurrency as Currency, ToCurrency as Currency) as double > >CATCH TO loException > lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" - "+loException.Message > DO CASE > CASE VARTYPE(loCurrencyConvertor)#"O" > * Handle SOAP error connecting to web service > CASE !EMPTY(loCurrencyConvertor.FaultCode) > * Handle SOAP error calling method > lcErrorMsg=lcErrorMsg+CHR(13)+loCurrencyConvertor.Detail > OTHERWISE > * Handle other error > ENDCASE > * Use for debugging purposes > MESSAGEBOX(lcErrorMsg) >FINALLY >ENDTRY