Поиск В Виде

Gandliar

Lotus team
16.02.2004
341
8
#1
Привет!

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

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

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

nvyush

Lotus team
22.04.2009
2 317
0
#2
Это же, вроде, штатная функция. Создайте свою поисковую форму.
 

Gandliar

Lotus team
16.02.2004
341
8
#3
Это же, вроде, штатная функция. Создайте свою поисковую форму.
в своей форме помоему нельзя задать списки для выбора заранее предопределенных значений
и помоему ее нельзя вызвать кнопкой, а надо лезть в настройки поиска
 

susinmn

Well-known member
16.10.2007
529
3
#5
Привет!

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

Типа нажал кнопку, вылез диалог бокс, в нем выбрал параметры, запустился полнотекстовый поиск и в виде остались только документы соответствующие критериям отбора.
@PostedCommand([ViewShowSearchBar];"1")
 

Gandliar

Lotus team
16.02.2004
341
8
#8
Спасибо.


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

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

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

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

susinmn

Well-known member
16.10.2007
529
3
#9
На картинке видно - что папка в диалог боксе ?
Форма с внедренной личной папкой.
Что происходит в случае перехода по документу в папке? Еще один диалог бокс?
Код:
Например, т.к. данных в папке хватает пользователям:
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
 

Gandliar

Lotus team
16.02.2004
341
8
#10
Еще раз спасибо.

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

susinmn

Well-known member
16.10.2007
529
3
#12
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)
 

nvyush

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

susinmn

Well-known member
16.10.2007
529
3
#14
susinmn
Почему именно "#@#", 1 (0, 7, кому что нравится) было бы быстрее.
Для создания пустой коллекции.
susinmn
И стоит упомянуть о необходимости создания служебного скрытого первого сортированного столбца с соответствующим ключом.
Глюк с folder.AllEntries в моем случае был замечен немного позже запуска функционала, пришлось навигатором собирать коллекцию.