AVISO Ansicht, Sendung-Frachtksoten

Aviso/usrcntlAktDetailsATILLANeu.vb

@@ -517,7 +517,20 @@ Public Class usrcntlAktDetailsATILLANeu
         Try
 
             If dgvanhaenge.SelectedRows.Count > 0 Then
-                    Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvanhaenge.SelectedRows(0).Cells("anh_docId").Value))
+                Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvanhaenge.SelectedRows(0).Cells("anh_docId").Value)
+                If Not IO.File.Exists(docPath) Then
+                    MsgBox("Die Datei existiert nicht!")
+                Else
+                    If docPath.ToString.ToLower.EndsWith(".msg") Then ' MSG - Mails --> lokale Kopie, sonst Fehler  (bereits von Benutzer soUndSo geöffnet)
+                        Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
+                        File.Copy(docPath, docPathTMP)
+                        Process.Start(docPathTMP)
+                    Else
+                        Process.Start(docPath)
+                    End If
+
+                End If
+
                 End If
 
         Catch ex As Exception
@@ -1537,6 +1550,7 @@ Public Class usrcntlAktDetailsATILLANeu
 
         f.btnCMRtoAkt.Visible = True
         f.txtCMRName.Visible = True
+        f.txtCMRName.Visible = True
 
         If f.ShowDialog(Me) Then