Рассмотрим пример создания автоматического куба с использованием языка Fore. Для создания куба необходимо наличие в репозитории следующих объектов:
Базы данных с идентификатором «DB»;
Справочник фактов с идентификатором «FACTS»;
Справочник стран с идентификатором «COUNTRY»;
Календарный справочник с идентификатором «CALENDAR»;
Указанный ниже пример создает в корневой папке репозитория новый объект - Автоматический куб и производит настройку его параметров:
Указывается база данных;
Задается список измерений.
Для выполнения примеров добавьте ссылки на системные сборки: Cubes, Db, Dimensions, Metabase.
Sub CreateAutoCube;
Var
MB: IMetabase;
CrInfo: IMetabaseObjectCreateInfo;
MObj: IMetabaseObject;
AutoCube: IAutoCube;
Dims: IAutoCubeDimensions;
Begin
MB := MetabaseClass.Active;
CrInfo := MB.CreateCreateInfo;
CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_AUTOCUBE;
CrInfo.Id := "New_Auto_Cube";
CrInfo.Name := "Новый автоматический куб";
CrInfo.Parent := MB.Root;
MObj := MB.CreateObject(CrInfo).Edit;
AutoCube := MObj As IAutoCube;
//Указываем БД, в которой будут храниться данные куба
AutoCube.Database := MB.ItemById("DB").Bind As IDatabase;
//Задаем список измерений куба
Dims := AutoCube.Dimensions;
Dims.Add(MB.ItemById("FACTS").Bind As IDimensionModel);
Dims.Add(MB.ItemById("COUNTRY").Bind As IDimensionModel);
Dims.Add(MB.ItemById("CALENDAR").Bind As IDimensionModel);
MObj.Save;
End Sub CreateAutoCube;
См. также: