ICubeMetaExporter.ValueFilters

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

Sub UserProc;
Var
    TextConsumer: IDtTextConsumer;
    MB: IMetabase;
    Exporter: ICubeMetaExporter;
    Binding: ICubeMetaExporterBinding;
    Filter: ICubeMetaExporterFilter;
    FilterValues: Array;
Begin
    // Создаем приёмник данных для экспорта в текстовый файл
    TextConsumer := New DtTextConsumer.Create;
    TextConsumer.File := "C:\result_meta_exp.txt";
    TextConsumer.FormatType := DtTextFormatType.Delimited;
    TextConsumer.DelimitedColumnDelimiter := ";";
    TextConsumer.DelimitedTextQualifier := """";
    TextConsumer.Encoding := "WIN";
    TextConsumer.WriteHeader := True;
    // Создаем объект для экспорта
    Exporter := New CubeMetaExporterClass.Create;
    // Получаем текущий репозиторий
    MB := MetabaseClass.Active;
    // Указываем источник и приёмник данных
    Exporter.Rubricator := MB.ItemById("TSDB").Bind As IRubricator;
    Exporter.Consumer := TextConsumer As IDtConsumer;
    // Добавляем привязку атрибута рядов CITY
    Binding := Exporter.Bindings.Add;
    Binding.FieldName := "CityKey";
    Binding.DataType := DbDataType.Integer;
    Binding.BindingType := CubeMetaExporterBindingType.Attribute;
    Binding.Attribute := "CITY";
    Binding.KeyField := "KEY";
    // Добавляем привязку атрибута наблюдений CMT
    Binding := Exporter.Bindings.Add;
    Binding.FieldName := "CMT";
    Binding.DataType := DbDataType.String;
    Binding.BindingType := CubeMetaExporterBindingType.ValueAttribute;
    Binding.Attribute := "CMT";
    // Добавляем привязку календаря
    Binding := Exporter.Bindings.Add;
    Binding.FieldName := "Year";
    Binding.DataType := DbDataType.String;
    Binding.BindingType := CubeMetaExporterBindingType.Calendar;
    Binding.DateFormat := "$Year$";
    Binding.ValueFieldName := "Value";
    Binding.ValueDataType := DbDataType.Float;
    // Задаем параметры фильтрации экспортируемых рядов
    // Добавляем фильтрацию по значениям атрибута наблюдений CMT
    Filter := Exporter.ValueFilters.Add;
    Filter.Attribute := "CMT";
    // Указываем, что значение атрибута не должно быть пустым
    Filter.Operator_ := OrmComparisonOperator.IsNotNull;
    // Выполняем экспорт
    Exporter.ClearBeforeExport := True;
    Exporter.Export;
End Sub UserProc;