IDimListSelectionPrimitive.Selection

Синтаксис

Selection: IDimSelection;

Описание

Свойство Selection определяет отметку элементов примитива, которую необходимо установить/снять при построении схемы отметки справочника.

Пример

Sub Main;

Var

MB: IMetabase;

Mobj: IMetabaseObject;

DimInst: IDimInstance;

DimSelect: IDimSelection;

ObjDesc: IMetabaseObjectDescriptor;

DimSelSchema: IDimSelectionSchema;

SchemaPrimit: IDimSelectionSchemaPrimitive;

Begin

MB:=MetabaseClass.Active;

ObjDesc:=MB.ItemById("TAB_DIM");

DimInst:=MB.ItemById("TAB_DIM").Open(Null) As IDimInstance;

DimSelect:=DimInst.CreateSelection;

DimSelect.SelectElement(0,False);

DimSelect.SelectElement(DimInst.Elements.Count-1,False);

If ObjDesc.Children.Count<>0 Then

If ObjDesc.Children.Item(0).ClassId=1030 Then

Mobj:=ObjDesc.Children.Item(0).Edit;

DimSelSchema:=Mobj As IDimSelectionSchema;

SchemaPrimit := DimSelSchema.Add(SelectionPrimitiveType.Specified);

(SchemaPrimit As IDimListSelectionPrimitive).Selection := DimSelect;

Mobj.Save;

End If;

End If;

End Sub Main;

После выполнения примера в схему отметки справочника будет добавлен примитив, отмечающий элементы по списку. В отметку примитива будут добавлены два элемента справочника - первый и последний. Идентификатор справочника - «TAB_DIM».

См. также:

IDimListSelectionPrimitive