Posted 03 Jan 2012 Link to this post
Posted 04 Jan 2012 Link to this post
Posted 06 Jan 2012 Link to this post
Protected
Sub
RadScheduler2_AppointmentUpdate(
ByVal
sender
As
Object
,
e
Telerik.Web.UI.AppointmentUpdateEventArgs)
Handles
RadScheduler2.AppointmentUpdate
SaveFacilityReservation(e.ModifiedAppointment)
End
Private
SaveFacilityReservation(
appt
Appointment)
If
appt.RecurrenceRule.Length > 0
Then
Dim
rec
RecurrenceRule = RecurrenceRule.TryParse(appt.RecurrenceRule)
appt.ID > 0
And
appt.RecurrenceState = RecurrenceState.Exception
For
Each
exc
Date
In
rec.Exceptions
'Delete each facility reservation corresponding to each exception
Next
Posted 11 Jan 2012 Link to this post