IPrxSlice.Dimensions

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Report: IPrxReport;
    DtSources: IPrxDataSources;
    Slices: IPrxSlices;
    Slice: IPrxSlice;
    Dim: IPrxSliceDimensions;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("REPORT").Bind;
    Report := MObj As IPrxReport;
    DtSources := Report.DataSources;
    Slices := DtSources.Item(0).Slices;
    Slice := Slices.Item(0);
    Slice.Execute;
    Dim := Slice.Dimensions;
    i := Dim.Count;   
End Sub UserProc