173 lines
8.3 KiB
VB.net
173 lines
8.3 KiB
VB.net
'
|
|
'{************************************************************************************}
|
|
'{ }
|
|
'{ DO NOT MODIFY THIS FILE! }
|
|
'{ }
|
|
'{ It will be overwritten without prompting when a new version becomes }
|
|
'{ available. All your changes will be lost. }
|
|
'{ }
|
|
'{ This file contains the default template and is required for the form }
|
|
'{ rendering. Improper modifications may result in incorrect behavior of }
|
|
'{ the appointment form. }
|
|
'{ }
|
|
'{ In order to create and use your own custom template, perform the following }
|
|
'{ steps: }
|
|
'{ 1. Save a copy of this file with a different name in another location. }
|
|
'{ 2. Specify the file location as the 'OptionsForms.AppointmentFormTemplateUrl'}
|
|
'{ property of the ASPxScheduler control. }
|
|
'{ 3. If you need custom fields to be displayed and processed, you should }
|
|
'{ accomplish steps 4-9; otherwise, go to step 10. }
|
|
'{ 4. Create a class, derived from the AppointmentFormTemplateContainer, }
|
|
'{ containing custom properties. This class definition can be located }
|
|
'{ within a class file in the App_Code folder. }
|
|
'{ 5. Replace AppointmentFormTemplateContainer references in the template }
|
|
'{ page with the name of the class you've created in step 4. }
|
|
'{ 6. Handle the AppointmentFormShowing event to create an instance of the }
|
|
'{ template container class, defined in step 4, and specify it as the }
|
|
'{ destination container instead of the default one. }
|
|
'{ 7. Define a class, which inherits from the }
|
|
'{ DevExpress.Web.ASPxScheduler.Internal.AppointmentFormController. }
|
|
'{ This class provides data exchange between the form and the appointment. }
|
|
'{ You should override ApplyCustomFieldsValues() method of the base class. }
|
|
'{ 8. Define a class, which inherits from the }
|
|
'{ DevExpress.Web.ASPxScheduler.Internal.AppointmentFormSaveCallbackCommand. }
|
|
'{ This class creates an instance of the AppointmentFormController inheritor }
|
|
'{ (defined in step 7) via the CreateAppointmentFormController method and }
|
|
'{ overrides the AssignControllerValues method of the base class to collect }
|
|
'{ user data from the form's editors. }
|
|
'{ 9. Handle the BeforeExecuteCallbackCommand event. The event handler code }
|
|
'{ should create an instance of the class defined in step 8, and specify it }
|
|
'{ as the destination command instead of the default one. }
|
|
'{ 10. Modify the overall appearance of the page and its layout. }
|
|
'{ }
|
|
'{************************************************************************************}
|
|
'
|
|
|
|
Imports Microsoft.VisualBasic
|
|
Imports System
|
|
Imports System.Web.UI
|
|
Imports DevExpress.XtraScheduler
|
|
Imports DevExpress.Web
|
|
Imports DevExpress.Web.ASPxScheduler
|
|
Imports DevExpress.Web.ASPxScheduler.Internal
|
|
Imports System.Collections
|
|
Imports System.Collections.Generic
|
|
Imports DevExpress.XtraScheduler.Localization
|
|
|
|
Partial Public Class AppointmentForm
|
|
Inherits SchedulerFormControl
|
|
Public Overrides ReadOnly Property ClassName() As String
|
|
Get
|
|
Return "ASPxAppointmentForm"
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property CanShowReminders() As Boolean
|
|
Get
|
|
Return (CType(Parent, AppointmentFormTemplateContainer)).Control.Storage.EnableReminders
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property ResourceSharing() As Boolean
|
|
Get
|
|
Return (CType(Parent, AppointmentFormTemplateContainer)).Control.Storage.ResourceSharing
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property ResourceDataSource() As IEnumerable
|
|
Get
|
|
Return (CType(Parent, AppointmentFormTemplateContainer)).ResourceDataSource
|
|
End Get
|
|
End Property
|
|
|
|
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
|
|
'PrepareChildControls();
|
|
tbSubject.Focus()
|
|
End Sub
|
|
Public Overrides Sub DataBind()
|
|
MyBase.DataBind()
|
|
|
|
Dim container As AppointmentFormTemplateContainer = CType(Parent, AppointmentFormTemplateContainer)
|
|
Dim apt As Appointment = container.Appointment
|
|
edtLabel.SelectedIndex = apt.LabelId
|
|
edtStatus.SelectedIndex = apt.StatusId
|
|
|
|
PopulateResourceEditors(apt, container)
|
|
|
|
AppointmentRecurrenceForm1.Visible = container.ShouldShowRecurrence
|
|
|
|
If container.Appointment.HasReminder Then
|
|
cbReminder.Value = container.Appointment.Reminder.TimeBeforeStart.ToString()
|
|
chkReminder.Checked = True
|
|
Else
|
|
cbReminder.ClientEnabled = False
|
|
End If
|
|
|
|
btnOk.ClientSideEvents.Click = container.SaveHandler
|
|
btnCancel.ClientSideEvents.Click = container.CancelHandler
|
|
btnDelete.ClientSideEvents.Click = container.DeleteHandler
|
|
|
|
'btnDelete.Enabled = !container.IsNewAppointment;
|
|
End Sub
|
|
Private Sub PopulateResourceEditors(ByVal apt As Appointment, ByVal container As AppointmentFormTemplateContainer)
|
|
If ResourceSharing Then
|
|
Dim edtMultiResource As ASPxListBox = TryCast(ddResource.FindControl("edtMultiResource"), ASPxListBox)
|
|
If edtMultiResource Is Nothing Then
|
|
Return
|
|
End If
|
|
SetListBoxSelectedValues(edtMultiResource, apt.ResourceIds)
|
|
Dim multiResourceString As List(Of String) = GetListBoxSeletedItemsText(edtMultiResource)
|
|
Dim stringResourceNone As String = SchedulerLocalizer.GetString(SchedulerStringId.Caption_ResourceNone)
|
|
ddResource.Value = stringResourceNone
|
|
If multiResourceString.Count > 0 Then
|
|
ddResource.Value = String.Join(", ", multiResourceString.ToArray())
|
|
End If
|
|
ddResource.JSProperties.Add("cp_Caption_ResourceNone", stringResourceNone)
|
|
Else
|
|
If (Not Object.Equals(apt.ResourceId, Resource.Empty.Id)) Then
|
|
edtResource.Value = apt.ResourceId.ToString()
|
|
Else
|
|
edtResource.Value = SchedulerIdHelper.EmptyResourceId
|
|
End If
|
|
End If
|
|
End Sub
|
|
Private Function GetListBoxSeletedItemsText(ByVal listBox As ASPxListBox) As List(Of String)
|
|
Dim result As New List(Of String)()
|
|
For Each editItem As ListEditItem In listBox.Items
|
|
If editItem.Selected Then
|
|
result.Add(editItem.Text)
|
|
End If
|
|
Next editItem
|
|
Return result
|
|
End Function
|
|
Private Sub SetListBoxSelectedValues(ByVal listBox As ASPxListBox, ByVal values As IEnumerable)
|
|
listBox.Value = Nothing
|
|
For Each value As Object In values
|
|
Dim item As ListEditItem = listBox.Items.FindByValue(value.ToString())
|
|
If item IsNot Nothing Then
|
|
item.Selected = True
|
|
End If
|
|
Next value
|
|
End Sub
|
|
Protected Overrides Sub PrepareChildControls()
|
|
Dim container As AppointmentFormTemplateContainer = CType(Parent, AppointmentFormTemplateContainer)
|
|
Dim control As ASPxScheduler = container.Control
|
|
|
|
AppointmentRecurrenceForm1.EditorsInfo = New EditorsInfo(control, control.Styles.FormEditors, control.Images.FormEditors, control.Styles.Buttons)
|
|
MyBase.PrepareChildControls()
|
|
End Sub
|
|
Protected Overrides Function GetChildEditors() As ASPxEditBase()
|
|
Dim edits() As ASPxEditBase = { lblSubject, tbSubject, lblLocation, tbLocation, lblLabel, edtLabel, lblStartDate, edtStartDate, lblEndDate, edtEndDate, lblStatus, edtStatus, lblAllDay, chkAllDay, lblResource, edtResource, tbDescription, cbReminder, ddResource, chkReminder, GetMultiResourceEditor() }
|
|
|
|
Return edits
|
|
End Function
|
|
Private Function GetMultiResourceEditor() As ASPxEditBase
|
|
If ddResource IsNot Nothing Then
|
|
Return TryCast(ddResource.FindControl("edtMultiResource"), ASPxEditBase)
|
|
End If
|
|
Return Nothing
|
|
End Function
|
|
Protected Overrides Function GetChildButtons() As ASPxButton()
|
|
Dim buttons() As ASPxButton = { btnOk, btnCancel, btnDelete }
|
|
Return buttons
|
|
End Function
|
|
End Class
|