MS Rebuild und diverses Customizing

EnvelopeGenerator.Form/frmMain.vb

@@ -11,6 +11,7 @@ Imports DigitalData.Modules.Logging
 Imports EnvelopeGenerator.Common
 Imports EnvelopeGenerator.Common.My
 Imports System.Diagnostics
+Imports System.ComponentModel
 
 Public Class frmMain
     Private ReadOnly LogConfig As LogConfig
@@ -45,7 +46,7 @@ Public Class frmMain
         Controller = New EnvelopeListController(State)
         Try
             Me.LookAndFeel.UseDefaultLookAndFeel = False
-            LookAndFeel.SetSkinStyle(SkinStyle.Office2019Colorful, SkinSvgPalette.DefaultSkin)
+            LookAndFeel.SetSkinStyle(SkinStyle.Office2019White, SkinSvgPalette.DefaultSkin)
         Catch ex As Exception
 
         End Try
@@ -204,6 +205,7 @@ Public Class frmMain
                 btnShowDocument.Enabled = True
                 bbtnitmEB.Enabled = False
                 LoadEnvelopeData()
+                txtEnvelopeIdLabel.Caption = "No Envelope selected"
         End Select
     End Sub
 
@@ -548,6 +550,40 @@ Public Class frmMain
     End Sub
 
     Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        Dim oView As GridView = GridEnvelopes.FocusedView
+        Dim selReceiver As EnvelopeReceiver
+        If oView.Name = ViewReceivers.Name Then
+            selReceiver = oView.GetRow(oView.FocusedRowHandle)
+        Else
+            MsgBox(Resources.Envelope.Please_select_a_recipient_from_the_Recipients_tab, MsgBoxStyle.Information, Text)
+        End If
+        If ViewEnvelopes.FocusedRowHandle < 0 Or IsNothing(selReceiver) Then
+            Exit Sub
+        End If
+        Dim oEnvelope As Envelope = ViewEnvelopes.GetRow(ViewEnvelopes.FocusedRowHandle)
+
+        Dim oController = New EnvelopeEditorController(State, oEnvelope)
+        Dim Documents As New BindingList(Of EnvelopeDocument)
+        Dim Receivers As New BindingList(Of EnvelopeReceiver)
+        Receivers = New BindingList(Of EnvelopeReceiver)(oController.Envelope.Receivers)
+        For Each oReceiver As EnvelopeReceiver In Receivers
+            If oReceiver.Email = selReceiver.Email Then
+                If oController.ActionService.ResendReceiver(oEnvelope, oReceiver) = True Then
+                    MsgBox(Resources.Envelope.Invitation_successfully_resend, MsgBoxStyle.Information, Text)
+                End If
+            End If
+        Next
+
+
+    End Sub
+
+    Private Sub ViewEnvelopes_Click(sender As Object, e As EventArgs) Handles ViewEnvelopes.Click
+        If ViewEnvelopes.FocusedRowHandle < 0 Then
+            Exit Sub
+        End If
+        Dim oEnvelope As Envelope = ViewEnvelopes.GetRow(ViewEnvelopes.FocusedRowHandle)
+
+        txtEnvelopeIdLabel.Caption = String.Format(txtEnvelopeIdLabel.Tag, oEnvelope.Id)
 
     End Sub
 End Class