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

06-12-23

Browse Source
This commit is contained in:
Jonathan Jenne 2023-12-06 10:13:54 +01:00
parent 3b3445cc03
commit 489c7879da
4 changed files with 45 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
EnvelopeGenerator.Form/frmEnvelopeEditor.vb
View File

@ -391,4 +391,10 @@ Partial Public Class frmEnvelopeEditor
Me.Text = oFormTitle
End Sub
Private Sub frmEnvelopeEditor_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
If Controller.Envelope?.Status = EnvelopeStatus.EnvelopeCreated Then
Controller.DeleteEnvelopeFromDisk(Controller.Envelope)
End If
End Sub
End Class

14
EnvelopeGenerator.Form/frmMain.Designer.vb generated
View File

@ -40,6 +40,7 @@ Partial Class frmMain
Me.ColHistoryUserReference = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ColHistoryDate = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ViewEnvelopes = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colEnvelopeId = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colContractType = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colStatus = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colTitle = New DevExpress.XtraGrid.Columns.GridColumn()
@ -72,7 +73,6 @@ Partial Class frmMain
Me.GridColumn6 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn7 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.RefreshTimer = New System.Windows.Forms.Timer(Me.components)
Me.colEnvelopeId = New DevExpress.XtraGrid.Columns.GridColumn()
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl1.Panel1.SuspendLayout()
@ -225,6 +225,12 @@ Partial Class frmMain
Me.ViewEnvelopes.GridControl = Me.GridEnvelopes
Me.ViewEnvelopes.Name = "ViewEnvelopes"
'
'colEnvelopeId
'
resources.ApplyResources(Me.colEnvelopeId, "colEnvelopeId")
Me.colEnvelopeId.FieldName = "Id"
Me.colEnvelopeId.Name = "colEnvelopeId"
'
'colContractType
'
resources.ApplyResources(Me.colContractType, "colContractType")
@ -448,12 +454,6 @@ Partial Class frmMain
Me.RefreshTimer.Enabled = True
Me.RefreshTimer.Interval = 120000
'
'colEnvelopeId
'
resources.ApplyResources(Me.colEnvelopeId, "colEnvelopeId")
Me.colEnvelopeId.FieldName = "Id"
Me.colEnvelopeId.Name = "colEnvelopeId"
'
'frmMain
'
resources.ApplyResources(Me, "$this")

12
EnvelopeGenerator.Form/frmMain.resx
View File

@ -847,6 +847,12 @@
<data name="&gt;&gt;ViewEnvelopes.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colEnvelopeId.Name" xml:space="preserve">
<value>colEnvelopeId</value>
</data>
<data name="&gt;&gt;colEnvelopeId.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colContractType.Name" xml:space="preserve">
<value>colContractType</value>
</data>
@ -1015,12 +1021,6 @@
<data name="&gt;&gt;RefreshTimer.Type" xml:space="preserve">
<value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;colEnvelopeId.Name" xml:space="preserve">
<value>colEnvelopeId</value>
</data>
<data name="&gt;&gt;colEnvelopeId.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmMain</value>
</data>

28
EnvelopeGenerator.Form/frmMain.vb
View File

@ -191,8 +191,10 @@ Public Class frmMain
Select Case XtraTabControl1.SelectedTabPageIndex
Case 1
btnEditEnvelope.Enabled = False
btnDeleteEnvelope.Enabled = False
Case 0
btnEditEnvelope.Enabled = True
btnDeleteEnvelope.Enabled = True
End Select
End Sub
@ -249,17 +251,39 @@ Public Class frmMain
End Sub
Private Sub RefreshTimer_Tick(sender As Object, e As EventArgs) Handles RefreshTimer.Tick
LoadEnvelopeData()
If Application.OpenForms.OfType(Of frmEnvelopeEditor).Any = False Then
LoadEnvelopeData()
End If
End Sub
Private Sub btnContactReceiver_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnContactReceiver.ItemClick
Dim oView As GridView = GridEnvelopes.FocusedView
If oView.Name = ViewReceivers.Name Then
Console.Write("")
Dim oReceiver As EnvelopeReceiver = oView.GetRow(oView.FocusedRowHandle)
Process.Start($"mailto:{oReceiver.Email}")
Else
MsgBox("Bitte wählen Sie einen Empfänger aus dem Reiter Empfänger aus.", MsgBoxStyle.Information, Text)
End If
End Sub
Private Sub btnShowDocument_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnShowDocument.ItemClick
If ViewEnvelopes.FocusedRowHandle < 0 Then
Exit Sub
End If
Dim oEnvelope As Envelope = ViewEnvelopes.GetRow(ViewEnvelopes.FocusedRowHandle)
Dim oDocument = oEnvelope.Documents.FirstOrDefault()
If oDocument Is Nothing Then
MsgBox("Der Umschlag enthält keine Dokumente.", MsgBoxStyle.Exclamation, Text)
Exit Sub
End If
Try
Process.Start(oDocument.Filepath)
Catch ex As Exception
MsgBox("Dokument konnte nicht geöffnet werden!", MsgBoxStyle.Critical, Text)
Logger.Error(ex)
End Try
End Sub
End Class