AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

JJ_17_11_Layout_fixed_JumpToRecord

Browse Source
This commit is contained in:
JenneJ
2015-11-17 11:54:54 +01:00
parent 0a5ce24511
commit 2ccba19ad9
3 changed files with 60 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
app/DD-Record-Organiser/frmCustomAppointment.vb
View File

@@ -46,9 +46,11 @@ Partial Public Class frmCustomAppointment
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
@@ -94,8 +96,11 @@ Partial Public Class frmCustomAppointment
Dim RecordId = Integer.Parse(txtRecordID.Text)
JUMP_RECORD_ID = RecordId
' TODO: Jetzt Constructor aufrufen
OpenFormConstructorDemo(CURRENT_CONSTRUCTOR_ID)
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
OpenFormConstructorDemo(constructId)
Me.Close()
End If
End Sub