ICubeMetaLoaderBindings.Add

Синтаксис

Add: ICubeMetaLoaderBinding;

Описание

Метод Add осуществляет добавление элемента в коллекцию.

Пример

Для выполнения примера предполагается наличие базы данных временных рядов с идентификатором «OBJ_RUBRICATOR» и файла экспорта показателей «C:\result_exp.txt».

Sub Main;

Var

MB: IMetabase;

CrInfo: IMetabaseObjectCreateInfo;

Obj: IMetabaseObject;

ObjDesc: IMetabaseObjectDescriptor;

Loader: ICubeMetaLoader;

Bindings: ICubeMetaLoaderBindings;

Binding: ICubeMetaLoaderBinding;

TextProvider: IDtTextProvider;

Begin

MB := MetabaseClass.Active;

CrInfo := Mb.CreateCreateInfo;

CrInfo.ClassId := MetabaseObjectClass.KE_CLASS_CUBEMETALOADER;

CrInfo.Parent := Mb.ItemById("OBJ_RUBRICATOR").Bind;

CrInfo.Id := Mb.GenerateId("CUBEMETALOADER", CrInfo.Parent.Key);

CrInfo.Permanent := False;

ObjDesc := Mb.CreateObject(CrInfo);

Obj := ObjDesc.Edit;

Loader := Obj As ICubeMetaLoader;

 

// Источник данных для импорта из текстового формата

TextProvider := New DtTextProvider.Create;

TextProvider.File := "C:\result_exp.txt";

TextProvider.FormatType := DtTextFormatType.Delimited;

TextProvider.DelimitedColumnDelimiter := ";";

TextProvider.DelimitedTextQualifier := """";

TextProvider.Encoding := "WIN";

TextProvider.RangeHasHeader := True;

TextProvider.Open;

Loader.Data := (TextProvider As IDatasetDataProvider);

Loader.ImportObjectKey := Obj.Key;

Loader.NewRevisionName := "Мета импорт";

Loader.LoadType := CubeMetaLoaderLoadType.CreateAndUpdate;

Loader.Rubricator := Mb.ItemById("OBJ_RUBRICATOR").Bind As IRubricator;

Bindings := Loader.Bindings;

Binding := Bindings.Add;

Binding.BindingType := CubeMetaLoaderBindingType.Unit;

Binding.Field := "Unit_Key";

Binding.FieldType := CubeMetaLoaderFieldType.Name;

End Sub Main;

После выполнения примера будет создан объект импорта показателей из текстового файла «C:\result_exp.txt». В данном объекте будет настроена привязка импорта единиц измерения.

См. также:

ICubeMetaLoaderBindings