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

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

Наш партнер Genesis Hackspace
  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.920
    Симпатии:
    1
    а далье ? at line#: " & Erl(),16,"Search" - что тут
     
  3. Seleniiti

    Seleniiti Гость

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

    Set doc = newsletter.FormatMsgWithDoclinks( db )

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

    Seleniiti Гость

    Заменила дизайн базы на ранний который работал - поиск работает. Но при попытке замены вьюх на те, у которых стиль отображения смемен, опять возникает ошибка, причем просто замена вьюх "как было" не помогает - надо снова полностью обновлять весь дизайн :)
     
Загрузка...
Похожие Темы - Проблемы поиском
  1. Oksy
    Ответов:
    16
    Просмотров:
    352
  2. nikos
    Ответов:
    30
    Просмотров:
    658
  3. lmike
    Ответов:
    18
    Просмотров:
    398
  4. VikTor1990
    Ответов:
    0
    Просмотров:
    104
  5. hitesh
    Ответов:
    6
    Просмотров:
    196

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