ILanerCalculateSerie.TransformPeriod

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

Sub UserProc;
Var
    mb: IMetabase;
    Analyzer: IEaxAnalyzer;
    pLaner: ILaner;
    pSeries: ILanerCalculateSerie;
    TransPeriod: ILanerTransformPeriod;
Begin
    // Получим текущий репозиторий
    mb := MetabaseClass.Active;
    // Получаим рабочую книгу
    Analyzer := mb.ItemById("WORKBOOK_TR_PERIOD").Edit As IEaxAnalyzer;
    pLaner := Analyzer.Laner;
    // Получим первый ряд в рабочей книге
    pSeries := pLaner.Series.Item(0) As ILanerCalculateSerie;
    // Получим параметры периода расчёта ряда
    TransPeriod := pSeries.TransformPeriod;
    // Укажем, что используем дату начала прогнозирования
    TransPeriod.IsUsingForecastStart := True;
    // Укажем, что период прогнозирования может идти до периода идентификации
    TransPeriod.AllowForecastBeforeIdent := True;
    // Зададим даты начала и окончания периодов идентификации и прогнозирования
    TransPeriod.PeriodSet := LnTransformPeriodSet.All;
    TransPeriod.StartDate := DateTime.Parse("01.01.2000");
    TransPeriod.EndDate := DateTime.Parse("01.01.2000");
    // Сохраним изменения
    (Analyzer As IMetabaseObject).Save;
End Sub UserProc;