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

62
app/TaskFlow/frmMain.vb
View File

@@ -472,9 +472,9 @@ Public Class frmMain
BarButtonItemExportExcel.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
If BASEDATA_DT_LANGUAGE.Rows.Count > 1 Then
bbtnitmLanguage.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
bbtnitmLanguage_Change.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else
bbtnitmLanguage.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
bbtnitmLanguage_Change.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
LOGGER.Debug("MainForm initialized!")
@@ -619,6 +619,7 @@ Public Class frmMain
Private Function GetLayoutName_GridMain()
Dim Filename As String = String.Format("DevExpressGridViewOverview_UserLayout_{0}_{1}.xml", GRID_LOAD_TYPE, USER_LANGUAGE)
LOGGER.Debug($"LayoutFilename is: {Filename}")
Return System.IO.Path.Combine(USER_CONFIG_DIRECTORY, Filename)
End Function
@@ -681,7 +682,7 @@ Public Class frmMain
End Try
Catch ex As Exception
End Try
End Try
End Sub
Private Sub ResetLayout()
Try
@@ -3114,10 +3115,11 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
Dim ribbon As RibbonControl = TryCast(sender, RibbonControl)
Timer_Inactivity_Reset_Disable("RibbonControl1_SelectedPageChanged")
If ribbon.SelectedPage Is RibbonPageAktionen Then
If GHOSTMODE_ACTIVE = True Then
bbtnitmLanguage.Enabled = False
If USER_GHOST_MODE_ACTIVE = True And USER_GHOST_MODE_USRNAME <> String.Empty Then
LOGGER.Debug("Ghostmode is active...")
bbtnitmLanguage_Change.Enabled = False
Else
bbtnitmLanguage.Enabled = True
bbtnitmLanguage_Change.Enabled = True
End If
Select Case GridViewItem_Clicked
Case "GROUP"
@@ -3258,7 +3260,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
End Try
End Sub
Private Sub bbtnitmLanguage_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmLanguage.ItemClick
Private Sub bbtnitmLanguage_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmLanguage_Change.ItemClick
Dim oNForm As New frmLanguage_Select(LOGCONFIG, CONNECTION_STRING_ECM, USER_USERNAME, BASEDATA_DT_LANGUAGE, "TF")
oNForm.ShowDialog()
@@ -3282,50 +3284,6 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
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
ClassAllgemeineFunktionen.Save_Logfiles()
End Sub
End Class