Verbesserungen

This commit is contained in:
Developer01
2025-12-05 14:02:41 +01:00
parent 5c0120cca8
commit a34f55702b
23 changed files with 529 additions and 188 deletions

View File

@@ -94,9 +94,9 @@ Partial Public Class frmCustomAppointment
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
JUMP_ID = RecordId
Dim constructDT As DataTable = MYDB_ECM.GetDatatable("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)
Dim constructDT As DataTable = MYDB_ECM.GetDatatable("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_ID)
' TODO: FormId und ConstructId herausfinden