Fix the ExtenalSupply & ActualPISPIP

yanyuan

2023-09-06 13296fd8bb887ffde341bd93a6497ffa0ff5c7f4

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Quintiq file version 2.0
#parent: #root
Function CalcOptimizerRemark
{
  TextBody:
  [*
    // soh yee Sep-17-2014 (created)
    
    value := '';
    feasibility := this.Feasibility();
    
    if( feasibility = Translations::MP_GlobalParameters_GetOptimizerInfeasibleStatus()
        or feasibility = Translations::MP_GlobalParameters_GetOptimizerTimeLimitExceededStatus() )
    {
      runlevel := maxselect( this, AlgorithmRunLevel, level, level.IsFeasible(), level.Level() );
    
      if( guard( runlevel.Level() >= 1, false ) )
      {
        value := Translations::MP_OptimizerInfeasibleWithResult( runlevel );
      }
      else
      {
        runlevel := this.FirstLevel();
        value := Translations::MP_OptimizerInfeasible( runlevel );
      }
    }
    else if( feasibility = Translations::MP_GlobalParameters_GetOptimizerFeasibleWithNumericalWarnings() )
    {
      runlevel := minselect( this, AlgorithmRunLevel, level, not level.IsFeasible(), level.Level() );
    
      if( isnull( runlevel ) )
      {
        runlevel := this.LastLevel();
      }
      value := Translations::MP_OptimizerFeasibleWithNumericalWarnings( runlevel );
    }
    
    this.OptimizerRemark( value );
  *]
}