陈清红
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
Quintiq file version 2.0
#parent: #root
Method CreateSubscription (
  structured[LibCal_Calendar] subscribers_i,
  LibCal_LeadingParticipation subscribeTo_i
) id:Method_LibCal_dlgSubscription_CreateSubscription
{
  #keys: '[131094.1.564187147]'
  Body:
  [*
    this.Title( "Create Subscription" );
    
    calendarsAsSet := subscribers_i.Copy();
    dhSubscribers.Data( &calendarsAsSet );
    
    dhParticipationToSubscribeTo.Data( subscribeTo_i );
    
    lblEvent.Text( subscribeTo_i.Event().Subject() );
    
    this.Open( subscribeTo_i );
  *]
}