IMetaAttributeSetting.OpenedDimension

Syntax

OpenedDimension: IDimInstance;

Description

The OpenedDimension property determines an attribute open dimension.

Example

Executing the example requires a form with a button with the Button1positioned identifier, the MetaAttributesBreadcrumb component with the MetaAttributesBreadcrumb1 identifier and the MetaAttributesTreeList component with the MetaAttributesTreeList1 identifier. Time series database with the OBJ_FC identifier must be located in repository. This database should contain the custom time series attribute COUNTRY that refers to a dictionary.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

MB: IMetabase;

RubDesc: IMetabaseObjectDescriptor;

RubrIn: IRubricatorInstance;

DictInst: IMetaDictionaryInstance;

Dict: IMetaDictionary;

MetaAttrS: IMetaAttributes;

MetaAttr: IMetaAttribute;

AttrS: IMetaAttributeSettings;

Attr: IMetaAttributeSetting;

OpenedDimension: IDimInstance;

Begin

MB := MetabaseClass.Active;

RubDesc := MB.ItemById("OBJ_FC");

MetaAttributesTreeList1.Rubricator := RubDesc.Bind As IRubricator;

MetaAttributesTreeList1.Breadcrumb := MetaAttributesBreadcrumb1;

RubrIn := RubDesc.Open(Null) As IRubricatorInstance;

MetaAttributesBreadcrumb1.Rubricator := RubrIn;

DictInst := RubrIn.GetDictionary(RubricatorDictionary.Facts);

Dict := (DictInst As IMetabaseObjectInstance).Object As IMetaDictionary;

MetaAttributesTreeList1.Dictionary := Dict;

MetaAttributesBreadcrumb1.Dictionary := DictInst;

MetaAttributesBreadcrumb1.MetaAttributes := Dict.Attributes;

MetaAttrS := Dict.Attributes;

MetaAttr := MetaAttrS.FindById("COUNTRY");

OpenedDimension := MetaAttr.ValuesObject.Open(Null) As IDimInstance;

AttrS := MetaAttributesBreadcrumb1.MetaAttributeSettings;

Attr := AttrS.FindById("COUNTRY");

Attr.OpenedDimension := OpenedDimension;

End Sub Button1OnClick;

After executing the example dimension for the COUNTRY attribute is determined.