вью

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

medin84

Well-known member
27.06.2007
106
0
#2
во вью
Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
Continue=False
End Sub
 

Kizarek86

Lotus team
20.07.2007
864
4
#3
можно ли на уровне представления, запретить удалять документы?
 

Kizarek86

Lotus team
20.07.2007
864
4
#5
PaKo кхм, а что такое скрипт БД?)


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

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

morpheus

скриптописец
07.08.2006
3 915
1
#6
kizarek
в базе данніх есть свои собственніе события (event)

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

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

Kizarek86

Lotus team
20.07.2007
864
4
#7
кхм, а как в этом событии определить какие документ(ы) удаляются?
 

morpheus

скриптописец
07.08.2006
3 915
1
#8
kizarek
анпроцесед документс


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

Kizarek86

Lotus team
20.07.2007
864
4
#9
Morpheus
задолбаю счас)))

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

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

morpheus

скриптописец
07.08.2006
3 915
1
#12
kizarek
никак, можно тока проверить IsUIDocOpen

а зачем это?
 

Kizarek86

Lotus team
20.07.2007
864
4
#14
Morpheus
ну получаем коллекцию документов которые помечены на удаление, дальше условие:

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

morpheus

скриптописец
07.08.2006
3 915
1
#15
kizarek
первое замечание ... не юзать GetNthDocument(i) , а юзать GetFirst/Next



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

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

Call notesUIDocument.DeselectAll
 

Akupaka

А че я?.. О.о
04.10.2007
3 360
1
#16
ребята, а вы не слишком увлеклись? :)
для чего тут NotesUIDOCUMENT?..
если снимать галки надо в виде... NotesUIDocument.DeselectAll и NotesUIView.DeselectAll это немного разные методы ;)
 

Kizarek86

Lotus team
20.07.2007
864
4
#18
ыть....в том то и запара что хз как галки то снять.

есть код:

Код:
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
дык потому и поменял что отлавить событие можно только при удалении документа, во вью то не поймаешь.
 

morpheus

скриптописец
07.08.2006
3 915
1
#20
kizarek
а тут в любом случае только один вариант Continue = False