V
Vado
День добрый!
Может кто-то помочь не лотусисту.
из демо-примера сделал веб-сервис - даже работает с простыми значениями
[codebox]Option Public
%INCLUDE "lsxsd.lss"
Class Test
Function getProductName(productNumber As String, Fault1 As WS_FAULT) As Variant
Dim session As NotesSession
Set session = New NotesSession
Dim db As notesdatabase
Dim view As notesview
Dim doc As notesdocument
Set db = session.GetDatabase("","referent/portal.nsf")
Set view = db.GetView("$NewAll")
Set doc = view.GetFirstDocument () '.GetDocumentByKey(productNumber, True)
If doc Is Nothing Then
Else
getProductName = doc.GetFirstItem ("From").text +" | "+ doc.GetFirstItem ("EnterSendFrom").text +" | "+ doc.GetFirstItem ("SendToRus").text +" | "+ doc.GetFirstItem ("Subject").text +" | "+ doc.GetFirstItem ("Body").text
End If
End Function
End Class[/codebox]
Вопрос - как передать вьюшку ил коллекцию док-ов (не знаю как правильнее сформулировать). Т.е. мне надо чтобы вебсервис возвращал что-то, что потом можно превратить в таблицу.
пытался пристроить
Set db = session.GetDatabase("","referent/portal.nsf")
Set view = db.GetView("$All")
Set col = view.GetAllDocumentsByKey("Eugenia V Eugenya/OU=DB/OU=UA/O=RUS", True)
но вернуть col не получилось.
Помогите.
Заранее спасибо
Может кто-то помочь не лотусисту.
из демо-примера сделал веб-сервис - даже работает с простыми значениями
[codebox]Option Public
%INCLUDE "lsxsd.lss"
Class Test
Function getProductName(productNumber As String, Fault1 As WS_FAULT) As Variant
Dim session As NotesSession
Set session = New NotesSession
Dim db As notesdatabase
Dim view As notesview
Dim doc As notesdocument
Set db = session.GetDatabase("","referent/portal.nsf")
Set view = db.GetView("$NewAll")
Set doc = view.GetFirstDocument () '.GetDocumentByKey(productNumber, True)
If doc Is Nothing Then
Else
getProductName = doc.GetFirstItem ("From").text +" | "+ doc.GetFirstItem ("EnterSendFrom").text +" | "+ doc.GetFirstItem ("SendToRus").text +" | "+ doc.GetFirstItem ("Subject").text +" | "+ doc.GetFirstItem ("Body").text
End If
End Function
End Class[/codebox]
Вопрос - как передать вьюшку ил коллекцию док-ов (не знаю как правильнее сформулировать). Т.е. мне надо чтобы вебсервис возвращал что-то, что потом можно превратить в таблицу.
пытался пристроить
Set db = session.GetDatabase("","referent/portal.nsf")
Set view = db.GetView("$All")
Set col = view.GetAllDocumentsByKey("Eugenia V Eugenya/OU=DB/OU=UA/O=RUS", True)
но вернуть col не получилось.
Помогите.
Заранее спасибо