06-12-23

EnvelopeGenerator.Form/frmMain.vb

@@ -191,8 +191,10 @@ Public Class frmMain
         Select Case XtraTabControl1.SelectedTabPageIndex
             Case 1
                 btnEditEnvelope.Enabled = False
+                btnDeleteEnvelope.Enabled = False
             Case 0
                 btnEditEnvelope.Enabled = True
+                btnDeleteEnvelope.Enabled = True
         End Select
     End Sub
 
@@ -249,17 +251,39 @@ Public Class frmMain
     End Sub
 
     Private Sub RefreshTimer_Tick(sender As Object, e As EventArgs) Handles RefreshTimer.Tick
-        LoadEnvelopeData()
+        If Application.OpenForms.OfType(Of frmEnvelopeEditor).Any = False Then
+            LoadEnvelopeData()
+        End If
     End Sub
 
     Private Sub btnContactReceiver_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnContactReceiver.ItemClick
         Dim oView As GridView = GridEnvelopes.FocusedView
         If oView.Name = ViewReceivers.Name Then
-            Console.Write("")
             Dim oReceiver As EnvelopeReceiver = oView.GetRow(oView.FocusedRowHandle)
             Process.Start($"mailto:{oReceiver.Email}")
         Else
             MsgBox("Bitte wählen Sie einen Empfänger aus dem Reiter Empfänger aus.", MsgBoxStyle.Information, Text)
         End If
     End Sub
+
+    Private Sub btnShowDocument_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnShowDocument.ItemClick
+        If ViewEnvelopes.FocusedRowHandle < 0 Then
+            Exit Sub
+        End If
+
+        Dim oEnvelope As Envelope = ViewEnvelopes.GetRow(ViewEnvelopes.FocusedRowHandle)
+        Dim oDocument = oEnvelope.Documents.FirstOrDefault()
+
+        If oDocument Is Nothing Then
+            MsgBox("Der Umschlag enthält keine Dokumente.", MsgBoxStyle.Exclamation, Text)
+            Exit Sub
+        End If
+
+        Try
+            Process.Start(oDocument.Filepath)
+        Catch ex As Exception
+            MsgBox("Dokument konnte nicht geöffnet werden!", MsgBoxStyle.Critical, Text)
+            Logger.Error(ex)
+        End Try
+    End Sub
 End Class