CopyElementsData(Selection: IDimSelectionSet; DimKey: Integer; Element: Integer);
Selection - отметка элементов измерений, в которые необходимо скопировать данные.
DimKey - ключ измерения, по которому осуществляется копирование.
Element - элемент измерения, данные которого необходимо скопировать по всем элементам, отмеченным в Selection.
Метод CopyElementsData осуществляет копирование данных автоматического куба в соответствии с указанными параметрами.
Для выполнения примера предполагается наличие автоматического куба с идентификатором "AUTO_CUBE". В кубе имеется измерение с идентификатором "Dim_1", по которому будет осуществляться копирование.
Sub Main;
Var
MB: IMetabase;
CubeI: ICubeInstance;
DimSS: IDimSelectionSet;
DimS: IDimSelection;
DimKey: Integer;
Begin
MB := MetabaseClass.Active;
CubeI := MB.ItemById("AUTO_CUBE").Open(Null) As ICubeInstance;
DimSS := CubeI.Destinations.DefaultDestination.CreateDimSelectionSet;
For Each Dims In DimSS Do
If Dims.Dimension.Ident = "Dim_1" Then
DimS.SelectElement(1, False);
DimS.SelectElement(2, False);
DimKey := Dims.Dimension.Key;
Else
DimS.SelectAll;
End If;
End For;
(CubeI As IAutoCubeInstance).CopyElementsData(DimSS, DimKey, 0);
End Sub Main;
После выполнения примера будет осуществлено копирование данных в автоматическом кубе. Копируемые данные расположены по первому элементу измерения "Dim_1". Копирование осуществляется в ячейки, расположенные по второму и третьему элементу измерения "Dim_1" и всем элементам остальных измерений.
См. также: