Общие вопросы > Разработка приложений

частные представления

<< < (3/3)

ViV:
Для каждого пользователя создается свое представление, копия первоначального. Т.е. в дизайне будут плодиться эти виды, по мере подключения новых пользователей.

nadya:
копии будут храниться в той же базе, что и оригинал?

ViV:
да

nadya:
Спасибо!!!

nadya:
вообще, у меня для удаления таких вьюх в базе написан агент для пользователей

Sub Initialize
   Dim ss As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   On Error Resume Next
   
   Set db = ss.CurrentDatabase
   viewList = db.Views
   count% = 0
   Forall x In viewList
      If x.IsPrivate Then
         Set doc = db.GetDocumentByUNID(x.UniversalID)
         If (Not doc Is Nothing) And doc.hasItem("$Authors") Then
            If doc.GetItemValue("$Authors") = ss.UserName Then
               y$ = x.LastModified
               txtList$ = txtList$ + x.Name + " -- " + ", " + y$ +Chr(10)
               Call x.Remove
               count% = count% +1
            End If
         End If
      End If
   End Forall
   Print "Частные представления пользователя: " + txtList$
   Print "Всего удалено " + Cstr(count%) + " частных представлений"   
   
End Sub

код может неидеальный, но проверка не повредит  :)
еслиу кого есть идеи лучше, давайте  :)

Навигация

[0] Главная страница сообщений

[*] Предыдущая страница