У меня есть веб-сервис на Lotusscript, и я хочу, чтобы какая-то функция возвращала список элементов.
Насколько я знаю, функции Lotusscript не могут возвращать списки объектов, вам нужно создать класс-оболочку для возврата списков (Могу ли я вернуть список из функции LotusScript?)
Вот первая версия кода:
Class myClass
Public Function getList As Person
Dim pers As New Person
pers.info = "Iron Man"
Set getList = pers
End Function
End Class
Class Person
Public info As String
End Class
Класс PortType установлен на myClass. Этот код работает достаточно хорошо и возвращает один объект класса Person.
Но когда я пытаюсь вернуть список объектов:
Class myClass
Public Function getList As PersonLst
Dim pers As New Person
Dim persLst As New PersonLst
pers.info = "Iron Man"
Set persLst.lst("Tony Stark") = pers
Set getList = persLst
End Function
End Class
Class Person
Public info As String
End Class
Class PersonLst
Public lst List As Person
End Class
Когда я сохраняю свой веб-сервис, у меня возникает следующая ошибка:
The Web Service has been saved, but is not valid: Please specify which
class exposes your web service interface(s), using the
'PortType class' field of the Web Service properties panel
хотя для PortType по-прежнему задан myClass.