Нашли ошибку? Выделите
текст с ошибкой и нажмите кнопку "Сообщить об ошибке"
или CTRL+ENTER.
Справочная
система на версию 10.1
от 27/06/2023,
© ООО «ФОРСАЙТ»,
Element: Integer;
Свойство Element определяет отмеченный элемент.
Для получения отметки используйте свойство IValidationSelectionValue.Selection.
Для выполнения примера предполагается наличие формы, содержащей компоненты: WorkbookDocumentViewerBox с идентификатором «WorkbookDocumentViewerBox1» и UiErAnalayzer с идентификатором «UiErAnalyzer1». «UiErAnalyzer1» является источником данных для «WorkbookDocumentViewerBox1» и содержит рабочую книгу из базы данных временных рядов с идентификатором «TSDB_VALIDATION_PARAMETERS». Параметры базы данных временных рядов:
присутствует обязательный атрибут рядов с идентификатором «CITY», ссылающийся на справочник;
присутствует правило валидации с идентификатором «VALIDATION_TREND» типа «Сравнение трендов».
Добавьте ссылки на системные сборки: Cubes, Dimensions, Metabase, Ms, Rds.
Sub UserProc;
Var
mb: IMetabase;
FCObj: IMetabaseObject;
FC: IRubricator;
LinkedDict: IMetabaseObjectDescriptor;
Dim: IDimInstance;
DimSel: IDimSelection;
ValidObj: IMetabaseObject;
ValidFilter: IValidationFilter;
Trend: IValidationTrend;
Comparator: IValidationSelectionValueList;
ComparVal: IValidationSelectionValue;
ExecSett: IValidationExecuteSettings;
Analyzer: IEaxAnalyzer;
ExecRun: IValidationExecRun;
DiagRep: IDiagnosticReport;
Begin
mb := MetabaseClass.Active;
// Получаем БД временных рядов
FCObj := mb.ItemById("TSDB_VALIDATION_PARAMETERS").Bind;
FC := FCObj As IRubricator;
//Получаем справочник, на который ссылается атрибут "CITY"
LinkedDict := FC.Facts.Attributes.FindById("CITY").ValuesObject;
Dim := LinkedDict.Open(Null) As IDimInstance;
DimSel := Dim.CreateSelection;
//Получаем правило валидации
ValidObj := Mb.ItemByIdNamespace("VALIDATION_TREND", FCObj.Key).Edit;
ValidFilter := ValidObj As IValidationFilter;
// Получаем параметры правила валидации
Trend := ValidFilter.Details As IValidationTrend;
// Задаем выражение сравнения
Comparator := Trend.SelectionComparatorData;
Comparator.Clear;
ComparVal := Comparator.Add(DimSel);
ComparVal.Element := 1;
Debug.WriteLine(ComparVal.Selection.ToString);
// Очищаем фильтр валидации
Trend.SelectionFilter.Clear;
// Сохраняем правило валидации
ValidObj.Save;
// Получаем параметры выполнения правила
ExecSett := ValidFilter.CreateExecuteSettings;
Analyzer := UiErAnalyzer1.ErAnalyzer;
ExecSett.Laner := Analyzer.Laner;
// Выполняем правило валидации
ExecRun := ValidFilter.Execute(ExecSett);
DiagRep := New DiagnosticReport.Create;
DiagRep.Run := ExecRun;
DiagRep.EaxAnalyzer := Analyzer;
End Sub UserProc;
В результате выполнения примера для правила валидации «VALIDATION_TREND» будет изменён ряд, с трендом которого выполняется сравнение. Сравниваемый ряд задается первым элементом справочника, на котором основан обязательный атрибут «CITY». Наименование данного элемента будет выведено в окно консоли. Правило будет выполнено для рабочей книги, отображаемой в «WorkbookDocumentViewerBox1».
См. также: