MS Rename taskFlow

app/TaskFlow/ApplicationEvents.vb

@@ -0,0 +1,40 @@
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.EDMI.API
+Imports DigitalData.Modules.ZooFlow
+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
+
+
+        Private Sub MyApplication_UnhandledException(sender As Object, e As UnhandledExceptionEventArgs) Handles Me.UnhandledException
+            Dim oMessage = "Application encountered an unhandled error!" & vbNewLine & vbNewLine &
+                "The errormessage was:" & vbNewLine & e.Exception.Message & vbNewLine &
+                "The stacktrace was:" & vbNewLine & e.Exception.StackTrace
+
+            LOGGER.Error(e.Exception)
+
+            Try
+                If DEBUG = True Then
+                    Dim oLogMessage = LOGCONFIG.Logs.Last()
+                    Dim oLogSplit As String() = oLogMessage.Split("|")
+                    Dim oDBMessage = PrepareLogMessage(oLogMessage) & $" [Machinename: {System.Environment.MachineName}]"
+
+                    Dim oSQL = $"INSERT INTO [dbo].[TBPM_LOG_DEBUG] ([USERID], [LOGMSG], [ADDED_WHEN], DATE_STR) VALUES({USER_ID},'{oDBMessage}',GETDATE(),'{Now}')"
+                    DatabaseFallback.ExecuteNonQueryECM(oSQL)
+                End If
+            Catch ex As Exception
+                LOGGER.Error(ex)
+            End Try
+            MsgBox(oMessage, MsgBoxStyle.Critical, "Flow Task")
+        End Sub
+
+    End Class
+
+End Namespace