IAlgorithmSettings.PeriodControlStart

PeriodControlStart: IAlgorithmPeriodControl;

Отсутствует;

Sub UserProc;
Var
    MB: IMetabase;
    MObj, Dim: IMetabaseObjectDescriptor;
    Algo: ICalcObject;
    CalcAlgo: ICalcAlgorithm;
    Settings: IAlgorithmSettings;
    Start: IAlgorithmPeriodControl;
    Ms: IMsProblem;
    MetaModel: IMsMetaModel;
    Params: IMsModelParams;
    ParamValues: IAlgorithmParameterValues;
    DimInst: IDimInstance;
    DimAttr: IDimAttributeInstance;
    ValueList: IAlgorithmParamValueList;
Begin
    MB := MetabaseClass.Active;
    // Получим алгоритм расчёта
    MObj := MB.ItemById("ALGORITHM");
    Algo := CalcObjectFactory.CreateCalcObject(MObj, True);
    CalcAlgo := Algo As ICalcAlgorithm;
    // Получим настройки периода расчёта алгоритма
    Settings := CalcAlgo.Settings;
    // Получим настройки даты начала расчёта
    Start := Settings.PeriodControlStart;
    // Зададим первый параметр алгоритма расчёта в качестве даты начала расчёта
    Ms := CalcAlgo.MsProblem;
    MetaModel := Ms.MetaModel;
    Params := MetaModel.Params;
    Start.Parameter := Params.Item(0);
    // Получим коллекцию параметров алгоритма расчёта
    ParamValues := CalcAlgo.ParamValues;
    ValueList := ParamValues.Values;
    // Получим справочник первого параметра
    Dim := ValueList.Item(0).LinkedObject;
    DimInst := Dim.Open(Null) As IDimInstance;
    // Найдем атрибут с идентификатором «START_DATE»
    DimAttr := DimInst.Attributes.FindById("START_DATE");
    // Зададим полученный атрибут справочника
    Start.Attribute := DimAttr.Attribute;
    // Зададим уровень календаря
    Start.OffsetLevel := DimCalendarLevel.Day;
    // Зададим смещение даты начала расчёта
    Start.OffsetValue := 2;
    // Включим отображение даты начала расчёта на панели параметров
    Start.Visible := True;
    // Выполним проверку на наличие изменений в настройках периода расчёта
    If Settings.IsDirty Then
        // Сохраним изменения в алгоритме расчёта
        CalcAlgo.Save;
    End If;
End Sub UserProc;

Не предусмотрен.