IBindingDimCombo.SortDirection

Синтаксис

SortDirection: DimComboSortDirection;

SortDirection: Prognoz.Platform.Interop.ForeSystem.DimComboSortDirection;

Описание

Свойство SortDirection определяет значение параметра «SORTDIRECTION» в строке связи.

Комментарии

Параметр «SORTDIRECTION» определяет вариант сортировки элементов справочника по наименованию.

Значение параметра задается в строке связи с помощью свойства SortDirection или вручную в формате:

SORTDIRECTION="VALUE"

Где:

Описание значений параметра:

Значение Описание
NONE Сортировка элементов справочника не производится.
ASC Сортировка элементов справочника производится в порядке возрастания по алфавиту или текстовым значениям чисел.
DESC Сортировка элементов справочника производится в порядке убывания по алфавиту или текстовым значениям чисел.

Примеры Fore и Fore.NET

Для выполнения примера предполагается наличие в репозитории регламентного отчёта с идентификатором REPORT и справочника с идентификатором D_SEP.

Добавьте ссылки на системные сборки: Metabase, Report, Tab, ForeSystem (для примера на Fore.NET).

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    Tab: ITabSheet;
    Style: ITabCellStyle;
    BM: IBindingManager;
    DimComboBinding: IBindingDimCombo;
    DimCombo: String;
Begin
    // Получим текущий репозиторий
    MB := MetabaseClass.Active;
    // Получим регламентный отчёт
    Report := MB.ItemById("REPORT").Edit As IPrxReport;
    // Получим стиль первой ячейки в левом верхнем углу отчёта
    Tab := (Report.ActiveSheet As IPrxTable).TabSheet;
    Style := Tab.Cell(0, 0).Style;
    // Зададим параметры редактора значений
    BM := New BindingManager.Create;
    DimComboBinding := BM.CreateByUi("DimCombo") As IBindingDimCombo;
    DimComboBinding.Object := "D_SEP";
    DimComboBinding.SortDirection := DimComboSortDirection.Descending;
    // Преобразуем параметры в строку связи
    DimCombo := DimComboBinding.AsString;
    // Зададим формат ячейки
    Style.Binding := DimCombo;
    // Сохраним изменения
    (Report As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Report: IPrxReport;
    Tab: ITabSheet;
    Style: ITabCellStyle;
    BM: IBindingManager;
    DimComboBinding: IBindingDimCombo;
    DimCombo: String;
Begin
    // Получим текущий репозиторий
    MB := Params.Metabase;
    // Получим регламентный отчёт
    Report := MB.ItemById["REPORT"].Edit() As IPrxReport;
    // Получим стиль первой ячейки в левом верхнем углу отчёта
    Tab := (Report.ActiveSheet As IPrxTable).TabSheet;
    Style := Tab.Cell[0, 0].Style;
    // Зададим параметры редактора значений
    BM := New BindingManager.Create();
    DimComboBinding := BM.CreateByUi("DimCombo") As IBindingDimCombo;
    DimComboBinding.Object := "D_SEP";
    DimComboBinding.SortDirection := DimComboSortDirection.dmDescending;
    // Преобразуем параметры в строку связи
    DimCombo := DimComboBinding.AsString;
    // Зададим формат ячейки
    Style.Binding := DimCombo;
    // Сохраним изменения
    (Report As IMetabaseObject).Save();
End Sub;

После выполнения примера в первой ячейке регламентного отчёта будет задан формат раскрывающегося списка справочника с идентификатором D_SEP, элементы которого будут отображаться в порядке убывания по алфавиту или текстовым значениям чисел.

См. также:

IBindingDimCombo