IDimLevelSelectionPrimitive.Included

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Mobj: IMetabaseObject;
    ObjDesc: IMetabaseObjectDescriptor;
    DimSelSchema: IDimSelectionSchema;
    SchemaPrimit: IDimSelectionSchemaPrimitive;
Begin
    MB:=MetabaseClass.Active;
    ObjDesc:=MB.ItemById("TAB_DIM");
    If ObjDesc.Children.Count<>0 Then
        If ObjDesc.Children.Item(0).ClassId=MetabaseObjectClass.KE_CLASS_DIMSELECTIONSCHEMA Then
            Mobj:=ObjDesc.Children.Item(0).Edit;
            DimSelSchema:=Mobj As IDimSelectionSchema;
            DimSelSchema.Clear;
            SchemaPrimit:=DimSelSchema.Add(SelectionPrimitiveType.Level);
            (SchemaPrimit As IDimLevelSelectionPrimitive).Included(DimSelSchema.Dimension.Levels.Item(0)):=True;
            Mobj.Save;
        End If;
    End If;
End Sub UserProc;