Date: DateTime;
Свойство Date возвращает дату создания истории расчета.
Для выполнения примера предполагается наличие в репозитории контейнера моделирования с идентификатором «KONT_MODEL», содержащим задачу с идентификатором «PROBLEM_1».
Sub Main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Hists, HistChild: IMetabaseObjectDescriptors;
HistObj, HistObj1: IMetabaseObjectDescriptor;
Hist: IMsCalculationHistory;
Prob: IMsProblem;
Period: IMsForecastingProblem;
i, j: Integer;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemByIdNamespace("PROBLEM_1", MB.ItemById("KONT_MODEL").Key).Bind;
Hists := MObj.Children;
Debug.WriteLine(Hists.Count);
For i := 0 To Hists.Count - 1 Do
Hist := Hists.Item(i).Bind As IMsCalculationHistory;
HistObj := Hists.Item(i);
HistChild := HistObj.Children;
Debug.WriteLine(Hist.Date);
Debug.Indent;
For j := 0 To HistChild.Count - 1 Do
HistObj1 := HistChild.Item(j);
Debug.WriteLine(HistObj1.Id + " | " + HistObj1.Name);
If HistObj1.ClassId = MetabaseObjectClass.KE_CLASS_MSPROBLEM Then
Prob := HistObj1.Bind As IMsProblem;
Period := Prob.Details As IMsForecastingProblem;
Debug.Indent;
Debug.WriteLine(Period.Period.IdentificationStartDate);
Debug.WriteLine(Period.Period.IdentificationEndDate);
Debug.WriteLine(Period.Period.ForecastStartDate);
Debug.WriteLine(Period.Period.ForecastEndDate);
Debug.Unindent;
End If;
End For;
Debug.Unindent;
End For;
End Sub Main;
После выполнения примера в консоль будут выведены данные по всем историям расчета, сохраненным для задачи моделирования «PROBLEM_1». Данные включают в себя: дату расчета, идентификаторы и наименования всех объектов, участвующих в расчете, а также дату начала и окончания периодов идентификации и прогнозирования, которые были установлены для задачи при расчете.
См. также: