2023-09-25

EnvelopeGenerator.Form/frmEnvelopeEditor.vb

@@ -34,12 +34,13 @@ Partial Public Class frmEnvelopeEditor
 
     Private Sub frmEditor_Load(sender As Object, e As EventArgs) Handles Me.Load
         Logger = State.LogConfig.GetLogger()
+        Me.Text = State.DbConfig.ExternalProgramName + " Umschlag-Editor"
 
         If Envelope Is Nothing Then
             Controller = New EnvelopeEditorController(State)
 
             ' Get additional data
-            Dim oDataForm As New frmEnvelopeMainData() With {.State = State}
+            Dim oDataForm As New frmEnvelopeMainData() With {.State = State, .NewEnvelopeMode = True}
             Dim oResult As DialogResult = oDataForm.ShowDialog()
             If oResult = DialogResult.OK Then
                 Controller.Envelope.Title = oDataForm.EnvelopeTitle
@@ -222,7 +223,8 @@ Partial Public Class frmEnvelopeEditor
             {
                 .State = State,
                 .EnvelopeTitle = Controller.Envelope.Title,
-                .EnvelopeContractType = Controller.Envelope.ContractType
+                .EnvelopeContractType = Controller.Envelope.ContractType,
+                .NewEnvelopeMode = False
             }
         If oForm.ShowDialog() = DialogResult.OK Then
             Controller.Envelope.Title = oForm.EnvelopeTitle