Quintiq file version 2.0
#parent: #root
Method CreateUpdateEventAndParticipation () as LibCal_Event id:Method_LibCal_dlgEvent_CreateUpdateEventAndParticipation
{
  #keys: '[131094.1.136167643]'
  Body:
  [*
    sEvent    := Dialog.Data();
    sLeadPart := dhLeadingParticipation.Data(); 
    
    // Get the values from the controls.
    
    // Event and LeadingParticipation
    subject        := edtName.Text();
    description    := edtDescription.Text();
    type           := rbgEventType.BoundValue();
    capacity       := this.StringToReal( edtCapacity.Text() );
    category       := selCategory.Data();
    isDefault      := ckbIsDefault.Checked();
    startDate      := datStartDate.Date()
    startTimeOfDay := durStartTimeOfDay.Duration();
    endDate        := datEndDate.Date();
    endTimeOfDay   := durEndTimeOfDay.Duration();
    isAllDay       := ckbIsAllDay.Checked();
    
    // When running in days only mode, use the number of days to calculate the end date.
    // Set the times to 0:00 (just to be sure), and set isAllDay.
    if( LibCal_Event::USE_ONLY_DAYS() )
    {
      endDate        := startDate + vhDuration.Data().Days();
      endTimeOfDay   := Duration::Zero();
      startTimeOfDay := Duration::Zero();
      isAllDay       := true;
    }
    
    // RecurrencePattern
    patternType        := this.GetPatternType();
    isRecurring        := not btnNoRecurrence.Pressed();
    recurrenceInterval := this.GetRecurrenceInterval();
    
    // Daily
    daily_IsEveryWeekday := ckbEveryWeekday.Checked();
    
    // Weekly
    weekly_Weekdays := ifexpr( btnMonday   .Pressed(), "Mon;", "" )
                     + ifexpr( btnTuesday  .Pressed(), "Tue;", "" )
                     + ifexpr( btnWednesday.Pressed(), "Wed;", "" )
                     + ifexpr( btnThursday .Pressed(), "Thu;", "" )
                     + ifexpr( btnFriday   .Pressed(), "Fri;", "" )
                     + ifexpr( btnSaturday .Pressed(), "Sat;", "" )
                     + ifexpr( btnSunday   .Pressed(), "Sun;", "" );
    
    // Monthly
    monthly_IsDay       := ckbMonthlyDay.Checked();
    monthly_Day         := [Number]edtMonthlyDay.Text();
    monthly_WeekOfMonth := ssMonthlyPatternWeekOfMonth.BoundValue();
    monthly_DayOfWeek   := ssMonthlyPatternDayOfWeek.BoundValue();
    
    // Yearly
    yearly_IsDate      := ckbYearlyDay.Checked();
    month              := ifexpr( yearly_IsDate, ssYearlyMonth.BoundValue(), ssYearlyPatternMonth.BoundValue() );
    yearly_Month       := this.GetNrOfMonth( month );
    yearly_Day         := [Number]ssYearlyDayOfMonth.BoundValue();
    yearly_WeekOfMonth := ssYearlyPatternWeekOfMonth.BoundValue();
    yearly_DayOfWeek   := ssYearlyPatternDayOfWeek.BoundValue();
    
    // RecurrencePeriod
    periodType      := this.GetPeriodType();
    periodStartDate := datStartOfPeriod.Date();
    periodEndDate   := datEndOfPeriod  .Date();
    nrOfOccurrences := [Number]edtNrOfOccurrences.Text();
    
    // All values are passed to the Server, only the relevant values are used there.
    event := LibCal_Event::CreateUpdateFromUI( sEvent.Calendar(), sLeadPart.WrappedInstance(),
                                               subject, description, type, capacity, category, isDefault,
                                               startDate, startTimeOfDay, endDate, endTimeOfDay, isAllDay,
                                               // RecurrencePattern
                                               isRecurring, recurrenceInterval, patternType,
                                               daily_IsEveryWeekday,
                                               weekly_Weekdays,
                                               monthly_IsDay, monthly_Day,  monthly_WeekOfMonth, monthly_DayOfWeek,
                                               yearly_IsDate, yearly_Month, yearly_Day, yearly_WeekOfMonth, yearly_DayOfWeek,
                                               // RecurrencePeriod
                                               periodType, periodStartDate, nrOfOccurrences, periodEndDate,
                                               // Subscribers
                                               dhSubscribers.Data() );
    return event;
  *]
}