IDimSelection.ToVariant

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Dimen: IDimInstance;
    DimenSelectSchema: IDimSelectionSchema;
    SelectSchemaPrimit: IDimSelectionSchemaPrimitive;
    Selection: IDimSelection;
    i: Integer;
    v: Variant;
Begin
    MB := MetabaseClass.Active;
    MDes := MB.ItemById("D_TO");
    Dimen := MDes.Open(Null) As IDimInstance;
    Selection := Dimen.CreateSelection;
    For i := 0 To 9 Do
        Selection.SelectElement(i, False);
    End For;
    v := Selection.ToVariant;
    If MDes.Children.Count <> 0 Then
        MObj := MDes.Children.Item(0).Edit;
        DimenSelectSchema := MObj As IDimSelectionSchema;
        SelectSchemaPrimit := DimenSelectSchema.Add(SelectionPrimitiveType.Specified);
        (SelectSchemaPrimit As IDimListSelectionPrimitive).Selection.Parse(v);
        MObj.Save;
    End If;
End Sub UserProc;