IMsProblemCalculationCallback.OnBreak

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

Class MCallback: ProblemCalculationCallback
    Public Sub OnError(Message: String);
    Begin
    End Sub OnError;
    
    Public Sub OnFinish;
    Begin
    End Sub OnFinish;
    
    Public Sub OnMessage(Message: String);
    Begin
        Debug.WriteLine(DateTime.Now.ToString + " > " + Message);
    End Sub OnMessage;
    
    Public Sub OnModelCalculation(Model: IMsModel);
    Begin
    End Sub OnModelCalculation;
    
    Public Sub OnStep;
    Begin
    End Sub OnStep;
    
    Public Sub OnBreak(Breakp: IMsBreakpoint);
    Var
        CalendBreak: IMsModelCalendarBreakpoint;
        DataBreak: IMsDataBreakpoint;
    Begin
        Debug.WriteLine("Сработала точка останова!");
        Debug.WriteLine("    Ключ точки: '" + Breakp.Key.ToString + "'");
        Debug.WriteLine("    Наименование точки: '" + Breakp.Name + "'");
        Select Case Breakp.Kind
            Case MsBreakpointKind.ModelCalendar:
                Debug.WriteLine("    Точка календарная");
                CalendBreak := Breakp As IMsModelCalendarBreakpoint;
                If CalendBreak.IsCalendarPointFixed Then
                    Debug.WriteLine("    Дата срабатывания: " + CalendBreak.CalendarPoint.ToString);
                Else
                    Debug.WriteLine("    Точка срабатывает на каждую дату расчета");
                End If;
            Case MsBreakpointKind.Data:
                Debug.WriteLine("    Точка на значение в данных");
                DataBreak := Breakp As IMsDataBreakpoint;
                Debug.WriteLine("    Условие срабатывания: " + DataBreak.Condition.AsString);
        End Select;
    End Sub OnBreak;
End Class MCallback;