Benachrichtigung

Aviso/usrcntlAktDetails.vb

@@ -1844,7 +1844,15 @@ Public Class usrcntlAktDetails
         Try
             If tbcntlVermerke.SelectedTab Is tbAnhang Then
                 If gridVermerke.SelectedRows.Count > 0 Then
-                    Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(gridVermerke.SelectedRows(0).Cells("anh_docId").Value))
+                    Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(gridVermerke.SelectedRows(0).Cells("anh_docId").Value)
+                    If path <> "" Then
+                        If File.Exists(path) Then
+                            Process.Start(path)
+                        Else
+                            MsgBox("ERROR ANHANG: Die Datei existiert nicht!")
+                        End If
+                    End If
+
                 End If
             End If
         Catch ex As Exception