MS Config

This commit is contained in:
2024-02-27 16:18:00 +01:00
parent 4cd39c6c5c
commit 55f2a6a775
5 changed files with 55 additions and 5 deletions

View File

@@ -21,6 +21,7 @@ Partial Public Class frmEnvelopeEditor
Private Controller As EnvelopeEditorController
Private Logger As Logger
Private Config As DbConfig
Private Const COL_NAME = "Name"
Private Const COL_EMAIL = "Email"
@@ -329,9 +330,14 @@ Partial Public Class frmEnvelopeEditor
MsgBox(Resources.Envelope.Envelope_could_not_be_sent, MsgBoxStyle.Critical, Text)
Else
If MsgBox(Resources.Envelope.Envelope_Invitations_Sent, MsgBoxStyle.Information Or MsgBoxStyle.OkOnly, Text) = MsgBoxResult.Ok Then
If Config.DOCUMENT_PATH_MOVE_AFTSEND <> String.Empty Then
For Each odoc In Envelope.Documents
Next
End If
Me.Close()
End If
End If
End If
End Sub
Private Sub btnCancel_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnCancel.ItemClick
@@ -471,4 +477,10 @@ Partial Public Class frmEnvelopeEditor
End If
End If
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
For Each odoc In Envelope.Documents
MsgBox(odoc.Filename & vbNewLine & odoc.Filepath)
Next
End Sub
End Class