IPrxTableIslandLayout.Sort

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport; 
    TabIs : IPrxTableIslands;
    TI : IPrxTableIsland;
    Layout : IPrxTableIslandLayout;
    Sort, Parent: IPrxTableIslandSort;
    SortItem: IPrxTableIslandSortItem;
    i, Index: Integer;
    FieldName: String;
    IsEnabled, Descending, InGroups, FilterEnabled: Boolean;
Begin
    MB := MetabaseClass.Active;
    Report := MB.ItemById("REGULAR_REPORT").Edit As IPrxReport;
    TabIs := Report.TableIslands;
    TI := TabIs.Item(0);
    Layout := TI.Layout;
    Sort := Layout.Sort;
    Sort.Enabled := TriState.Undefined; 
    Debug.WriteLine("=== Условия сортировки РОД: ===");
    If Sort.IsEnabled = True Then
        Debug.WriteLine("   Сортировка включена. Перенастроим её параметры");
        Else Debug.WriteLine("   Сортировка выключена. Настроим её параметры");
    End If;
    Debug.WriteLine("=== Условия сортировки по полям: ===");
    For i := 0 To Sort.Count - 1 Do
        SortItem := Sort.Item(i);
        // Включим сортировку по полям:
        If (i Mod 2<>0) Then
            SortItem.Enabled := TriState.OnOption;
            Else SortItem.Enabled := TriState.OffOption;
        End If;
        // Включим опцию "Сортировка по убыванию":
        If (i Div 2=1) Then
            SortItem.Descending := True;
            Else SortItem.Descending := False;
        End If;
        // Переместим условия в нужном порядке выполнения:
        Sort.Item(Sort.Count - 1).MoveToPosition(Sort.Count - 2);
        Sort.Item(0).MoveLast;
        // Выведем результаты настройки сортировки в окно консоли:
        FieldName := SortItem.LayoutCell.Field.FieldName;
        Debug.WriteLine((i+1).ToString + ". Наименование поля: " + FieldName);
        Index := SortItem.Index;
        Debug.WriteLine("   Индекс условия сортировки: " + Index.ToString);
        IsEnabled := SortItem.IsEnabled;
        If IsEnabled = True Then
            Debug.WriteLine("   Сортировка включена");
            Else Debug.WriteLine("   Сортировка выключена");
        End If;
        Descending := SortItem.Descending;
        If Descending = True Then
            Debug.WriteLine("   Сортировка по убыванию включена");
            Else Debug.WriteLine("   Сортировка по убыванию выключена");
        End If;
        InGroups := SortItem.InGroups;
        If InGroups = True Then
            Debug.WriteLine("   Сортировка внутри групп включена");
            Else Debug.WriteLine("   Сортировка внутри групп выключена");
        End If;
    End For;
    // Выключим сортировку для поля с индексом 1:
    Sort.Remove(1);
    // Удалим все условия сортировки из коллекции:
    Sort.Clear;
    Debug.WriteLine("=== Проверим, включена ли фильтрация для РОД ===");
    Parent := SortItem.Parent;
    FilterEnabled := Parent.Parent.FilterEnabled;
    If FilterEnabled = True Then
        Debug.WriteLine("   Фильтрация включена");
        Else 
            Debug.WriteLine("   Фильтрация выключена");
    End If;
    (Report As IMetabaseObject).Save;
End Sub UserProc;