1. Мегаконкурс в апреле "Приведи друзей на codeby". Дарим деньги, подписку на журнал хакер и выдаем статус "Paid Access". Подробнее ...

    Скрыть объявление

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

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

Наш партнер Genesis Hackspace
  1. Kron

    Kron Гость

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

    Elena Nefedova Гость

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

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

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

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

    Kron Гость

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

    Omh Well-Known Member
    Lotus team

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


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

    Kron Гость

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

    Omh Well-Known Member
    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.920
    Симпатии:
    1
    Код (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. valerian38
    Ответов:
    0
    Просмотров:
    14
  2. HFTIT
    Ответов:
    0
    Просмотров:
    43
  3. putinka
    Ответов:
    0
    Просмотров:
    74
  4. nujencod
    Ответов:
    0
    Просмотров:
    47
  5. zehrx

    Проблема Не работает FileZilla

    zehrx, 19 мар 2017, в разделе: Kali Linux
    Ответов:
    3
    Просмотров:
    61

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