IValidationSelectionValues.ParameterAsSelection

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

Sub AddFilterParam(IsGroup: Boolean; Value: Variant);
Var
    mb: IMetabase;
    FCObj: IMetabaseObject;
    FC: IRubricator;
    Atts: IMetaAttributes;
    LinkedDict: IMetabaseObjectDescriptor;
    ValidObj: IMetabaseObject;
    ValidFilter: IValidationFilter;
    Params: IMsModelParams;
    FilterPrarm: IMsModelParam;
    Filter: IValidationSelectionFilter;
    Sel: IDimSelection;
    FilterVal: IValidationSelectionValues;
    ExecSett: IValidationExecuteSettings;
    Analyzer: IEaxAnalyzer;
    ParamVals: IMsModelParamValues;
    ExecRun: IValidationExecRun;
    DiagRep: IDiagnosticReport;
Begin
    mb := MetabaseClass.Active;
    // Получаем базу данных временных рядов
    FCObj := mb.ItemById("TSDB_VALIDATION_PARAMETERS").Bind;
    FC := FCObj As IRubricator;
    // Получаем справочник, на который ссылается атрибут CITY
    Atts := FC.Facts.Attributes;
    LinkedDict := Atts.FindById("CITY").ValuesObject;
    // Получаем правило валидации
    ValidObj := Mb.ItemByIdNamespace("VALIDATION_TREND", FCObj.Key).Edit;
    ValidFilter := ValidObj As IValidationFilter;
    // Получаем параметры правила валидации
    Params := ValidFilter.Params;
    Params.Clear;
    // Добавляем параметр для фильтрации элементов
    FilterPrarm := Params.Add;
    FilterPrarm.Id := "FILTER_CITY";
    FilterPrarm.Name := "Город для фильтра";
    FilterPrarm.LinkedObject := LinkedDict;
    // Задаем фильтр валидации, основанный на параметре
    Filter := (ValidFilter.Details As IValidationTrend).SelectionFilter;
    Filter.Clear;
    Sel := (LinkedDict.Open(Null) As IDimInstance).CreateSelection;
    FilterVal := Filter.Add(Sel);
    If IsGroup Then
        FilterVal.ParameterAsGroup := FilterPrarm;
    Else
        FilterVal.ParameterAsSelection := FilterPrarm;
    End If;
    // Сохраняем правило валидации
    ValidObj.Save;
    // Задаем параметры выполнения правила
    ExecSett := ValidFilter.CreateExecuteSettings;
    Analyzer := UiErAnalyzer1.ErAnalyzer;
    ExecSett.Laner := Analyzer.Laner;
    // Задаем значения параметра
    ParamVals := ExecSett.ParamValues;
    ParamVals.FindById("FILTER_CITY").Value := Value;
    // Выполняем правило валидации
    ExecRun := ValidFilter.Execute(ExecSett);
    DiagRep := New DiagnosticReport.Create;
    DiagRep.Run := ExecRun;
    DiagRep.EaxAnalyzer := Analyzer;
End Sub AddFilterParam;