IPrxDimensionDrill.Target

Синтаксис Fore

Target: TabHyperlinkTarget;

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

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

Описание

Свойство Target определяет способ загрузки страницы при переходе по ссылке.

Пример Fore

В рассматриваемом примере предполагается существование объекта Report типа IPrxReport.

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;

После выполнения примера при щелчке по гиперссылке страница будет открыта в новом окне браузера.

Пример Fore.NET

В рассматриваемом примере предполагается существование объекта Report типа IPrxReport.

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;

После выполнения примера при щелчке по гиперссылке страница будет открыта в новом окне браузера.

См. также:

IPrxDimensionDrill