IValidationExceptions.Item

Синтаксис

Item(Index: Integer): IValidationException;

Параметры

Index. Индекс ряда в коллекции.

Описание

Свойство Item возвращает ряд из коллекции по индексу.

Пример

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

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

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;

End Sub Button1OnClick;

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

См. также:

IValidationExceptions