Abfrage vor Senden des Umschlags ergänzt

This commit is contained in:
2023-12-05 10:22:45 +01:00
parent 9ea63b7cbe
commit c44ade2ee1
4 changed files with 39 additions and 2 deletions

View File

@@ -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