Lotus на практике. Как ограничить доступ к документу? (Lotus script)

О чем этот текст?

Начал размещать конфиденциальную информацию в Lotus? Сразу встал вопрос регулирования доступа. С одной стороны все пользователи могут знать, что некий документ(строка во View) таки существует, но открыть его без соответствующих прав было бы невозможно. Допустим есть группа Gods. Все кто в неё входят, имеют право просматривать документ. Для этого в событии QueryOpen формы, используй код:

Основная часть

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)

If(source.IsNewDoc)Then
'Если новый документ, то ничего не проверяем
continue=True
Else
Dim session As New notessession
Dim doc As NotesDocument
Set doc = source.Document

Dim result As Variant
result = Evaluate({@Contains(@UserNamesList;"[Gods]")})

If(result(0)=1)Then
'Если входишь в группу Gods, то входи
Continue=True
Else
'Иначе
Messagebox "Доступ к этому документу имеют только пользователи группы Gods", 0, "Доступ ограничен"
continue=False
End If

End If
End Sub

Примечание: Может использование @-формул в Lotus Script и считается моветоном, но это рабочее решение проблемы на скорую руку.

Автор: Joe1000




Ссылки:

К содержанию

© Copyright 2004-2017 - CMS Made Simple
Сайт работает на CMS Made Simple version 1.4.1

© Все печеньки Break-people.ru принадлежат авторам проекта.

Яндекс цитирования Рейтинг@Mail.ru Яндекс.Метрика