ILanerSerie.CalendarDim

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

Sub UserProc;
Var
    Laner: ILaner;
    i: Integer;
    Series: ILanerSeries;
    LSerie: ILanerSerie;
    Calendar: IDimInstance;
    Tbl: ILanerTable;
    TopH: ILanerTopHeader;
Begin
    Laner := UiErAnalyzer1.ErAnalyzer.Laner;
    If Laner.CalendarDim = Null Then
        Series := Laner.Series;
        Debug.WriteLine("Ключи используемых календарных справочников:");
        For i := 0 To Series.Count - 1 Do
            LSerie := Series.Item(i);
            Calendar := LSerie.CalendarDim As IDimInstance;
            Debug.WriteLine(Calendar.Key);
        End For;
        Tbl := Laner.Execute;
        TopH := Tbl.TopHeader;
        Debug.WriteLine("Календарь рабочей книги с уровнями динамики:");
        For i := 0 To TopH.ElementCount - 1 Do
            Debug.Write(TopH.DimensionDate(0, i));
            Select Case TopH.DimensionLevel(0, i)
                Case DimCalendarLevel.Day: Debug.WriteLine(" - дни");
                Case DimCalendarLevel.HalfYear: Debug.WriteLine(" - полугодия");
                Case DimCalendarLevel.Month: Debug.WriteLine(" - месяцы");
                Case DimCalendarLevel.NineMonths: Debug.WriteLine(" - 9 месяцев");
                Case DimCalendarLevel.Quarter: Debug.WriteLine(" - кварталы");
                Case DimCalendarLevel.Week: Debug.WriteLine(" - недели");
                Case DimCalendarLevel.Year: Debug.WriteLine(" - годы");
            End Select;
        End For;
    End If;
End Sub UserProc;