ICubeMetaLoaderBinding.CheckField

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    Obj: IMetabaseObject;
    ObjDesc: IMetabaseObjectDescriptor;
    Loader: ICubeMetaLoader;
    Bindings: ICubeMetaLoaderBindings;
    Binding: ICubeMetaLoaderBinding;
    RDS: IMetabaseObjectDescriptor;
    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.Attribute;
    Binding.Attribute := "COUNTRY";
    Binding.Field := "Country";
    Binding.FieldType := CubeMetaLoaderFieldType.Name;
    RDS := Mb.ItemById("RDS_REPO");
    Binding.Dimension := Mb.ItemById("DICT_CTR").Bind As IDimensionModel;
    Binding.Index := "IX_WEO";
    Binding.KeyAttribute := "KEY";
    Binding.NameAttribute := "NAME";
    Binding.CheckField := "Country";
End Sub UserProc;