ОБСУЖДЕНИЕ

View.getselecteddocument

6 ответов 5,2 тыс.
AI-выжимка обсуждения скоро

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

Автор темы
Очень, очень нужна команда как - view.GetSelectedDocument. Может кто знает, как выташить выделенные документы из View?
 
Денис Кириченко
Вам энтри нужен или документ? Я чего-то не понимаю...

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

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

Статистика тем

Создано
Guest,
Последний ответ от
Guest,
Ответы
6
Просмотры
5 205