ITabFootnotes.NumberingRule

Fore Syntax

NumberingRule: TabFootnotesNumberingRule;

Fore.NET Syntax

NumberingRule: Prognoz.Platform.Interop.Tab.TabFootnotesNumberingRule;

Description

The NumberingRule property determines footnote numeration rule for different tables of several sheets.

Comments

The property is relevant on working with tools where can be crated several tools and each of them is a separate table. For example, on working with regular report.

By default, footnote numeration continues for tables on separate sheets.

Fore Example

Executing the example requires a regular report with the REGULAR_REPORT identifier in the repository. Add links to the Metabase, Report and Tab system assemblies.

Sub UserProc;
Var
    MB: IMetabase;
    Sheet: IPrxSheet;
    Report: IPrxReport;
    Footnotes1, Footnotes2: ITabFootnotes;
Begin
    MB := MetabaseClass.Active;
    Report := MB.ItemById("REGULAR_REPORT").Edit As IPrxReport;
    //Footnotes of the current sheet
    Sheet := Report.ActiveSheet;
    Footnotes1 := (Sheet As IPrxTable).TabSheet.Footnotes;
    Footnotes1.Add(0, 0).Text := "First";
    //Footnotes of a new sheet
    Sheet := Report.Sheets.Add("NewSheet");
    Footnotes2 := (Sheet As IPrxTable).TabSheet.Footnotes;
    Footnotes2.NumberingRule := TabFootnotesNumberingRule.Restart;
    Footnotes2.StartingNumber := 10;
    Footnotes2.Add(0, 0).Text := "Second";
    //Save
    Report.MetabaseObject.Save;
End Sub UserProc;

On executing the example a footnote will be created in the A0 cell of the active sheet. After that a new sheet where the A0 cell contains the footnote will be created in the report. New sheet will contain its proper footnote numeration and the first footnote number will be 10.

Fore.NET Example

The requirements and result of the Fore.NET Example execution match with those in the Fore Example.

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

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Sheet: IPrxSheet;
    Report: IPrxReport;
    Footnotes1, Footnotes2: ITabFootnotes;
Begin
    MB := Params.Metabase;
    Report := MB.ItemById["REGULAR_REPORT"].Edit() As IPrxReport;
    //Footnotes of the current sheet
    Sheet := Report.ActiveSheet;
    Footnotes1 := (Sheet As IPrxTable).TabSheet.Footnotes;
    Footnotes1.Add(0, 0).Text := "First";
    //Footnotes of a new sheet
    Sheet := Report.Sheets.Add("NewSheet", PrxSheetType.pstTable);
    Footnotes2 := (Sheet As IPrxTable).TabSheet.Footnotes;
    Footnotes2.NumberingRule := TabFootnotesNumberingRule.tfnrRestart;
    Footnotes2.StartingNumber := 10;
    Footnotes2.Add(0, 0).Text := "Second";
    //Save
    Report.MetabaseObject.Save();
End Sub;