'
'{************************************************************************************}
'{                                                                                    }
'{   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