ICompoundDimensionInstance.DecomposeElement

Синтаксис

DecomposeElement(Element; Integer; Var Source: Integer; Var Elements: Array);

Параметры

Element - индекс элемента составного справочника.

Source - переменная, в которую будет помещен индекс источника составного справочника, которому принадлежит элемент.

Elements - переменная, в которую будет помещен массив индексов элементов-источников. Размерность массива определяется числом фиксированных измерений источника Source.

Описание

Метод DecomposeElement раскладывает элемент составного справочника на источники.

Пример

Для выполнения примера предполагается наличие в репозитории виртуального куба с идентификатором «Virt_Cube».

Sub Main;

Var

MB: IMetabase;

Cube: IVirtualCube;

Sources: IVirtualCubeSources;

CDim: ICompoundDimension;

CSource: ICompoundDimensionSource;

CSel, Sel: IDimSelectionSet;

FixInfo: ICubeDimensionFixInfo;

Fix: ICubeDimensionFix;

Params: IMetabaseObjectParamValues;

CDimInst: ICompoundDimensionInstance;

Elements: IDimElements;

Source, i: Integer;

Arr: Array Of Integer;

Begin

MB := MetabaseClass.Active;

Cube := MB.ItemById("Virt_Cube").Bind As IVirtualCube;

Sources := Cube.Sources;

//Формирование отметки для открытия составного справочника

CDim := Cube.FactDimension As ICompoundDimension;

Sel := (New DimSelectionSetFactory.Create).CreateDimSelectionSet;

CSel := (New DimSelectionSetFactory.Create).CreateDimSelectionSet;

For Each CSource In CDim.Sources Do

Sel.Clear;

//Формирование отметки в соответствии с отметкой фиксированных измерений в источниках

FixInfo := Sources.FindByKey(CSource.Key).FixInfo;

For Each Fix In FixInfo Do

If Fix.Selection.SelectedCount <> 0 Then

Fix.Selection.CopyTo(Sel.Add(Fix.Instance), True);

End If;

End For;

CSel.AddCompound(CSource.Key, Sel);

End For;

//Открытие составного справочника

Params := (CDim As IMetabaseObject).Params.CreateEmptyValues;

Params.FindById("SELECTIONS").Value := CSel;

CDimInst := (CDim As IMetabaseObject).Open(Params) As ICompoundDimensionInstance;

//Индекс данных, использованных для составления наименования элемента

CDimInst.DecomposeElement(8, Source, Arr);

CSource := CDim.Sources.Item(Source);

Debug.WriteLine("Источник: " + CSource.Name + "(" + CSource.Id + ")");

Debug.WriteLine("Элементы фиксированных измерений источника");

FixInfo := Sources.FindByKey(CSource.Key).FixInfo;

Debug.Indent;

For i := 0 To CSource.Dimensions.Count - 1 Do

Elements := FixInfo.ItemByDim(CSource.Dimensions.Item(i)).Instance.Elements;

Debug.WriteLine(Elements.Name(Arr[i]));

End For;

Debug.Unindent;

End Sub Main;

После выполнения примера, в окно консоли будет выведено наименование источника составного справочника, которому принадлежит первый элемент.

См. также:

ICompoundDimensionInstance