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

MS 2.0.0.6

Browse Source
This commit is contained in:
SchreiberM
2020-01-28 10:38:32 +01:00
parent cd08b9c7d3
commit 39921824b8
13 changed files with 344 additions and 419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
app/DD_PM_WINDREAM/frmMain.vb
View File

@@ -582,7 +582,7 @@ Public Class frmMain
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Layout Dashboard - Error: " & ex.Message)
MsgBox("Unexpected Error in Layout Dashboard - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
MsgBox("Unexpected Error in Layout Dashboard - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
End Try
End Sub
Private Function Create_Series(title As String, type As String) As Series
@@ -1148,13 +1148,13 @@ Public Class frmMain
End If
Else
MsgBox("Could not get the ProfileID of file! - Check Your configuration of MainView!", MsgBoxStyle.Critical)
MsgBox("Could not get the ProfileID of file! - Check Your configuration of MainView!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
End If
Catch ex As Exception
LOGGER.Error(ex)
allgFunk.Insert_LogEntry($"{ex.Message} - Stack: [{ex.StackTrace}]")
MsgBox("Unexpected error in Item_Scope: " & ex.Message & vbNewLine & "Choose file again!", MsgBoxStyle.Information)
MsgBox("Unexpected error in Item_Scope: " & ex.Message & vbNewLine & "Choose file again!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
End Try
End Sub
Private Function Init_IDB()
@@ -1283,11 +1283,6 @@ Public Class frmMain
Load_Grid_Overview()
RefreshHelper.LoadViewInfo()
End Sub
Private Sub GridView1_PopupMenuShowing(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.PopupMenuShowingEventArgs)
Dim view As GridView = TryCast(sender, GridView)
MsgBox(e.MenuType.ToString)
End Sub
Sub Load_Grid_Overview()
SplitContainerDashboard.Visible = False
Layout_Single_Profile()
@@ -1498,7 +1493,7 @@ Public Class frmMain
If CURRENT_CLICKED_PROFILE_ID <> 0 Then
Load_Profil_from_Grid(CURRENT_CLICKED_PROFILE_ID)
Else
MsgBox("Bitte wählen Sie zuerst ein Profil aus!", MsgBoxResult.Ok)
MsgBox("Please choose a profile!", MsgBoxResult.Ok, ADDITIONAL_TITLE)
End If
End Sub
@@ -1663,11 +1658,8 @@ Public Class frmMain
Else
RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Default
End If
If ADDITIONAL_TITLE <> String.Empty Then
Me.Text = ADDITIONAL_TITLE
Else
Me.Text = "Process Manager"
End If
LOGGER.Debug($" RibbonControl1.ColorScheme [{RIBBON_COLOR_SCHEME}]")
Me.Text = ADDITIONAL_TITLE
End Sub
Sub Handling_DEBUG_USER()
@@ -1724,7 +1716,7 @@ Public Class frmMain
omsg = omsg.Replace(Chr(10), "")
omsg = omsg.Replace(Chr(13), "")
Dim odatetime As Date = CDate(oLogSplit(0))
oSQL = $"INSERT INTO [dbo].[TBPM_LOG_DEBUG] ([USERID] , [LOGMSG], [ADDED_WHEN]) VALUES({USER_ID},'{omsg}','{odatetime}')"
oSQL = $"INSERT INTO [dbo].[TBPM_LOG_DEBUG] ([USERID] , [LOGMSG], [ADDED_WHEN],DATE_STR) VALUES({USER_ID},'{omsg}',GetDate(),'{odatetime}')"
ClassDatabase.Execute_non_Query(oSQL)
Next
LOGCONFIG.ClearLogs()
@@ -1735,7 +1727,7 @@ Public Class frmMain
End Sub
Private Sub tsslblDEBUG_LOG_MouseHover(sender As Object, e As EventArgs)
MsgBox("UserDebugMode is activated remotely. Debugdata will be transferred to database and will be deleted after 10 days!!", MsgBoxStyle.Information)
MsgBox("UserDebugMode is activated remotely. Debugdata will be transferred to database and will be deleted after 10 days!!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
End Sub