IMsUORuntime.Problem

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

Public Class UserOptimization: Object, IMsUserOptimizationCallback
    _b: Boolean;
    
    Public Sub OnLoad(Xml: IXMLDOMElement);
    Begin
        _b := False;
    End Sub OnLoad;

    Public Sub OnSave(Xml: IXMLDOMElement);
    Begin
    End Sub OnSave;

    Public Sub OnBeforeExecute(Calculation: IMsMethodCalculation; Coord: IMsFormulaTransformCoord; Problem: IMsUserOptimizationProblem);
    Begin
    End Sub OnBeforeExecute;

    Public Sub OnExecute(Runtime: IMsUORuntime);
    Var
        UserProblem: IMsUserOptimizationProblem;
        Problem: IMsProblem;
        Period: IMsModelPeriod;
    Begin
        If Not _b Then
            UserProblem := Runtime.Problem;
            Problem := UserProblem.Problem;
            Period := UserProblem.Period;
            Debug.WriteLine("Пользовательская задача оптимизации: " + Problem.Name + '(' + Problem.Id + ')');
            Debug.WriteLine("Периода идентификации: " + Period.IdentificationStartDate.Year.ToString + " - " + Period.IdentificationEndDate.Year.ToString);
            Debug.WriteLine("Периода прогнозирования: " + Period.ForecastStartDate.Year.ToString + " - " + Period.ForecastEndDate.Year.ToString);
            _b := True;
        End If;
        // Расчёт уравнений в текущей точке
        Runtime.Equations.ExecuteAll;
    End Sub OnExecute;

    Public Sub OnAfterExecute(Calculation: IMsMethodCalculation; Coord: IMsFormulaTransformCoord; Problem: IMsUserOptimizationProblem);
    Begin
    End Sub OnAfterExecute;

    Public Sub OnSetupParams(Params: IMsModelParams);
    Begin
    End Sub OnSetupParams;
End Class UserOptimization;