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
  | Quintiq file version 2.0 
 |  #parent: #root 
 |  Method OnOK () id:Method_DialogCreateEditShiftPattern_OnOK 
 |  { 
 |    #keys: '[139394.1.114480793]' 
 |    Body: 
 |    [* 
 |      // On ok 
 |      this.ApplyChanges(); 
 |      data := DataHolderDialogData.Data(); 
 |       
 |      if( isnull( data.WrappedInstance() ) ) 
 |      { 
 |        ShiftPattern::Create( MacroPlan, 
 |                              EditFieldName.Text(), 
 |                              data.NumberOfDays(), 
 |                              data.MinimumDuration(), 
 |                              false /*isfromdb*/ ); 
 |      } 
 |      else 
 |      { 
 |        // Edit 
 |        if( not DataHolderIsCopy.Data() ) 
 |        { 
 |          data.WrappedInstance().Update( EditFieldName.Text(),  
 |                                         data.NumberOfDays(), 
 |                                         data.MinimumDuration(), 
 |                                         false /*isfromdb*/ ); 
 |        } 
 |        // Copy 
 |        else 
 |        { 
 |          data.WrappedInstance().Copy( EditFieldName.Text(), 
 |                                       data.NumberOfDays(), 
 |                                       data.MinimumDuration(), 
 |                                       MacroPlan ); 
 |        } 
 |      } 
 |       
 |      this.Close(); 
 |    *] 
 |  } 
 |  
  |