Parse(Value: Variant; [Strict: Boolean = False]);
Value. Значение отметки, из которого осуществляется преобразование.
Strict. Необязательный параметр, определяющий, будет ли генерироваться исключительная ситуация, если в значении Value имеются элементы, отсутствующие в текущей отметке. По умолчанию свойству установлено значение False, при этом отсутствующие элементы пропускаются. Если установить значение True, будет генерироваться исключительная ситуация.
Метод Parse восстанавливает отметку из значения, передаваемого посредством параметра Value.
Используется вместе с методом ToVariant. Восстановление осуществляется по значениям атрибута «Идентификатор».
Для выполнения примера предполагается наличие справочника с идентификатор «D_TO», содержащего схему отметки.
Sub Main;
Var
MB: IMetabase;
MDes: IMetabaseObjectDescriptor;
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 Main;
После выполнения примера в схеме отметки справочника «D_TO» будет создан примитив, содержащий отметку первых 10 элементов справочника.
См. также:
IDimSelection | IDimSelection.ToVariant | IDimSelection.AttributeToVariant | IDimSelection.ParseAttribute