IValidationSelectionValue.Element

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

Sub UserProc;
Var
    mb: IMetabase;
    FCObj: IMetabaseObject;
    FC: IRubricator;
    LinkedDict: IMetabaseObjectDescriptor;
    Dim: IDimInstance;
    DimSel: IDimSelection;
    ValidObj: IMetabaseObject;
    ValidFilter: IValidationFilter;
    Trend: IValidationTrend;
    Comparator: IValidationSelectionValueList;
    ComparVal: IValidationSelectionValue;
    ExecSett: IValidationExecuteSettings;
    Analyzer: IEaxAnalyzer;
    ExecRun: IValidationExecRun;
    DiagRep: IDiagnosticReport;
Begin
    mb := MetabaseClass.Active;
    // Получаем БД временных рядов
    FCObj := mb.ItemById("TSDB_VALIDATION_PARAMETERS").Bind;
    FC := FCObj As IRubricator;
    //Получаем справочник, на который ссылается атрибут "CITY"  
    LinkedDict := FC.Facts.Attributes.FindById("CITY").ValuesObject;
    Dim := LinkedDict.Open(Null) As IDimInstance;
    DimSel := Dim.CreateSelection;
    //Получаем правило валидации
    ValidObj := Mb.ItemByIdNamespace("VALIDATION_TREND", FCObj.Key).Edit;
    ValidFilter := ValidObj As IValidationFilter;
    // Получаем параметры правила валидации 
    Trend := ValidFilter.Details As IValidationTrend;
    // Задаем выражение сравнения
    Comparator := Trend.SelectionComparatorData;
    Comparator.Clear;
    ComparVal := Comparator.Add(DimSel);
    ComparVal.Element := 1;
    Debug.WriteLine(ComparVal.Selection.ToString);
    // Очищаем фильтр валидации
    Trend.SelectionFilter.Clear;
    // Сохраняем правило валидации
    ValidObj.Save;
    // Получаем параметры выполнения правила
    ExecSett := ValidFilter.CreateExecuteSettings;
    Analyzer := UiErAnalyzer1.ErAnalyzer;
    ExecSett.Laner := Analyzer.Laner;
    // Выполняем правило валидации
    ExecRun := ValidFilter.Execute(ExecSett);
    DiagRep := New DiagnosticReport.Create;
    DiagRep.Run := ExecRun;
    DiagRep.EaxAnalyzer := Analyzer;
End Sub UserProc;