Quintiq file version 2.0
|
#parent: #root
|
Method CreateUpdateSubscription () id:Method_LibCal_dlgSubscription_CreateUpdateSubscription
|
{
|
#keys: '[131094.1.400072409]'
|
Body:
|
[*
|
subscribers := dhSubscribers.Data();
|
subscribeTo := dhParticipationToSubscribeTo.Data().Event();
|
subscription := Dialog.Data(); // Is NULL when a new subscription is created.
|
|
useLeadingPeriod := ckbAllOccurrences.Checked();
|
isRecurring := dhParticipationToSubscribeTo.Data().IsRecurring();
|
periodType := ifexpr( ckbEndOfPeriod.Checked(), LibCal_RecurrencePeriod::TYPE_WITHENDDATE(),
|
LibCal_RecurrencePeriod::TYPE_WITHOUTEND() );
|
startofPeriod := datStartOfPeriod.Date();
|
endOfPeriod := datEndOfPeriod .Date();
|
nrOfOccurrences := 1; // Dummy, NrOfOccurrences is not supported for Subscriptions
|
|
// Make it happen in the Server.
|
LibCal_Subscription::CreateUpdate( subscribers, subscribeTo, subscription,
|
useLeadingPeriod, isRecurring, periodType,
|
startofPeriod, nrOfOccurrences, endOfPeriod );
|
*]
|
}
|
