This commit is contained in:
2023-01-23 16:21:42 +01:00
parent 01b066e4e3
commit 60c739833f
57 changed files with 77259 additions and 198787 deletions

View File

@@ -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