limj
2023-10-24 93652435728de839582440eefd5122c281181d35
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Quintiq file version 2.0
#parent: #root
Method NewScenarioFromDataset (
  internal[GUIComponent] parent,
  shadow[Dataset] dataset
) as Scenario id:Method_ScenarioManager_DialogCreateEditMPScenario_NewScenarioFromDataset
{
  #keys: '[120326.1.1236876853]'
  Body:
  [*
    // New scenario
    this.Title( "New scenario from dataset '" + dataset.Name() + "'" );
    
    RadioButtonGroupStorageState.BoundValue( dataset.State() );
    RadioButtonGroupStorageState.Enabled( false );
    
    EditorScenarioName.Text( dataset.Name() );
    
    result := this.DoModal( parent );
    scenario := null ( Scenario );
    
    if( result > 0 )
    {
      scenarioManager := ScenarioManager;
      
      scenariofolder := select( scenarioManager, ScenarioNode.astype( ScenarioFolder ), folder,
                                folder.Name() = GlobalParameters_MP::GetFolderRoot() );
    
      scenario := scenarioManager.CreateScenarioMPFromDataset( scenariofolder,
                                                               EditorScenarioName.Text(),
                                                               EditorAssumption.Text(),
                                                               EditorComment.Text(),
                                                               '',
                                                               dataset.Name(),
                                                               dataset.DatasetMDSID(),
                                                               dataset.State() );
    
      kbfullid := SelectionKBBranch.Data();
      if ( RadioButtonGroupMode.BoundValue() = GlobalParameters_MP::GetKB_New() )
      {
        this.InstantiateAndSelectKB( scenario );
      }
      else if ( RadioButtonGroupMode.BoundValue() = GlobalParameters_MP::GetKB_CreateCopy() )
      {
        this.CopyAndSelectKB( SelectionKBBranch.Data(), scenario );
      }
      else
      {
        ApplicationLibMacroPlanner.SelectKB( scenario, kbfullid );
      }
      
      // Set user preference on supply chain wizard launch
      scenarioManager.LaunchInitializationWizardAtScenarioCreation( Dialog.CheckBoxLaunchSupplyChainWizard().Checked() );
    }
    
    isselected := ApplicationLibMacroPlanner.SelectScenario( scenario );
    
    if( isselected )
    {
      ApplicationLibMacroPlanner.SelectScenario( scenario, this );
      
      ApplicationLibMacroPlanner.SupplyChainDiagramSetSupplyChainView( MacroPlan );  
      if ( not isnull( DataHolderView.Data() ) )
      {
        feedback := ''
        DataHolderView.Data().RestoreDefaultLayout( feedback );
      }  
    }  
    
    return scenario;
  *]
}