вью

[Akupaka]

я бы так предложил:

Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Set db = Source.Database

Dim doc2 As notesDocument
Set collection = Source.Documents

Set doc = collection.GetFirstDocument
While Not(doc Is Nothing)
Set doc2 = collection.GetNextDocument(doc)

If doc.getitemvalue("Form")(0) = "Spr" Then
Call collection.DeleteDocument(doc)
End If

Set doc = doc2
Wend

' просто так, в принципе
continue = collection.Count > 0
End Sub

 

[morpheus]

Medevic
а где ж переход к след. документу

Akupaka
а где-ж удаление из базы ненужных доков?

 

[Kizarek86]

Medevic
так вообще не 1 документ удалятся не будет, а надо только чтобы определённой формы не удалялись)

 

[Akupaka]

товарисч Morpheus, Вы заметили в обработчике какого события код написан?

 

[morpheus]

Akupaka
пля... я понял... всё сваливаю с форума

 

[Medevic]

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

В этом же событии смотришь NotesUIWorkspace.CurrentView.ViewName

 

[Kizarek86]

Akupaka
так все замечательно удаляется.

 

[Medevic]

а где ж переход к след. документу

Нужно добавить.

так вообще не 1 документ удалятся не будет, а надо только чтобы определённой формы не удалялись)

Почему не будет?

 

[Kizarek86]

В этом же событии смотришь NotesUIWorkspace.CurrentView.ViewName

дык это уже дело второе))) можно чтобы вообще не удалялись) не только из вью. по поводу вью я думал есть способ в событиях самой вью неразрешать удаление документов.

 

[Akupaka]

Почему не будет?

та не, его просто сбило с толку, что ты не инициализируешь док, а удаляешь один, по коду, вот он и уточняет, что он не один

 

[Medevic]

Ну ладно.
Хотя никто не мешает скопировать ссылки и удалить документ из самого документа.

Хотя никто не мешает скопировать ссылки и удалить документ из самого документа. smile.gif

Это если в зависимости от имени представления удалять.

 

[Kizarek86]

Вот в общем что получилось:

Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
On Error Goto ends
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Set db = Source.Database

Dim doc2 As notesDocument
Set collection = Source.Documents

Set doc = collection.GetFirstDocument
While Not(doc Is Nothing)
Set doc2 = collection.GetNextDocument(doc)

If doc.getitemvalue("Form")(0) = "Spr" Then
Call collection.DeleteDocument(doc)
End If

Set doc = doc2
Set doc2 = collection.GetNextDocument(doc)
Wend
Messagebox "Нельзя удалять справочники.",16,"Внимание!"

continue = collection.Count > 0
ends:
Exit Sub
End Sub

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

 

[Akupaka]

хм... а зачем тот мессадж при каждом удалении?
плюс ошибка из-за того, что ты добавил строки см. ниже

Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
'On Error Goto ends
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
dim shMess as boolean
Set db = Source.Database

Dim doc2 As notesDocument
Set collection = Source.Documents
shMess = false
Set doc = collection.GetFirstDocument
While Not(doc Is Nothing)
Set doc2 = collection.GetNextDocument(doc)

If doc.getitemvalue("Form")(0) = "Spr" Then
shMess = true
Call collection.DeleteDocument(doc)
End If

Set doc = doc2
'Set doc2 = collection.GetNextDocument(doc) ' эта строка лишняя! и из-за нее всегда будет ошибка, т.к. в конце-концов, doc станет равным Nothing, т.е. вся коллекция будет обработана, и метод GetNextDocument(Nothing) будет генерить ошибку!
Wend
if shMess then Messagebox "Нельзя удалять справочники.",16,"Внимание!"

continue = collection.Count > 0
ends:
Exit Sub
End Sub

кроме всего прочего, нужно обработать спец. условия, чтобы была хоть какая-то возможность удаления этих доков, т.к. такая возможность когда-нить да появится...

 

[Turochek]

Добрый день.
Подскажите, как обработать событие OnClick
на вьюхе, используя LotusScript
Спасибо

 

[Akupaka]

по-идее, обработать можно только те события, для которых нотес сам создал шаблон обработчика...

 

[Kizarek86]

Ну или Java в помощь...

 

[Akupaka]

а чем тут ява поможет?..

 

[Turochek]

а кто-нибудь пользуется
ActiveX- контролами
т.е. - Create-Object-Control
какие плюсы/минусы
спасибо