Bugfixing Logging

app/DD-Record-Organizer/frmDocSearchResult.vb

@@ -147,7 +147,7 @@ Public Class frmDocSearchResult
                 MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
                 Exit Sub
             End If
-            ClassHelper.File_open(SelectedFULL_FILEPATH, SelectedDocID)
+            ClassHelper.File_open(SelectedFULL_FILEPATH, SelectedDocID, 0)
             If CURRENT_OFFICE_FILE_CHANGED = True Then LoadDocSearch(True)
 
         Else
@@ -328,4 +328,23 @@ Public Class frmDocSearchResult
             LoadFile2Viewer()
         End If
     End Sub
+
+    Private Sub DateienVerknüpfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateienVerknüpfenToolStripMenuItem.Click
+        Try
+            ClassDocGrid.GetDocItems(GridViewDoc_Search)
+
+            Dim oDocuments = ClassDocGrid.SELECTED_DOCUMENTS
+
+            If oDocuments.Count = 0 Or ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
+                MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
+                Exit Sub
+            End If
+
+            Dim oForm As New frmDocRecordLink With {.myDocuments = oDocuments}
+            oForm.Show()
+
+        Catch ex As Exception
+            MsgBox("Unexpected Error in Showing DocRecordLink-Form: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
 End Class