陈清红
2025-04-14 880f3c0257eeb8c37761d484258fdd102a369a19
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Quintiq file version 2.0
#parent: #root
Method EditSubscription (
  internal[GUIComponent] parent_i,
  LibCal_Subscription subscription_i
) id:Method_LibCal_dlgSubscription_EditSubscription
{
  #keys: '[131094.1.400053739]'
  Body:
  [*
    Dialog.Title( "Edit subscription" );
    Dialog.Data( subscription_i );
    
    calendarAsSet := construct( LibCal_Calendars );
    calendarAsSet.Add( subscription_i.Calendar() );
    dhSubscribers.Data( &calendarAsSet );
    
    dhParticipationToSubscribeTo.Data( subscription_i.LeadingParticipation() );
    
    lblSubject.Text( subscription_i.Event().Subject() );
    
    this.Open( parent_i, subscription_i );
  *]
}