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 
 |  Method NewUnitAvailability ( 
 |    internal[GUIComponent] parent 
 |  ) as UnitAvailability id:Method_DialogCreateEditUnitAvailability_NewUnitAvailability 
 |  { 
 |    #keys: '[11766.2.349095296]' 
 |    Body: 
 |    [* 
 |      // New unit availability 
 |       
 |      Dialog.ShowHideComponentForBatchEdit( false, true, false ); 
 |       
 |      unit := select( MacroPlan, Unit, unit, unit.HasCapacityTypeTime() ); 
 |       
 |      data := unit.UnitAvailability( relshadow, UnitID := unit.ID(), Start :=  MacroPlan.StartOfPlanning() ); 
 |       
 |      Dialog.Data( data ); 
 |      Dialog.SetDefaultValue( null( UnitPeriodTime ) ); 
 |       
 |      result := Dialog.DoModal( parent ); 
 |      newobj := null( UnitAvailability ) 
 |       
 |      if( result > 0 ) 
 |      { 
 |        newobj := UnitAvailability::Create( data.Unit(), 
 |                                            data.Start(), 
 |                                            data.TimeUnit(), 
 |                                            data.Maintenance(), 
 |                                            data.Efficiency(), 
 |                                            data.Allocation(), 
 |                                            data.ShiftPattern(), 
 |                                            data.MaximumLoadPercentage(), 
 |                                            data.NrOfUnitsOpen(), 
 |                                            data.MinimumLoadThreshold(), 
 |                                            false  
 |                                          ); 
 |       
 |      } 
 |       
 |      return newobj; 
 |    *] 
 |  } 
 |  
  |