IRubricatorCreator.CreateRubricator

Базовые параметры БД временных рядов как объекта репозитория определяет свойство IRubricatorCreator.CreateInfo.

Пример

Для выполнения примера в репозитории должны присутствовать:

Результат выполнения примера: создана БД временных рядов, основанная на таблице данных «T_TSDB». Данная БД содержит пользовательские атрибуты показателей «COUNTRY» и «INDICATOR», ссылающиеся на справочники НСИ «DICT_CTR» и «DICT_IND».

Добавьте ссылки на системные сборки: Mb, Cubes, Rds, Db, Dal, Dimensions.

Sub UserProc;
Var
    mb: IMetabase;
    cr: IRubricatorCreator;
    CrInfo: IMetabaseObjectCreateInfo;
    mbObj: IMetabaseObjectDescriptor;
    RdsKey: Integer;
    Bs: IRubricatorCreatorBindings;
    bindCountry, bindIndicator: IRubricatorCreatorBinding;
    bindDLfacts, bindValues, bindDate, bindC: IRubricatorCreatorBinding;
Begin
    mb := MetabaseClass.Active;
    cr := New RubricatorCreator.Create;
    // Задаем репозиторий
    cr.Metabase := mb;
    // Задаем параметры создаваемой БД временных рядов
    CrInfo := cr.CreateInfo;
    CrInfo.Id := mb.generateId("RUBRICATOR");
    CrInfo.Name := "База данных временных рядов";
    CrInfo.Parent := mb.Root;
    // Задаем репозиторий НСИ
    mbObj := mb.ItemById("RDS_REPO");
    RdsKey := mbObj.Key;
    cr.RdsDatabase := mbObj.Bind As IRdsDatabase;
    // Задаем таблицу данных
    mbObj := mb.ItemById("T_TSDB");
    cr.SourceTable := mbObj.Bind As ITable;
    // Задаем привязки атрибутов
    Bs := cr.Bindings;
    // Привязка атрибута показателей «Country»
    bindCountry := Bs.Add;
    bindCountry.Dictionary := RubricatorDictionary.Facts;
    bindCountry.AttributeId := "COUNTRY";
    bindCountry.AttributeName := "Страна";
    bindCountry.UseField := True;
    bindCountry.SourceFieldId := "COUNTRY";
    bindCountry.DataType := DbDataType.Integer;
    bindCountry.Kind := (MetaAttributeKind.Dimension);
    bindCountry.ValuesObject := mb.ItemByIdNamespace("DICT_CTR", RdsKey);
    bindCountry.Nullable := False;
    bindCountry.IsDimension := True;
    bindCountry.IncludeInIndex := True;
    // Привязка атрибута показателей «Indicator»
    bindIndicator := Bs.Add;
    bindIndicator.Dictionary := RubricatorDictionary.Facts;
    bindIndicator.AttributeId := "INDICATOR";
    bindIndicator.AttributeName := "Показатель";
    bindIndicator.UseField := True;
    bindIndicator.SourceFieldId := "INDICATOR";
    bindIndicator.DataType := DbDataType.Integer;
    bindIndicator.Kind := (MetaAttributeKind.Dimension);
    bindIndicator.Tag := MetaAttributeTag.None;
    bindIndicator.ValuesObject := mb.ItemByIdNamespace("DICT_IND", RdsKey);
    bindIndicator.Nullable := False;
    bindIndicator.IsDimension := True;
    bindIndicator.IncludeInIndex := True;
    // Привязка атрибута показателей «Период»
    bindDLfacts := Bs.Add;
    bindDLfacts.Dictionary := RubricatorDictionary.Facts;
    bindDLfacts.AttributeId := "DL";
    bindDLfacts.UseField := True;
    bindDLfacts.SourceFieldId := "DL";
    bindDLfacts.IncludeInIndex := True;
    // Привязка атрибута наблюдений «Значение»
    bindValues := Bs.Add;
    bindValues.Dictionary := RubricatorDictionary.Values;
    bindValues.AttributeId := "VL";
    bindValues.UseField := True;
    bindValues.SourceFieldId := "VALUE";
    // Привязка атрибута наблюдений «Дата»
    bindDate := Bs.Add;
    bindDate.Dictionary := RubricatorDictionary.Values;
    bindDate.AttributeId := "DT";
    bindDate.UseField := True;
    bindDate.SourceFieldId := "DT";
    // Привязка атрибута наблюдений «Актуальность»
    bindC := Bs.Add;
    bindC.Dictionary := RubricatorDictionary.Values;
    bindC.AttributeId := "ACT";
    bindC.AttributeName := "Актуальность";
    bindC.UseField := False;
    bindC.DataType := DbDataType.Boolean;
    bindC.SourceValue := 1;
    bindIndicator.Hidden := True;
    // Задаем календарное измерение
    mbObj := mb.ItemById("D_CALEND");
    cr.TemplateCalendar := mbObj.Bind As ICalendarDimension;
    // Задаем справочник мер
    mbObj := mb.ItemByIdNamespace("MEASURES", RdsKey);
    cr.Measures := mbObj.Bind As IRdsDictionary;
    // Задаем справочник единиц измерения
    mbObj := mb.ItemByIdNamespace("UNITS", RdsKey);
    cr.Units := mbObj.Bind As IRdsDictionary;
    // Создаем БД временных рядов
    cr.CreateRubricator;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Dal;
Imports Prognoz.Platform.Interop.Db;
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Rds;
…
[STAThread]
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    cr: IRubricatorCreator;
    CrInfo: IMetabaseObjectCreateInfo;
    mbObj: IMetabaseObjectDescriptor;
    RdsKey: uinteger;
    Bs: IRubricatorCreatorBindings;
    bindCountry, bindIndicator: IRubricatorCreatorBinding;
    bindDLfacts, bindValues, bindDate, bindC: IRubricatorCreatorBinding;
Begin
    mb := Params.Metabase;
    cr := New RubricatorCreator.Create();
    // Задаем репозиторий
    cr.Metabase := mb;
    // Задаем параметры создаваемой БД временных рядов
    CrInfo := cr.CreateInfo;
    CrInfo.Id := mb.generateId("RUBRICATOR", 0);
    CrInfo.Name := "База данных временных рядов";
    CrInfo.Parent := mb.Root;
    // Задаем репозиторий НСИ
    mbObj := mb.ItemById["RDS_REPO"];
    RdsKey := mbObj.Key;
    cr.RdsDatabase := mbObj.Bind() As IRdsDatabase;
    // Задаем таблицу данных
    mbObj := mb.ItemById["T_TSDB"];
    cr.SourceTable := mbObj.Bind() As ITable;
    // Задаем привязки атрибутов
    Bs := cr.Bindings;
    // Привязка атрибута показателей «Country»
    bindCountry := Bs.Add();
    bindCountry.Dictionary := RubricatorDictionary.rubdicFacts;
    bindCountry.AttributeId := "COUNTRY";
    bindCountry.AttributeName := "Страна";
    bindCountry.UseField := True;
    bindCountry.SourceFieldId := "COUNTRY";
    bindCountry.DataType := DbDataType.ddtInteger;
    bindCountry.Kind := (MetaAttributeKind.meakDimension);
    bindCountry.ValuesObject := mb.ItemByIdNamespace["DICT_CTR", RdsKey];
    bindCountry.Nullable := False;
    bindCountry.IsDimension := True;
    bindCountry.IncludeInIndex := True;
    // Привязка атрибута показателей «Indicator»
    bindIndicator := Bs.Add();
    bindIndicator.Dictionary := RubricatorDictionary.rubdicFacts;
    bindIndicator.AttributeId := "INDICATOR";
    bindIndicator.AttributeName := "Показатель";
    bindIndicator.UseField := True;
    bindIndicator.SourceFieldId := "INDICATOR";
    bindIndicator.DataType := DbDataType.ddtInteger;
    bindIndicator.Kind := (MetaAttributeKind.meakDimension);
    bindIndicator.Tag := MetaAttributeTag.meatNone;
    bindIndicator.ValuesObject := mb.ItemByIdNamespace["DICT_IND", RdsKey];
    bindIndicator.Nullable := False;
    bindIndicator.IsDimension := True;
    bindIndicator.IncludeInIndex := True;
    // Привязка атрибута показателей «Период»
    bindDLfacts := Bs.Add();
    bindDLfacts.Dictionary := RubricatorDictionary.rubdicFacts;
    bindDLfacts.AttributeId := "DL";
    bindDLfacts.UseField := True;
    bindDLfacts.SourceFieldId := "DL";
    bindDLfacts.IncludeInIndex := True;
    // Привязка атрибута наблюдений «Значение»
    bindValues := Bs.Add();
    bindValues.Dictionary := RubricatorDictionary.rubdicValues;
    bindValues.AttributeId := "VL";
    bindValues.UseField := True;
    bindValues.SourceFieldId := "VALUE";
    // Привязка атрибута наблюдений «Дата»
    bindDate := Bs.Add();
    bindDate.Dictionary := RubricatorDictionary.rubdicValues;
    bindDate.AttributeId := "DT";
    bindDate.UseField := True;
    bindDate.SourceFieldId := "DT";
    // Привязка атрибута наблюдений «Актуальность»
    bindC := Bs.Add();
    bindC.Dictionary := RubricatorDictionary.rubdicValues;
    bindC.AttributeId := "ACT";
    bindC.AttributeName := "Актуальность";
    bindC.UseField := False;
    bindC.DataType := DbDataType.ddtBoolean;
    bindC.SourceValue := 1;
    bindIndicator.Hidden := True;
    // Задаем календарное измерение
    mbObj := mb.ItemById["D_CALEND"];
    cr.TemplateCalendar := mbObj.Bind() As ICalendarDimension;
    // Задаем справочник мер
    mbObj := mb.ItemByIdNamespace["MEASURES", RdsKey];
    cr.Measures := mbObj.Bind() As IRdsDictionary;
    // Задаем справочник единиц измерения
    mbObj := mb.ItemByIdNamespace["UNITS", RdsKey];
    cr.Units := mbObj.Bind() As IRdsDictionary;
    // Создаем БД временных рядов
    cr.CreateRubricator();
End Sub;

Идентификатор	Тип поля	Комментарий
COUNTRY	Целый	Обязательное, входит в состав первичного индекса.
INDICATOR	Целый	Обязательное, входит в состав первичного индекса.
DL	Целый	Обязательное, входит в состав первичного индекса.
VALUE	Вещественный	Необязательное.
DT	Дата	Необязательное.
ACT	Логический	Необязательное.

IRubricatorCreator.CreateRubricator

Синтаксис Fore

Синтаксис Fore.NET

Описание

Комментарии

Пример