Abfrage vor Senden des Umschlags ergänzt
This commit is contained in:
@@ -297,14 +297,21 @@ Partial Public Class frmEnvelopeEditor
|
||||
oErrors = Controller.ValidateEnvelopeForSending(oErrors)
|
||||
|
||||
If oErrors.Any() Then
|
||||
ShowValidationErrors(Resources.Envelope.Error_sending_the_envelope, oErrors)
|
||||
ShowValidationErrors(Resources.Envelope.Error_when_validating_the_envelope, oErrors)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim oMessage = Resources.Envelope.Do_you_want_to_start_the_signature_process_now
|
||||
If MsgBox(oMessage, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If Controller.SendEnvelope() = False Then
|
||||
MsgBox(Resources.Envelope.Envelope_could_not_be_sent, MsgBoxStyle.Critical, Text)
|
||||
Else
|
||||
MsgBox(Resources.Envelope.Envelope_Invitations_Sent, MsgBoxStyle.Information, Text)
|
||||
If MsgBox(Resources.Envelope.Envelope_Invitations_Sent, MsgBoxStyle.Information Or MsgBoxStyle.OkOnly, Text) = MsgBoxResult.Ok Then
|
||||
Me.Close()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user