112 lines
4.6 KiB
VB.net
112 lines
4.6 KiB
VB.net
Imports EnvelopeGenerator.Common
|
|
Imports EnvelopeGenerator.Common.My
|
|
Imports EnvelopeGenerator.Common.Constants
|
|
Imports System.ComponentModel
|
|
|
|
Public Class frmEnvelopeMainData
|
|
|
|
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()
|
|
InitializeComponent()
|
|
End Sub
|
|
|
|
Private Sub frmEnvelopeMainData_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
If NewEnvelopeMode = True Then
|
|
Me.Text = Resources.Envelope.New_Envelope
|
|
Else
|
|
Me.Text = Resources.Envelope.Edit_Envelope
|
|
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
|
|
|
|
txtTitle.EditValue = Envelope.Title
|
|
cmbEnvelopeType.EditValue = oTypes.FirstOrDefault()
|
|
End Sub
|
|
|
|
Private Function TranslateContractType(pType As ContractType) As String
|
|
Return Resources.Model.ResourceManager.GetString(pType.ToString())
|
|
End Function
|
|
|
|
Private Sub btOK_Click(sender As Object, e As EventArgs) Handles btOK.Click
|
|
|
|
Dim Validator As Validator = New Validator(State.LogConfig, AdornerUIManager1)
|
|
Dim oMissingParams = Validator.Validate(txtTitle)
|
|
|
|
If oMissingParams = True Then
|
|
Me.DialogResult = DialogResult.None
|
|
txtTitle.Focus()
|
|
Return
|
|
End If
|
|
|
|
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
|
|
SetFormHeight()
|
|
End Sub
|
|
|
|
Private Sub SetFormHeight()
|
|
ClientSize = New Size(ClientSize.Width, LayoutControl1.Root.MinSize.Height)
|
|
End Sub
|
|
|
|
Private Sub LayoutControl1_GroupExpandChanged(sender As Object, e As DevExpress.XtraLayout.Utils.LayoutGroupEventArgs) Handles LayoutControl1.GroupExpandChanged
|
|
If e.Group.Name = groupAllOptions.Name Then
|
|
SetFormHeight()
|
|
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 |