Удаление из вида

[I123321]

Есть вопрос. Возможно ли удаление из вида, если документы в виде разбиты по категориям, необходимо удалять документы не выделяя их, а сразу всю категорию (то есть свернутую)

 

[NickProstoNick]

отлавливай событие Postdocumentdelete у базы

 

[I123321]

а нельзя ли чуть подробней?!

 

[Medevic]

Если категория не вложенная, то можно с помощью свойства NotesUIView.CaretCategory узнать категорию, потом NotesView.GetAllDocumentsByKey получить коллекцию и удалить её.

 

[I123321]

спасибо, буду прбывать

сделано так:

Dim view As NotesUIView
Dim category As Variant
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Set db = session.CurrentDatabase
Set view = workspace.CurrentView
category = view.CaretCategory
Set view = db.GetView( "category" )
Set dc = view.GetAllDocumentsByKey("view ", False)
Delete dc

что делаю не правильно??? помогите пожалуйста

 

[susinmn]

category = view.CaretCategory
Set dc = view.GetAllDocumentsByKey(category , False)

 

[I123321]

так проверял. на Set dc = view.GetAllDocumentsByKey(category , False) выдает Not a member GetAllDocumentsByKey

 

[hosm]

можно так

Set view = workspace.CurrentView	' uiview
category = view.CaretCategory	
Set dc = view.view.GetAllDocumentsByKey(category, False) ' получить view от uiview

 

[turumbay]

что делаю не правильно???

да почти все. начнем с того, что код не компилируеца с включенным "option declare"

view.GetAllDocumentsByKey("view ", False) - нет такого метода в uiview

Копайте в направлении
Dim ws As New NotesUIWorkspace
Dim uiview As NotesUIView
Set uiview = ws.CurrentView
Dim category$
category$ = uiview.CaretCategory

Если категоризованный столбец в виде один и первый сортированный - то
Dim collection As NotesDocumentCollection
Set collection = uiview.View.GetAllDocumentsByKey( category$ , True )
Call collection.RemoveAll( True )

При удалении коллекции не должно быть открытых в UI документов из этой коллекции.( в т.ч. в превью )
З.Ы. Рекомендую включить в настройках дизайнера опцию в Programmers Pane Properties: "Automatically add "option Declare"". Убережетесь от многих проблем.

 

[Omh]

можно так

Только тогда эту переменную

Set view = workspace.CurrentView

лучше назвать uiview.
А то стрёмно получается:

dc = view.view.GetAllDocumentsByKey

 

[I123321]

сделал так , по вашим комментариям

	Dim workspace As New NotesUIWorkspace
Dim view As NotesUIView
Dim category As Variant
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Set db = session.CurrentDatabase
Set view = workspace.CurrentView
category = view.CaretCategory
Messagebox "Категория '" + category + "' будет удалена"
category = view.CaretCategory
Set view = workspace.CurrentView 
category = view.CaretCategory 
Set dc = view.view.GetAllDocumentsByKey(category, False) 
Delete dc

но ничего не удаляется

 

[hosm]

Omh
я согласна
сорри, но я наспех ответила, мне лень было код переписывать (даже сперва для dc Set пропустила - пришлось подправить)
конечно, еще стоило нормально описать переменные, как предложил turumbay
I123321
ой-ой-ой... А зачем 3 раза категорию получать?
Delete dc - удаляет объект коллекции из памяти. посмотри вариант turumbay - RemoveAll !!!

 

[Omh]

category = view.CaretCategory
...
category = view.CaretCategory
...
category = view.CaretCategory

Орлята учатся летать

 

[NickProstoNick]

мне вот было совсем лень...

	Dim WS As New NotesUIWorkspace	
Dim uiview As NotesUIView
Dim view As NotesView
Dim category As Variant
Dim dc As NotesDocumentCollection

Set uiview = WS.CurrentView
Set view = uiview.View
category = uiview.CaretCategory

Set dc = view.GetAllDocumentsByKey( category, True)

Call dc.RemoveAll( True )

Call ws.ViewRefresh

все. теперь точно все

 

[Omh]

Ну и естественно, это будет работать, только если в виде одна категолрия

 

[NickProstoNick]

Да. Этот код для одноуровневой категории. А разве разговор о многоуровневой?

 

[Omh]

Ну просто потом I123321 сделает ещё одну категорию и опять появятся вопросы
Так сказать "предупреждён - вооружён"

 

[I123321]

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

 

[Omh]

А что, уже понадобилось?

Как вариант:
1. ты знаешь формулу view
2. ты знаешь название удаляемой категории
3. ты знаешь поле в котором лежит категория

На PostDocumentDelete науськиваешь на базу, например, db.Serach скомпонованный из тех вещей, которые ты знаешь.
На выхлопе получаешь коллекцию, к которой применяешь метод RemoveAll(True)

 

[TIA]

На Интертрастовском форуме

Ссылка скрыта от гостей