ITabPageBreaks.Assign

Fore Syntax

Assign(Value: ITabPageBreaks);

Fore.NET Syntax

Assign(Value: Prognoz.Platform.Interop.Tab.ITabPageBreaks);

Parameters

Value. Contains parameters of breaks set for the current page.

Description

The Assign method sets breaks passed as input parameters for the current table.

Comments

The Value value is passed as input parameter.

Fore Example

To execute the example, create a regular report with the Report identifier containing two pages.

Sub UserProc;
Var
    MB: IMetaBase;
    Report: IPrxReport;
    Tab: ITabSheet;
    Tab2: ITabSheet;
    TabPS: ITabPageSettings;
    TabPS2: ITabPageSettings;
Begin
    MB := MetaBaseClass.Active;
    Report := MB.ItemById("Report").Edit As IPrxReport;
    Tab := (Report.Sheets.Item(0) As IPrxTable).TabSheet;
    TabPS := Tab.PageSettings;
    TabPS.ColumnsBreaks.Add(3);
    TabPS.RowsBreaks.Add(5);
    Tab2 := (Report.Sheets.Item(1) As IPrxTable).TabSheet;
    TabPS2 := Tab2.PageSettings;
    TabPS2.ColumnsBreaks.Assign(TabPS.ColumnsBreaks);
    TabPS2.RowsBreaks.Assign(TabPS.RowsBreaks);
    (Report As IMetabaseObject).Save;
End Sub UserProc;

After executing the example the breaks created for the first page are moved to the second page.

Fore.NET Example

To execute the example, create a regular report with the Report identifier containing two pages.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;

Public Sub UserProc(Params: StartParams);
Var
    MB: IMetaBase;
    Report: IPrxReport;
    Tab: ITabSheet;
    Tab2: ITabSheet;
    TabPS: ITabPageSettings;
    TabPS2: ITabPageSettings;
Begin
    MB := Params.Metabase;
    Report := MB.ItemById["Report"].Edit() As IPrxReport;
    Tab := (Report.Sheets.Item[0] As IPrxTable).TabSheet;
    TabPS := Tab.PageSettings;
    TabPS.ColumnsBreaks.Add(3);
    TabPS.RowsBreaks.Add(5);
    Tab2 := (Report.Sheets.Item[1] As IPrxTable).TabSheet;
    TabPS2 := Tab2.PageSettings;
    TabPS2.ColumnsBreaks.Assign(TabPS.ColumnsBreaks);
    TabPS2.RowsBreaks.Assign(TabPS.RowsBreaks);
    (Report As IMetabaseObject).Save();
End Sub;

After executing the example the breaks created for the first page are moved to the second page.