Selection: IDimSelection;
Свойство Selection возвращает отметку элемента управления.
Свойство актуально для элементов управления типа DimCombo.
Для выполнения примера предполагается наличие в репозитории регламентного отчета с идентификатором REPORT. В отчёт добавлен минимум один элемент управления.
Добавьте ссылки на системные сборки: Dimensions, Metabase, Report.
Sub UserProc;
Var
MB: IMetabase;
Report: IPrxReport;
Contrls: IPrxControls;
Contrl: IPrxControl;
Selection: IDimSelection;
Begin
// Получаем репозиторий
Mb := MetabaseClass.Active;
// Получаем отчёт
Report := MB.ItemById("REPORT").Bind As IPrxReport;
// Получаем коллекцию элементов управления отчёта
Contrls := Report.Controls;
// Получаем элемент управления
Contrl := Contrls.Item(0);
// Получаем отметку элемента управления
Selection := Contrl.Selection;
Debug.WriteLine(Selection.ToString);
End Sub UserProc;
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Report;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Report: IPrxReport;
Contrls: IPrxControls;
Contrl: IPrxControl;
Selection: IDimSelection;
Begin
// Получаем репозиторий
Mb := Params.Metabase;
// Получаем отчёт
Report := MB.ItemById["REPORT"].Bind() As IPrxReport;
// Получаем коллекцию элементов управления отчёта
Contrls := Report.Controls;
// Получаем элемент управления
Contrl := Contrls.Item[0];
// Получаем отметку элемента управления
Selection := Contrl.Selection;
System.Diagnostics.Debug.WriteLine(Selection.ToString("NAME", "", False));
End Sub;
В результате выполнения примера в окно консоли будет выведены элементы, включенные в отметку элемента управления.
См. также: