View.getselecteddocument

[Guest]

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

 

[Sandr]

db.unprocesseddocuments

 

[Guest]

db.unprocesseddocuments

Да но жалко что потом у документа пусто значение ColumsValues

 

[Sandr]

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

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

 

[Guest]

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

Берете вышеуказанным методом получаете выделленные дкоументы. Потом из той вьюхи получаете коллекцию энтрисов. В колллекции энтрисов обрабатываете только те энтрисы, которые попали в коллекцию докуметов полученную способом 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]

А если так коллекцию получить?
Set collection = uiview.Documents

 

[Guest]

А если так коллекцию получить?
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