yypsybs
2023-09-09 3cb5a54def670d97301f07170fcaad213bfc54f2
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
Quintiq file version 2.0
#parent: SelectionScenario
Response OnSelectionChanged () id:Response_SelectionScenario_OnSelectionChanged #extension
{
  Body:
  [*
    // Select a secnario, will also be triggered when scenario is activated via scn mgr list
    
    macroPlanOld := MacroPlan;
    info( "SelectionScenario.OnSelectionCHanged  macroPlanOld : " + [String]macroPlanOld.MDSID() )
    
    ApplicationLibMacroPlanner.SelectScenarioReadOnly( SelectionScenario.Data() );
    
    // Set active scenario on form
    frm := Application.Frame().FindChildObject( 'ScenarioManager_FormScenario' );
    
    if( not isnull( frm ) )
    {
      ApplicationLibMacroPlanner.ComponentMDS_SelectInstance( frm, SelectionScenario.Data() );
    }
    
    macroPlanNew := MacroPlan;
    info( "SelectionScenario.OnSelectionCHanged  macroPlanNew : " + [String]macroPlanOld.MDSID() )
    ManufactureLTImputation::Transfer( macroPlanOld, macroPlanNew );
  *]
}