Add Create/Update Method For SRMHeader

yanweiyuan3

2023-08-09 588bc7829387dfc761cc25f06f77d4c81818bd10

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
41
42
43
Quintiq file version 2.0
#parent: #root
StaticMethod CreateAlgorithmRunSolverSettings (AlgorithmRunLevel owner, StrategyLevelMacroPlan strategylevelmacroplan, LibOBT_RunTaskSetting benchmarksetting)
{
  Description: 'Create run solver settings according to the solver setting link to strategy level, or according to selected benchmarking setting'
  TextBody:
  [*
    settinglevel := select( benchmarksetting,
                            LibOBT_RunTaskSettingLevel,
                            runtasksettinglevel,
                            runtasksettinglevel.StrategyLevel().Level() = strategylevelmacroplan.Level() );
    
    // If the solversettinggroup is not set (in the runtask) then use the default strategylevel solversettings
    usefromsettinglevel := not isnull( settinglevel ); 
    //solversettinggroup := guard( settinglevel.SolverSettingGroup(), strategylevel.SolverSettingGroupMacroPlan() );
    solversettinggroup := strategylevelmacroplan.SolverSettingGroupMacroPlan();
    
    if ( usefromsettinglevel ) 
    {
      // Create solver settings for this algorithmrunlevel
      traverse( settinglevel, SolverSettingGroup.SolverSetting, solversetting )
      {
        AlgorithmRunSolverSetting::Create( owner,
                                           solversetting.ParameterNumber(),
                                           solversetting.ParameterValue(), 
                                           solversetting.IsNumberParameter() );
      }
      owner.UpdateSolverSettingGroup( guard( settinglevel.SolverSettingGroup().Name(), '' ) );
    }
    else
    {
      // Create solver settings for this algorithmrunlevel
      traverse( solversettinggroup, SolverSettingMacroPlan, solversetting )
      {
        AlgorithmRunSolverSetting::Create( owner,
                                           solversetting.ParameterNumber(),
                                           solversetting.ParameterValue(), 
                                           solversetting.IsNumberParameter() );
      }
      owner.UpdateSolverSettingGroup( guard( solversettinggroup.Name(), '' ) );
    }
  *]
}