IPrxDimensionDrill.Target

Fore Syntax

Target: TabHyperlinkTarget;

Fore.NET Syntax

Target: Prognoz.Platform.Interop.Tab.TabHyperlinkTarget;

Description

The Target property determines how the page is loaded after clicking the hyperlink.

Fore Example

The following example assumes that there is the Report object with the IPrxReport type.

Sub main;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Report : IPrxReport;
    DI : IPrxDataIsland;
    DIC : IPrxDataIslandDimensionCommon;
    Drill : IPrxDimensionDrill;
    DimMode : IPrxSliceDimension;
    Dim : IDimensionModel;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("OBJ42729").Edit;
    Report := MObj As IPrxReport;
    DI := Report.DataIslands.FindById("DATAISLAND").Edit;
        Dim := DI.Slice.Dimensions.FindById("D_TO").Dimension.Dimension;
        DIC := DI.Properties.Dimension(Dim);
        DIC.Drilled := TriState.OnOption;
        Drill := DIC.Drill;
        Drill.Mode := PrxDataDrillMode.Replace;
        DimMode := Report.DataSources.Item(0).Slices.Item(1).Dimensions.FindById("D_TO");
        Drill.Dimension := DimMode;
        Drill.Index := DimMode.Dimension.Dimension.Indexes.PrimaryIndex;
        Drill.Attribute := Dim.Attributes.Id;
        Drill.Sheet := Null;
        Drill.Action := "http://www.example.com";
        Drill.ActionType:= TabHyperlinkActionType.OpenURL;
        Drill.Target:= TabHyperlinkTarget.Self; 
    DI.Save;
    MObj.Save;
End Sub main;

After executing the example clicking the hyperlink opens page in a new browser window.

Fore.NET Example

The following example assumes that there is the Report object with the IPrxReport type.

Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Report: IPrxReport;
    DI: IPrxDataIsland;
    DIC: IPrxDataIslandDimensionCommon;
    Drill: IPrxDimensionDrill;
    DimMode: IPrxSliceDimension;
    Dim: IDimensionModel;
Begin
    MB:= Params.Metabase;
    MObj:= MB.ItemById["OBJ42729"].Edit();
    Report:= MObj As IPrxReport;
    DI:= Report.DataIslands.FindById("DATAISLAND").Edit();
        Dim:= DI.Slice.Dimensions.FindById("D_TO").Dimension.Dimension;
        DIC:= DI.Properties.Dimension[Dim];
        DIC.Drilled := TriState.tsOnOption;
        Drill:= DIC.Drill;
        Drill.Mode := PrxDataDrillMode.ddmReplace;
        DimMode:= Report.DataSources.Item[0].Slices.Item[1].Dimensions.FindById("D_TO");
        Drill.Dimension:= DimMode;
        Drill.Index:= DimMode.Dimension.Dimension.Indexes.PrimaryIndex;
        Drill.Attribute:= Dim.Attributes.Id;
        Drill.Sheet:= Null;
        Drill.Action:= "http://www.example.com";
        Drill.ActionType:= TabHyperlinkActionType.thatOpenURL;
        Drill.Target:= TabHyperlinkTarget.thtSelf; 
    DI.Save();
    MObj.Save();
End Sub;

After executing the example clicking the hyperlink opens page in a new browser window.

See also:

IPrxDimensionDrill