IAlgorithmSettings.PeriodControlEnd

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj, Dim: IMetabaseObjectDescriptor;
    Algo: ICalcObject;
    CalcAlgo: ICalcAlgorithm;
    Settings: IAlgorithmSettings;
    DataEnd: 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;
    DataEnd := Settings.PeriodControlEnd;
    Debug.WriteLine(DataEnd.IsEnabled);
    // Проверим использование настроенной даты окончания расчёта
    If DataEnd.IsEnabled Then
        // Сбросим заданные параметры и зададим новые
        DataEnd.Reset;
        // Зададим второй параметр алгоритма расчёта в качестве даты окончания расчёта
        Ms := CalcAlgo.MsProblem;
        MetaModel := Ms.MetaModel;
        Params := MetaModel.Params;
        DataEnd.Parameter := Params.Item(1);
        // Получим коллекцию параметров алгоритма расчёта
        ParamValues := CalcAlgo.ParamValues;
        ValueList := ParamValues.Values;
        // Получим справочник второго параметра
        Dim := ValueList.Item(1).LinkedObject;
        DimInst := Dim.Open(Null) As IDimInstance;
        // Найдем атрибут с идентификатором «END_DATE»
        DimAttr := DimInst.Attributes.FindById("END_DATE");
        // Зададим полученный атрибут справочника
        DataEnd.Attribute := DimAttr.Attribute;
        // Зададим уровень календаря
        DataEnd.OffsetLevel := DimCalendarLevel.Day;
        // Включим отображение даты окончания расчёта на панели параметров
        DataEnd.Visible := True;
        // Сохраним изменения в алгоритме расчёта
        CalcAlgo.SaveObject;
    End If;
End Sub UserProc;