Add(Source: ICubeModelDestination): IVirtualCubeSource;
Source - куб, который необходимо добавить в источники данных виртуального куба.
Метод Add осуществляет добавление нового источника данных в виртуальный куб.
Для выполнения примера предполагается наличие в репозитории виртуального куба с идентификатором "VIRT_CUBE", и куба с идентификатором "SourceCube_1".
Sub Main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
VirtCub: IVirtualCube;
Cub: ICubeModel;
Sources: IVirtualCubeSources;
Source: IVirtualCubeSource;
i: Integer;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("Virt_Cube").Edit;
Cub := MB.ItemById("SourceCube_1").Bind As ICubeModel;
VirtCub := MObj As IVirtualCube;
Sources := VirtCub.Sources;
Source := VirtCub.Sources.Add(Cub.Destinations.DefaultDestination);
For i := 0 To Source.FixInfo.Count - 1 Do
Source.FixInfo.Item(i).Fixed := True;
Source.FixInfo.Item(i).Selection.SelectElement(0, False);
End For;
MObj.Save;
End Sub Main;
После выполнения примера в источники данных виртуального куба "Virt_Cube" будет добавлен куб с идентификатором "SourceCube_1". Все измерения куба-источника будут зафиксированы.
См. также: