jj 22.06 recordview

app/DD-Record-Organiser/frmRecordView.vb

@@ -30,6 +30,7 @@ Public Class frmRecordView
         Public hIcon As IntPtr
         Public hProcess As IntPtr
     End Structure
+
     Private Sub frmRecordView_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         If USER_LANGUAGE <> "de-DE" Then
             Me.Text = "Detailview Record"
@@ -38,6 +39,10 @@ Public Class frmRecordView
         End If
         recordView = New ClassRecordView(pnlDetails)
         recordView.LoadRecord(JUMP_RECORD_ID)
+
+        'Titel updaten
+        Me.Text &= " " + recordView.RecordId.ToString()
+
         RUN_WDSEARCH_GRID()
         Load_Tasks()
     End Sub