Поиск В Виде

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

  1. Gandliar

    Gandliar Well-Known Member

    Регистрация:
    16 фев 2004
    Сообщения:
    222
    Симпатии:
    0
    Привет!

    Можно ли сэмулировать полнотекстовый поиск в виде на скрипте?

    Типа нажал кнопку, вылез диалог бокс, в нем выбрал параметры, запустился полнотекстовый поиск и в виде остались только документы соответствующие критериям отбора.

    Или возможно только в папку?
     
  2. nvyush

    nvyush Lotus team
    Lotus team

    Регистрация:
    22 апр 2009
    Сообщения:
    2.317
    Симпатии:
    0
    Это же, вроде, штатная функция. Создайте свою поисковую форму.
     
  3. Gandliar

    Gandliar Well-Known Member

    Регистрация:
    16 фев 2004
    Сообщения:
    222
    Симпатии:
    0
    в своей форме помоему нельзя задать списки для выбора заранее предопределенных значений
    и помоему ее нельзя вызвать кнопкой, а надо лезть в настройки поиска
     
  4. GveinBlade

    GveinBlade Гость

    db.search не пробовали?
     
  5. susinmn

    susinmn Well-Known Member

    Регистрация:
    16 окт 2007
    Сообщения:
    530
    Симпатии:
    8
    @PostedCommand([ViewShowSearchBar];"1")
     
  6. Gandliar

    Gandliar Well-Known Member

    Регистрация:
    16 фев 2004
    Сообщения:
    222
    Симпатии:
    0
    а параметры как передать в сеарч бар?
     
  7. susinmn

    susinmn Well-Known Member

    Регистрация:
    16 окт 2007
    Сообщения:
    530
    Симпатии:
    8
    С папкой у нас так - Serch.jpg
     
  8. Gandliar

    Gandliar Well-Known Member

    Регистрация:
    16 фев 2004
    Сообщения:
    222
    Симпатии:
    0
    Спасибо.


    Если можно, прошу ответить еще на пару вопросиков по реализации

    На картинке видно - что папка в диалог боксе ?
    Что происходит в случае перехода по документу в папке? Еще один диалог бокс?

    если передается значение в вызывающее окно, то не совсем понятно как закрыть диалог бокс по клику на документе в папке и передать в вызывающее окно.

    а при поиске происходит переоткрытие диалог бокса? в случае нажатия ввода
     
  9. susinmn

    susinmn Well-Known Member

    Регистрация:
    16 окт 2007
    Сообщения:
    530
    Симпатии:
    8
    Форма с внедренной личной папкой.
    Код (Text):
    Например, т.к. данных в папке хватает пользователям:
    Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
    Continue=False
    End Sub
    выделяют документ в папке
    Код (Text):
    Sub Onselect(Source As Notesuiview)
    Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument

    On Error Resume Next
    Set uidoc=ws.CurrentDocument
    Set doc=uidoc.Document
    Call ws.CurrentDocument.Document.ReplaceItemValue("NoteID",Source.CaretNoteID)

    End Sub
    и жмут на Ok.


    Код (Text):
    Call ws.ViewRefresh
     
  10. Gandliar

    Gandliar Well-Known Member

    Регистрация:
    16 фев 2004
    Сообщения:
    222
    Симпатии:
    0
    Еще раз спасибо.

    Подскажите пожалуйста, как быстро очистить папку?
     
  11. nvyush

    nvyush Lotus team
    Lotus team

    Регистрация:
    22 апр 2009
    Сообщения:
    2.317
    Симпатии:
    0
    folder.AllEntries.RemoveAllFromFolder(folder.Name)
     
  12. susinmn

    susinmn Well-Known Member

    Регистрация:
    16 окт 2007
    Сообщения:
    530
    Симпатии:
    8
    Не у всех работает *folder.AllEntries* в личных папках!

    Код (Text):
        Set viewEntryColl = view.GetAllEntriesByKey("#@#", 1)
    Set viewNavigator = view.CreateViewNav
    Set viewEntry = viewNavigator.GetFirstDocument
    While Not viewEntry Is Nothing
    Call viewEntryColl.AddEntry(viewEntry)
    Set viewEntry = viewNavigator.GetNextDocument(viewEntry)
    Wend
    Call viewEntryColl.RemoveAllFromFolder(view.Name)
     
  13. nvyush

    nvyush Lotus team
    Lotus team

    Регистрация:
    22 апр 2009
    Сообщения:
    2.317
    Симпатии:
    0
    susinmn
    Почему именно "#@#", 1 (0, 7, кому что нравится) было бы быстрее. И стоит упомянуть о необходимости создания служебного скрытого первого сортированного столбца с соответствующим ключом.
     
  14. susinmn

    susinmn Well-Known Member

    Регистрация:
    16 окт 2007
    Сообщения:
    530
    Симпатии:
    8
    Для создания пустой коллекции.
    Глюк с folder.AllEntries в моем случае был замечен немного позже запуска функционала, пришлось навигатором собирать коллекцию.
     
  15. VladSh

    VladSh начинающий
    Lotus team

    Регистрация:
    11 дек 2009
    Сообщения:
    1.251
    Симпатии:
    2
    Я для этого давно уже беру коллекцию профайлов с несуществующим именем. Быстрее.
     
Загрузка...

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