OK, this is my first attempt at importing a remote WSDL and consuming a service via client, so please bear with me:)
I imported the WSDL into a script library, per the help file. I’ve created an agent, importing the proper script library. No trouble so far. The problem is I don’t know how to construct the variable to pass into the service call (‘GetIssues’ from the WSDL below).
It looks like the call requires an instance of the GetIssues_issueNums_n1 class, but how on earth do I fill that with the proper data (NotesDOMElemementNode?)
Here’s what I have so far in my agent(not working). The XSD_STRINGS are leftovers from another failed attempt, but that’s basically what I want to pass in…just two pieces of XML. I can pass in the empty searchCriteria, and it fails obviously, but it compiles…
Any ideas?
Agent
Sub Initialize
Dim ws As IssueTrakSoap_n1
Dim searchCriteria As GetIssues_issueNums_n1
Dim xmlNode As NotesDOMElementNode
Set ws = New IssueTrakSoap_n1()
Dim ReturnSchema As New XSD_STRING
Call ReturnSchema.SetValueFromString("Y")
Dim IssueNum As New XSD_STRING
Call IssueNum.SetValueFromString("29")
Set searchCriteria = New GetIssues_issueNums_n1()
Call ws.GetIssues( searchCriteria )
End Sub
WSDL Definition (boring parts omitted)
Class GetIssues_issueNums_n1 As XSD_ANYTYPE
Public any As NotesDOMElementNode
Sub NEW
End Sub
End Class
Class IssueTrakSoap_n1 As PortTypeBase
Sub NEW
Call Service.Initialize ("HttpIssueTrakServiceIssueTrak", _
"IssueTrak.IssueTrakSoap", "WebServer/IssueTrakService.asmx", _
"IssueTrakSoap_n1")
End Sub
Function GetIssues(issueNums As GetIssues_issueNums_n1) As GetIssuesResponse_GetIssuesResult_n1
Set GetIssues = Service.Invoke("GetIssues", issueNums)
End Function
End Class