Private Sub ObjectDataSourceRenewal_Inserting(ByVal sender As Object, ByVal e As ObjectDataSourceMethodEventArgs) Handles ObjectDataSourceRenewal.Inserting Dim lEditFormInsertItem As GridEditFormInsertItem = ??? Dim lRadTextBoxGroupNumber As RadTextBox = lEditFormInsertItem.FindControl("RadTextBoxGroupNumber") Dim lRadDatePickerRenewalBegin As RadDatePicker = lEditFormInsertItem.FindControl("RadDatePickerRenewalBegin") Dim lRadDatePickerRenewalEnd As RadDatePicker = lEditFormInsertItem.FindControl("RadDatePickerRenewalEnd") Dim lRadComboBoxRenewalAccountManager As RadComboBox = lEditFormInsertItem.FindControl("RadComboBoxRenewalAccountManager") Dim lCheckBoxSuppressInGrid As CheckBox = lEditFormInsertItem.FindControl("CheckBoxSuppressInGrid") e.InputParameters("CaseNumber") = lRadTextBoxGroupNumber.Text.Trim e.InputParameters("RenewalBegin") = lRadDatePickerRenewalBegin.SelectedDate e.InputParameters("RenewalEnd") = lRadDatePickerRenewalEnd.SelectedDate e.InputParameters("RenewalAM") = lRadComboBoxRenewalAccountManager.SelectedValue e.InputParameters("SuppressAMInRenewal") = lCheckBoxSuppressInGrid.Checked End Sub
' ========================================================
' 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