IPrxSliceDimension.HeaderPosition

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    DtSources: IPrxDataSources;
    Slices: IPrxSlices;
    SliceDims: IPrxSliceDimensions;
    SliceDim: IPrxSliceDimension;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    Report := MB.ItemById("REPORT").Bind As IPrxReport;
    DtSources := Report.DataSources;
    Slices := DtSources.Item(0).Slices;
    SliceDims := Slices.Item(0).Dimensions;
    SliceDim := SliceDims.Item(0);
    i := SliceDim.HeaderPosition;
End Sub UserProc;