IMsModelCalendarBreakpoint.CalendarPoint

Синтаксис Fore

CalendarPoint: DateTime;

Синтаксис Fore.NET

CalendarPoint: System.DateTime;

Описание

Свойство CalendarPoint определяет календарную точку срабатывания точки останова.

Комментарии

Данное свойство задает для модели календарную точку, при расчете которой будет срабатывать точка останова. Модель определяется свойством IMsModelCalendarBreakpoint.Model.

Если для CalendarPoint установлено значение, то свойство IMsModelCalendarBreakpoint.IsCalendarPointFixed возвращает значение True; при значении False - CalendarPoint игнорируется.

Пример Fore

Для выполнения примера предполагается наличие в репозитории контейнера моделирования с идентификатором «MODEL_SPACE». В данном контейнере должна присутствовать задача моделирования с идентификатором «PROBLEM», рассчитывающая модель с идентификатором «MODEL». В примере используется класс MCallback, описание которого приведено в IMsProblemCalculationCallback.OnBreak.

Также перед выполнением процедуры необходимо добавить ссылки на системные сборки «Metabase», «Ms».

Sub UserProc;
Var
    Mb: IMetabase;
    ModelSpaceDescr: IMetabaseObjectDescriptor;
    Problem: IMsProblem;
    CalcSettings: IMsProblemCalculationSettings;
    CallBack: MCallback;
    Calculation: IMsProblemCalculation;
    Breakpoints: IMsBreakpoints;
    Breakpoint: IMsBreakpoint;
    CalendarBreakpoint: IMsModelCalendarBreakpoint;
    Model: IMsModel;
Begin
    Mb := MetabaseClass.Active;
    ModelSpaceDescr := Mb.ItemById("MODEL_SPACE");
    Problem := Mb.ItemByIdNamespace("PROBLEM", ModelSpaceDescr.Key).Edit As IMsProblem;
    CalcSettings := Problem.CreateCalculationSettings;
    CallBack := New MCallback.Create;
    CalcSettings.Callback := CallBack;
    CalcSettings.FactIncluded := True;
    Calculation := Problem.Calculate(CalcSettings);
    Breakpoints := Calculation.Breakpoints;
    Breakpoints.Clear;
    Breakpoint := Breakpoints.Add(MsBreakpointKind.ModelCalendar);
    CalendarBreakpoint := Breakpoint As IMsModelCalendarBreakpoint;
    CalendarBreakpoint.Name := "CalendarBreakpoint";
    Model := Mb.ItemByIdNamespace("MODEL", ModelSpaceDescr.Key).Edit As IMsModel;
    CalendarBreakpoint.Model := Model;
    CalendarBreakpoint.CalendarPoint := DateTime.ComposeDay(2012, 01, 01);
    Calculation.Run;
End Sub UserProc;

После выполнения примера для задачи будет установлена точка останова, срабатывающая, если модель «MODEL» рассчитывается на дату «01.01.2012».

Пример Fore.NET

Для выполнения примера предполагается наличие в репозитории контейнера моделирования с идентификатором «MODEL_SPACE». В данном контейнере должна присутствовать задача моделирования с идентификатором «PROBLEM», рассчитывающая модель с идентификатором «MODEL». В примере используется класс MCallback, описание которого приведено в IMsProblemCalculationCallback.OnBreak.

Imports Prognoz.Platform.Interop.Ms;
…
Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    ModelSpaceDescr: IMetabaseObjectDescriptor;
    Problem: IMsProblem;
    CalcSettings: IMsProblemCalculationSettings;
    CallBack: MCallback;
    Calculation: IMsProblemCalculation;
    Breakpoints: IMsBreakpoints;
    Breakpoint: IMsBreakpoint;
    CalendarBreakpoint: IMsModelCalendarBreakpoint;
    Model: IMsModel;
Begin
    Mb := Params.Metabase;
    ModelSpaceDescr := Mb.ItemById["MODEL_SPACE"];
    Problem := Mb.ItemByIdNamespace["PROBLEM", ModelSpaceDescr.Key].Edit() As IMsProblem;
    CalcSettings := Problem.CreateCalculationSettings();
    CallBack := New MCallback.Create();
    CalcSettings.Callback := CallBack;
    CalcSettings.FactIncluded := True;
    Calculation := Problem.Calculate(CalcSettings);
    Breakpoints := Calculation.Breakpoints;
    Breakpoints.Clear();
    Breakpoint := Breakpoints.Add(MsBreakpointKind.mbkModelCalendar);
    CalendarBreakpoint := Breakpoint As IMsModelCalendarBreakpoint;
    CalendarBreakpoint.Name := "CalendarBreakpoint";
    Model := Mb.ItemByIdNamespace["MODEL", ModelSpaceDescr.Key].Edit() As IMsModel;
    CalendarBreakpoint.Model := Model;
    CalendarBreakpoint.CalendarPoint := DateTime.Parse("01.01.2012");
    Calculation.Run();
End Sub;

После выполнения примера для задачи будет установлена точка останова, срабатывающая, если модель «MODEL» рассчитывается на дату «01.01.2012».

См. также:

IMsModelCalendarBreakpoint