19.07.2023

EnvelopeGenerator.Form/frmEnvelopeEditor.vb

@@ -3,6 +3,7 @@ Imports System.IO
 Imports DigitalData.Modules.Logging
 
 Partial Public Class frmEnvelopeEditor
+    Public Property Envelope As Envelope
     Public Property Documents As New BindingList(Of EnvelopeDocument)
     Public Property Receivers As New BindingList(Of EnvelopeReceiver)
 
@@ -24,7 +25,16 @@ Partial Public Class frmEnvelopeEditor
 
     Private Sub frmEditor_Load(sender As Object, e As EventArgs) Handles Me.Load
         Logger = State.LogConfig.GetLogger()
-        Controller = New EnvelopeEditorController(State)
+
+        If Envelope Is Nothing Then
+            Controller = New EnvelopeEditorController(State)
+        Else
+            Controller = New EnvelopeEditorController(State, Envelope)
+            Documents = New BindingList(Of EnvelopeDocument)(Controller.Envelope.Documents)
+            Receivers = New BindingList(Of EnvelopeReceiver)(Controller.Envelope.Receivers)
+            txtMessage.EditValue = Controller.Envelope.Message
+            txtSubject.EditValue = Controller.Envelope.Subject
+        End If
 
         GridDocuments.DataSource = Documents
         GridReceivers.DataSource = Receivers
@@ -51,11 +61,12 @@ Partial Public Class frmEnvelopeEditor
         End Try
     End Sub
 
-    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+    Private Sub btnEditFields_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnEditFields.ItemClick
         If ViewDocuments.GetSelectedRows().Count > 0 Then
             Dim oDocument As EnvelopeDocument = DirectCast(ViewDocuments.GetFocusedRow(), EnvelopeDocument)
             Dim oGDPictureKey As String = "21182889975216572111813147150675976632"
 
+
             If SaveEnvelope() Then
                 Dim oForm As New frmFieldEditor() With {
                     .Document = Controller.Envelope.Documents.
@@ -74,6 +85,9 @@ Partial Public Class frmEnvelopeEditor
         Dim oSubject = txtSubject.EditValue?.ToString
         Dim oMessage = txtMessage.EditValue?.ToString
 
+        ' Ensure all receivers are saved
+        ViewReceivers.CloseEditor()
+
         Dim oEnvelope = Controller.Envelope
         oEnvelope.Subject = oSubject
         oEnvelope.Message = oMessage
@@ -93,5 +107,7 @@ Partial Public Class frmEnvelopeEditor
         End If
     End Function
 
+    Private Sub RibbonControl1_Click(sender As Object, e As EventArgs) Handles RibbonControl1.Click
 
+    End Sub
 End Class