Работа с вьюхами?

Тема в разделе "Lotus - Программирование", создана пользователем Kron, 28 янв 2009.

  1. Kron

    Kron Гость

    Возник ряд вопросов по работе с вьюхами:
    1. Как в нескольких выбранных вьюхах (20-30) проставить роль, не заходя в каждую.
    2. КАк можно переимновать в десингере выборку вьюх?
     
  2. Elena Nefedova

    Elena Nefedova Гость

    НИКАК. Все возможные операции над несколькими элементами дизайна отображаются в инфобоксе Design Properties, доступном через контекстное меню
     
  3. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    роли это я так понимаю - ридерсы (поле $Readers), думаю их можно найти и проставить юзая NotesNoteCollection

    насчет имени думаю там же(NotesNote) попробовать, ну или DXL ( вроде как никто не отменял )
     
  4. Kron

    Kron Гость

    нет роли это Roles
     
  5. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    1. +1 к посту Morpheus'a
    2. NotesView.Name


    Kron
    Что такое роли у view? :)
     
  6. Kron

    Kron Гость

    а вероятно проблема в том что у меня руссификатор в окне безопастности свойств пердставления можно указать не только юзера но и роль которая была указана на узера к окне роли при регистрации на дангой базе юзера.
     
  7. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Kron
    Так это как раз то, о чём говорил Morpheus.
    Эти роли (наравне с юзерами) хранятся в документе view в поле "$Readers" (если конечно они выбраны).
     
  8. Kron

    Kron Гость

    то есть как я понимаю нужно просто прогонять агента типа
    Sub Initialize

    Dim Session As New NotesSession
    Dim DB As NotesDatabase
    Dim DC As NotesDocumentCollection
    Dim Doc As NotesDocument
    Set DB = Session.CurrentDatabase
    Set DC = DB.UnprocessedDocuments

    Print "Выбрано документов - " & DC.Count

    For i% = 1 To DC.Count
    Set Doc = DC.GetNthDocument( i% )
    If Not(Doc Is Nothing) Then
    Set item = doc.GetFirstItem( "$KeepPrivate" )
    If Not(item Is Nothing) Then
    Call item.Remove
    Call doc.Save( False, True )
    End If
    End If
    Next
    Print "OK!!!"
    End Sub
    Но проводить замену ролей

    Но на вьюхах этого нет толкьо на документах!!!
     
  9. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Код (Text):
    REM Create note collection
    Dim nc As NotesNoteCollection
    Set nc = db.CreateNoteCollection(False)
    Call nc.SelectAllIndexElements(True)
    nc.SelectViews = True
    Call nc.BuildCollection

    в результате из nc можно вытянуть NoteID всех представлений. что даёт нам возможность работать с ними(представлениями) какбы "как" с документами.
     
Загрузка...
Похожие Темы - Работа вьюхами
  1. Andrey Kha
    Ответов:
    0
    Просмотров:
    20
  2. Hoasker
    Ответов:
    0
    Просмотров:
    64
  3. garri671
    Ответов:
    0
    Просмотров:
    52
  4. lelik200969
    Ответов:
    0
    Просмотров:
    50
  5. Kozolick
    Ответов:
    0
    Просмотров:
    136

Поделиться этой страницей