2023-09-25

EnvelopeGenerator.Form/frmEnvelopeMainData.vb

@@ -5,6 +5,7 @@ Public Class frmEnvelopeMainData
 
     Public Property EnvelopeTitle As String
     Public Property EnvelopeContractType As ContractType = ContractType.Contract
+    Public Property NewEnvelopeMode As Boolean = True
 
     Public Property State As State
 
@@ -13,6 +14,13 @@ Public Class frmEnvelopeMainData
     End Sub
 
     Private Sub frmEnvelopeMainData_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If NewEnvelopeMode = True Then
+            Me.Text = "Neuer Umschlag..."
+        Else
+            Me.Text = "Umschlag bearbeiten..."
+            cmbContractType.ReadOnly = True
+        End If
+
         Dim contractTypeList = [Enum].GetValues(GetType(ContractType)) _
                                  .Cast(Of ContractType)().ToList()
         cmbContractType.Properties.Items.AddRange(contractTypeList)