108 lines
4.7 KiB
VB.net
108 lines
4.7 KiB
VB.net
#Region "Note"
|
|
'
|
|
'{**************************************************************************************************************}
|
|
'{ This file is automatically created when you open the Scheduler Control smart tag }
|
|
'{ *and click Create Customizable Appointment Dialog. }
|
|
'{ It contains a a descendant of the default appointment editing form created by visual inheritance. }
|
|
'{ In Visual Studio Designer add an editor that is required to edit your appointment custom field. }
|
|
'{ Modify the LoadFormData method to get data from a custom field and fill your editor with data. }
|
|
'{ Modify the SaveFormData method to retrieve data from the editor and set the appointment custom field value. }
|
|
'{ The code that displays this form is automatically inserted }
|
|
'{ *in the EditAppointmentFormShowing event handler of the SchedulerControl. }
|
|
'{ }
|
|
'{**************************************************************************************************************}
|
|
'
|
|
#End Region ' Note
|
|
|
|
Imports System
|
|
Imports System.Collections.Generic
|
|
Imports System.ComponentModel
|
|
Imports System.Data
|
|
Imports System.Drawing
|
|
Imports System.Text
|
|
Imports System.Windows.Forms
|
|
Imports DevExpress.XtraScheduler
|
|
|
|
Partial Public Class frmCustomAppointment
|
|
Inherits DevExpress.XtraScheduler.UI.AppointmentForm
|
|
|
|
Private _recordid As Integer
|
|
Private _controlid As Integer
|
|
|
|
Public Sub New()
|
|
InitializeComponent()
|
|
End Sub
|
|
Public Sub New(ByVal control As DevExpress.XtraScheduler.SchedulerControl, ByVal apt As DevExpress.XtraScheduler.Appointment)
|
|
MyBase.New(control, apt)
|
|
InitializeComponent()
|
|
End Sub
|
|
Public Sub New(ByVal control As DevExpress.XtraScheduler.SchedulerControl, ByVal apt As DevExpress.XtraScheduler.Appointment, ByVal openRecurrenceForm As Boolean)
|
|
MyBase.New(control, apt, openRecurrenceForm)
|
|
InitializeComponent()
|
|
End Sub
|
|
''' <summary>
|
|
''' Add your code to obtain a custom field value and fill the editor with data.
|
|
''' </summary>
|
|
Public Overrides Sub LoadFormData(ByVal appointment As DevExpress.XtraScheduler.Appointment)
|
|
If appointment.CustomFields("RecordID") Is Nothing Then
|
|
txtRecordID.Text = ""
|
|
btnJumpToRecord.Enabled = False
|
|
Else
|
|
_recordid = appointment.CustomFields("RecordID").ToString()
|
|
txtRecordID.Text = _recordid
|
|
btnJumpToRecord.Enabled = True
|
|
End If
|
|
|
|
If appointment.CustomFields("ControlID") Is Nothing Then
|
|
txtControlID.Text = ""
|
|
Else
|
|
_controlid = appointment.CustomFields("ControlID").ToString()
|
|
txtControlID.Text = _controlid
|
|
End If
|
|
|
|
MyBase.LoadFormData(appointment)
|
|
End Sub
|
|
''' <summary>
|
|
''' Add your code to retrieve a value from the editor and set the custom appointment field.
|
|
''' </summary>
|
|
Public Overrides Function SaveFormData(ByVal appointment As DevExpress.XtraScheduler.Appointment) As Boolean
|
|
If txtRecordID.Text.Length = 0 Then
|
|
appointment.CustomFields("RecordID") = 0
|
|
Else
|
|
appointment.CustomFields("RecordID") = Integer.Parse(txtRecordID.Text)
|
|
End If
|
|
|
|
If txtControlID.Text.Length = 0 Then
|
|
appointment.CustomFields("ControlID") = 0
|
|
Else
|
|
appointment.CustomFields("ControlID") = Integer.Parse(txtControlID.Text)
|
|
End If
|
|
|
|
Return MyBase.SaveFormData(appointment)
|
|
End Function
|
|
''' <summary>
|
|
''' Add your code to notify that any custom field is changed. Return true if a custom field is changed, otherwise false.
|
|
''' </summary>
|
|
Public Overrides Function IsAppointmentChanged(ByVal appointment As DevExpress.XtraScheduler.Appointment) As Boolean
|
|
Return True
|
|
End Function
|
|
|
|
Private Sub frmCustomAppointment_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Private Sub btnJumpToRecord_Click(sender As Object, e As EventArgs) Handles btnJumpToRecord.Click
|
|
If txtRecordID.Text.Length > 0 Then
|
|
Dim RecordId = Integer.Parse(txtRecordID.Text)
|
|
JUMP_RECORD_ID = RecordId
|
|
|
|
Dim constructId As Integer = ClassDatabase.Execute_Scalar("SELECT T.CONSTRUCT_ID FROM VWPMO_CONSTRUCTOR_FORMS T, TBPMO_RECORD T1 WHERE T.FORM_ID = T1.FORM_ID AND T1.GUID = " & JUMP_RECORD_ID)
|
|
|
|
' TODO: FormId und ConstructId herausfinden
|
|
|
|
OpenFormConstructor(constructId)
|
|
Me.Close()
|
|
End If
|
|
End Sub
|
|
End Class
|