MS
This commit is contained in:
@@ -96,11 +96,11 @@ Partial Public Class frmCustomAppointment
|
||||
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)
|
||||
Dim constructDT As DataTable = ClassDatabase.Return_Datatable("SELECT T.CONSTRUCT_ID,T.NODE_NAVIGATION, T.FORM_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)
|
||||
OpenFormConstructor(constructDT.Rows(0).Item(0), constructDT.Rows(0).Item(1), constructDT.Rows(0).Item(2))
|
||||
Me.Close()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user