Ms Auswertungen, Dokument anzeigen, Drag and Drop
This commit is contained in:
Developer01
@@ -4,7 +4,7 @@ Imports EnvelopeGenerator.Common.Constants
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmEnvelopeMainData
|
||||
|
||||
Private FormLoaded As Boolean = False
|
||||
Public Property Envelope As Envelope = New Envelope()
|
||||
Public Property NewEnvelopeMode As Boolean = True
|
||||
|
||||
@@ -20,70 +20,87 @@ Public Class frmEnvelopeMainData
|
||||
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
|
||||
Try
|
||||
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()
|
||||
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
|
||||
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()
|
||||
|
||||
cmbCertificationType.Properties.Items.AddRange(oTranslatedCertificationTypeList)
|
||||
' Dim oTranslatedVerificationTypeList = VerificationTypeList.Select(AddressOf TranslateVerificationTypeType).ToList()
|
||||
|
||||
Dim finalEmailTypeList = [Enum].GetValues(GetType(FinalEmailType)).Cast(Of FinalEmailType)()
|
||||
Dim oTranslatedFinalEmailTypeList = FinalEmailTypeList.Select(AddressOf TranslateFinalEmailType).ToList()
|
||||
Dim certificationTypeList = [Enum].GetValues(GetType(CertificationType)).Cast(Of CertificationType)()
|
||||
Dim oTranslatedCertificationTypeList = certificationTypeList.Select(AddressOf TranslateCertificationType).ToList()
|
||||
|
||||
cmbEmailToCreator.Properties.Items.AddRange(oTranslatedFinalEmailTypeList)
|
||||
cmbEmailToReceivers.Properties.Items.AddRange(oTranslatedFinalEmailTypeList)
|
||||
cmbCertificationType.Properties.Items.AddRange(oTranslatedCertificationTypeList)
|
||||
|
||||
cmbEnvelopeType.Properties.Items.AddRange(oTypes.ToList)
|
||||
cmbLanguage.Properties.Items.AddRange(New List(Of String) From {"de", "en"})
|
||||
|
||||
groupAllOptions.Expanded = False
|
||||
Dim finalEmailTypeList = [Enum].GetValues(GetType(FinalEmailType)).Cast(Of FinalEmailType)()
|
||||
Dim oTranslatedFinalEmailTypeList = finalEmailTypeList.Select(AddressOf TranslateFinalEmailType).ToList()
|
||||
|
||||
If NewEnvelopeMode = True Then
|
||||
Dim oType = oTypes.FirstOrDefault()
|
||||
cmbEmailToCreator.Properties.Items.AddRange(oTranslatedFinalEmailTypeList)
|
||||
cmbEmailToReceivers.Properties.Items.AddRange(oTranslatedFinalEmailTypeList)
|
||||
|
||||
' This will trigger loading values from the type
|
||||
cmbEnvelopeType.EditValue = oType
|
||||
Else
|
||||
' This will trigger loading values from the type
|
||||
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()
|
||||
cmbEnvelopeType.Properties.Items.AddRange(oTypes.ToList)
|
||||
cmbLanguage.Properties.Items.AddRange(New List(Of String) From {"de", "en"})
|
||||
|
||||
groupAllOptions.Expanded = False
|
||||
|
||||
If NewEnvelopeMode = True Then
|
||||
Dim oType = oTypes.FirstOrDefault()
|
||||
|
||||
' This will trigger loading values from the type
|
||||
cmbEnvelopeType.EditValue = oType
|
||||
chked_2Faktor.EditValue = DEF_TF_ENABLED
|
||||
|
||||
Else
|
||||
' This will trigger loading values from the type
|
||||
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
|
||||
chkUseAccessCode.EditValue = Envelope.UseAccessCode
|
||||
chked_2Faktor.EditValue = Envelope.TFA_Enabled
|
||||
cmbCertificationType.SelectedIndex = Convert.ToInt32(Envelope.CertificationType) - 1
|
||||
cmbEmailToCreator.SelectedIndex = Convert.ToInt32(Envelope.FinalEmailToCreator)
|
||||
cmbEmailToReceivers.SelectedIndex = Convert.ToInt32(Envelope.FinalEmailToReceivers)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected Error loading form:")
|
||||
End Try
|
||||
|
||||
' 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 Sub CheckAccessCode()
|
||||
If Envelope.TFA_Enabled = True Then
|
||||
chkUseAccessCode.Checked = True
|
||||
chkUseAccessCode.Enabled = False
|
||||
Else
|
||||
chkUseAccessCode.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
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
|
||||
|
||||
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)
|
||||
|
||||
@@ -110,13 +127,16 @@ Public Class frmEnvelopeMainData
|
||||
Envelope.ExpiresWarningWhenDays = spnExpiresWarningDays.EditValue
|
||||
Envelope.FinalEmailToCreator = cmbEmailToCreator.SelectedIndex
|
||||
Envelope.FinalEmailToReceivers = cmbEmailToReceivers.SelectedIndex
|
||||
|
||||
Envelope.TFA_Enabled = chked_2Faktor.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()
|
||||
CheckAccessCode()
|
||||
FormLoaded = True
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub SetFormHeight()
|
||||
@@ -152,4 +172,15 @@ Public Class frmEnvelopeMainData
|
||||
cmbEmailToReceivers.SelectedIndex = oSelectedType.FinalEmailToReceivers
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub chked_2Faktor_CheckedChanged(sender As Object, e As EventArgs) Handles chked_2Faktor.CheckedChanged
|
||||
If FormLoaded = True Then
|
||||
If chked_2Faktor.Checked = True Then
|
||||
chkUseAccessCode.Checked = True
|
||||
chkUseAccessCode.Enabled = False
|
||||
Else
|
||||
chkUseAccessCode.Enabled = True
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user