show envelope id

EnvelopeGenerator.Form/frmMain.vb

@@ -98,13 +98,17 @@ Public Class frmMain
     End Sub
 
     Private Sub LoadEnvelopeData()
-        RefreshHelper.SaveViewInfo()
-        LoadEnvelopes()
-        LoadCompletedEnvelopes()
-        RefreshHelper.LoadViewInfo()
+        Try
+            RefreshHelper.SaveViewInfo()
+            LoadEnvelopes()
+            LoadCompletedEnvelopes()
+            RefreshHelper.LoadViewInfo()
 
-        'LoadCharts()
-        txtRefreshLabel.Caption = String.Format(txtRefreshLabel.Tag, Now)
+            'LoadCharts()
+            txtRefreshLabel.Caption = String.Format(txtRefreshLabel.Tag, Now)
+        Catch ex As Exception
+            Logger.Error(ex)
+        End Try
     End Sub
 
     Private Sub LoadEnvelopes()
@@ -232,6 +236,8 @@ Public Class frmMain
 
         Dim oEnvelope As Envelope = ViewEnvelopes.GetRow(ViewEnvelopes.FocusedRowHandle)
 
+        txtEnvelopeIdLabel.Caption = String.Format(txtEnvelopeIdLabel.Tag, oEnvelope.Id)
+
         If oEnvelope.IsAlreadySent Then
             btnEditEnvelope.Enabled = False
         Else
@@ -308,9 +314,14 @@ Public Class frmMain
     End Sub
 
     Private Sub RefreshTimer_Tick(sender As Object, e As EventArgs) Handles RefreshTimer.Tick
-        If Application.OpenForms.OfType(Of frmEnvelopeEditor).Any = False Then
-            LoadEnvelopeData()
-        End If
+        Try
+
+            If Application.OpenForms.OfType(Of frmEnvelopeEditor).Any = False Then
+                LoadEnvelopeData()
+            End If
+        Catch ex As Exception
+            Logger.Error(ex)
+        End Try
     End Sub
 
     Private Sub btnContactReceiver_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnContactReceiver.ItemClick
@@ -344,4 +355,13 @@ Public Class frmMain
         End Try
     End Sub
 
+    Private Sub ViewCompleted_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles ViewCompleted.FocusedRowChanged
+        If ViewCompleted.FocusedRowHandle < 0 Then
+            Exit Sub
+        End If
+
+        Dim oEnvelope As Envelope = ViewCompleted.GetRow(ViewCompleted.FocusedRowHandle)
+
+        txtEnvelopeIdLabel.Caption = String.Format(txtEnvelopeIdLabel.Tag, oEnvelope.Id)
+    End Sub
 End Class