11.01.24

EnvelopeGenerator.Form/frmEnvelopeMainData.vb

@@ -30,6 +30,12 @@ Public Class frmEnvelopeMainData
         EnvelopeTypeModel = New EnvelopeTypeModel(State)
         Dim oTypes = EnvelopeTypeModel.List()
 
+        If oTypes.Count = 0 Then
+            MsgBox("No templates in Database!", MsgBoxStyle.Exclamation, Text)
+            Close()
+            Exit Sub
+        End If
+
         Dim certificationTypeList = [Enum].GetValues(GetType(CertificationType)).Cast(Of CertificationType)()
         Dim oTranslatedCertificationTypeList = certificationTypeList.Select(AddressOf TranslateCertificationType).ToList()
 
@@ -46,11 +52,23 @@ Public Class frmEnvelopeMainData
 
         groupAllOptions.Expanded = False
 
-        txtTitle.EditValue = Envelope.Title
-        cmbEnvelopeType.EditValue = oTypes.FirstOrDefault()
-        cmbCertificationType.SelectedIndex = oTypes.FirstOrDefault.CertificationType
-        cmbEmailToCreator.SelectedIndex = oTypes.FirstOrDefault.FinalEmailToCreator
-        cmbEmailToReceivers.SelectedIndex = oTypes.FirstOrDefault.FinalEmailToReceivers
+        If NewEnvelopeMode = True Then
+            Dim oType = oTypes.FirstOrDefault()
+
+            ' This will trigger loading values from the type
+            cmbEnvelopeType.EditValue = oType
+        Else
+            ' This will trigger loading values from the type
+            cmbEnvelopeType.SelectedIndex = Convert.ToInt32(Envelope.EnvelopeType) - 1
+
+            ' Now we can override these values with the values from envelope
+            txtTitle.EditValue = Envelope.Title
+            chkUseAccessCode.EditValue = Envelope.UseAccessCode
+            cmbCertificationType.SelectedIndex = Convert.ToInt32(Envelope.CertificationType) - 1
+            cmbEmailToCreator.SelectedIndex = Convert.ToInt32(Envelope.FinalEmailToCreator)
+            cmbEmailToReceivers.SelectedIndex = Convert.ToInt32(Envelope.FinalEmailToReceivers)
+        End If
+
     End Sub
 
     Private Function TranslateCertificationType(pType As CertificationType) As String
@@ -74,7 +92,7 @@ Public Class frmEnvelopeMainData
 
         Envelope.Title = txtTitle.EditValue.ToString
         Envelope.EnvelopeType = DirectCast(cmbEnvelopeType.EditValue, EnvelopeType).Id
-        Envelope.CertificationType = cmbCertificationType.EditValue
+        Envelope.CertificationType = cmbCertificationType.SelectedIndex + 1
         Envelope.Language = cmbLanguage.EditValue
         Envelope.UseAccessCode = chkUseAccessCode.EditValue
         Envelope.SendReminderEmails = chkSendReminderEmails.EditValue
@@ -82,8 +100,8 @@ Public Class frmEnvelopeMainData
         Envelope.ReminderIntervalDays = spnReminderIntervalDays.EditValue
         Envelope.ExpiresWhenDays = spnExpiresDays.EditValue
         Envelope.ExpiresWarningWhenDays = spnExpiresWarningDays.EditValue
-        Envelope.FinalEmailToCreator = cmbEmailToCreator.EditValue
-        Envelope.FinalEmailToReceivers = cmbEmailToReceivers.EditValue
+        Envelope.FinalEmailToCreator = cmbEmailToCreator.SelectedIndex
+        Envelope.FinalEmailToReceivers = cmbEmailToReceivers.SelectedIndex
 
         ' ContractType kann zzt nicht über die Oberfläche gesetzt werden
         Envelope.ContractType = ContractType.Contract
@@ -121,7 +139,7 @@ Public Class frmEnvelopeMainData
         spnExpiresDays.EditValue = oSelectedType.ExpiresWhenDays
         spnExpiresWarningDays.EditValue = oSelectedType.ExpiresWarningWhenDays
 
-        cmbCertificationType.SelectedIndex = oSelectedType.CertificationType
+        cmbCertificationType.SelectedIndex = oSelectedType.CertificationType - 1
         cmbEmailToCreator.SelectedIndex = oSelectedType.FinalEmailToCreator
         cmbEmailToReceivers.SelectedIndex = oSelectedType.FinalEmailToReceivers