WriteAccess: IDimAttribute;
Свойство WriteAccess возвращает объект, содержащий атрибут справочника, ограничивающий права на изменение данных по этому элементу в OLAP.
Если ограничение на запись не установлено, то свойство возвращает значение Null. При установленном ограничении на запись будут редактироваться только те записи, для которых значение атрибута соответствует 32-х битной маске безопасности.
Для выполнения примера предполагается наличие объекта репозитория с идентификатором «D_TO».
Добавьте ссылки на системные сборки Metabase, Dimensions.
Sub UserProc;
Var
MB: IMetabase;
DimModel: IDimensionModel;
DimAttrs: IDimAttributes;
DimAttr: IDimAttribute;
i: Integer;
Begin
MB:=MetabaseClass.Active;
DimModel:=MB.ItemById("D_TO").Bind As IDimensionModel;
DimAttrs:=DimModel.Attributes;
DimAttr:=DimAttrs.WriteAccess;
If DimAttr<>Null Then
i:=DimAttr.Key;
Debug.WriteLine(i);
End If;
End Sub UserProc;
После выполнения примера в окно консоли будет выведен ключ атрибута, ограничивающего права на изменение записей, если он установлен.
См. также: