I’m not obtaining to receive the array that the Web service provider give to me… IN provite my function is like this:Dim s As NotesSession
Class ClassArray
Public info() As String
End Class
Class GetAgenda
Sub NEW
Set s = New NotesSession
End Sub
Function getNthAgenda( viewname As String) As ClassArray
Dim db As NotesDatabase
Dim dbmembro As NotesDatabase
Dim rec As ClassArray
Set db = s.CurrentDataBase
Set dbmembro = New NotesDatabase("","")
Set recebe = New ClassArray
Redim rec.info(0 To 2)
rec.info(0)="No 1"
rec.info(1)="No 2"
rec.info(2)="No 3"
Set getNthAgenda = rec
End Function
End Class
My consumer code is like this:
Sub Click(Source As Button)
' We only use this to figure out what this database is called.
'Create a new MSSOAP client object
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUidocument
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
Dim Client As Variant
Set Client =CreateObject("MSSOAP.SoapClient")
'Initialize connection to the WSDL file
Call Client.mssoapinit ("http://netserver.test.com.br/base/Teste/JavaLuiz.nsf/Teste?WSDL")
Dim result As ClassArray
Dim i As Integer
'Redim result.info(0 To 100)
Set result = New ClassArray
Set result = Client.getNthAgenda("java")
End Sub
The question is, Why I was not obtaining this info come of provider?
I didn’t see any info…
Thanks