вью

[jmp]

Добрый день!
При двойном нажатии по документу во вью, открывается документ.
Возможно сделать так, чтобы документ не открывался?

 

[medin84]

во вью
Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
Continue=False
End Sub

 

[Kizarek86]

можно ли на уровне представления, запретить удалять документы?

 

[PaKo]

можно ли на уровне представления, запретить удалять документы?

А если попробовать в Скрипте Бд на querydocumentdelete проверять какая вюха активна и запрещать из неё удалять? Не устроит?

 

[Kizarek86]

PaKo кхм, а что такое скрипт БД?)


а нашел) шас попробуемс.

но все же актуально, можно ли запретить удаление документа на уровне вью?)

 

[morpheus]

kizarek
в базе данніх есть свои собственніе события (event)

в дизайнере. в БД зайти в Other->Database resources->Database Script ... вот там и есть заголовки тех самых ивентов

можно использовать свойство документа ParentView property - но ограничения надо учесть ( читай хэлп )

 

[Kizarek86]

кхм, а как в этом событии определить какие документ(ы) удаляются?

 

[morpheus]

kizarek
анпроцесед документс


или просто Source.Documents

 

[Kizarek86]

Morpheus
задолбаю счас)))

как убрать с документа выделение о удалении?)

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

 

[morpheus]

kizarek
NOtesUIView -> DeselectAll

 

[Kizarek86]

во залип то)))

как зная NotesDocument получить его NotesUIDocument ?)))

 

[morpheus]

kizarek
никак, можно тока проверить IsUIDocOpen

а зачем это?

 

[PaKo]

как зная NotesDocument получить его NotesUIDocument ?)))

UI - UserInterface, так что через UI можн овзять только открытый документ. А получить его можно через NotesUIWorkspace

 

[Kizarek86]

Morpheus
ну получаем коллекцию документов которые помечены на удаление, дальше условие:

Set doc = collection.GetNthDocument(i)
If doc.getitemvalue("Form")(0) = "форма1" Then
'Call notesUIDocument.DeselectAll - тут снять документ с удаления надо
End If

 

[morpheus]

kizarek
первое замечание ... не юзать GetNthDocument(i) , а юзать GetFirst/Next



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

If doc.getitemvalue("Form")(0) = "форма1" Then
тутчтото делаем и удалям
end if

Call notesUIDocument.DeselectAll

 

[Akupaka]

ребята, а вы не слишком увлеклись?
для чего тут NotesUIDOCUMENT?..
если снимать галки надо в виде... NotesUIDocument.DeselectAll и NotesUIView.DeselectAll это немного разные методы

 

[morpheus]

NotesUIDocument.DeselectAll и NotesUIView.DeselectAll э

плять, я и не заметил как kizarek поменял уивид на уидок..... пятница блин....

я ж написал

NOtesUIView -> DeselectAll

 

[Kizarek86]

ыть....в том то и запара что хз как галки то снять.

есть код:

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
Set collection = Source.Documents 
For i=1 To collection.Count
Set doc = collection.GetNthDocument(i)	
If doc.getitemvalue("Form")(0) = "Spr" Then
если сюда вошли, то необходимо галку снять с документа...или как то
по другому предотвратить удаление документа...вопрос как?))
End If
Next
End Sub

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

 

[Medevic]

For i=1 To collection.Count
If doc.getitemvalue("Form")(0) = "Spr" Then
Call collection.DeleteDocument(doc)
End If
Next
Call collection.RemoveAll(true)
Continue = False

 

[morpheus]

kizarek
а тут в любом случае только один вариант Continue = False