MapIndex: IDimIndex;
Свойство MapIndex определяет индекс измерения-источника, по которому осуществляется связь с измерением Dimension.
Для выполнения примера предполагается наличие загрузчика в куб с идентификатором "Cube_Load". В загрузчике установлены куб-источник и куб-приемник.
Sub Main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
CubLoad: ICubeLoader;
DimsSource: ICubeModelDimensions;
Dim, Dim1: IDimensionModel;
MapInfo: ICubeLoaderMapInfo;
MapItem: ICubeLoaderMapItem;
i: Integer;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("Cube_Load").Edit;
CubLoad := MObj As ICubeLoader;
DimsSource := CubLoad.Source.Dimensions;
MapInfo := CubLoad.MapInfo;
For i := 0 To MapInfo.Count - 1 Do
MapItem := MapInfo.Item(i);
Dim := MapItem.Dimension;
Dim1 := DimsSource.FindById((Dim As IMetabaseObject).Id);
If Dim1 <> Null Then
MapItem.MapDimension := Dim1;
MapItem.MapIndex := Dim1.Indexes.PrimaryIndex;
MapItem.DimIndex := Dim.Indexes.PrimaryIndex;
MapItem.Method := CubeLoaderMapMethod.ByIndex;
End If;
End For;
MObj.Save;
End Sub Main;
После выполнения примера будет настроена связь между измерениями куба-приемника и измерениями куба-источника. Измерение-приемник будет искаться в списке измерений-источников, и в случае удачного поиска - устанавливается связь по индексу.
См. также: