Загрузка данных в существующий куб/БД временных рядов

Для загрузки данных предназначен объекта класса CubeLoaderFromSource. После инициализации объекта необходимо выполнить следующие действия:

Рассмотрим пример загрузки данных из существующей таблицы репозитория. Таблица в своей структуре имеет следующие поля:

Загрузка в существующий куб

Загрузка осуществляется в стандартный куб с идентификатором «S_CUBE». В структуре куба добавлены два измерения: измерение стран с идентификатором «COUNTRY» и календарное измерение.

Sub LoadData;
Var
    MB: IMetabase;
    Cube: IStandardCube;
    Dims: IStandardCubeDimensions;
    Loader: ICubeLoaderFromSource;
    Provider: IDtMetabaseProvider;
    Bindings: ICubeLoaderDimensionBindings;
    Binding: ICubeLoaderDimensionBinding;
    FactBinding: ICubeLoaderFactBinding;
Begin
    MB := MetabaseClass.Active;
    //Таблица-источник
    Provider := New DtMetabaseProvider.Create;
    Provider.Dataset := MB.ItemById("T_DATA").Bind As IDatasetModel;
    //Куб, в который будет осуществляться загрузка данных
    Cube := MB.ItemById("S_Cube").Bind As IStandardCube;
    Dims := Cube.Dimensions;
    //Загрузчик данных в куб
    Loader := New CubeLoaderFromSource.Create;
    Loader.Type := CubeLoaderType.Cube;
    Loader.Cube := Cube;
    //Настройка привязок измерений
    Bindings := Loader.DimensionBindings;
    //Измерение стран
    Binding := Bindings.Add("COUNTRY_KEY");
    Binding.AttributeId := "KEY";
    Binding.Dimension := Dims.FindById("COUNTRY");
    Binding.Dictionary := Binding.Dimension.Dimension;
    //Календарное измерение
    Binding := Bindings.AddCalendar("V_DATE", DimCalendarLevel.Year);
    Binding.Dimension := Dims.Calendar;
    //Факт куба
    FactBinding := Loader.FactBindings.Add("VAL");
    FactBinding.FactKey := 1;
    //Загрузка данных
    Loader.Load(Provider, Null);
End Sub LoadData;

Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Db;
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Dt;
Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub LoadData1(MB: IMetabase);
Var
    Cube: IStandardCube;
    Dims: IStandardCubeDimensions;
    Loader: CubeLoaderFromSource = New CubeLoaderFromSourceClass();
    Provider: DtMetabaseProvider = New DtMetabaseProviderClass();
    Bindings: ICubeLoaderDimensionBindings;
    Binding: ICubeLoaderDimensionBinding;
    FactBinding: ICubeLoaderFactBinding;
    //Result: ICubeLoaderResult;
Begin
    //Таблица-источник
    Provider.Dataset := MB.ItemById["T_DATA"].Bind() As IDatasetModel;
    //Куб, в который будет осуществляться загрузка данных
    Cube := MB.ItemById["S_Cube"].Bind() As IStandardCube;
    Dims := Cube.Dimensions;
    //Загрузчик данных в куб
    Loader.Type := CubeLoaderType.cltCube;
    Loader.Cube := Cube;
    //Настройка привязок измерений
    Bindings := Loader.DimensionBindings;
    //Измерение стран
    Binding := Bindings.Add("COUNTRY_KEY");
    Binding.AttributeId := "KEY";
    Binding.Dimension := Dims.FindById("COUNTRY");
    Binding.Dictionary := Binding.Dimension.Dimension;
    //Календарное измерение
    Binding := Bindings.AddCalendar("V_DATE", DimCalendarLevel.dclYear);
    Binding.Dimension := Dims.Calendar;
    //Факт куба
    FactBinding := Loader.FactBindings.Add("VAL");
    FactBinding.FactKey := 1;
    //Загрузка данных
    Loader.Load(Provider, Null);
End Sub;

Загрузка в существующую базу данных временных рядов

Загрузка осуществляется в БД временных рядов с идентификатором «TSDB». В структуре базы данных создан атрибут «COUNTRY», ссылающийся на справочник стран.

Sub LoadData;
Var
    MB: IMetabase;
    Rub: IRubricator;
    Facts: IMetaDictionary;
    Values: IMetaDictionary;
    Loader: ICubeLoaderFromSource;
    Provider: IDtMetabaseProvider;
    Bindings: ICubeLoaderDimensionBindings;
    Binding: ICubeLoaderDimensionBinding;
    FactBinding: ICubeLoaderFactBinding;
Begin
    MB := MetabaseClass.Active;
    //Таблица-источник
    Provider := New DtMetabaseProvider.Create;
    Provider.Dataset := MB.ItemById("T_DATA").Bind As IDatasetModel;
    //БДВР, в которую будет осуществляться загрузка данных
    Rub := MB.ItemById("TSDB").Bind As IRubricator;
    Facts := Rub.Facts;
    Values := Rub.Values;
    //Инициализация загрузчика данных
    Loader := New CubeLoaderFromSource.Create;
    Loader.Type := CubeLoaderType.Rubricator;
    Loader.Rubricator := Rub;
    //Настройка привязок атрибутов
    Bindings := Loader.DimensionBindings;
    //Измерение стран
    Binding := Bindings.Add("COUNTRY_KEY");
    Binding.AttributeId := "KEY";
    Binding.MetaAttribute := Facts.Attributes.FindById("COUNTRY");
    //Календарное измерение
    Binding := Bindings.AddCalendar("V_DATE", DimCalendarLevel.Year);
    Binding.MetaAttribute := Values.Attributes.FindByTag(MetaAttributeTag.CalendarDate);
    //Привязка атрибута Значение
    FactBinding := Loader.FactBindings.Add("VAL");
    FactBinding.MetaAttribute := Values.Attributes.FindByTag(MetaAttributeTag.Value);
    //Загрузка данных
    Loader.Load(Provider, Null);
End Sub LoadData;

Public Shared Sub LoadData(MB: IMetabase);
Var
    Rub: IRubricator;
    Facts: IMetaDictionary;
    Values: IMetaDictionary;
    Loader: CubeLoaderFromSource = New CubeLoaderFromSourceClass();
    Provider: DtMetabaseProvider = New DtMetabaseProviderClass();
    Bindings: ICubeLoaderDimensionBindings;
    Binding: ICubeLoaderDimensionBinding;
    FactBinding: ICubeLoaderFactBinding;
Begin
    //Таблица-источник
    Provider.Dataset := MB.ItemById["T_DATA"].Bind() As IDatasetModel;
    //БДВР, в которую будет осуществляться загрузка данных
    Rub := MB.ItemById["TSDB"].Bind() As IRubricator;
    Facts := Rub.Facts;
    Values := Rub.Values;
    //Загрузчик данных
    Loader.Type := CubeLoaderType.cltRubricator;
    Loader.Rubricator := Rub;
    //Настройка привязок измерений
    Bindings := Loader.DimensionBindings;
    //Измерение стран
    Binding := Bindings.Add("COUNTRY_KEY");
    Binding.AttributeId := "KEY";
    Binding.MetaAttribute := Facts.Attributes.FindById("COUNTRY");
    //Календарное измерение
    Binding := Bindings.AddCalendar("V_DATE", DimCalendarLevel.dclYear);
    Binding.MetaAttribute := Values.Attributes.FindByTag(MetaAttributeTag.meatCalendarDate);
    //Привязка атрибута Значение
    FactBinding := Loader.FactBindings.Add("VAL");
    FactBinding.MetaAttribute := Values.Attributes.FindByTag(MetaAttributeTag.meatValue);
    //Загрузка данных
    Loader.Load(Provider, Null);
End Sub;