SaveHistoryMask: MsCalculationHistorySet;
Свойство SaveHistoryMask определяет параметры ведения журнала расчёта задачи моделирования.
На значение данного свойства влияет свойство IMsProblemCalculation.SaveHistory. Если свойству IMsProblemCalculation.SaveHistory установить значение True, то SaveHistoryMask примет значение MsCalculationHistorySet.Full.
Значение данного свойства также влияет на свойство IMsProblemCalculation.SaveHistory. Если для значения SaveHistoryMask установить любой тип MsCalculationHistorySet, кроме MsCalculationHistorySet.None, то IMsProblemCalculation.SaveHistory автоматически принимает значение True. Если в качестве значения SaveHistoryMask установить MsCalculationHistorySet.None, то IMsProblemCalculation.SaveHistory принимает значение False.
Для выполнения примера предполагается наличие в репозитории контейнера моделирования с идентификатором KONT_MODEL. В данном контейнере должна содержаться задача с идентификатором PROBLEM_1.
Sub Main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Problem: IMsProblem;
CalcSett: IMsProblemCalculationSettings;
Calculation: IMsProblemCalculation;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemByIdNamespace("PROBLEM_1", MB.ItemById("KONT_MODEL").Key).Edit;
Problem := MObj As IMsProblem;
CalcSett := Problem.CreateCalculationSettings;
Calculation := Problem.Calculate(CalcSett);
Calculation.SaveHistory := True;
Calculation.SaveHistoryMask := MsCalculationHistorySet.Log
Calculation.Run;
MObj.Save;
End Sub Main;
После выполнения примера будет осуществлён расчёт задачи с идентификатором PROBLEM_1. История расчёта будет сохранена только в виде журнала.
См. также: