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

12.01.2024

Browse Source
This commit is contained in:
Jonathan Jenne
2024-01-12 12:06:29 +01:00
parent c8106f4fb0
commit e0bbdf8c0e
12 changed files with 1129 additions and 1052 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
EnvelopeGenerator.Form/frmEnvelopeMainData.vb
View File

@@ -59,7 +59,10 @@ Public Class frmEnvelopeMainData
cmbEnvelopeType.EditValue = oType
Else
' This will trigger loading values from the type
cmbEnvelopeType.SelectedIndex = Convert.ToInt32(Envelope.EnvelopeType) - 1
cmbEnvelopeType.EditValue = Envelope.EnvelopeType
' cmbEnvelopeType.SelectedIndex = Convert.ToInt32(Envelope.EnvelopeType) - 1
' cmbEnvelopeType.SelectedIndex = Envelope.Type.Id - 1
' cmbEnvelopeType.SelectedItem = cmbEnvelopeType.Properties.Items.Cast(Of EnvelopeType).Where(Function(i) i.Id = Envelope.EnvelopeType.Id).SingleOrDefault()
' Now we can override these values with the values from envelope
txtTitle.EditValue = Envelope.Title
@@ -90,8 +93,11 @@ Public Class frmEnvelopeMainData
Return
End If
Dim oEnvelopeType = DirectCast(cmbEnvelopeType.EditValue, EnvelopeType)
Envelope.Title = txtTitle.EditValue.ToString
Envelope.EnvelopeType = DirectCast(cmbEnvelopeType.EditValue, EnvelopeType).Id
Envelope.EnvelopeType = oEnvelopeType
Envelope.EnvelopeTypeId = oEnvelopeType.Id
Envelope.CertificationType = cmbCertificationType.SelectedIndex + 1
Envelope.Language = cmbLanguage.EditValue
Envelope.UseAccessCode = chkUseAccessCode.EditValue