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

ReceiverVM Vereinheitlichung

Browse Source
This commit is contained in:
Developer01
2025-09-16 08:05:50 +02:00
parent 991943d6bd
commit 3ac61e75f5
12 changed files with 76 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
EnvelopeGenerator.Form/frmEnvelopeEditor.Designer.vb generated
View File

@@ -486,8 +486,8 @@ Partial Public Class frmEnvelopeEditor
'
'EnvelopeReceiverBindingSource
'
Me.EnvelopeReceiverBindingSource.DataMember = "EnvelopeReceivers"
Me.EnvelopeReceiverBindingSource.DataSource = GetType(EnvelopeGenerator.Form.frmEnvelopeEditor)
'Me.EnvelopeReceiverBindingSource.DataMember = "EnvelopeReceivers"
'Me.EnvelopeReceiverBindingSource.DataSource = GetType(EnvelopeGenerator.Form.frmEnvelopeEditor)
'
'ViewReceivers
'

8
EnvelopeGenerator.Form/frmEnvelopeMainData.vb
View File

@@ -132,10 +132,10 @@ Public Class frmEnvelopeMainData
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.FirstReminderDays = CInt(spnFirstReminderDays.EditValue)
Envelope.ReminderIntervalDays = CInt(spnReminderIntervalDays.EditValue)
Envelope.ExpiresWhenDays = CInt(spnExpiresDays.EditValue)
Envelope.ExpiresWarningWhenDays = CInt(spnExpiresWarningDays.EditValue)
Envelope.FinalEmailToCreator = cmbEmailToCreator.SelectedIndex
Envelope.FinalEmailToReceivers = cmbEmailToReceivers.SelectedIndex
Envelope.TfaEnabled = chked_2Faktor.EditValue

20
EnvelopeGenerator.Form/frmMain.vb
View File

@@ -129,17 +129,17 @@ Public Class frmMain
End Sub
Private Sub btnCreateEnvelope_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnCreateEnvelope.ItemClick
Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
Try
Dim oForm As New frmEnvelopeEditor() With {.State = State}
'Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
'Try
Dim oForm As New frmEnvelopeEditor() With {.State = State}
oForm.ShowDialog()
LoadEnvelopeData()
Catch ex As Exception
Logger.Error(ex)
Finally
SplashScreenManager.CloseOverlayForm(oHandle)
End Try
' Catch ex As Exception
'Logger.Error(ex)
'Finally
'SplashScreenManager.CloseOverlayForm(oHandle)
'End Try
End Sub
Private Sub btnEditEnvelope_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnEditEnvelope.ItemClick
@@ -623,7 +623,7 @@ Public Class frmMain
Dim oEnvelope As Envelope = ViewEnvelopes.GetRow(ViewEnvelopes.FocusedRowHandle)
Dim oController = New EnvelopeEditorController(State, oEnvelope)
Dim Documents As New BindingList(Of Document)
Dim Documents As New BindingList(Of Domain.Entities.Document)
Dim Receivers = New BindingList(Of ReceiverVM)(oController.Envelope.EnvelopeReceivers.Select(Function(r) ReceiverVM.From(r)).ToList())
For Each oReceiver As ReceiverVM In Receivers
If oReceiver.EmailAddress = selReceiver.EmailAddress Then
@@ -871,7 +871,7 @@ Public Class frmMain
Dim oEnvelope As Envelope = ViewEnvelopes.GetRow(ViewEnvelopes.FocusedRowHandle)
If oEnvelope.UseAccessCode = True Then
Dim oController = New EnvelopeEditorController(State, oEnvelope)
Dim Documents As New BindingList(Of Document)
Dim Documents As New BindingList(Of Domain.Entities.Document)
Dim Receivers = New BindingList(Of ReceiverVM)(oController.Envelope.EnvelopeReceivers.Select(Function(r) ReceiverVM.From(r)).ToList())
For Each oReceiver As ReceiverVM In Receivers
If oReceiver.EmailAddress = selReceiver.EmailAddress Then