IRubricator.AlterAndSave

Синтаксис

AlterAndSave;

Описание

Метод AlterAndSave создает/обновляет системные таблицы базы данных временных рядов.

Пример

Для выполнения примера предполагается наличие в репозитории базы данных с идентификатором «OBJ_DB» и репозитория НСИ с идентификатором «RDS_REPO».

Sub Main;

Var

Mb: IMetabase;

Inf: IMetabaseObjectCreateInfo;

Obj: IMetabaseObjectDescriptor;

Cat: IRubricator;

Rds: IRdsDatabase;

Database: IDatabase;

Begin

Mb := MetabaseClass.Active;

Inf := Mb.CreateCreateInfo;

Inf.Id := "OBJ_FC_EX";

Inf.Name := Inf.Id;

Inf.ClassId := MetabaseObjectClass.KE_CLASS_RUBRICATOR;

Inf.Parent := Mb.Root;

Inf.KeepEdit := True;

Obj := Mb.CreateObject(Inf);

Cat := (Obj As IRubricator);

Rds := Mb.ItemById("RDS_REPO").Bind As IRdsDatabase;

Cat.Database := Rds;

Database := Mb.ItemById("OBJ_DB").Bind As IDatabase;

Cat.DatabaseEx := Database;

Cat.CreateFacts;

Cat.AutoUnits := True;

Cat.CalendarLevels := DimCalendarLevelSet.Year Or DimCalendarLevelSet.Quarter;

Cat.AlterAndSave;

End Sub Main;

После выполнения примера в репозитории будет создана базы данных временных рядов «OBJ_FC_EX» со всеми системными таблицами, которые будут расположены в самой базе данных временных рядов.

См. также:

IRubricator