1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

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

  1. Seleniiti

    Seleniiti Гость

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

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

    Seleniiti Гость

    Репутация:
    0
    User-defined error at line 28
    Т.Е. на самом деле ошибка в строке

    Set doc = newsletter.FormatMsgWithDoclinks( db )

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

    Seleniiti Гость

    Репутация:
    0
    Заменила дизайн базы на ранний который работал - поиск работает. Но при попытке замены вьюх на те, у которых стиль отображения смемен, опять возникает ошибка, причем просто замена вьюх "как было" не помогает - надо снова полностью обновлять весь дизайн :)
     
Загрузка...
Похожие Темы - Проблемы поиском
  1. CHEATER
    Ответов:
    1
    Просмотров:
    92
  2. Define

    Проблема Проблемы с шеллом

    Define, 18 июн 2017, в разделе: Kali Linux
    Ответов:
    2
    Просмотров:
    204
  3. Oksy
    Ответов:
    37
    Просмотров:
    1.814
  4. nikos
    Ответов:
    31
    Просмотров:
    1.384
  5. lmike
    Ответов:
    18
    Просмотров:
    809

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