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

MS 2.4.9.6 Zusätzliche Meldungen und @DisplayOnly Möglichkeit

Browse Source
This commit is contained in:
Developer01
2024-08-26 16:41:27 +02:00
parent 3b08bafa49
commit 1b04665e82
19 changed files with 1405 additions and 706 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
app/TaskFlow/frmMain.vb
View File

@@ -113,7 +113,6 @@ Public Class frmMain
Dim sql = $"UPDATE TBPM_PROFILE_FILES SET EDIT = 0, IN_WORK = 0, IN_WORK_WHEN = NULL, WORK_USER = NULL WHERE GUID = {CURRENT_DOC_GUID}"
Return DatabaseFallback.ExecuteNonQueryECM(sql)
Catch ex As Exception
allgFunk.Insert_LogEntry($"ERROR Free_File >> {ex.Message}")
LOGGER.Error(ex)
Return False
End Try
@@ -463,6 +462,7 @@ Public Class frmMain
End If
If BASIC_CONF_VISIBLE = False Then
RibbonPageGroupBasicConf.Visible = False
barbtnitmsaveLogfiles.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else
RibbonPageGroupBasicConf.Visible = True
End If
@@ -1790,7 +1790,6 @@ Public Class frmMain
End If
Catch ex As Exception
LOGGER.Error(ex)
allgFunk.Insert_LogEntry($"{ex.Message} - Stack: [{ex.StackTrace}]")
bsiMessage.Caption = "Warning in Item_Scope: " & ex.Message
bsiMessage.ItemAppearance.Normal.BackColor = Color.Red
bsiMessage.ItemAppearance.Normal.ForeColor = Color.Black
@@ -3278,4 +3277,52 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
LOGGER.Info("User clicked reset layout")
Await GridLayout_Reset()
End Sub
Private Sub barbtnitmsaveLogfiles_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles barbtnitmsaveLogfiles.ItemClick
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 oErrorlogFilename_only = Path.GetFileNameWithoutExtension(LOGCONFIG.LogFile) + "-Error.log"
Dim oErrorlogFilename = LOGCONFIG.LogDirectory + "\" + oErrorlogFilename_only
If File.Exists(oErrorlogFilename) Then
SaveFileDialog1.Filter = "log file|*.log"
SaveFileDialog1.FileName = oErrorlogFilename_only
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
If File.Exists(SaveFileDialog1.FileName) Then
File.Delete(SaveFileDialog1.FileName)
End If
File.Copy(oErrorlogFilename, SaveFileDialog1.FileName)
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
End Sub
End Class