Ms > Интерфейсы сборки Ms > IValidation > IValidation.CalculationType
CalculationType: MsCalculationType;
Свойство 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.
См. также:
