ReadAccess: ICustomDimAttribute;
Свойство ReadAccess определяет атрибут, который используется для ограничения прав на чтение значений по определенным элементам.
Если ограничение на чтение не установлено, то свойство возвращает значение Null. При установленном ограничении на чтение будут считываться только те записи, для которых значение атрибута соответствует 32-х битной маске безопасности.
Для выполнения примера предполагается наличие стандартного куба с идентификатором «CUBE».
Добавьте ссылки на системные сборки Metabase, Cubes, Dimensions.
Sub UserProc;
Var
MB: IMetabase;
Cube: IStandardCube;
CustDim: ICustomDimension;
CustAtrs: ICustomDimAttributes;
CustAtribut: ICustomDimAttribute;
i: Integer;
Begin
MB:=MetabaseClass.Active;
Cube:=MB.ItemById("CUBE").Bind As IStandardCube;
CustDim:=Cube.FactDimension.Dimension As ICustomDimension;
CustAtrs:=CustDim.Attributes;
CustAtribut:=CustAtrs.ReadAccess;
If CustAtribut<>Null Then
i:=CustAtribut.Key;
Debug.WriteLine(i);
End If;
End Sub UserProc;
После выполнения примера в окно консоли будет выведен ключ атрибута, ограничивающего права на чтение записей измерения, если он установлен.
См. также: