AppStd/EnvelopeGenerator
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge branch 'master' of http://git.dd:3000/AppStd/EnvelopeGenerator

Browse Source
This commit is contained in:
Jonathan Jenne 2024-01-10 13:06:57 +01:00
commit 32a965800e
7 changed files with 729 additions and 581 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
EnvelopeGenerator.Common/Constants.vb
View File

@ -79,10 +79,8 @@
Landscape = 1
End Enum
#End Region
#Region "Constants"
Public Const DATABASE = "DATABASE"

45
EnvelopeGenerator.Common/Strings/Model.Designer.vb generated
View File

@ -127,6 +127,15 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Elektronische Signatur ähnelt.
'''</summary>
Public Shared ReadOnly Property ElectronicSignature() As String
Get
Return ResourceManager.GetString("ElectronicSignature", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Archiviert ähnelt.
'''</summary>
@ -235,6 +244,15 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Nein ähnelt.
'''</summary>
Public Shared ReadOnly Property No() As String
Get
Return ResourceManager.GetString("No", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Teil-Signiert ähnelt.
'''</summary>
@ -244,6 +262,15 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Qualifizierte Signatur ähnelt.
'''</summary>
Public Shared ReadOnly Property QualifiedSignature() As String
Get
Return ResourceManager.GetString("QualifiedSignature", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Arbeitsanweisung ähnelt.
'''</summary>
@ -306,5 +333,23 @@ Namespace My.Resources
Return ResourceManager.GetString("Unsigned", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Ja ähnelt.
'''</summary>
Public Shared ReadOnly Property Yes() As String
Get
Return ResourceManager.GetString("Yes", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Ja, mit Anhang ähnelt.
'''</summary>
Public Shared ReadOnly Property YesWithAttachment() As String
Get
Return ResourceManager.GetString("YesWithAttachment", resourceCulture)
End Get
End Property
End Class
End Namespace

15
EnvelopeGenerator.Common/Strings/Model.en.resx
View File

@ -135,6 +135,9 @@
<data name="Draft" xml:space="preserve">
<value>Draft</value>
</data>
<data name="ElectronicSignature" xml:space="preserve">
<value>Electronic Signature</value>
</data>
<data name="EnvelopeArchived" xml:space="preserve">
<value>Archived</value>
</data>
@ -171,6 +174,12 @@
<data name="MessageInvitationSent" xml:space="preserve">
<value>Invitation Sent</value>
</data>
<data name="No" xml:space="preserve">
<value>No</value>
</data>
<data name="QualifiedSignature" xml:space="preserve">
<value>Qualified Signature</value>
</data>
<data name="ReadAndSign" xml:space="preserve">
<value>Read and Sign</value>
</data>
@ -192,4 +201,10 @@
<data name="Unsigned" xml:space="preserve">
<value>Unsigned</value>
</data>
<data name="Yes" xml:space="preserve">
<value>Yes</value>
</data>
<data name="YesWithAttachment" xml:space="preserve">
<value>Yes, with Attachment</value>
</data>
</root>

15
EnvelopeGenerator.Common/Strings/Model.resx
View File

@ -138,6 +138,9 @@
<data name="Draft" xml:space="preserve">
<value>Entwurf</value>
</data>
<data name="ElectronicSignature" xml:space="preserve">
<value>Elektronische Signatur</value>
</data>
<data name="EnvelopeArchived" xml:space="preserve">
<value>Archiviert</value>
</data>
@ -174,9 +177,15 @@
<data name="MessageInvitationSent" xml:space="preserve">
<value>Einladung versendet</value>
</data>
<data name="No" xml:space="preserve">
<value>Nein</value>
</data>
<data name="PartlySigned" xml:space="preserve">
<value>Teil-Signiert</value>
</data>
<data name="QualifiedSignature" xml:space="preserve">
<value>Qualifizierte Signatur</value>
</data>
<data name="ReadAndSign" xml:space="preserve">
<value>Arbeitsanweisung</value>
</data>
@ -198,4 +207,10 @@
<data name="Unsigned" xml:space="preserve">
<value>Unsigniert</value>
</data>
<data name="Yes" xml:space="preserve">
<value>Ja</value>
</data>
<data name="YesWithAttachment" xml:space="preserve">
<value>Ja, mit Anhang</value>
</data>
</root>

79
EnvelopeGenerator.Form/frmEnvelopeMainData.Designer.vb generated
View File

@ -105,6 +105,7 @@ Partial Class frmEnvelopeMainData
'
'LayoutControl1
'
resources.ApplyResources(Me.LayoutControl1, "LayoutControl1")
Me.LayoutControl1.Controls.Add(Me.txtTitle)
Me.LayoutControl1.Controls.Add(Me.cmbEnvelopeType)
Me.LayoutControl1.Controls.Add(Me.btOK)
@ -119,7 +120,6 @@ Partial Class frmEnvelopeMainData
Me.LayoutControl1.Controls.Add(Me.chkUseAccessCode)
Me.LayoutControl1.Controls.Add(Me.cmbEmailToCreator)
Me.LayoutControl1.Controls.Add(Me.cmbEmailToReceivers)
resources.ApplyResources(Me.LayoutControl1, "LayoutControl1")
Me.LayoutControl1.Name = "LayoutControl1"
Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(855, 189, 650, 400)
Me.LayoutControl1.Root = Me.Root
@ -140,15 +140,15 @@ Partial Class frmEnvelopeMainData
'
'btOK
'
Me.btOK.DialogResult = System.Windows.Forms.DialogResult.OK
resources.ApplyResources(Me.btOK, "btOK")
Me.btOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btOK.Name = "btOK"
Me.btOK.StyleController = Me.LayoutControl1
'
'btCancel
'
Me.btCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
resources.ApplyResources(Me.btCancel, "btCancel")
Me.btCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btCancel.Name = "btCancel"
Me.btCancel.StyleController = Me.LayoutControl1
'
@ -164,6 +164,10 @@ Partial Class frmEnvelopeMainData
resources.ApplyResources(Me.chkSendReminderEmails, "chkSendReminderEmails")
Me.chkSendReminderEmails.Name = "chkSendReminderEmails"
Me.chkSendReminderEmails.Properties.Caption = resources.GetString("chkSendReminderEmails.Properties.Caption")
Me.chkSendReminderEmails.Properties.DisplayValueChecked = resources.GetString("chkSendReminderEmails.Properties.DisplayValueChecked")
Me.chkSendReminderEmails.Properties.DisplayValueGrayed = resources.GetString("chkSendReminderEmails.Properties.DisplayValueGrayed")
Me.chkSendReminderEmails.Properties.DisplayValueUnchecked = resources.GetString("chkSendReminderEmails.Properties.DisplayValueUnchecked")
Me.chkSendReminderEmails.Properties.GlyphVerticalAlignment = CType(resources.GetObject("chkSendReminderEmails.Properties.GlyphVerticalAlignment"), DevExpress.Utils.VertAlignment)
Me.chkSendReminderEmails.StyleController = Me.LayoutControl1
'
'spnFirstReminderDays
@ -206,6 +210,10 @@ Partial Class frmEnvelopeMainData
resources.ApplyResources(Me.chkUseAccessCode, "chkUseAccessCode")
Me.chkUseAccessCode.Name = "chkUseAccessCode"
Me.chkUseAccessCode.Properties.Caption = resources.GetString("chkUseAccessCode.Properties.Caption")
Me.chkUseAccessCode.Properties.DisplayValueChecked = resources.GetString("chkUseAccessCode.Properties.DisplayValueChecked")
Me.chkUseAccessCode.Properties.DisplayValueGrayed = resources.GetString("chkUseAccessCode.Properties.DisplayValueGrayed")
Me.chkUseAccessCode.Properties.DisplayValueUnchecked = resources.GetString("chkUseAccessCode.Properties.DisplayValueUnchecked")
Me.chkUseAccessCode.Properties.GlyphVerticalAlignment = CType(resources.GetObject("chkUseAccessCode.Properties.GlyphVerticalAlignment"), DevExpress.Utils.VertAlignment)
Me.chkUseAccessCode.StyleController = Me.LayoutControl1
'
'cmbEmailToCreator
@ -224,6 +232,7 @@ Partial Class frmEnvelopeMainData
'
'Root
'
resources.ApplyResources(Me.Root, "Root")
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem3, Me.LayoutControlGroup1, Me.LayoutControlItem4, Me.emptySpaceItem1, Me.groupAllOptions})
@ -233,8 +242,8 @@ Partial Class frmEnvelopeMainData
'
'LayoutControlItem3
'
Me.LayoutControlItem3.Control = Me.btOK
resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3")
Me.LayoutControlItem3.Control = Me.btOK
Me.LayoutControlItem3.Location = New System.Drawing.Point(10, 624)
Me.LayoutControlItem3.MaxSize = New System.Drawing.Size(70, 27)
Me.LayoutControlItem3.MinSize = New System.Drawing.Size(70, 27)
@ -247,34 +256,34 @@ Partial Class frmEnvelopeMainData
'
'LayoutControlGroup1
'
resources.ApplyResources(Me.LayoutControlGroup1, "LayoutControlGroup1")
Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2})
Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
Me.LayoutControlGroup1.Size = New System.Drawing.Size(571, 93)
resources.ApplyResources(Me.LayoutControlGroup1, "LayoutControlGroup1")
'
'LayoutControlItem1
'
resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1")
Me.LayoutControlItem1.Control = Me.txtTitle
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Size = New System.Drawing.Size(547, 24)
resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1")
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(168, 13)
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(187, 13)
'
'LayoutControlItem2
'
resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2")
Me.LayoutControlItem2.Control = Me.cmbEnvelopeType
Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 24)
Me.LayoutControlItem2.Name = "LayoutControlItem2"
Me.LayoutControlItem2.Size = New System.Drawing.Size(547, 24)
resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2")
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(168, 13)
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(187, 13)
'
'LayoutControlItem4
'
Me.LayoutControlItem4.Control = Me.btCancel
resources.ApplyResources(Me.LayoutControlItem4, "LayoutControlItem4")
Me.LayoutControlItem4.Control = Me.btCancel
Me.LayoutControlItem4.Location = New System.Drawing.Point(80, 624)
Me.LayoutControlItem4.MaxSize = New System.Drawing.Size(70, 27)
Me.LayoutControlItem4.MinSize = New System.Drawing.Size(70, 27)
@ -287,8 +296,8 @@ Partial Class frmEnvelopeMainData
'
'emptySpaceItem1
'
Me.emptySpaceItem1.AllowHotTrack = False
resources.ApplyResources(Me.emptySpaceItem1, "emptySpaceItem1")
Me.emptySpaceItem1.AllowHotTrack = False
Me.emptySpaceItem1.Location = New System.Drawing.Point(0, 624)
Me.emptySpaceItem1.MaxSize = New System.Drawing.Size(10, 27)
Me.emptySpaceItem1.MinSize = New System.Drawing.Size(10, 27)
@ -299,6 +308,7 @@ Partial Class frmEnvelopeMainData
'
'groupAllOptions
'
resources.ApplyResources(Me.groupAllOptions, "groupAllOptions")
Me.groupAllOptions.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[False]
Me.groupAllOptions.ExpandButtonVisible = True
Me.groupAllOptions.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.EmptySpaceItem2, Me.groupFinalEmail, Me.groupExpiration, Me.groupReminders, Me.groupOptions})
@ -306,10 +316,10 @@ Partial Class frmEnvelopeMainData
Me.groupAllOptions.Name = "groupAllOptions"
Me.groupAllOptions.Padding = New DevExpress.XtraLayout.Utils.Padding(0, 0, 0, 0)
Me.groupAllOptions.Size = New System.Drawing.Size(571, 531)
resources.ApplyResources(Me.groupAllOptions, "groupAllOptions")
'
'EmptySpaceItem2
'
resources.ApplyResources(Me.EmptySpaceItem2, "EmptySpaceItem2")
Me.EmptySpaceItem2.AllowHotTrack = False
Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 416)
Me.EmptySpaceItem2.Name = "EmptySpaceItem2"
@ -318,69 +328,70 @@ Partial Class frmEnvelopeMainData
'
'groupFinalEmail
'
resources.ApplyResources(Me.groupFinalEmail, "groupFinalEmail")
Me.groupFinalEmail.GroupStyle = DevExpress.Utils.GroupStyle.Light
Me.groupFinalEmail.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem9, Me.LayoutControlItem14})
Me.groupFinalEmail.Location = New System.Drawing.Point(0, 323)
Me.groupFinalEmail.Name = "groupFinalEmail"
Me.groupFinalEmail.Size = New System.Drawing.Size(565, 93)
resources.ApplyResources(Me.groupFinalEmail, "groupFinalEmail")
'
'LayoutControlItem9
'
resources.ApplyResources(Me.LayoutControlItem9, "LayoutControlItem9")
Me.LayoutControlItem9.Control = Me.cmbEmailToCreator
Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem9.Name = "LayoutControlItem9"
Me.LayoutControlItem9.Size = New System.Drawing.Size(541, 24)
resources.ApplyResources(Me.LayoutControlItem9, "LayoutControlItem9")
Me.LayoutControlItem9.TextSize = New System.Drawing.Size(168, 13)
Me.LayoutControlItem9.TextSize = New System.Drawing.Size(187, 13)
'
'LayoutControlItem14
'
resources.ApplyResources(Me.LayoutControlItem14, "LayoutControlItem14")
Me.LayoutControlItem14.Control = Me.cmbEmailToReceivers
Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 24)
Me.LayoutControlItem14.Name = "LayoutControlItem14"
Me.LayoutControlItem14.Size = New System.Drawing.Size(541, 24)
resources.ApplyResources(Me.LayoutControlItem14, "LayoutControlItem14")
Me.LayoutControlItem14.TextSize = New System.Drawing.Size(168, 13)
Me.LayoutControlItem14.TextSize = New System.Drawing.Size(187, 13)
'
'groupExpiration
'
resources.ApplyResources(Me.groupExpiration, "groupExpiration")
Me.groupExpiration.GroupStyle = DevExpress.Utils.GroupStyle.Light
Me.groupExpiration.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem11})
Me.groupExpiration.Location = New System.Drawing.Point(0, 230)
Me.groupExpiration.Name = "groupExpiration"
Me.groupExpiration.Size = New System.Drawing.Size(565, 93)
resources.ApplyResources(Me.groupExpiration, "groupExpiration")
'
'LayoutControlItem10
'
resources.ApplyResources(Me.LayoutControlItem10, "LayoutControlItem10")
Me.LayoutControlItem10.Control = Me.spnExpiresDays
Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem10.Name = "LayoutControlItem10"
Me.LayoutControlItem10.Size = New System.Drawing.Size(541, 24)
resources.ApplyResources(Me.LayoutControlItem10, "LayoutControlItem10")
Me.LayoutControlItem10.TextSize = New System.Drawing.Size(168, 13)
Me.LayoutControlItem10.TextSize = New System.Drawing.Size(187, 13)
'
'LayoutControlItem11
'
resources.ApplyResources(Me.LayoutControlItem11, "LayoutControlItem11")
Me.LayoutControlItem11.Control = Me.spnExpiresWarningDays
Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 24)
Me.LayoutControlItem11.Name = "LayoutControlItem11"
Me.LayoutControlItem11.Size = New System.Drawing.Size(541, 24)
resources.ApplyResources(Me.LayoutControlItem11, "LayoutControlItem11")
Me.LayoutControlItem11.TextSize = New System.Drawing.Size(168, 13)
Me.LayoutControlItem11.TextSize = New System.Drawing.Size(187, 13)
'
'groupReminders
'
resources.ApplyResources(Me.groupReminders, "groupReminders")
Me.groupReminders.GroupStyle = DevExpress.Utils.GroupStyle.Light
Me.groupReminders.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem7})
Me.groupReminders.Location = New System.Drawing.Point(0, 115)
Me.groupReminders.Name = "groupReminders"
Me.groupReminders.Size = New System.Drawing.Size(565, 115)
resources.ApplyResources(Me.groupReminders, "groupReminders")
'
'LayoutControlItem5
'
resources.ApplyResources(Me.LayoutControlItem5, "LayoutControlItem5")
Me.LayoutControlItem5.Control = Me.chkSendReminderEmails
Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem5.Name = "LayoutControlItem5"
@ -390,51 +401,52 @@ Partial Class frmEnvelopeMainData
'
'LayoutControlItem6
'
resources.ApplyResources(Me.LayoutControlItem6, "LayoutControlItem6")
Me.LayoutControlItem6.Control = Me.spnFirstReminderDays
Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 22)
Me.LayoutControlItem6.Name = "LayoutControlItem6"
Me.LayoutControlItem6.Size = New System.Drawing.Size(541, 24)
resources.ApplyResources(Me.LayoutControlItem6, "LayoutControlItem6")
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(168, 13)
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(187, 13)
'
'LayoutControlItem7
'
resources.ApplyResources(Me.LayoutControlItem7, "LayoutControlItem7")
Me.LayoutControlItem7.Control = Me.spnReminderIntervalDays
Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 46)
Me.LayoutControlItem7.Name = "LayoutControlItem7"
Me.LayoutControlItem7.Size = New System.Drawing.Size(541, 24)
resources.ApplyResources(Me.LayoutControlItem7, "LayoutControlItem7")
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(168, 13)
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(187, 13)
'
'groupOptions
'
resources.ApplyResources(Me.groupOptions, "groupOptions")
Me.groupOptions.GroupStyle = DevExpress.Utils.GroupStyle.Light
Me.groupOptions.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem8, Me.LayoutControlItem12, Me.LayoutControlItem13})
Me.groupOptions.Location = New System.Drawing.Point(0, 0)
Me.groupOptions.Name = "groupOptions"
Me.groupOptions.Size = New System.Drawing.Size(565, 115)
resources.ApplyResources(Me.groupOptions, "groupOptions")
'
'LayoutControlItem8
'
resources.ApplyResources(Me.LayoutControlItem8, "LayoutControlItem8")
Me.LayoutControlItem8.Control = Me.cmbCertificationType
Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem8.Name = "LayoutControlItem8"
Me.LayoutControlItem8.Size = New System.Drawing.Size(541, 24)
resources.ApplyResources(Me.LayoutControlItem8, "LayoutControlItem8")
Me.LayoutControlItem8.TextSize = New System.Drawing.Size(168, 13)
Me.LayoutControlItem8.TextSize = New System.Drawing.Size(187, 13)
'
'LayoutControlItem12
'
resources.ApplyResources(Me.LayoutControlItem12, "LayoutControlItem12")
Me.LayoutControlItem12.Control = Me.cmbLanguage
Me.LayoutControlItem12.Location = New System.Drawing.Point(0, 24)
Me.LayoutControlItem12.Name = "LayoutControlItem12"
Me.LayoutControlItem12.Size = New System.Drawing.Size(541, 24)
resources.ApplyResources(Me.LayoutControlItem12, "LayoutControlItem12")
Me.LayoutControlItem12.TextSize = New System.Drawing.Size(168, 13)
Me.LayoutControlItem12.TextSize = New System.Drawing.Size(187, 13)
'
'LayoutControlItem13
'
resources.ApplyResources(Me.LayoutControlItem13, "LayoutControlItem13")
Me.LayoutControlItem13.Control = Me.chkUseAccessCode
Me.LayoutControlItem13.Location = New System.Drawing.Point(0, 48)
Me.LayoutControlItem13.Name = "LayoutControlItem13"
@ -445,6 +457,9 @@ Partial Class frmEnvelopeMainData
'AdornerUIManager1
'
Me.AdornerUIManager1.Owner = Me
Me.AdornerUIManager1.ValidationHintProperties.IndeterminateState.Text = resources.GetString("AdornerUIManager1.ValidationHintProperties.IndeterminateState.Text")
Me.AdornerUIManager1.ValidationHintProperties.InvalidState.Text = resources.GetString("AdornerUIManager1.ValidationHintProperties.InvalidState.Text")
Me.AdornerUIManager1.ValidationHintProperties.ValidState.Text = resources.GetString("AdornerUIManager1.ValidationHintProperties.ValidState.Text")
'
'frmEnvelopeMainData
'

1123
EnvelopeGenerator.Form/frmEnvelopeMainData.resx
View File

File diff suppressed because it is too large Load Diff

31
EnvelopeGenerator.Form/frmEnvelopeMainData.vb
View File

@ -30,19 +30,34 @@ Public Class frmEnvelopeMainData
EnvelopeTypeModel = New EnvelopeTypeModel(State)
Dim oTypes = EnvelopeTypeModel.List()
Dim certificationTypeList = [Enum].GetValues(GetType(CertificationType)).Cast(Of CertificationType)()
Dim oTranslatedCertificationTypeList = certificationTypeList.Select(AddressOf TranslateCertificationType).ToList()
cmbCertificationType.Properties.Items.AddRange(oTranslatedCertificationTypeList)
Dim finalEmailTypeList = [Enum].GetValues(GetType(FinalEmailType)).Cast(Of FinalEmailType)()
Dim oTranslatedFinalEmailTypeList = FinalEmailTypeList.Select(AddressOf TranslateFinalEmailType).ToList()
cmbEmailToCreator.Properties.Items.AddRange(oTranslatedFinalEmailTypeList)
cmbEmailToReceivers.Properties.Items.AddRange(oTranslatedFinalEmailTypeList)
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()
cmbCertificationType.SelectedIndex = oTypes.FirstOrDefault.CertificationType
cmbEmailToCreator.SelectedIndex = oTypes.FirstOrDefault.FinalEmailToCreator
cmbEmailToReceivers.SelectedIndex = oTypes.FirstOrDefault.FinalEmailToReceivers
End Sub
Private Function TranslateContractType(pType As ContractType) As String
Private Function TranslateCertificationType(pType As CertificationType) As String
Return Resources.Model.ResourceManager.GetString(pType.ToString())
End Function
Private Function TranslateFinalEmailType(pType As FinalEmailType) As String
Return Resources.Model.ResourceManager.GetString(pType.ToString())
End Function
@ -98,7 +113,6 @@ Public Class frmEnvelopeMainData
EnvelopeType = oSelectedType
cmbCertificationType.EditValue = oSelectedType.CertificationType
cmbLanguage.EditValue = oSelectedType.Language
chkUseAccessCode.EditValue = oSelectedType.UseAccessCode
chkSendReminderEmails.EditValue = oSelectedType.SendReminderEmails
@ -106,7 +120,10 @@ Public Class frmEnvelopeMainData
spnReminderIntervalDays.EditValue = oSelectedType.ReminderIntervalDays
spnExpiresDays.EditValue = oSelectedType.ExpiresWhenDays
spnExpiresWarningDays.EditValue = oSelectedType.ExpiresWarningWhenDays
cmbEmailToCreator.EditValue = oSelectedType.FinalEmailToCreator
cmbEmailToReceivers.EditValue = oSelectedType.FinalEmailToReceivers
cmbCertificationType.SelectedIndex = oSelectedType.CertificationType
cmbEmailToCreator.SelectedIndex = oSelectedType.FinalEmailToCreator
cmbEmailToReceivers.SelectedIndex = oSelectedType.FinalEmailToReceivers
End Sub
End Class