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

MS Anpassungen LogFiles User, CodeCleaning

Browse Source
This commit is contained in:
Developer01
2024-09-11 15:07:17 +02:00
parent 9b9ed9fb6e
commit 3b064662d6
18 changed files with 1275 additions and 1176 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
app/TaskFlow/frmKonfig.vb
View File

@@ -298,39 +298,7 @@ Public Class frmKonfig
End Function
Private Sub BtnCreateLogfiles_Click(sender As Object, e As EventArgs) Handles BtnCreateLogfiles.Click
Try
If File.Exists(LOGCONFIG.LogFile) Then
SaveFileDialog1.Filter = "log file|*.log"
SaveFileDialog1.FileName = Path.GetFileName(LOGCONFIG.LogFile)
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
If File.Exists(SaveFileDialog1.FileName) Then
File.Delete(SaveFileDialog1.FileName)
End If
File.Copy(LOGCONFIG.LogFile, SaveFileDialog1.FileName)
End If
End If
If DEBUG = True Then
Dim oDebuglogFilename_only = Path.GetFileNameWithoutExtension(LOGCONFIG.LogFile) + "-Debug.log"
Dim oDebuglogFilename = LOGCONFIG.LogDirectory + "\" + oDebuglogFilename_only
If File.Exists(oDebuglogFilename) Then
SaveFileDialog1.Filter = "log file|*.log"
SaveFileDialog1.FileName = oDebuglogFilename_only
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
If File.Exists(SaveFileDialog1.FileName) Then
File.Delete(SaveFileDialog1.FileName)
End If
File.Copy(oDebuglogFilename, SaveFileDialog1.FileName)
End If
End If
End If
Dim oTitle = "Logfiles erfolgreich gespeichert! Bitte senden Sie diese nun als Anhang an support-flow@digitaldata.works"
If USER_LANGUAGE <> "de-DE" Then
oTitle = "Logfiles exported successfully. Please send them as attachments to support-flow@digitaldata.works"
End If
MsgBox(oTitle, MsgBoxStyle.Information, ADDITIONAL_TITLE)
Catch ex As Exception
MsgBox(ex.Message, "Error saving log file")
End Try
ClassAllgemeineFunktionen.Save_Logfiles()
End Sub