Code:
/* client_Currency.p */
DEFINE VARIABLE hWebService AS HANDLE NO-UNDO.
DEFINE VARIABLE hCurrencyServerWebServiceSoap AS HANDLE NO-UNDO.
CREATE SERVER hWebService.
hWebService:CONNECT("-WSDL 'http://www.currencyserver.de/webservice/currencyserverwebservice.asmx?WSDL'").
RUN CurrencyServerWebServiceSoap SET hCurrencyServerWebServiceSoap ON hWebService.
DEFINE VARIABLE provider AS CHARACTER NO-UNDO.
DEFINE VARIABLE srcCurrency AS CHARACTER NO-UNDO.
DEFINE VARIABLE dstCurrency AS CHARACTER NO-UNDO.
DEFINE VARIABLE getCurrencyValueResult AS CHARACTER NO-UNDO.
provider = "AVERAGE".
srcCurrency = "EUR".
dstCurrency = "USD".
RUN getCurrencyValue IN hCurrencyServerWebServiceSoap(INPUT provider, INPUT srcCurrency, INPUT dstCurrency, OUTPUT getCurrencyValueResult).
hWebService:DISCONNECT().
MESSAGE srcCurrency "->" dstCurrency "="
getCurrencyValueResult VIEW-AS ALERT-BOX.