IValidationMetaAttributes.Add

Copy example

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;
    // Get time series database
    RubrKey := Mb.GetObjectKeyById("OBJ_FC");
    // Get validation rule
    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);
    // Set compared data
    SelValList := MissingMetaData.SelectionTargetData;
    SelValList.Clear;
    // Get data filtering parameters used for validation
    SelectionFilter := MissingMetaData.SelectionFilter;
    // Clear current filter
    SelectionFilter.Clear;
    // Save changes of validation rule
    ValidObj.Save;
    // Execute rule
    ValidExecSett := New ValidationExecuteSettings.Create;
    ValidExecRun := ValidFilter.Execute(ValidExecSett);
End Sub UserProc;