' ========================================================
' RadScheduler1_AppointmentDelete
' Delete an appointment
' ========================================================
Protected Sub RadScheduler1_AppointmentDelete(ByVal sender As Object, ByVal e As SchedulerCancelEventArgs) Handles RadScheduler1.AppointmentDelete
Dim ProspectToolDAL As New ProspectToolDAL
ProspectToolDAL.Delete(e.Appointment.ID)
End Sub
' ========================================================
' RadScheduler1_AppointmentInsert
' Add a new appointment
' ========================================================
Private Sub RadScheduler1_AppointmentInsert(ByVal sender As Object, ByVal e As Telerik.Web.UI.SchedulerCancelEventArgs) Handles RadScheduler1.AppointmentInsert
Dim AppointmentBE as New AppointmentBE
Dim ProspectToolDAL As New ProspectToolDAL
AppointmentBE.Subject = e.Appointment.Subject
AppointmentBE.StartTime = e.Appointment.Start
AppointmentBE.EndTime = e.Appointment.End
AppointmentBE.SalesUserID = ViewState(
"SalesUser")
AppointmentBE.ContactInformation = e.Appointment.Attributes(
"Contact")
AppointmentBE.ApptComments = e.Appointment.Attributes(
"Description")
Dim appointmentKey as Int32 = ProspectToolDAL.SaveAppointment(AppointmentBE, "I")
End Sub
Thanks,
Susan