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

Тема в разделе "Lotus - Программирование", создана пользователем Seleniiti, 11 дек 2008.

  1. Seleniiti

    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...
     
  2. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    а далье ? at line#: " & Erl(),16,"Search" - что тут
     
  3. Seleniiti

    Seleniiti Гость

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

    Set doc = newsletter.FormatMsgWithDoclinks( db )

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

    Seleniiti Гость

    Заменила дизайн базы на ранний который работал - поиск работает. Но при попытке замены вьюх на те, у которых стиль отображения смемен, опять возникает ошибка, причем просто замена вьюх "как было" не помогает - надо снова полностью обновлять весь дизайн :)
     
Загрузка...
Похожие Темы - Проблемы поиском
  1. aliaksandr89
    Ответов:
    3
    Просмотров:
    151
  2. Amfion
    Ответов:
    5
    Просмотров:
    146
  3. wowa
    Ответов:
    7
    Просмотров:
    402
  4. John_Tavarez
    Ответов:
    0
    Просмотров:
    343
  5. Валентин Амбер
    Ответов:
    11
    Просмотров:
    372

Поделиться этой страницей