Проблемы с поиском

[Seleniiti]

Недавно возникла проблема с поиском. По нажатию на кнопку вызываю агента:
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...

 

[morpheus]

Выдает ошибку - User-defined error...

а далье ? at line#: " & Erl(),16,"Search" - что тут

 

[Seleniiti]

User-defined error at line 28
Т.Е. на самом деле ошибка в строке

Set doc = newsletter.FormatMsgWithDoclinks( db )

Но что я такого могда изменить что тут ошибка выходит? Раньше же все работало...

 

[Seleniiti]

Заменила дизайн базы на ранний который работал - поиск работает. Но при попытке замены вьюх на те, у которых стиль отображения смемен, опять возникает ошибка, причем просто замена вьюх "как было" не помогает - надо снова полностью обновлять весь дизайн