ICubeMetaLoaderBinding.ConvertShortYear

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

Sub UserProc;
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.Calendar;
    Binding.CalendarOptions.Levels := DimCalendarLevelSet.Year;
    Binding.ByColumns := True;
    Binding.ConvertShortYear := False;
    Binding.CalendarDateFormat := "$Year$";
    Binding.FieldType := CubeMetaLoaderFieldType.Name;
    Binding.Field := "2";
    Binding.EndField := "10";
End Sub UserProc;