IPrxTableIslandGroupingTotals.Caption

Синтаксис Fore

Caption : IExpression;

Синтаксис Fore.NET

Caption : Prognoz.Platform.Interop.ForeSystem.IExpression;

Описание

Свойство Caption определяет заголовок итогов.

Комментарии

Для определения оформления итогов используйте свойство IPrxTableIslandGroupingTotals.Style.

Пример Fore

Для выполнения примера предполагается наличие в репозитории регламентного отчета с идентификатором  «Report», на листе которого расположена реляционная область данных.

Добавьте ссылки на системные сборки «Metabase»,  «Report», «Tab», «Matrix», «Drawing».

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Report: IPrxReport;
    TabIs: IPrxTableIslands;
    TI: IPrxTableIsland;
    Grs: IPrxTableIslandGroupings;
    Gr: IPrxTableIslandGrouping;
    GrT: IPrxTableIslandGroupingTotals;
    Style: IPrxCellStyle;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("Report").Edit;
    Report := MObj As IPrxReport;
    TabIs := Report.TableIslands;
    TI := TabIs.Item(0);
    TI := Ti.Edit;
    Grs := TI.Groupings;
    Gr := Grs.Item(0);
    GrT := Gr.Totals;
    GrT.Caption.AsString := "VALUE";
    GrT.Method(TI.Layout.Rows(0).Cells(0)).Method := BasicAggregatorOperation.Sum;
    Style := GrT.Style;
    Style.BackgroundColor := New GxColor.CreateRGB(0, 0, 250);
    Style.Font.Bold := TriState.OnOption;
    TI.Save;
    MObj.Save;
End Sub UserProc;

После выполнения примера будут настроены параметры итогов.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Matrix;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Report: IPrxReport;
    TabIs: IPrxTableIslands;
    TI: IPrxTableIsland;
    Grs: IPrxTableIslandGroupings;
    Gr: IPrxTableIslandGrouping;
    GrT: IPrxTableIslandGroupingTotals;
    Style: IPrxCellStyle;
    Color: GxColor;
Begin
    MB := Params.Metabase;
    MObj := MB.ItemById["Report"].Edit();
    Report := MObj As IPrxReport;
    TabIs := Report.TableIslands;
    TI := TabIs.Item[0];
    TI := Ti.Edit();
    Grs := TI.Groupings;
    Gr := Grs.Item[0];
    GrT := Gr.Totals;
    GrT.Caption.AsString := "VALUE";
    GrT.Method[TI.Layout.Rows[0].Cells[0]].Method := BasicAggregatorOperation.baoSum;
    Style := GrT.Style;
    Color := New GxColorClass_2();
    Style.BackgroundColor := Color;
    Color.CreateRGB(0, 0, 250);
    Style.Font.Bold := TriState.tsOnOption;
    TI.Save();
    MObj.Save();
End Sub;

См. также:

IPrxTableIslandGroupingTotals