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

clean up

Browse Source
This commit is contained in:
Jonathan Jenne 2024-01-17 10:34:14 +01:00
parent ddd0808f41
commit 02a197e535
5 changed files with 41 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
EnvelopeGenerator.Common/Entities/Envelope.vb
View File

@ -34,7 +34,7 @@
Public ReadOnly Property EnvelopeTypeTitle As String
Get
Return EnvelopeType.Title
Return EnvelopeType?.Title
End Get
End Property

19
EnvelopeGenerator.Form/ApplicationEvents.vb Normal file
View File

@ -0,0 +1,19 @@
Imports Microsoft.VisualBasic.ApplicationServices
Namespace My
' Für MyApplication sind folgende Ereignisse verfügbar:
' Startup: Wird beim Starten der Anwendung noch vor dem Erstellen des Startformulars ausgelöst.
' Shutdown: Wird nach dem Schließen aller Anwendungsformulare ausgelöst. Dieses Ereignis wird nicht ausgelöst, wenn die Anwendung mit einem Fehler beendet wird.
' UnhandledException: Wird bei einem Ausnahmefehler ausgelöst.
' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn die Anwendung bereits aktiv ist.
' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst.
Partial Friend Class MyApplication
Protected Overrides Function OnUnhandledException(e As UnhandledExceptionEventArgs) As Boolean
Dim oMessage = $"Unexpected Error occurred, Application will close.{vbNewLine}{vbNewLine}{e.Exception.Message}{vbNewLine}Stacktrace:{vbNewLine}{e.Exception.StackTrace}"
MsgBox(oMessage, MsgBoxStyle.Critical, "EnvelopeCreator")
e.ExitApplication = True
Return True
End Function
End Class
End Namespace

1
EnvelopeGenerator.Form/EnvelopeGenerator.Form.vbproj
View File

@ -121,6 +121,7 @@
<Import Include="System" />
</ItemGroup>
<ItemGroup>
<Compile Include="ApplicationEvents.vb" />
<Compile Include="Controllers\EnvelopeEditorController.vb" />
<Compile Include="Controllers\EnvelopeListController.vb" />
<Compile Include="Controllers\FieldEditorController.vb" />

4
EnvelopeGenerator.Form/My Project/AssemblyInfo.vb
View File

@ -11,7 +11,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("Envelope Generator")>
<Assembly: AssemblyCopyright("Copyright © 2024")>
<Assembly: AssemblyTrademark("2.4.4.1")>
<Assembly: AssemblyTrademark("2.4.4.2")>
<Assembly: AssemblyCulture("")>
' Setting ComVisible to false makes the types in this assembly not visible
@ -32,5 +32,5 @@ Imports System.Runtime.InteropServices
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:
' [assembly: AssemblyVersion("1.0.*")]
<Assembly: AssemblyVersion("2.4.4.1")>
<Assembly: AssemblyVersion("2.4.4.2")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

28
EnvelopeGenerator.Form/frmMain.vb
View File

@ -57,23 +57,31 @@ Public Class frmMain
End Sub
Private Sub LoadEnvelopes()
GridBuilder = New GridBuilder(ViewEnvelopes)
GridBuilder.SetReadOnlyOptions(ViewEnvelopes)
Try
GridBuilder = New GridBuilder(ViewEnvelopes)
GridBuilder.SetReadOnlyOptions(ViewEnvelopes)
GridBuilder.SetReadOnlyOptions(ViewHistory)
GridBuilder.SetDefaults(ViewHistory)
GridBuilder.SetReadOnlyOptions(ViewHistory)
GridBuilder.SetDefaults(ViewHistory)
GridEnvelopes.DataSource = Controller.ListEnvelopes()
GridEnvelopes.DataSource = Controller.ListEnvelopes()
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Private Sub LoadCompletedEnvelopes()
GridBuilder = New GridBuilder(ViewCompleted)
GridBuilder.SetReadOnlyOptions(ViewCompleted)
Try
GridBuilder = New GridBuilder(ViewCompleted)
GridBuilder.SetReadOnlyOptions(ViewCompleted)
GridBuilder.SetReadOnlyOptions(ViewHistoryCompleted)
GridBuilder.SetDefaults(ViewHistoryCompleted)
GridBuilder.SetReadOnlyOptions(ViewHistoryCompleted)
GridBuilder.SetDefaults(ViewHistoryCompleted)
GridCompleted.DataSource = Controller.ListCompleted()
GridCompleted.DataSource = Controller.ListCompleted()
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Private Sub LoadCharts()