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

MS .6 nach WISAG1

Browse Source
This commit is contained in:
SchreiberM
2020-01-24 10:23:26 +01:00
parent e0fae60798
commit 0ce34a3290
10 changed files with 1278 additions and 1236 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
app/DD_PM_WINDREAM/frmMain.vb
View File

@@ -127,20 +127,23 @@ Public Class frmMain
End If
If USER_IS_ADMIN = True Then
RibbonPageGroup3.Visible = True
'Anzahl der eingeloggten User
bsiUserLoggedIn.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
If USER_LANGUAGE <> "de-DE" Then
bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN
Else
bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN
End If
Else
RibbonPageGroup3.Visible = False
bsiUserLoggedIn.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
If MONITORING_ACTIVE = False Then
RibbonPageGroup2.Visible = False
Else
RibbonPageGroup2.Visible = True
End If
'Anzahl der eingeloggten User
If USER_LANGUAGE <> "de-DE" Then
bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN
Else
bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN
End If
@@ -1346,7 +1349,12 @@ Public Class frmMain
LOGGER.Debug($"Datatable CURR_DT_OVERVIEW loaded: {CURR_DT_OVERVIEW.Rows.Count} rows")
NO_WORKFLOWITEMS = False
If CURR_DT_OVERVIEW.Rows.Count = 0 Then
ToolStripLabelViewTape.Text = "Aktuell keine Workflowdaten vorhanden!"
If USER_LANGUAGE = "de-DE" Then
ToolStripLabelViewTape.Text = "Aktuell keine Workflowdaten vorhanden!"
Else
ToolStripLabelViewTape.Text = "No workflowdata!"
End If
NO_WORKFLOWITEMS = True
@@ -1637,13 +1645,37 @@ Public Class frmMain
Decide_Load()
Handling_DEBUG_USER()
If RIBBON_COLOR_SCHEME = "BLUE" Then
RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Blue
ElseIf RIBBON_COLOR_SCHEME = "DarkBlue".ToUpper Then
RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.DarkBlue
ElseIf RIBBON_COLOR_SCHEME = "Green".ToUpper Then
RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green
ElseIf RIBBON_COLOR_SCHEME = "Orange".ToUpper Then
RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Orange
ElseIf RIBBON_COLOR_SCHEME = "Purple".ToUpper Then
RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Purple
ElseIf RIBBON_COLOR_SCHEME = "Red".ToUpper Then
RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Red
ElseIf RIBBON_COLOR_SCHEME = "Teal".ToUpper Then
RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Teal
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
End Sub
Sub Handling_DEBUG_USER()
If USER_DEBUG_LOG = True Then
If USER_LANGUAGE = "de-DE" Then
bsiDebug.Caption = "ACHTUNG: UserDebugMode ist eingeschaltet!"
bsiDebug.Caption = "HINWEIS: UserDebugMode ist eingeschaltet!"
Else
bsiDebug.Caption = "ATTENTION: UserDebugMode activated!"
bsiDebug.Caption = "INFORMATION: UserDebugMode activated!"
End If
bsiDebug.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else
@@ -1654,13 +1686,16 @@ Public Class frmMain
Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED)
Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql)
ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE)
If USER_IS_ADMIN Then
If USER_LANGUAGE = "de-DE" Then
bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN
Else
bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN
End If
If USER_LANGUAGE = "de-DE" Then
bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN
Else
bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN
End If
If USER_DEBUG_LOG = True Then
' 'Jetzt de rinsert der Inhalte
If Not IsNothing(LOGCONFIG.Logs) Then