ITabPageBreaks.Assign

Синтаксис Fore

Assign(Value: ITabPageBreaks);

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

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

Параметры

Value. Содержит параметры разрывов, устанавливаемых для текущей страницы.

Описание

Метод Assign устанавливает для текущей таблицы разрывы, передаваемые в качестве входных параметров.

Комментарии

В качестве входных параметров передаётся значение Value.

Пример Fore

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

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;

После выполнения примера созданные для первой страницы разрывы будут перенесены на вторую.

Пример Fore.NET

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

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;

После выполнения примера, созданные для первой страницы разрывы будут перенесены на вторую.

См. также:

ITabPageBreaks