ActionType: TabHyperlinkActionType;
ActionType: Prognoz.Platform.Interop.Tab.TabHyperlinkActionType;
The ActionType property determines type of the action triggered by clicking the hyperlink.
This example assumes that the Report object of the IPrxReport type exists.
Sub main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Rep: IPrxReport;
Tab: ITabSheet;
Range: ITabRange;
Hyperlink: ITabHyperlink;
Begin
MB:= MetabaseClass.Active;
MObj:= MB.ItemById("REGULAR_REPORT").Edit;
Rep:= MObj As IPrxReport;
Tab:= (Rep.ActiveSheet As IprxTable).TabSheet;
Range:= Tab.Cell(0, 0);
Hyperlink:= Range.Style.Hyperlink;
Hyperlink.Action:= "=Sheet2";
Hyperlink.ActionType:= TabHyperlinkActionType.GoToSheet;
Hyperlink.Enable:= TriState.OnOption;
Hyperlink.SeparateLinkText:= TriState.OnOption;
Hyperlink.Text:= "Goto_List2";
MObj.Save;
End Sub main;
After executing this example click the hyperlink to jump to the Sheet2 in the report.
The example assumes that the Report object of the IPrxReport type exists.
...
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.ForeSystem;
Public Shared Sub Main(Params : StartParams);
Var
MB: IMetabase;
MObj: IMetabaseObject;
Rep: IPrxReport;
Tab: ITabSheet;
Range: ITabRange;
Hyperlink: ITabHyperlink;
Begin
MB:= Params.Metabase;
MObj:= MB.ItemById ["REGULAR_REPORT"].Edit();
Rep:= MObj As IPrxReport;
Tab:= (Rep.ActiveSheet As IprxTable).TabSheet;
Range:= Tab.Cell[0, 0];
Hyperlink:= Range.Style.Hyperlink;
Hyperlink.Action:= "=Sheet2";
Hyperlink.ActionType:= TabHyperlinkActionType.thatGoToSheet;
Hyperlink.Enable:= TriState.tsOnOption;
Hyperlink.SeparateLinkText:= TriState.tsOnOption;
Hyperlink.Text:= "Goto_List2";
MObj.Save();
End Sub;
After executing this example click the hyperlink to jump to the Sheet2 in the report.
See also: