IValidationExceptions.Count

Syntax

Count: Integer;

Description

The Count property returns the number of series in the collection.

Example

Executing the example requires a form, a button named Button1 on this form, the TabSheetBox component and the UiErAnalyzer component named UiErAnalyzer1 that is a data source for TabSheetBox. Workspace of the time series database OBJ_RUBRICATOR must be loaded to UiErAnalyzer1. This database must contain a validation rule with the VALIDATION identifier.

Click the button to start executing of this example.

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;

After executing the example validation rule is calculated for the time series database. The series that do not correspond to the rule are displayed in the TabSheetBox component.