IValidation.CalculationType

Синтаксис

Описание

Свойство CalculationType определяет способ расчета правила валидации.

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента TabSheetBox и компонента UiErAnalyzer с наименованием «UiErAnalyzer1», являющегося источником данных для TabSheetBox. В «UiErAnalyzer1» должна быть загружена рабочая книга базы данных временных рядов «OBJ_RUBRICATOR». В данной базе предполагается наличие правила валидации с идентификатором «VALIDATION».

Добавьте ссылки на системные сборки «Cubes», «Metabase», «Ms».

Пример будет выполняться при нажатии на кнопку.

Var
    ErAn: IEaxAnalyzer;
    Laner: ILaner;
    mb: IMetabase;
    RubrDescr: IMetabaseObjectDescriptor;
    ValidDescr: IMetabaseObjectDescriptor;
    Validation: IValidation;
    Exceptions: IValidationExceptions;
    Series: ILanerSeries;
    Exception: IValidationException;
    i: Integer;
Begin
    ErAn := UiErAnalyzer1.ErAnalyzer;
    Laner := ErAn.Laner;
    mb := MetabaseClass.Active;
    RubrDescr := mb.ItemById("OBJ_RUBRICATOR");
    ValidDescr := mb.ItemByIdNamespace("VALIDATION", RubrDescr.Key);
    Validation := ValidDescr.Edit As IValidation;
    Validation.CalculationType := MsCalculationType.Serie;
    Validation.StartDate := DateTime.Parse("01.01.2000 00:00:00");
    Validation.UseStartDate := True;
    Validation.EndDate := DateTime.Parse("01.01.2004 00:00:00");
    Validation.UseEndDate := True;
    Validation.Laner := Null;
    Exceptions := Validation.Execute(True);
    Series := Laner.Series;
    Laner.BeginUpdate;
    For i := 0 To Exceptions.Count - 1 Do
        Exception := Exceptions.Item(i);
        Series.AddSourceSerie(Exception.Serie As IRubricatorFactor);
    End For;
    Laner.EndUpdate;

После выполнения примера правило валидации будет рассчитано для базы данных временных рядов. Ряды, которые не соответствуют правилу будут выведены в компонент TabSheetBox.

См. также:

IValidation