View.getselecteddocument

  • Автор темы Guest
  • Дата начала
G

Guest

#1
Очень, очень нужна команда как - view.GetSelectedDocument. Может кто знает, как выташить выделенные документы из View?
 
S

Sandr

#4
Денис Кириченко
Вам энтри нужен или документ? Я чего-то не понимаю...

Берете вышеуказанным методом получаете выделленные дкоументы. Потом из той вьюхи получаете коллекцию энтрисов. В колллекции энтрисов обрабатываете только те энтрисы, которые попали в коллекцию докуметов полученную способом db.unprocesseddocuments . Прямого метода получить выделеные энтрисы, вроде бы, нет.
 
G

Guest

#5
Денис Кириченко
Вам энтри нужен или документ? Я чего-то не понимаю...

Берете вышеуказанным методом получаете выделленные дкоументы. Потом из той вьюхи получаете коллекцию энтрисов. В колллекции энтрисов обрабатываете только те энтрисы, которые попали в коллекцию докуметов полученную способом db.unprocesseddocuments . Прямого метода получить выделеные энтрисы, вроде бы, нет.
Когда я беру документы из view:
Код:
Set uiview = workspace.CurrentView
Set view = uiview.View
Set doc = view.GetFirstDocument	
Do While Not doc Is Nothing		
Print # tmpdatafilenumber%, |<tr>|
Forall c In doc.ColumnValues
то у меня доступно значение колонок записи, а вот когда через UnprocessedDocuments, нет :)

Код:
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
Do While Not doc Is Nothing
Print # tmpdatafilenumber%, |<tr>|	
Forall c In doc.ColumnValues[code]
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#6
А если так коллекцию получить?
Set collection = uiview.Documents
 
G

Guest

#7
А если так коллекцию получить?
Set collection = uiview.Documents
Способ достаточно корявый и долгий, но у меня получилось так:
Код:
Set uiview = workspace.CurrentView
Set view = uiview.View
Set collection = uiview.Documents

Dim docView As NotesDocument
Dim docSel As NotesDocument

Set docView = view.GetFirstDocument()
Set docSel = collection.GetFirstDocument()

Do While Not docView Is Nothing And Not docSel Is Nothing
If docSel.UniversalID=docView.UniversalID Then