PR

yypsybs

2023-09-13 795184402d79c6c4ce7bb7cb0babfcb175c51982

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
Quintiq file version 2.0
#parent: #root
Method Open (
  LibCal_Calendar calendar_i
) id:Method_LibCal_dlgSubscribeToEvent_Open
{
  #keys: '[131094.0.2062011475]'
  Body:
  [*
    this.Title( "Select an event to subscribe calendar '" + calendar_i.CalendarID() + "' to" );
    
    // Get the available Events. In lstEventParticipations the LeadingParticipations of these Events will be shown.
    events := calendar_i.GetPotentialEventsToSubscribeTo();
    
    // Get the Calendars of the Events. The Events are shown per Calendar.
    calendars := selectset( events, Elements.Calendar, cal, true, true ).Unique();
    
    // Disallow selecting an Event from the own Calendar.
    calendars.Remove( calendar_i );
    
    // Register the selected calendar.
    calendarAsSet := construct( LibCal_Calendars );
    calendarAsSet.Add( calendar_i );
    dhSubscribers.Data( &calendarAsSet );
    
    dhCalendars.Data( &calendars );
    
    Form.Show( "modal" );
    
    // The dialog is closed when the followup dialog is closed with OK.
  *]
}