1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  | Quintiq file version 2.0 
 |  #parent: #root 
 |  Method CreateEvent ( 
 |    LibCal_Calendar owner_i, 
 |    LibCal_EventCategory category_i 
 |  ) id:Method_LibCal_dlgEvent_CreateEvent_384 
 |  { 
 |    #keys: '[131094.0.1977700126]' 
 |    Body: 
 |    [* 
 |      // Use the time of the planning-dataset as suggested start. 
 |      start := LibCal_GlobalState.DetermineStartOfEvent( LibCal_GlobalState.GetPlanningTime(), 
 |                                                         owner_i.GetTimeZone() ); 
 |      end := LibCal_GlobalState.DetermineEndOfEvent( start ); 
 |       
 |      this.CreateEvent( owner_i, category_i, start, end ); 
 |    *] 
 |  } 
 |  
  |