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