haorenhui
2023-10-30 6d6cc10d9e8e242661da7fd655dec155a09d676c
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
Quintiq file version 2.0
#parent: #root
Method EditCalendar () derived id:Method_LibCal_dlgCreateEditCalendar_EditCalendar
{
  #keys: '[892.10.2103052]'
  BaseType: 'Method_dlgCreateEditCalendar_EditCalendar'
  Body:
  [*
    retVal := -1;
    
    if( calendar.istype( LibCal_Calendar ) )
    {
      this.Data( calendar.astype( LibCal_Calendar ) );
      this.Title( "Edit calendar '" + calendar.astype( LibCal_Calendar ).CalendarID() + "'" );
    
      // Also set the data of the DetailPanel.
      dpCalendarSettings.Data( calendar.astype( LibCal_Calendar ) );
      dpCalendarSettings.InitializeBase();
      
      retVal := this.DoModal( parent );
    }
    else
    {
      MessageBox::Error( parent, "Calendar is not a subtype of LibCal_Calendar.", "OK" ); 
    }
    
    return retVal;
  *]
}