InvokeWebService using QTP

Function InvokeWebService(imageXML, strUser)

  sMetaDataXML = ""
  sResultMode = ""
  appName ="Application Nam_1.01.1"
  On Error Resume Next

  Set ws = WebService("wsdl:=" & "http://webservices-url/services?wsdl","service:=" & "TradeSvcWS","port:=" & "svcport")

  returnValue = ws.performTradeInstructions(strUser, appName, imageXML, sMetaDataXML, sResultMode)

  'Get the new trade ID

  strNewCreatedTradeID = GetXMLNode (returnValue, "/Results/xpath[1]/complete[1]/to[1]/TradeRef[1]/Id[1]")

  Print "Result from WSCall --- "&returnValue

  InvokeWebService = strNewCreatedTradeID

  Set ws = Nothing

  If Err.Number <> 0 Then

    LogReport micFail, "Invoke performTradeInstructions Web Service", Err.Description
    Print "Error Invoking performTradeInstructions Web Service --- " & Err.Description
    returnValue= ""
  End If
                              

End Function