Вопрос: Как на LS работать с внедренным представлением в форме?

[Ficoos]

Приветствую гуру! Решил разобраться с внедренным представлением в форме. Сделал на форме кнопку, который, по замыслу, должен сделать коллекцию из помеченных документов из внедренного представления. Кнопка вне внедренного представления по причине вычисления видимости ее только вычисленному пользователю из формы открытого документа. Так вот, не могу в переменную типа NotesUIView загнать открытое внедренное представление в форме:

Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim uiview As NotesUIView
  
    Dim db As NotesDatabase
    '
    Dim col As NotesDocumentCollection
    Dim doc As NotesDocument

  
    Set uidoc = ws.CurrentDocument
    Set db = uidoc.Document.ParentDatabase
    If db.IsOpen Then
        Set uiview = ws.CurrentView
        Set col = uiview.Documents
...............

uiview - не принимает значение
и через
Set uiview = uidoc.GetObject("AgrView")

тоже не происходит присвоения.
И да, в этой форме 2 внедренных представления.
Как с этим бороться?

 

[savl]

1. с документами в представлении что планируется делать?
как бы сейчас ошибка в том, что ws.curentView, его не существует.

 

[Ficoos]

1. с документами в представлении что планируется делать?
как бы сейчас ошибка в том, что ws.curentView, его не существует.

Мне надо перебрать коллекцию с изменением поля и сохранить документ. Попутно отправляя почтовое сообщение автору документа из коллекции. Открытый документ в режиме чтения и редактированию не подлежит.

 

[savl]

Мне надо перебрать коллекцию с изменением поля и сохранить документ. Попутно отправляя почтовое сообщение автору документа из коллекции. Открытый документ в режиме чтения и редактированию не подлежит.

а коллекция "отмечается" галками пользователем?
Просто из кнопки на форме не получить документы из встроенной вьюхи, если её на экран в диалоге не вывести.
Надо кнопку делать в самой вьюхе, а в свойствах встроенной выставить отображать action bar.

Dim ws As New NotesUIWorkspace
Dim currView As NotesUIView
Set currView = ws.currentView
Set dc = currView.Documents

.... ' обработка

Call ws.ViewRefresh
Call ws.ViewRefresh

 

[Ficoos]

а коллекция "отмечается" галками пользователем?
Просто из кнопки на форме не получить документы из встроенной вьюхи, если её на экран в диалоге не вывести.
Надо кнопку делать в самой вьюхе, а в свойствах встроенной выставить отображать action bar.
Посмотреть вложение 82136 Посмотреть вложение 82137

Dim ws As New NotesUIWorkspace
Dim currView As NotesUIView
Set currView = ws.currentView
Set dc = currView.Documents

.... ' обработка

Call ws.ViewRefresh
Call ws.ViewRefresh

Это не вариант делать кнопку в представлении и показывать ее. Т.к. доступ к кнопке предоставляется только тому, кто на данный момент в открытом документе (NotesUIDocument) является диспетчером и тем, кто делает проверку правильности заполнения. И этот диспетчер является редактором в документах внедренного представления и может изменять флаг поля "Read_Only". Хотя родилась идея внедренное представление не использовать, а брать "set Col = ws.PickListCollection..."

 

[savl]

представление не использовать, а брать "set Col = ws.PickListCollection...

Да, это то о чем я говорил, про показ представления в диалоге.