This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
I'm creating a Lotus Notes Web service Provider and would like to know how to map the complex data types in the WSDL to a string in the function.
The following code seems to work (Testing with SOAPUI 3.6.1), although it's only returning the value of the first element of each complex data type eg, 'IDOC' and 'MessageFunction'.
I'm not sure how to pull any of the values from the DocHead and Per classes into a Notes string.
An example would be appreciated or at least show where the code is failing.
Lotus Notes Web Provider:
'Options:
Option Public
%INCLUDE "lsxsd.lss"
'Declarations:
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim newDoc As NotesDocument
Dim s As String
Class DocHead As STRINGARRAY_HOLDER
Public CreationDate() As XSD_STRING
Public CreationTime() As XSD_STRING
Public IDOC() As XSD_STRING
Public SenderPort() As XSD_STRING
Public Sender() As XSD_STRING
Public Sub NEW
End Sub
End Class
Class Per As STRINGARRAY_HOLDER
Public MessageFunction() As XSD_STRING
Public PersonnelNumber() As XSD_STRING
Public Surname() As XSD_STRING
Public Firstname() As XSD_STRING
Public Sub NEW
End Sub
End Class
Class PersonnelUpdate_MasterData
Public Function PersonnelUpdate(DocumentHeader As DocHead, Personnel As Per, returnfault As WS_FAULT) As String
On Error Goto processError
Dim session As New NotesSession
Set db = session.CurrentDatabase
Set newdoc = New NotesDocument ( db )
'Notes document processing........
Exit Function
processError:
Call returnFault.setFault(True)
Call returnFault.setFaultString(Error$)
Messagebox "Logging to console: " & Error$
Exit Function
End Function
End Class