IEaxDataAreaSliceProperties.Slice

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

Sub UserProc;
Var
    MB: IMetabase;
    RegRep: IPrxReport;
    DataArea: IEaxDataArea;
    DataAreaSlices: IEaxDataAreaSlices;
    DataAreaSlice: IEaxDataAreaSlice;
    Properties: IEaxDataAreaSliceProperties;
    Slice: IEaxDataAreaSlice;
    id: String;
    i: integer;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим регламентный отчет
    RegRep := MB.ItemById("REG_REPORT_SLICE").Bind As IPrxReport;
    // Получим коллекцию срезов данных
    DataArea := RegRep.DataArea;
    DataAreaSlices := DataArea.Slices;
    // Выведем в окно консоли идентификаторы объектов-родителей срезов
    For i := 0 To DataAreaSlices.Count - 1 Do
        DataAreaSlice := DataAreaSlices.Item(i);
        Properties := DataAreaSlice.Properties;
        Slice := Properties.Slice;
        id := Slice.Id;
        Debug.WriteLine("Идентификатор объекта-родителя среза данных = " + id);
    End For;
End Sub UserProc;