Недавно возникла проблема с поиском. По нажатию на кнопку вызываю агента:
Sub Initialize
On Error Goto ProcessError
Dim session As New NotesSession
Dim docSearch As NotesDocument
Set docSearch = session.DocumentContext
Dim SearchWord As String
SearchWord="Иванов"
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim collection As NotesDocumentCollection
Dim newsletter As NotesNewsletter
Dim doc As NotesDocument
Set collection = db.FTSearch(SearchWord, 0 )
Set newsletter = New NotesNewsletter( collection )
Set doc = newsletter.FormatMsgWithDoclinks( db )
newsletter.DoScore=True
newsletter.DoSubject=True
newsletter.SubjectItemName="Subj"
doc.Form = "SearchReport"
doc.SWord= SearchWord
Call doc.Save ( True, True )
Print {<script>window.open('http://localhost/HR-LUXOFT_For_Translate.nsf//0/} + doc.UniversalID + {?OpenDocument') ;
window.close();</script>}
Exit Sub
ProcessError:
Msgbox "Error (" & Cstr(Err) & " ) -> " & Error$(Err) & ", at line#: " & Erl(),16,"Search"
End Sub
Сначала все работало, потом единственное что сделала - отображение вьюх в веб с помощью ява апплета. Не думаю что это как то влияет, но поиск перестал работать (. Причем до строчки
Set doc = newsletter.FormatMsgWithDoclinks( db )
все работает а вот после нее уже ничего не идет (просто ставила везде вывод сообщений - так вот после этой строки сообщения не выводятся совсем)
В чем моя ошибка? Неужели стиль отображения вьюх как то влияет на поиск...
Проверила -поиск не работает и в лотусе. Выдает ошибку - User-defined error...
Sub Initialize
On Error Goto ProcessError
Dim session As New NotesSession
Dim docSearch As NotesDocument
Set docSearch = session.DocumentContext
Dim SearchWord As String
SearchWord="Иванов"
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim collection As NotesDocumentCollection
Dim newsletter As NotesNewsletter
Dim doc As NotesDocument
Set collection = db.FTSearch(SearchWord, 0 )
Set newsletter = New NotesNewsletter( collection )
Set doc = newsletter.FormatMsgWithDoclinks( db )
newsletter.DoScore=True
newsletter.DoSubject=True
newsletter.SubjectItemName="Subj"
doc.Form = "SearchReport"
doc.SWord= SearchWord
Call doc.Save ( True, True )
Print {<script>window.open('http://localhost/HR-LUXOFT_For_Translate.nsf//0/} + doc.UniversalID + {?OpenDocument') ;
window.close();</script>}
Exit Sub
ProcessError:
Msgbox "Error (" & Cstr(Err) & " ) -> " & Error$(Err) & ", at line#: " & Erl(),16,"Search"
End Sub
Сначала все работало, потом единственное что сделала - отображение вьюх в веб с помощью ява апплета. Не думаю что это как то влияет, но поиск перестал работать (. Причем до строчки
Set doc = newsletter.FormatMsgWithDoclinks( db )
все работает а вот после нее уже ничего не идет (просто ставила везде вывод сообщений - так вот после этой строки сообщения не выводятся совсем)
В чем моя ошибка? Неужели стиль отображения вьюх как то влияет на поиск...
Проверила -поиск не работает и в лотусе. Выдает ошибку - User-defined error...
