08.01.2024

EnvelopeGenerator.Form/frmEnvelopeMainData.vb

@@ -1,13 +1,18 @@
 Imports EnvelopeGenerator.Common
 Imports EnvelopeGenerator.Common.My
 Imports EnvelopeGenerator.Common.Constants
+Imports System.ComponentModel
 
 Public Class frmEnvelopeMainData
 
-    Public Property EnvelopeTitle As String
-    Public Property EnvelopeContractType As ContractType = ContractType.Contract
+    Public Property Envelope As Envelope = New Envelope()
     Public Property NewEnvelopeMode As Boolean = True
 
+    Private Property EnvelopeTypeModel As EnvelopeTypeModel
+
+    <Bindable(True)>
+    Private Property EnvelopeType As New EnvelopeType
+
     Public Property State As State
 
     Public Sub New()
@@ -19,18 +24,22 @@ Public Class frmEnvelopeMainData
             Me.Text = Resources.Envelope.New_Envelope
         Else
             Me.Text = Resources.Envelope.Edit_Envelope
-            cmbContractType.ReadOnly = True
+            cmbEnvelopeType.ReadOnly = True
         End If
 
+        EnvelopeTypeModel = New EnvelopeTypeModel(State)
+        Dim oTypes = EnvelopeTypeModel.List()
+
+        cmbEnvelopeType.Properties.Items.AddRange(oTypes.ToList)
+        cmbCertificationType.Properties.Items.AddRange([Enum].GetValues(GetType(CertificationType)).Cast(Of CertificationType).ToList())
+        cmbEmailToCreator.Properties.Items.AddRange([Enum].GetValues(GetType(FinalEmailType)).Cast(Of FinalEmailType).ToList())
+        cmbEmailToReceivers.Properties.Items.AddRange([Enum].GetValues(GetType(FinalEmailType)).Cast(Of FinalEmailType).ToList())
+        cmbLanguage.Properties.Items.AddRange(New List(Of String) From {"de", "en"})
+
         groupAllOptions.Expanded = False
 
-        Dim contractTypeList = [Enum].GetValues(GetType(ContractType)).Cast(Of ContractType)()
-        Dim oTranslatedList = contractTypeList.Select(AddressOf TranslateContractType).ToList()
-
-        cmbContractType.Properties.Items.AddRange(oTranslatedList)
-
-        txtTitle.EditValue = EnvelopeTitle
-        cmbContractType.EditValue = TranslateContractType(EnvelopeContractType)
+        txtTitle.EditValue = Envelope.Title
+        cmbEnvelopeType.EditValue = oTypes.FirstOrDefault()
     End Sub
 
     Private Function TranslateContractType(pType As ContractType) As String
@@ -48,8 +57,21 @@ Public Class frmEnvelopeMainData
             Return
         End If
 
-        EnvelopeTitle = txtTitle.EditValue
-        EnvelopeContractType = cmbContractType.SelectedIndex + 1
+        Envelope.Title = txtTitle.EditValue.ToString
+        Envelope.EnvelopeType = DirectCast(cmbEnvelopeType.EditValue, EnvelopeType).Id
+        Envelope.CertificationType = cmbCertificationType.EditValue
+        Envelope.Language = cmbLanguage.EditValue
+        Envelope.UseAccessCode = chkUseAccessCode.EditValue
+        Envelope.SendReminderEmails = chkSendReminderEmails.EditValue
+        Envelope.FirstReminderDays = spnFirstReminderDays.EditValue
+        Envelope.ReminderIntervalDays = spnReminderIntervalDays.EditValue
+        Envelope.ExpiresWhenDays = spnExpiresDays.EditValue
+        Envelope.ExpiresWarningWhenDays = spnExpiresWarningDays.EditValue
+        Envelope.FinalEmailToCreator = cmbEmailToCreator.EditValue
+        Envelope.FinalEmailToReceivers = cmbEmailToReceivers.EditValue
+
+        ' ContractType kann zzt nicht über die Oberfläche gesetzt werden
+        Envelope.ContractType = ContractType.Contract
     End Sub
 
     Private Sub frmEnvelopeMainData_Shown(sender As Object, e As EventArgs) Handles Me.Shown
@@ -66,4 +88,25 @@ Public Class frmEnvelopeMainData
         End If
 
     End Sub
+
+    Private Sub cmbContractType_SelectedValueChanged(sender As Object, e As EventArgs) Handles cmbEnvelopeType.SelectedValueChanged
+        Dim oSelectedType As EnvelopeType = cmbEnvelopeType.SelectedItem
+
+        If oSelectedType Is Nothing Then
+            Exit Sub
+        End If
+
+        EnvelopeType = oSelectedType
+
+        cmbCertificationType.EditValue = oSelectedType.CertificationType
+        cmbLanguage.EditValue = oSelectedType.Language
+        chkUseAccessCode.EditValue = oSelectedType.UseAccessCode
+        chkSendReminderEmails.EditValue = oSelectedType.SendReminderEmails
+        spnFirstReminderDays.EditValue = oSelectedType.FirstReminderDays
+        spnReminderIntervalDays.EditValue = oSelectedType.ReminderIntervalDays
+        spnExpiresDays.EditValue = oSelectedType.ExpiresWhenDays
+        spnExpiresWarningDays.EditValue = oSelectedType.ExpiresWarningWhenDays
+        cmbEmailToCreator.EditValue = oSelectedType.FinalEmailToCreator
+        cmbEmailToReceivers.EditValue = oSelectedType.FinalEmailToReceivers
+    End Sub
 End Class