IValidationMetaAttributes.Add

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

Sub UserProc;
Var
    Mb: IMetabase;
    RubrKey: Integer;
    ValidObj: IMetabaseObject;
    ValidFilter: IValidationFilter;
    MissingMetaData: IValidationMissingMetaData;
    ValidExecSett: IValidationExecuteSettings;
    ValidExecRun: IValidationExecRun;
    SelValList: IValidationSelectionValueList;
    SelectionFilter: IValidationSelectionFilter;
    Rub: IRubricator;
    MetaAttr: IMetaAttribute;
    ValidMetaAttrs: IValidationMetaAttributes;
Begin
    Mb := MetabaseClass.Active;
    // Получаем базу данных временных рядов
    RubrKey := Mb.GetObjectKeyById("OBJ_FC");
    // Получаем правило валидации
    ValidObj := Mb.ItemByIdNamespace("OBJ_VALID_FILTER", RubrKey).Edit;
    ValidFilter := ValidObj As IValidationFilter;
    ValidFilter.Level := DimCalendarLevel.None;
    ValidFilter.Kind := ValidationDetailsKind.MissingMetaData;
    MissingMetaData := ValidFilter.Details As IValidationMissingMetaData;
    Rub := Mb.ItemById("OBJ_FC").Bind As IRubricator;
    MetaAttr := Rub.Facts.Attributes.FindById("OBT");
    ValidMetaAttrs := MissingMetaData.Attributes;
    ValidMetaAttrs.Add(MetaAttr);
    // Задаем сравниваемые данные
    SelValList := MissingMetaData.SelectionTargetData;
    SelValList.Clear;
    // Получаем параметры фильтрации данных, по которым выполняется валидация
    SelectionFilter := MissingMetaData.SelectionFilter;
    // Очищаем текущий фильтр
    SelectionFilter.Clear;
    // Сохраняем изменения правила валидации
    ValidObj.Save;
    // Выполняем правило
    ValidExecSett := New ValidationExecuteSettings.Create;
    ValidExecRun := ValidFilter.Execute(ValidExecSett);
End Sub UserProc;