admin
2025-01-22 7e31442f0e9b07764e9c6a9680d3d4aeba5fe1de
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
Quintiq file version 2.0
#parent: #root
Method OnOk () id:Method_DialogCreateEditCampaign_OnOk
{
  #keys: '[134266.1.1955254560]'
  Body:
  [*
    // Set data binding before apply changes
    data := DataHolderDialogData.Data();
    
    // Workaround: No databinding, so we set the dialog data manually before apply changes
    data.HasInputMaxQuantity( EditorCampaignMaxQuantity.Enabled() );
    data.HasInputMaxDuration( DurationSelectorMaxDuration.Enabled() );
    
    data.MinQuantity( ApplicationMacroPlanner.FormatStringToReal( EditorCampaignMinQuantity.Text() ) );
    data.MaxQuantity( ApplicationMacroPlanner.FormatStringToReal( EditorCampaignMaxQuantity.Text() ) );
    data.MinDuration( DurationSelectorMinDuration.Duration() );
    data.MaxDuration( DurationSelectorMaxDuration.Duration() );
    
    // Disabled button to prevent the possibility of multiple firing
    btnOK.Enabled( false, '' );
    
    // When the user clicks ok, 
    // we either create or edit the data
    this.ApplyChanges();
    
    
    
    if( isnull( data.WrappedInstance() ) )
    {
      newcampaign := null( Campaign_MP );
      campaignid := OS::GenerateGUIDAsString();
                                           
      if( CheckBoxIsCreateAndResequence.Checked() )
      {
        newcampaign := Campaign_MP::CreateAndResequence( selCampaignType_MP.Data().Unit(),
                                                         data.EarliestStart(),
                                                         data.SequenceNumberForExcel(),
                                                         data.MinQuantity(),
                                                         data.MaxQuantity(),
                                                         data.MinDuration(),
                                                         data.MaxDuration(),
                                                         selCampaignType_MP.Data().Name(),
                                                         campaignid,
                                                         data.Comment(),
                                                         data.HasInputMaxQuantity() and RadioButtonGroupQuantityDuration.BoundValue() = GlobalParameters_MP::GetCampaignTransitionsTypeQuantity(),
                                                         data.HasInputMaxDuration() and RadioButtonGroupQuantityDuration.BoundValue() = GlobalParameters_MP::GetCampaignTransitionsTypeDuration(),
                                                         false,
                                                         DataHolderTargetCampaignForResequence.Data(),
                                                         DataHolderTransitionForReseuqnece.Data(),
                                                         DateTimeSelectorDroptimeForResequence.DateTime() ); 
      }
      else
      {
        newcampaign := Campaign_MP::Create( selCampaignType_MP.Data().Unit(),
                                            data.EarliestStart(),
                                            data.SequenceNumberForExcel(),
                                            data.MinQuantity(),
                                            data.MaxQuantity(),
                                            data.MinDuration(),
                                            data.MaxDuration(),
                                            selCampaignType_MP.Data().Name(),
                                            campaignid,
                                            data.Comment(),
                                            data.HasInputMaxQuantity() and RadioButtonGroupQuantityDuration.BoundValue() = GlobalParameters_MP::GetCampaignTransitionsTypeQuantity(),
                                            data.HasInputMaxDuration() and RadioButtonGroupQuantityDuration.BoundValue() = GlobalParameters_MP::GetCampaignTransitionsTypeDuration(),
                                            false /*isfromdb*/ );  
      }  
      // Access the form, select the new campaign
      formCampaign := DataHolderForm.Data();
      // Update the form selection only if the dialog is opened from the form
      if( not isnull( formCampaign ) )
      {
        DataHolderForm.Data().ListCampaign().SelectByKey( newcampaign.Key() );
      }
      
    }
    else
    {
     data.WrappedInstance().Update( selCampaignType_MP.Data().Unit(),
                                    data.EarliestStart(),
                                    data.SequenceNumberForExcel(),
                                    data.MinQuantity(),
                                    data.MaxQuantity(),
                                    data.MinDuration(),
                                    data.MaxDuration(),
                                    selCampaignType_MP.Data().Name(),
                                    data.CampaignID(),
                                    data.Comment(),
                                    data.HasInputMaxQuantity() and RadioButtonGroupQuantityDuration.BoundValue() = GlobalParameters_MP::GetCampaignTransitionsTypeQuantity(),
                                    data.HasInputMaxDuration() and RadioButtonGroupQuantityDuration.BoundValue() = GlobalParameters_MP::GetCampaignTransitionsTypeDuration(),
                                    false /*isfromdb*/ );
    }
    
    this.Close();
  *]
}