Привет!

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

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

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

 

Это же, вроде, штатная функция. Создайте свою поисковую форму.

 

Это же, вроде, штатная функция. Создайте свою поисковую форму.

в своей форме помоему нельзя задать списки для выбора заранее предопределенных значений
и помоему ее нельзя вызвать кнопкой, а надо лезть в настройки поиска

 

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

 

Привет!

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

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

@PostedCommand([ViewShowSearchBar];"1")

 

@PostedCommand([ViewShowSearchBar];"1")

а параметры как передать в сеарч бар?

 

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

С папкой у нас так -

 

С папкой у нас так - Посмотреть вложение 5316

Спасибо.


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

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

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

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

 

На картинке видно - что папка в диалог боксе ?

Форма с внедренной личной папкой.

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

Например, т.к. данных в папке хватает пользователям:
Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
Continue=False
End Sub

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

выделяют документ в папке

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.

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

Call ws.ViewRefresh

 

Еще раз спасибо.

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

 

folder.AllEntries.RemoveAllFromFolder(folder.Name)

 

folder.AllEntries.RemoveAllFromFolder(folder.Name)

Не у всех работает *folder.AllEntries* в личных папках!

	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)

 

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

 

susinmn
Почему именно "#@#", 1 (0, 7, кому что нравится) было бы быстрее.

Для создания пустой коллекции.

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

Глюк с folder.AllEntries в моем случае был замечен немного позже запуска функционала, пришлось навигатором собирать коллекцию.

 

Для создания пустой коллекции.

Я для этого давно уже беру коллекцию профайлов с несуществующим именем. Быстрее.