IValidationMissingMetadata.CalculationType

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

Sub UserProc;
Var
    Mb: IMetabase;
    RubrObj: IMetabaseObjectDescriptor;
    ValidObj: IMetabaseObject;
    ValidFilter: IValidationFilter;
    MissingMetaData: IValidationMissingMetaData;
    SelectionAttrValList: IValidationSelectionValueList;
    SelectionAttrFilter: IValidationSelectionFilter;
    Rub: IRubricator;
    MetaAttr: IMetaAttribute;
    ValidMetaAttrs: IValidationMetaAttributes;
Begin
    Mb := MetabaseClass.Active;
    // Получаем базу данных временных рядов
    RubrObj := Mb.ItemById("TSDB_VALIDATION_PARAMETERS");
    Rub := RubrObj.Bind As IRubricator;
    // Получаем правило валидации
    ValidObj := Mb.ItemByIdNamespace("VALIDATION", RubrObj.Key).Edit;
    ValidFilter := ValidObj As IValidationFilter;
    // Указываем, что валидация выполняется по всем уровням календарной динамики
    ValidFilter.Level := DimCalendarLevel.None;
    // Указываем тип валидации
    ValidFilter.Kind := ValidationDetailsKind.MissingMetaData;
    // Получаем параметры валидации «Пропуски в метаданных»
    MissingMetaData := ValidFilter.Details As IValidationMissingMetaData;
    // Задаем тип проверяемых метаданных
    MissingMetaData.CalculationType := MsCalculationType.Pointwise;
    // Задаем проверяемый атрибут
    MetaAttr := Rub.Values.Attributes.FindById("CMT");
    ValidMetaAttrs := MissingMetaData.Attributes;
    ValidMetaAttrs.Clear;
    ValidMetaAttrs.Add(MetaAttr);
    // Очищаем область выполнения и фильтр валидации
    SelectionAttrValList := MissingMetaData.SelectionTargetData;
    SelectionAttrValList.Clear;
    SelectionAttrFilter := MissingMetaData.SelectionFilter;
    SelectionAttrFilter.Clear;
    // Сохраняем изменения
    ValidObj.Save;
End Sub UserProc;