1681 lines
69 KiB
VB.net
1681 lines
69 KiB
VB.net
Imports DevExpress.LookAndFeel
|
|
Imports System.Globalization
|
|
Imports DevExpress.Utils
|
|
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
|
|
Imports DevExpress.XtraGrid.Views.Grid
|
|
Imports DevExpress.XtraGrid
|
|
Imports DevExpress.XtraNavBar
|
|
Imports DevExpress.XtraGrid.Columns
|
|
Imports DevExpress.XtraCharts
|
|
Imports DevExpress.XtraGrid.Views.Base
|
|
Imports DevExpress.XtraEditors.Controls
|
|
Imports System.Threading
|
|
Imports System.ComponentModel
|
|
|
|
Public Class frmMain
|
|
'Private _windreamPM As ClassPMWindream
|
|
Private UserLoggedin As Integer = 0
|
|
Private PROFILE_COUNT As Integer = 0
|
|
Private CURR_DT_VWPM_PROFILE_ACTIVE As DataTable
|
|
Private CURR_DT_PROFILEGRID As DataTable
|
|
|
|
Private RedDocuments As Integer = 0
|
|
Private YellowDocuments As Integer = 0
|
|
Private GreenDocuments As Integer = 0
|
|
Private GridViewItem_Clicked = Nothing
|
|
Private GridCursorLocation As Point
|
|
Private GRID_LOAD_TYPE As String = "OVERVIEW"
|
|
Private GRID_INV_COL_REMOVED As Boolean = False
|
|
Private NO_WORKFLOWITEMS As Boolean = False
|
|
Private InResetlayout As Boolean = False
|
|
Private RefreshHelper As RefreshHelper
|
|
Dim DT_CHARTS As DataTable
|
|
Private formopenClose As Boolean = False
|
|
'Private _windream As New ClassWindream_allgemein
|
|
|
|
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
|
Try
|
|
formopenClose = True
|
|
' Position und Größe speichern
|
|
My.Settings.frmMainSize = Me.Size
|
|
My.Settings.frmMainPosition = Me.Location
|
|
My.Settings.Save()
|
|
SaveGridLayout()
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Error in Save FormLayout: " & ex.Message)
|
|
End Try
|
|
If IDB_ACTIVE = False Then
|
|
Try
|
|
If WINDREAM?.oSession?.aLoggedin = True Then
|
|
WINDREAM.Stop_WMCC_andCo()
|
|
End If
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
End If
|
|
|
|
Try
|
|
ClassAllgemeineFunktionen.LoginOut("LOGOUT")
|
|
LOGGER.Info("## ProcessManager beendet - " & Now, False)
|
|
LOGGER.Info("", False)
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("### Fehler bei LogOut")
|
|
LOGGER.Info("### Fehler: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub frmMain_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
|
|
Select Case e.KeyCode
|
|
Case Keys.F12
|
|
frmLicense.ShowDialog()
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub frmMain_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
formopenClose = True
|
|
LOGGER.Debug("Initializing MainForm....")
|
|
|
|
|
|
' Create helper to save/load expanded GroupColumns at runtime
|
|
RefreshHelper = New RefreshHelper(GridView_Docs, "GUID")
|
|
|
|
tslblVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
|
|
If ERROR_STATE = "NO DB-CONNECTION" Or ERROR_STATE = "FAILED DBCONNECTION" Then
|
|
MsgBox("Bitte hinterlegen Sie die Datenbankverbindung in der Konfiguration!", MsgBoxStyle.Critical, "Fehlende Konfiguration:")
|
|
frmKonfig.ShowDialog()
|
|
End If
|
|
Try
|
|
If CultureInfo.CurrentUICulture.ThreeLetterISOLanguageName = "eng" Then
|
|
LOGGER.Info("## CurrentUICulture.Name: " & CultureInfo.CurrentUICulture.Name, False)
|
|
INDEX_DMS_ERSTELLT = "DMS Created"
|
|
INDEX_DMS_ERSTELLT_ZEIT = "DMS Created Time"
|
|
My.Settings.Save()
|
|
End If
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
MessageBox.Show("Fehler bei Laden der CurrentUICulture-Info!", "Achtung:", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
|
End Try
|
|
If Refresh_ConnectionString() = True Then
|
|
Try
|
|
tslblLicenses.Text = "Anzahl Lizenzen: " & LICENSE_COUNT
|
|
LOGGER.Debug("Initializing MainForm....")
|
|
If ERROR_STATE = "NO USER" Then
|
|
MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt!" & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
|
|
Me.Close()
|
|
ElseIf USER_IN_MODULE = False Then
|
|
If USER_IS_ADMIN = False Then
|
|
MsgBox("Achtung: Sie sind nicht für die Nutzung von ProcessManager freigegeben!" & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
|
|
Me.Close()
|
|
End If
|
|
Else
|
|
LOGGER.Info(">> Username: " & USER_USERNAME, False)
|
|
'Wenn license abgelaufen und der User nicht admin ist!
|
|
If LICENSE_EXPIRED = True Then
|
|
If USER_IS_ADMIN = False Then
|
|
MsgBox("Achtung: Lizenz ist abgelaufen oder ungültig!" & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
|
|
Me.Close()
|
|
End If
|
|
End If
|
|
If USER_IS_ADMIN = True Then
|
|
tsddConfig.Visible = True
|
|
Else
|
|
tsddConfig.Visible = False
|
|
End If
|
|
'Anzahl der eingeloggten User
|
|
If USER_LANGUAGE <> "de-DE" Then
|
|
tslblUserLoggedin.Text = "License Count: " & USERCOUNT_LOGGED_IN
|
|
Else
|
|
tslblUserLoggedin.Text = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN
|
|
End If
|
|
|
|
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei User Check:")
|
|
End Try
|
|
tsstlblUser.Text = USER_USERNAME
|
|
|
|
|
|
Try
|
|
If TimerRefresh.Enabled = False Then
|
|
TimerRefresh.Start()
|
|
End If
|
|
Timer5Mins.Start()
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
MsgBox("Unexpected Error in LoadForm - Step 4: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
|
|
End Try
|
|
Load_Profile_items()
|
|
Try
|
|
If SHOW_CHARTS = True Then
|
|
Dim sql = "SELECT * FROM TBPM_CHART"
|
|
DT_CHARTS = ClassDatabase.Return_Datatable(sql)
|
|
If DT_CHARTS.Rows.Count = 0 Then
|
|
NavBarItemDashboard.Visible = False
|
|
Else
|
|
NavBarItemDashboard.Visible = True
|
|
End If
|
|
Else
|
|
NavBarItemDashboard.Visible = False
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
LOGGER.Warn($"Could not load Charts: {ex.Message}")
|
|
End Try
|
|
Check_Timer_Notification()
|
|
Restore_Form_Position()
|
|
If IDB_ACTIVE = False Then
|
|
Try
|
|
WINDREAM = New ClassPMWindream
|
|
WINDREAM.Start_WMCC_andCo()
|
|
|
|
'_windreamPM = New ClassPMWindream
|
|
'_windreamPM.Start_WMCC_andCo()
|
|
If WINDREAM.oSession.aLoggedin = False Then
|
|
MsgBox("Login on windream was not possible. Please check the log." & vbNewLine & "Application will close now!", MsgBoxStyle.Critical)
|
|
Me.Close()
|
|
End If
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
|
|
End Try
|
|
End If
|
|
|
|
|
|
LOGGER.Debug("MainForm initialized!")
|
|
End If
|
|
formopenClose = False
|
|
End Sub
|
|
Sub Check_Timer_Notification()
|
|
Try
|
|
If My.Settings.IntervallReminder <> 0 Then
|
|
TimerReminder.Stop()
|
|
TimerReminder.Interval = My.Settings.IntervallReminder * 60000
|
|
TimerReminder.Start()
|
|
Else
|
|
TimerReminder.Enabled = False
|
|
TimerReminder.Stop()
|
|
End If
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
Sub Restore_Form_Position()
|
|
Try
|
|
'Sind Werte hinterlegt?
|
|
If My.Settings.frmMainPosition.IsEmpty = False Then
|
|
If My.Settings.frmMainPosition.X > 0 And My.Settings.frmMainPosition.Y > 0 Then
|
|
' Gespeicherte Werte verwenden
|
|
Me.Location = My.Settings.frmMainPosition
|
|
End If
|
|
End If
|
|
'Sind Werte hinterlegt?
|
|
If Not My.Settings.frmMainSize.IsEmpty Then
|
|
' Gespeicherte Werte verwenden
|
|
Try
|
|
Me.Size = My.Settings.frmMainSize
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Error in Load FormLayout: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
Function Refresh_ConnectionString()
|
|
Try
|
|
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
|
|
TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING
|
|
TBPM_USERTableAdapter.Connection.ConnectionString = CONNECTION_STRING
|
|
TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING
|
|
|
|
Return True
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Refresh_ConnectionString:")
|
|
Return False
|
|
End Try
|
|
End Function
|
|
Private Function GetXML_OverviewLayoutName()
|
|
Dim Filename As String = String.Format("DevExpressGridViewOverview_UserLayout_{0}.xml", GRID_LOAD_TYPE)
|
|
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
|
|
End Function
|
|
|
|
Private Sub SaveGridLayout()
|
|
If NO_WORKFLOWITEMS = True Then
|
|
Exit Sub
|
|
End If
|
|
Try
|
|
Dim xml As String = GetXML_OverviewLayoutName()
|
|
GridView_Docs.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Error while saving GridLayout: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub RestoreLayout()
|
|
If NO_WORKFLOWITEMS = True Then
|
|
Exit Sub
|
|
End If
|
|
|
|
Try
|
|
Dim oXml As String = GetXML_OverviewLayoutName()
|
|
GridView_Docs.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout)
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Error while restoring layout: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ResetLayout()
|
|
Try
|
|
Dim xml As String = GetXML_OverviewLayoutName()
|
|
IO.File.Delete(xml)
|
|
|
|
GridView_Docs.Columns.Clear()
|
|
GridView_Docs.PopulateColumns()
|
|
If GridView_Docs.Columns.Count > 0 Then
|
|
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
|
|
GridView_Docs.Columns.Item("GUID").Visible = False
|
|
GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False
|
|
GridView_Docs.Columns.Item("DOC_ID").Visible = False
|
|
GridView_Docs.Columns.Item("TL_STATE").Visible = False
|
|
GridView_Docs.Columns.Item("ICON").MaxWidth = 24
|
|
GridView_Docs.Columns.Item("ICON").MinWidth = 24
|
|
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
|
|
GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
|
|
GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
|
|
GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
|
|
Try
|
|
GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
|
|
GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Error while resetting layout: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Sub Load_Profile_items()
|
|
|
|
Dim profileGroupOpen As Boolean = False
|
|
|
|
Try
|
|
Dim CurrGroup As NavBarGroup = NavBarControl1.Groups(1)
|
|
profileGroupOpen = CurrGroup.Expanded
|
|
Try
|
|
|
|
CurrGroup.ItemLinks.Clear()
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("CurrGroupClear - Error: " & ex.Message)
|
|
|
|
End Try
|
|
|
|
|
|
If Load_Profiles_for_User() = False Then
|
|
Throw New Exception("Could not load Profiles. Datatable is empty")
|
|
Exit Sub
|
|
End If
|
|
Dim oCountItems As Integer = 0
|
|
For Each oProfileRow As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
|
|
If CInt(oProfileRow.Item("FILE_COUNT")) > 0 And (oProfileRow.Item("DISPLAY_MODE") = "Overview and Detail" Or oProfileRow.Item("DISPLAY_MODE") = "Detail") Then
|
|
|
|
oCountItems += 1
|
|
Dim item1 As NavBarItem = NavBarControl1.Items.Add()
|
|
item1.Caption = oProfileRow.Item("TITLE")
|
|
item1.Hint = oProfileRow.Item("TITLE")
|
|
item1.Appearance.TextOptions.WordWrap = WordWrap.Wrap
|
|
item1.Tag = "itmProfile#" & oProfileRow.Item("GUID").ToString
|
|
|
|
Dim _image As Image = Nothing
|
|
_image = DevExpress.Images.ImageResourceCache.Default.GetImage("images/business%20objects/bofileattachment_16x16.png")
|
|
item1.LargeImage = _image
|
|
item1.SmallImage = _image
|
|
|
|
NavBarControl1.Groups(1).ItemLinks.Add(item1)
|
|
|
|
AddHandler NavBarControl1.LinkClicked, AddressOf navBar_LinkClicked
|
|
End If
|
|
Next
|
|
If oCountItems > 0 Then
|
|
If NavBarControl1.Groups(1).Visible = False Then
|
|
NavBarControl1.Groups(1).Visible = True
|
|
End If
|
|
Else
|
|
If NavBarControl1.Groups(1).Visible = True Then
|
|
NavBarControl1.Groups(1).Visible = False
|
|
End If
|
|
End If
|
|
|
|
|
|
CurrGroup.Expanded = profileGroupOpen
|
|
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Load_Profile_items - Error: " & ex.Message)
|
|
'MsgBox("Unexpected Error in Load_Profile_items - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
|
|
End Sub
|
|
Private Sub navBar_LinkClicked(ByVal sender As Object, ByVal e As NavBarLinkEventArgs)
|
|
' Das aktuelle Layout speichern, bevor das neue geladen wird
|
|
' und GRID_LOAD_TYPE gesetzt wird.
|
|
SaveGridLayout()
|
|
|
|
Dim _tag = e.Link.Item.Tag
|
|
If Not IsNothing(_tag) Then
|
|
If _tag.ToString.Contains("itmProfile#") Then
|
|
_tag = _tag.ToString.Replace("itmProfile#", "")
|
|
If IsNumeric(_tag) Then
|
|
If CURRENT_CLICKED_PROFILE_ID <> _tag Then
|
|
CURRENT_CLICKED_PROFILE_ID = _tag
|
|
CURRENT_CLICKED_PROFILE_TITLE = e.Link.Item.Caption
|
|
GRID_LOAD_TYPE = "PROFILE#" & CURRENT_CLICKED_PROFILE_ID.ToString
|
|
Load_single_Profile()
|
|
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
End Sub
|
|
Function Load_Profiles_for_User() As Boolean
|
|
Try
|
|
Dim sql = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID)
|
|
CURR_DT_VWPM_PROFILE_ACTIVE = ClassDatabase.Return_Datatable(sql)
|
|
|
|
If IsNothing(CURR_DT_VWPM_PROFILE_ACTIVE) Then
|
|
Return False
|
|
End If
|
|
|
|
Return True
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Load_Profiles_for_User - Error: " & ex.Message)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
Sub Layout_Single_Profile()
|
|
If GridControl_Docs.Visible = False Then
|
|
BindingNavigator1.Visible = True
|
|
BindingNavigator1.Dock = DockStyle.Top
|
|
GridControl_Docs.Visible = True
|
|
GridControl_Docs.Dock = DockStyle.Fill
|
|
SplitContainerDashboard.Visible = False
|
|
SplitContainerDashboard.Dock = DockStyle.None
|
|
|
|
End If
|
|
End Sub
|
|
Sub Layout_Dashboard()
|
|
Try
|
|
|
|
If GridControl_Docs.Visible = True Then
|
|
BindingNavigator1.Visible = False
|
|
BindingNavigator1.Dock = DockStyle.None
|
|
GridControl_Docs.Visible = False
|
|
GridControl_Docs.Dock = DockStyle.None
|
|
|
|
Dim groupCount As Integer
|
|
Dim charts As List(Of ChartControl)
|
|
SplitContainerDashboard.Visible = True
|
|
Dim Groups As DataRowCollection = DT_CHARTS.Rows
|
|
groupCount = Groups.Count
|
|
Configure_Split_Containers(groupCount)
|
|
charts = New List(Of ChartControl) From {ChartTopLeft, ChartTopRight, ChartBottomLeft, ChartBottomRight}
|
|
If groupCount > 1 Then
|
|
For Each gRow As DataRow In Groups
|
|
Dim groupIndex As Integer = Groups.IndexOf(gRow)
|
|
Dim groupName As String = gRow.Item("GROUP_ID")
|
|
|
|
Dim groupCharts = DT_CHARTS.Select(String.Format("GROUP_ID = '{0}'", groupName))
|
|
Dim chart As ChartControl
|
|
|
|
For Each cRow As DataRow In groupCharts
|
|
|
|
Dim type = cRow.Item("TYPE_CHART")
|
|
Dim title = cRow.Item("TITLE")
|
|
Dim guid = cRow.Item("GUID")
|
|
Dim value = cRow.Item("VALUE")
|
|
Dim argument = cRow.Item("ARGUMENT")
|
|
Dim sqlchart = cRow.Item("SQL_COMMAND")
|
|
sqlchart = sqlchart.ToString.ToUpper.Replace("@USER", USER_USERNAME)
|
|
Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(sqlchart)
|
|
|
|
Dim series As Series = Create_Series(title, type)
|
|
|
|
' Select Current Chart
|
|
chart = Select_Chart(groupIndex)
|
|
chart = charts.Item(groupIndex)
|
|
Try
|
|
chart.Series.Clear()
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
|
|
End Try
|
|
' Set DataSource
|
|
chart.DataSource = DATA_DT
|
|
|
|
' Set shown Columns for Chart
|
|
series.ArgumentDataMember = argument
|
|
series.ValueDataMembers.AddRange(New String() {value})
|
|
|
|
'set some options
|
|
chart.Legend.Visibility = DevExpress.Utils.DefaultBoolean.True
|
|
|
|
' Show Data
|
|
chart.Series.Add(series)
|
|
|
|
Next ' End Charts
|
|
Next 'End Groups
|
|
Else
|
|
' Create Charts
|
|
For Each row As DataRow In DT_CHARTS.Rows
|
|
|
|
Dim chart As ChartControl
|
|
|
|
Dim chartIndex As Integer = DT_CHARTS.Rows.IndexOf(row)
|
|
|
|
Dim type = row.Item("TYPE_CHART")
|
|
Dim title = row.Item("TITLE")
|
|
Dim guid = row.Item("GUID")
|
|
Dim value = row.Item("VALUE")
|
|
Dim argument = row.Item("ARGUMENT")
|
|
Dim sqlchart = row.Item("SQL_COMMAND")
|
|
|
|
sqlchart = clsPatterns.ReplaceInternalValues(sqlchart)
|
|
sqlchart = clsPatterns.ReplaceUserValues(sqlchart, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
|
|
|
|
sqlchart = sqlchart.ToString.ToUpper.Replace("@USER_ID", USER_ID)
|
|
sqlchart = sqlchart.ToString.ToUpper.Replace("@USER", USER_USERNAME)
|
|
Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(sqlchart)
|
|
|
|
' Create Series based on type
|
|
Dim series As Series = Create_Series(title, type)
|
|
|
|
' Select Current Chart
|
|
chart = Select_Chart(chartIndex)
|
|
Try
|
|
chart.Series.Clear()
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
|
|
End Try
|
|
' Set DataSource
|
|
chart.DataSource = DATA_DT
|
|
|
|
' Set shown Columns for Chart
|
|
series.ArgumentDataMember = argument
|
|
series.ValueDataMembers.AddRange(New String() {value})
|
|
|
|
'set some options
|
|
chart.Legend.Visibility = DevExpress.Utils.DefaultBoolean.True
|
|
chart.OptionsPrint.SizeMode = Printing.PrintSizeMode.Stretch
|
|
|
|
' Show Data
|
|
chart.Series.Add(series)
|
|
|
|
Next
|
|
End If
|
|
End If
|
|
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)
|
|
End Try
|
|
End Sub
|
|
Private Function Create_Series(title As String, type As String) As Series
|
|
Dim series As Series
|
|
|
|
Select Case type
|
|
Case "BAR"
|
|
series = New Series(title, ViewType.Bar)
|
|
Case "LINE"
|
|
series = New Series(title, ViewType.Line)
|
|
Case "AREA"
|
|
series = New Series(title, ViewType.Area)
|
|
Case "PIE"
|
|
series = New Series(title, ViewType.Pie)
|
|
series.Label.TextPattern = "{A}: {VP:p0}"
|
|
Dim view As PieSeriesView = DirectCast(series.View, PieSeriesView)
|
|
view.Titles.Add(New SeriesTitle())
|
|
view.Titles(0).Text = title
|
|
Case Else
|
|
series = New Series(title, ViewType.Bar)
|
|
End Select
|
|
|
|
Return series
|
|
End Function
|
|
Private Function Select_Chart(index As Integer)
|
|
Select Case index
|
|
Case 0
|
|
Return ChartTopLeft
|
|
Case 1
|
|
Return ChartTopRight
|
|
Case 2
|
|
Return ChartBottomLeft
|
|
Case Else
|
|
Return ChartBottomRight
|
|
End Select
|
|
End Function
|
|
Private Sub Configure_Split_Containers(VisibleContainers As Integer)
|
|
Select Case VisibleContainers
|
|
Case 1
|
|
' Show only ChartTopLeft
|
|
SplitContainerTop.Panel2Collapsed = True
|
|
' Collapse SplitContainerBottom
|
|
SplitContainerDashboard.Panel2Collapsed = True
|
|
Case 2
|
|
' Collapse SplitContainerBottom
|
|
SplitContainerDashboard.Panel2Collapsed = True
|
|
Case 3
|
|
' Collapse ChartBottomRight
|
|
SplitContainerBottom.Panel2Collapsed = True
|
|
' Show SplitContainerBottom
|
|
SplitContainerDashboard.Panel2Collapsed = False
|
|
Case 4
|
|
' Show SplitContainerBottom
|
|
SplitContainerDashboard.Panel2Collapsed = False
|
|
End Select
|
|
SplitContainerDashboard.Dock = DockStyle.Fill
|
|
End Sub
|
|
|
|
Sub Load_single_Profile()
|
|
Try
|
|
Load_Profiles_for_User()
|
|
Layout_Single_Profile()
|
|
Dim expression As String
|
|
expression = "GUID = " & CURRENT_CLICKED_PROFILE_ID
|
|
Dim TEMP_TABLE = CURR_DT_VWPM_PROFILE_ACTIVE
|
|
Dim foundRows() As DataRow
|
|
foundRows = TEMP_TABLE.Select(expression)
|
|
Dim result = 0
|
|
For i = 0 To foundRows.GetUpperBound(0)
|
|
result += 1
|
|
Next
|
|
|
|
If result = 1 Then
|
|
ToolStripLabelViewTape.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
|
|
|
|
Dim sql = foundRows(0)("SQL_VIEW")
|
|
|
|
sql = clsPatterns.ReplaceInternalValues(sql)
|
|
sql = clsPatterns.ReplaceUserValues(sql, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
|
|
|
|
sql = sql.Replace("@USER_ID", USER_ID)
|
|
sql = sql.Replace("@USERNAME", USER_USERNAME)
|
|
sql = sql.Replace("@MACHINE_NAME", Environment.MachineName)
|
|
sql = sql.Replace("@DATE", Now.ToShortDateString)
|
|
sql = sql.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID)
|
|
CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True)
|
|
If CURR_DT_PROFILEGRID.Rows.Count = 0 Then
|
|
NO_WORKFLOWITEMS = True
|
|
Else
|
|
NO_WORKFLOWITEMS = False
|
|
End If
|
|
Create_Basic_View()
|
|
|
|
RestoreLayout()
|
|
ToolStripLabelViewTape.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Load_single_Profile - Error: " & ex.Message)
|
|
End Try
|
|
|
|
End Sub
|
|
Sub Create_Basic_View()
|
|
|
|
GridControl_Docs.DataSource = Nothing
|
|
Try
|
|
GridView_Docs.Columns.Clear()
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
|
|
End Try
|
|
|
|
' Spalte für Status Icon erstellen
|
|
Dim columnStateIcon As New DataColumn()
|
|
columnStateIcon.DataType = GetType(Image)
|
|
columnStateIcon.ColumnName = "ICON"
|
|
columnStateIcon.Caption = ""
|
|
CURR_DT_PROFILEGRID.Columns.Add(columnStateIcon)
|
|
|
|
RedDocuments = 0
|
|
YellowDocuments = 0
|
|
GreenDocuments = 0
|
|
|
|
For Each row As DataRow In CURR_DT_PROFILEGRID.Rows
|
|
Dim State As Integer = row.Item("TL_STATE")
|
|
Select Case State
|
|
Case 1
|
|
RedDocuments += 1
|
|
row.Item("ICON") = My.Resources.ampel_rot
|
|
Case 2
|
|
YellowDocuments += 1
|
|
row.Item("ICON") = My.Resources.ampel_gelb
|
|
Case 3
|
|
GreenDocuments += 1
|
|
row.Item("ICON") = My.Resources.ampel_gruen
|
|
End Select
|
|
Next
|
|
|
|
bindsourcegrid.DataSource = CURR_DT_PROFILEGRID
|
|
GridControl_Docs.DataSource = bindsourcegrid
|
|
|
|
'GridControlDocRow.ForceInitialize()
|
|
|
|
RestoreLayout()
|
|
|
|
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
|
|
GridView_Docs.Columns.Item("GUID").Visible = False
|
|
GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False
|
|
GridView_Docs.Columns.Item("DOC_ID").Visible = False
|
|
GridView_Docs.Columns.Item("TL_STATE").Visible = False
|
|
GridView_Docs.Columns.Item("ICON").MaxWidth = 24
|
|
GridView_Docs.Columns.Item("ICON").MinWidth = 24
|
|
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
|
|
GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
|
|
GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
|
|
GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
|
|
Try
|
|
GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
|
|
GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
Private Function GridLayoutChanged() As Boolean
|
|
Try
|
|
For Each oViewColumn As DataColumn In CURR_DT_PROFILEGRID.Columns
|
|
If oViewColumn.Caption = "" Then
|
|
Continue For
|
|
End If
|
|
Dim oViewColumn_exists As Boolean = False
|
|
For Each oActGridColumn As GridColumn In GridView_Docs.Columns
|
|
Dim oGridDXFieldName = oActGridColumn.FieldName
|
|
Dim GridDXColumnEditName = oActGridColumn.ColumnEditName
|
|
Dim GridDXFieldName = oActGridColumn.FieldName
|
|
If oViewColumn.Caption = oGridDXFieldName Then
|
|
If oActGridColumn.Visible = False Then
|
|
If oViewColumn.Caption <> "GUID" And oViewColumn.Caption <> "TL_STATE" And oViewColumn.Caption <> "PROFILE_ID" And oViewColumn.Caption <> "DOC_ID" And
|
|
oViewColumn.Caption <> "FULL_FILE_PATH" And oViewColumn.Caption <> "GROUP_COLOR" And oViewColumn.Caption <> "GROUP_TEXT" Then
|
|
Console.WriteLine($"ViewColumn [{oViewColumn.Caption}] is invisible")
|
|
Else
|
|
oViewColumn_exists = True
|
|
End If
|
|
Else
|
|
oViewColumn_exists = True
|
|
End If
|
|
End If
|
|
Next
|
|
If oViewColumn_exists = False Then
|
|
LOGGER.Info($"Following ViewColumn no longer exists in the view: [{oViewColumn.Caption}]")
|
|
Return True
|
|
End If
|
|
Next
|
|
For Each oActGridColumn As GridColumn In GridView_Docs.Columns
|
|
If oActGridColumn.Caption = "" Then
|
|
Continue For
|
|
End If
|
|
Dim oGridColumn_exists As Boolean = False
|
|
Dim oGridDXFieldName = oActGridColumn.FieldName
|
|
For Each oViewColumn As DataColumn In CURR_DT_PROFILEGRID.Columns
|
|
If oViewColumn.Caption = oGridDXFieldName Then
|
|
oGridColumn_exists = True
|
|
End If
|
|
Next
|
|
If oGridColumn_exists = False Then
|
|
LOGGER.Info($"Following GridColumn no longer exists in the View: [{oGridDXFieldName}]")
|
|
Return True
|
|
End If
|
|
Next
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Unexpected Error in GridLayoutChanged: " & ex.Message)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
'Sub LoadProfile_PM()
|
|
' Try
|
|
' If Me.Visible = True And frmAdministration.Visible = False Then
|
|
' Load_Profiles_for_User()
|
|
|
|
' PROFILE_COUNT = 0
|
|
' ClassInit.InitBasics()
|
|
' Dim sql = CURRENT_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW")
|
|
|
|
' sql = clsPatterns.ReplaceInternalValues(sql)
|
|
' sql = clsPatterns.ReplaceUserValues(sql, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
|
|
|
|
' ' this needs to stay for backwards compatibility
|
|
' sql = sql.Replace("@USER_ID", USER_ID)
|
|
' sql = sql.Replace("@USERNAME", USER_USERNAME) '{#INT#USERNAME}
|
|
' sql = sql.Replace("@MACHINE_NAME", Environment.MachineName) '{#INT#machineName}
|
|
' sql = sql.Replace("@DATE", Now.ToShortDateString)
|
|
' sql = sql.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID)
|
|
|
|
' 'String.Format("SELECT '1' TL_STATE,T.PROFIL_ID,T1.TITLE, T.DOC_ID, T.FILE_PATH, T.DMS_ERSTELLT_DATE,[dbo].[FNPM_LAST_WORKUSER_DOC] (T.PROFIL_ID,T.DOC_ID) AS 'Last User',[dbo].[FNPM_LAST_EDITED_DOC] (T.PROFIL_ID,T.DOC_ID) as 'Last edited' FROM TBPM_PROFILE_FILES T, VWPM_PROFILE_USER T1 " &
|
|
' ' "WHERE T.PROFIL_ID = T1.PROFIL_ID " &
|
|
' ' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", USER_USERNAME)
|
|
' CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True)
|
|
|
|
' If Not IsNothing(CURR_DT_PROFILEGRID) Then
|
|
' If CURR_DT_PROFILEGRID.Rows.Count = 0 Then
|
|
' NO_WORKFLOWITEMS = True
|
|
' Else
|
|
' NO_WORKFLOWITEMS = False
|
|
' End If
|
|
' Create_Basic_View()
|
|
|
|
' Try
|
|
' Try
|
|
' GridView_Docs.Columns.Item("GROUP_TEXT").GroupIndex = 0
|
|
' GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
|
|
' GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
|
|
' Catch ex As Exception
|
|
|
|
' End Try
|
|
|
|
' For I = 0 To GridView_Docs.GroupCount - 1
|
|
' Dim v = GridView_Docs.GroupedColumns(I).ToString
|
|
' Dim ii = Nothing
|
|
' GridView_Docs.GroupedColumns(I).Tag = GridView_Docs.Columns.Item("PROFILE_ID")
|
|
' Next
|
|
|
|
' 'GridView_Docs.OptionsBehavior.AutoExpandAllGroups = False
|
|
' 'GridView_Docs.OptionsView.ShowGroupedColumns = False
|
|
' Catch ex As Exception
|
|
' LOGGER.Error(ex)
|
|
' LOGGER.Info("Unexpected Error in Formatting Grid: " & ex.Message)
|
|
' End Try
|
|
|
|
' Dim Columns_Removed = GridView_CheckInvalidColumns()
|
|
' RestoreLayout()
|
|
|
|
' If GridView_Docs.Columns.Count <= 2 Then
|
|
' LOGGER.Info("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False)
|
|
' Reset_GridLayout()
|
|
' End If
|
|
|
|
' Else
|
|
' GridControl_Docs.DataSource = Nothing
|
|
' Try
|
|
' GridView_Docs.Columns.Clear()
|
|
' Catch ex As Exception
|
|
' LOGGER.Error(ex)
|
|
|
|
' End Try
|
|
' End If
|
|
' End If
|
|
' Catch ex As Exception
|
|
' LOGGER.Error(ex)
|
|
' LOGGER.Info("LoadProfile_PM - Fehler: " & ex.Message)
|
|
' MsgBox("Fehler LoadProfile_PM - Fehler: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
|
|
' End Try
|
|
|
|
'End Sub
|
|
Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
|
|
Try
|
|
frmKonfig.ShowDialog()
|
|
Refresh_ConnectionString()
|
|
' Load_Profil()
|
|
Check_Timer_Notification()
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden Grundeinstellungen:")
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub NotifyIcon1_MouseDoubleClick(sender As System.Object, e As MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
|
|
BringToFront()
|
|
Visible = True
|
|
End Sub
|
|
|
|
Private Sub Timer_Tick(sender As System.Object, e As EventArgs) Handles TimerRefresh.Tick
|
|
If TimerRefresh.Enabled = False Then
|
|
Exit Sub
|
|
End If
|
|
If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.SaveViewInfo()
|
|
SaveGridLayout()
|
|
Load_Profile_items()
|
|
Decide_Load()
|
|
If USER_LANGUAGE <> "de-DE" Then
|
|
tsslblLastSysnc.Text = "Last Client-Sync: " & Now.ToLongTimeString
|
|
Else
|
|
tsslblLastSysnc.Text = "Letzte Synchronisation: " & Now.ToLongTimeString
|
|
End If
|
|
|
|
If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo()
|
|
|
|
|
|
Handling_DEBUG_USER()
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub NotifyIcon1_Click(sender As System.Object, e As EventArgs) Handles NotifyIcon1.Click
|
|
BringToFront()
|
|
Visible = True
|
|
End Sub
|
|
Private Sub Decide_Load()
|
|
Try
|
|
If USER_EXISTS = False Then
|
|
Exit Sub
|
|
End If
|
|
If TimerRefresh.Enabled = True Then
|
|
TimerRefresh.Stop()
|
|
End If
|
|
If GRID_LOAD_TYPE = "OVERVIEW" Then
|
|
Load_Grid_Overview()
|
|
ElseIf GRID_LOAD_TYPE.StartsWith("PROFILE#") Then
|
|
Load_single_Profile()
|
|
End If
|
|
If SHOW_MASS_VALIDATOR = False Then
|
|
GridView_Docs.OptionsSelection.MultiSelect = False
|
|
tsmiMarkedFilesFinish.Visible = False
|
|
ToolStripSeparator4.Visible = False
|
|
Else
|
|
tsmiMarkedFilesFinish.Visible = True
|
|
ToolStripSeparator4.Visible = True
|
|
GridView_Docs.OptionsSelection.MultiSelect = True
|
|
End If
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Unexpected error in Decide_load: " & ex.Message)
|
|
End Try
|
|
If TimerRefresh.Enabled = False Then
|
|
TimerRefresh.Start()
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub ToolStripButton2_Click_1(sender As Object, e As EventArgs) Handles tsbtnrefresh.Click
|
|
If GridControl_Docs.Visible = True And formopenClose = False Then
|
|
RefreshHelper.SaveViewInfo()
|
|
SaveGridLayout()
|
|
End If
|
|
|
|
Load_Profile_items()
|
|
Decide_Load()
|
|
If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo()
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton2_Click_2(sender As Object, e As EventArgs)
|
|
frmAdminPasswort.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton2_Click_3(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
|
|
frmAbout.ShowDialog()
|
|
End Sub
|
|
|
|
Public Sub New()
|
|
Dim splash As New frmSplash()
|
|
Try
|
|
splash.ShowDialog()
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info($"Error in Splash: {ex.Message}")
|
|
End Try
|
|
Try
|
|
InitializeComponent()
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info($"Error in InitializeComponent: {ex.Message}")
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub TimerReminder_Tick(sender As Object, e As EventArgs) Handles TimerReminder.Tick
|
|
If PROFILE_COUNT > 0 Then NotifyIcon1.ShowBalloonTip(30000, "ProcessManager-Reminder", "Sie haben unerledigte Dokumente in Ihrem Verantwortungsbereich.", ToolTipIcon.Info)
|
|
End Sub
|
|
|
|
|
|
Sub Load_Profil_from_Grid(ID As Integer)
|
|
Try
|
|
'Me.Visible = False
|
|
CURRENT_ProfilGUID = ID
|
|
CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, CONNECTION_STRING)
|
|
CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID))
|
|
CURRENT_DT_PROFILE_SEARCHES_DOC = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'DOC' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
|
|
CURRENT_DT_PROFILE_SEARCHES_SQL = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'SQL' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
|
|
My.Settings.Save()
|
|
|
|
If TimerRefresh.Enabled Then
|
|
TimerRefresh.Stop()
|
|
End If
|
|
Dim th As System.Threading.Thread
|
|
If Not Application.OpenForms().OfType(Of frmValidator).Any Then
|
|
th = New Threading.Thread(AddressOf Task_A)
|
|
th.SetApartmentState(ApartmentState.STA)
|
|
th.Start()
|
|
Else
|
|
LOGGER.Debug("Validator is already open...")
|
|
Exit Sub
|
|
End If
|
|
|
|
' frmValidator.ShowDialog()
|
|
Do While th.IsAlive
|
|
|
|
Loop
|
|
LOGGER.Debug("th has ended!")
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profil_from_Grid: ")
|
|
End Try
|
|
' Me.Visible = True
|
|
Decide_Load()
|
|
|
|
End Sub
|
|
Public Sub Task_A()
|
|
Dim frmA = New frmValidator() ' Must be created on this thread!
|
|
Application.Run(frmA)
|
|
End Sub
|
|
Private Sub ContextMenuGrid_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuGrid.Opening
|
|
CMFileStart.Enabled = False
|
|
CMGroupStart.Enabled = False
|
|
tsmiMarkedFilesFinish.Enabled = False
|
|
|
|
Dim selectedRows As Integer() = GridView_Docs.GetSelectedRows()
|
|
|
|
If selectedRows.Count > 0 Then
|
|
tsmiMarkedFilesFinish.Enabled = True
|
|
End If
|
|
|
|
Select Case GridViewItem_Clicked
|
|
Case "GROUP"
|
|
CMGroupStart.Enabled = True
|
|
Case "ROW"
|
|
If selectedRows.Count > 1 Then
|
|
CMFileStart.Enabled = False
|
|
Else
|
|
CMFileStart.Enabled = True
|
|
End If
|
|
If CURRENT_CLICKED_PROFILE_ID > 0 Then
|
|
CMGroupStart.Enabled = True
|
|
End If
|
|
End Select
|
|
|
|
End Sub
|
|
|
|
Private Sub CMFileStart_Click(sender As Object, e As EventArgs) Handles CMFileStart.Click
|
|
Item_Scope("CMROW")
|
|
End Sub
|
|
Private Sub Item_Scope(startedFrom As String)
|
|
Try
|
|
'GridView_Docs.EndSelection()
|
|
CURRENT_JUMP_DOC_GUID = 0
|
|
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
|
|
|
|
Dim groupRowText
|
|
Dim PROFIL_ID
|
|
If hitInfo.InGroupRow Then
|
|
GridViewItem_Clicked = "GROUP"
|
|
groupRowText = GridView_Docs.GetGroupRowDisplayText(hitInfo.RowHandle)
|
|
PROFIL_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridView_Docs.Columns("PROFILE_ID"))
|
|
ElseIf hitInfo.InDataRow Then
|
|
GridViewItem_Clicked = "ROW"
|
|
If GRID_LOAD_TYPE = "OVERVIEW" Then
|
|
groupRowText = GridView_Docs.GetGroupRowDisplayText(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle))
|
|
PROFIL_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID"))
|
|
Else
|
|
PROFIL_ID = CURRENT_CLICKED_PROFILE_ID
|
|
End If
|
|
|
|
Else
|
|
Exit Sub
|
|
End If
|
|
Dim PROFIL_TITLE
|
|
If GRID_LOAD_TYPE = "OVERVIEW" Then
|
|
Try
|
|
groupRowText = LTrim(RTrim(groupRowText.ToString.Replace("GROUP_TEXT: ", "")))
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
Dim _SPLIT As String()
|
|
_SPLIT = groupRowText.Split("|")
|
|
PROFIL_TITLE = LTrim(RTrim(_SPLIT(0).ToString))
|
|
Else
|
|
|
|
End If
|
|
|
|
|
|
If Not IsNothing(PROFIL_ID) And IsNumeric(PROFIL_ID) Then
|
|
|
|
Dim expression As String
|
|
expression = "PROFILE_ID = " & PROFIL_ID
|
|
If hitInfo.InGroupRow Or (startedFrom = "CMGROUP" And hitInfo.InDataRow) Then
|
|
CURRENT_JUMP_DOC_GUID = 0
|
|
CURRENT_DOC_GUID = 0
|
|
CURRENT_ProfilGUID = PROFIL_ID
|
|
|
|
|
|
Load_Profil_from_Grid(PROFIL_ID)
|
|
|
|
ElseIf hitInfo.InDataRow Then
|
|
Dim DOC_GUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID"))
|
|
Dim DOC_ID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DOC_ID"))
|
|
If IsNothing(DOC_ID) Then Exit Sub
|
|
Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("FULL_FILE_PATH"))
|
|
DOC_PATH = DOC_PATH.Replace("W:", "\\windream\objects")
|
|
DOC_PATH = DOC_PATH.Replace("K:", "\\windream\objects")
|
|
'Checking if table really contains one record with profile-id and docid
|
|
expression = expression & " AND DOC_ID = " & DOC_ID
|
|
Dim TEMP_TABLE = CURR_DT_PROFILEGRID
|
|
Dim foundRows() As DataRow
|
|
foundRows = TEMP_TABLE.Select(expression)
|
|
Dim result = 0
|
|
For i = 0 To foundRows.GetUpperBound(0)
|
|
result += 1
|
|
Next
|
|
If result = 1 Then
|
|
CURRENT_DOC_ID = DOC_ID
|
|
CURRENT_JUMP_DOC_GUID = DOC_GUID
|
|
CURRENT_DOC_GUID = CURRENT_JUMP_DOC_GUID
|
|
CURRENT_DOC_PATH = DOC_PATH
|
|
Load_Profil_from_Grid(PROFIL_ID)
|
|
Else
|
|
Exit Sub
|
|
End If
|
|
|
|
End If
|
|
Else
|
|
MsgBox("Could not get the ProfileID of file! - Check Your configuration of MainView!", MsgBoxStyle.Critical)
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
Private Function Init_IDB()
|
|
Try
|
|
IDBData = New ClassIDBData()
|
|
|
|
Return True
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
MsgBox("Error Init_IDB:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
|
|
LOGGER.Info(">> Unexpected error in Init_IDB: " & ex.Message, True)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
Private Function Init_windream()
|
|
Try
|
|
'_windream = New ClassWindream_allgemein
|
|
'_windream.Create_Session()
|
|
'_windreamPM = New ClassPMWindream()
|
|
'_windreamPM.Create_Session()
|
|
WINDREAM = New ClassPMWindream()
|
|
WINDREAM.Create_Session()
|
|
|
|
LOGGER.Debug("windream initialized")
|
|
Return True
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
|
|
LOGGER.Info(">> Unexpected error in Init_windream: " & ex.Message, True)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
Private Sub tsmiMarkedFilesFinish_Click(sender As Object, e As EventArgs) Handles tsmiMarkedFilesFinish.Click
|
|
Try
|
|
Dim oSelectedRows As Integer() = GridView_Docs.GetSelectedRows()
|
|
Dim oHitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
|
|
Dim oSelectedRowHandle As Integer = oHitInfo.RowHandle
|
|
Dim oWorkedFiles As Integer = 0
|
|
|
|
Dim oProfileId = 0
|
|
|
|
If oSelectedRows.Count = 0 Then
|
|
If USER_LANGUAGE = "de-DE" Then
|
|
MsgBox("Bitte selektieren Sie einige 1 oder mehr Dokumente", MsgBoxStyle.Exclamation, "Massenabschluss")
|
|
Else
|
|
MsgBox("Please select some documents!", MsgBoxStyle.Exclamation, "Mass Validation")
|
|
End If
|
|
|
|
Exit Sub
|
|
End If
|
|
|
|
oProfileId = GridView_Docs.GetRowCellValue(oSelectedRows.Last(), GridView_Docs.Columns("PROFILE_ID"))
|
|
|
|
If oProfileId = 0 Then
|
|
MsgBox("Could not select a profile!", MsgBoxStyle.Exclamation, "Mass Validation")
|
|
Exit Sub
|
|
End If
|
|
|
|
If IDB_ACTIVE = False Then
|
|
SOURCE_INIT = Init_windream()
|
|
|
|
Else
|
|
SOURCE_INIT = Init_IDB()
|
|
End If
|
|
|
|
|
|
If SOURCE_INIT = True Then
|
|
|
|
CURRENT_ProfilGUID = oProfileId
|
|
CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID))
|
|
CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID))
|
|
CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("PM_VEKTOR_INDEX")
|
|
If CURRENT_PROFILE_VEKTOR_LOG = "" Then
|
|
CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("LOG_INDEX")
|
|
End If
|
|
|
|
|
|
Dim NewDatatable As New DataTable
|
|
NewDatatable.Columns.Add("DOC_ID")
|
|
NewDatatable.Columns.Add("DOC_GUID")
|
|
NewDatatable.Columns.Add("FULL_PATH")
|
|
|
|
For Each oRowHandle As Integer In oSelectedRows
|
|
|
|
Dim DOC_ID = GridView_Docs.GetRowCellValue(oRowHandle, "DOC_ID")
|
|
If IsNothing(DOC_ID) Then
|
|
Continue For
|
|
End If
|
|
Dim R As DataRow = NewDatatable.NewRow
|
|
CURRENT_DOC_ID = DOC_ID
|
|
Dim DOC_PATH = GridView_Docs.GetRowCellValue(oRowHandle, "FULL_FILE_PATH")
|
|
CURRENT_DOC_PATH = DOC_PATH
|
|
CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(oRowHandle, "GUID")
|
|
R("DOC_ID") = CURRENT_DOC_ID
|
|
R("FULL_PATH") = CURRENT_DOC_PATH
|
|
R("DOC_GUID") = GridView_Docs.GetRowCellValue(oRowHandle, "GUID")
|
|
NewDatatable.Rows.Add(R)
|
|
Next
|
|
|
|
CURRENT_DT_MASS_CHANGE_DOCS = Nothing
|
|
CURRENT_DT_MASS_CHANGE_DOCS = NewDatatable
|
|
TimerRefresh.Enabled = False
|
|
frmMassValidator.ShowDialog()
|
|
Load_Profile_items()
|
|
Decide_Load()
|
|
Else
|
|
If USER_LANGUAGE = "de-DE" Then
|
|
MsgBox("Massenabschluss konnte nicht ausgeführt werden, weil windream nicht initialisiert werden konnte!", MsgBoxStyle.Critical, "Massenabschluss")
|
|
Else
|
|
MsgBox("Massvalidation could not be completed because of an error in windream", MsgBoxStyle.Critical, "Massvalidation")
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
MsgBox("Unhandled Error in tsmiMarkedFilesFinish_Click: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
Private Sub CMGroupStart_Click(sender As Object, e As EventArgs) Handles CMGroupStart.Click
|
|
Item_Scope("CMGROUP")
|
|
End Sub
|
|
|
|
Private Sub NavBarItemOverview_LinkClicked(sender As Object, e As NavBarLinkEventArgs) Handles NavBarItemOverview.LinkClicked
|
|
' Das aktuelle Layout speichern, bevor das neue geladen wird
|
|
' und GRID_LOAD_TYPE gesetzt wird.
|
|
SaveGridLayout()
|
|
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()
|
|
GRID_LOAD_TYPE = "OVERVIEW"
|
|
CURRENT_CLICKED_PROFILE_ID = 0
|
|
ToolStripLabelViewTape.Text = "Gesamtübersicht"
|
|
|
|
Try
|
|
Dim sel = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID ={0}", USER_ID)
|
|
CURRENT_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(sel, True)
|
|
tslblmessage.Text = ""
|
|
|
|
If CURRENT_DT_VW_PROFILE_USER.Rows.Count = 0 Then
|
|
LOGGER.Info(" >> no profiles for user: '" & USER_USERNAME & "' configured!", False)
|
|
NO_WORKFLOWITEMS = True
|
|
tslblmessage.Text = "Keine Profile für Ihren User hinterlegt"
|
|
|
|
Exit Sub
|
|
End If
|
|
Load_Profiles_for_User()
|
|
PROFILE_COUNT = 0
|
|
ClassInit.InitBasics()
|
|
Dim oSQLOverview = CURRENT_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW")
|
|
|
|
|
|
If IsDBNull(oSQLOverview) Then
|
|
tslblmessage.Text = "No GROUP-CONFIG (SQL_PROFILE_MAIN_VIEW) in Baseconfig"
|
|
Exit Sub
|
|
End If
|
|
|
|
oSQLOverview = clsPatterns.ReplaceInternalValues(oSQLOverview)
|
|
oSQLOverview = clsPatterns.ReplaceUserValues(oSQLOverview, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
|
|
|
|
oSQLOverview = oSQLOverview.Replace("@USER_ID", USER_ID)
|
|
oSQLOverview = oSQLOverview.Replace("@USERNAME", USER_USERNAME)
|
|
oSQLOverview = oSQLOverview.Replace("@MACHINE_NAME", Environment.MachineName)
|
|
oSQLOverview = oSQLOverview.Replace("@DATE", Now.ToShortDateString)
|
|
oSQLOverview = oSQLOverview.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID)
|
|
|
|
'String.Format("SELECT '1' TL_STATE,T.PROFIL_ID,T1.TITLE, T.DOC_ID, T.FILE_PATH, T.DMS_ERSTELLT_DATE,[dbo].[FNPM_LAST_WORKUSER_DOC] (T.PROFIL_ID,T.DOC_ID) AS 'Last User',[dbo].[FNPM_LAST_EDITED_DOC] (T.PROFIL_ID,T.DOC_ID) as 'Last edited' FROM TBPM_PROFILE_FILES T, VWPM_PROFILE_USER T1 " &
|
|
' "WHERE T.PROFIL_ID = T1.PROFIL_ID " &
|
|
' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", USER_USERNAME)
|
|
CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(oSQLOverview, True)
|
|
Dim DTGRID_GROUPS As DataTable
|
|
Try
|
|
DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1", True)
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info(ex.Message)
|
|
End Try
|
|
|
|
|
|
If Not IsNothing(CURR_DT_PROFILEGRID) Then
|
|
NO_WORKFLOWITEMS = False
|
|
If CURR_DT_PROFILEGRID.Rows.Count = 0 Then
|
|
ToolStripLabelViewTape.Text = "Aktuell keine Workflowdaten vorhanden!"
|
|
|
|
NO_WORKFLOWITEMS = True
|
|
|
|
'MsgBox("Aktuell keine Workflowdaten vorhanden!", MsgBoxStyle.Information)
|
|
GridControl_Docs.Visible = False
|
|
bindsourcegrid.DataSource = Nothing
|
|
GridControl_Docs.DataSource = Nothing
|
|
Try
|
|
GridView_Docs.Columns.Clear()
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
|
|
End Try
|
|
|
|
Exit Sub
|
|
End If
|
|
|
|
BindingNavigator1.Visible = True
|
|
BindingNavigator1.Dock = DockStyle.Top
|
|
|
|
GridControl_Docs.Visible = True
|
|
GridControl_Docs.Dock = DockStyle.Fill
|
|
|
|
' Spalte für Status Icon erstellen
|
|
Dim columnStateIcon As New DataColumn()
|
|
columnStateIcon.DataType = GetType(Image)
|
|
columnStateIcon.ColumnName = "ICON"
|
|
columnStateIcon.Caption = ""
|
|
CURR_DT_PROFILEGRID.Columns.Add(columnStateIcon)
|
|
|
|
RedDocuments = 0
|
|
YellowDocuments = 0
|
|
GreenDocuments = 0
|
|
|
|
For Each row As DataRow In CURR_DT_PROFILEGRID.Rows
|
|
Dim State As Integer = row.Item("TL_STATE")
|
|
Select Case State
|
|
Case 1
|
|
RedDocuments += 1
|
|
row.Item("ICON") = My.Resources.ampel_rot
|
|
Case 2
|
|
YellowDocuments += 1
|
|
row.Item("ICON") = My.Resources.ampel_gelb
|
|
Case 3
|
|
GreenDocuments += 1
|
|
row.Item("ICON") = My.Resources.ampel_gruen
|
|
End Select
|
|
Next
|
|
bindsourcegrid.DataSource = CURR_DT_PROFILEGRID
|
|
GridControl_Docs.DataSource = bindsourcegrid
|
|
|
|
ToolStripLabelViewTape.Text = "Gesamtübersicht"
|
|
|
|
'GridControlDocRow.ForceInitialize()
|
|
' GridControl1.DataSource = CURR_DT_PROFILEGRID
|
|
If FORCE_LAYOUT_OVERVIEW = True And GridLayoutChanged() = True Then
|
|
ResetLayout()
|
|
SaveGridLayout()
|
|
Else
|
|
RestoreLayout()
|
|
End If
|
|
|
|
|
|
Try
|
|
'GridView_Docs.OptionsBehavior.AutoExpandAllGroups = False
|
|
'GridView_Docs.OptionsView.ShowGroupedColumns = False
|
|
GridView_Docs.OptionsView.ShowGroupPanel = False
|
|
Dim oindex As Integer = 0
|
|
If Not IsNothing(DTGRID_GROUPS) Then
|
|
For Each oGridGroup As DataRow In DTGRID_GROUPS.Rows
|
|
LOGGER.Debug($"Addig group [{oGridGroup.Item("GROUPNAME")}] for Grid...")
|
|
GridView_Docs.Columns.Item(oGridGroup.Item("GROUPNAME")).GroupIndex = oindex
|
|
oindex += 1
|
|
Next
|
|
End If
|
|
|
|
Try
|
|
GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
|
|
GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
|
|
For index = 0 To GridView_Docs.GroupCount - 1
|
|
Dim v = GridView_Docs.GroupedColumns(index).ToString
|
|
LOGGER.Debug($"Addig tag [{GridView_Docs.Columns.Item("PROFILE_ID")}] for group...")
|
|
Dim sd = GridView_Docs.GroupedColumns(index).GetTextCaption
|
|
GridView_Docs.GroupedColumns(index).Tag = GridView_Docs.Columns.Item("PROFILE_ID")
|
|
|
|
Next
|
|
|
|
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
|
|
GridView_Docs.Columns.Item("GUID").Visible = False
|
|
GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False
|
|
GridView_Docs.Columns.Item("DOC_ID").Visible = False
|
|
GridView_Docs.Columns.Item("TL_STATE").Visible = False
|
|
GridView_Docs.Columns.Item("ICON").MaxWidth = 24
|
|
GridView_Docs.Columns.Item("ICON").MinWidth = 24
|
|
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
|
|
GridView_Docs.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
|
|
GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
|
|
GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Unexpected Error in Formatting Grid: " & ex.Message)
|
|
End Try
|
|
|
|
|
|
SaveGridLayout()
|
|
If GridView_Docs.Columns.Count <= 2 Then
|
|
LOGGER.Info("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False)
|
|
Reset_GridLayout()
|
|
End If
|
|
|
|
|
|
|
|
Else
|
|
|
|
NO_WORKFLOWITEMS = True
|
|
GridControl_Docs.Visible = False
|
|
BindingNavigator1.Visible = False
|
|
BindingNavigator1.Dock = DockStyle.None
|
|
GridControl_Docs.DataSource = Nothing
|
|
GridControl_Docs.Dock = DockStyle.None
|
|
Try
|
|
GridView_Docs.Columns.Clear()
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
|
|
End Try
|
|
End If
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Load_Grid_Overview - Fehler: " & ex.Message)
|
|
MsgBox("Fehler Load_Grid_Overview - Fehler: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub tsmiValidationProfil_Click(sender As Object, e As EventArgs) Handles tsmiValidationProfil.Click
|
|
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)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub NavBarItemDashboard_LinkClicked(sender As Object, e As NavBarLinkEventArgs) Handles NavBarItemDashboard.LinkClicked
|
|
If TimerRefresh.Enabled = True Then
|
|
TimerRefresh.Stop()
|
|
End If
|
|
Layout_Dashboard()
|
|
End Sub
|
|
|
|
Private Sub TabellenlayoutZurücksetzenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TabellenlayoutZurücksetzenToolStripMenuItem.Click
|
|
Reset_GridLayout()
|
|
|
|
End Sub
|
|
Sub Reset_GridLayout()
|
|
If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.SaveViewInfo()
|
|
InResetlayout = True
|
|
' Layout zurücksetzen
|
|
ResetLayout()
|
|
SaveGridLayout()
|
|
|
|
' Ansicht neu laden
|
|
Load_Profile_items()
|
|
Decide_Load()
|
|
InResetlayout = False
|
|
RefreshHelper.LoadViewInfo()
|
|
End Sub
|
|
|
|
|
|
Private Sub GridView1_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs)
|
|
Try
|
|
Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
|
|
Dim view As GridView = sender
|
|
Dim item As GridGroupSummaryItem = CType(view.GroupSummary(Tag), GridGroupSummaryItem)
|
|
' Dim value As Object = view.GetGroupSummaryValue(e.RowHandle, item)
|
|
|
|
If info.Column.FieldName = "PROFILE_GROUP_TEXT" Or info.Column.FieldName = "GROUP_TEXT" Then
|
|
info.GroupText = info.GroupValueText
|
|
|
|
Dim _color As String = "Grey"
|
|
|
|
For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
|
|
If row.Item("PROFILE_GROUP_TEXT") = info.GroupValueText Then
|
|
_color = row.Item("PROFILE_GROUP_COLOR")
|
|
ElseIf row.Item("GROUP_TEXT") = info.GroupValueText Then
|
|
_color = row.Item("GROUP_COLOR")
|
|
|
|
End If
|
|
Next
|
|
|
|
Select Case _color
|
|
Case "Red"
|
|
info.Appearance.BackColor = Color.LightSalmon
|
|
Case "Green"
|
|
info.Appearance.BackColor = Color.LightGreen
|
|
Case "Yellow"
|
|
info.Appearance.BackColor = Color.LightYellow
|
|
Case "Grey"
|
|
info.Appearance.BackColor = Color.LightGray
|
|
End Select
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridView_Docs.DoubleClick
|
|
Item_Scope("DOUBLECLICK")
|
|
End Sub
|
|
|
|
Private Sub GridView_Docs_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridView_Docs.CustomDrawGroupRow
|
|
Try
|
|
Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
|
|
Dim view As GridView = sender
|
|
Dim item As GridGroupSummaryItem = CType(view.GroupSummary(Tag), GridGroupSummaryItem)
|
|
' Dim value As Object = view.GetGroupSummaryValue(e.RowHandle, item)
|
|
|
|
If info.Column.FieldName = "GROUP_TEXT" Then
|
|
info.GroupText = info.GroupValueText
|
|
|
|
Dim _color As String = "Grey"
|
|
|
|
For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
|
|
If row.Item("GROUP_TEXT") = info.GroupValueText Then
|
|
_color = row.Item("GROUP_COLOR")
|
|
End If
|
|
Next
|
|
|
|
Select Case _color
|
|
Case "Red"
|
|
info.Appearance.BackColor = Color.LightSalmon
|
|
Case "Green"
|
|
info.Appearance.BackColor = Color.LightGreen
|
|
Case "Yellow"
|
|
info.Appearance.BackColor = Color.LightYellow
|
|
Case "Grey"
|
|
info.Appearance.BackColor = Color.LightGray
|
|
End Select
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub GridView_Docs_MouseDown(sender As Object, e As MouseEventArgs) Handles GridView_Docs.MouseDown
|
|
Dim view As GridView = sender
|
|
Dim hi As GridHitInfo = view.CalcHitInfo(e.Location)
|
|
Dim groupRowButtonClicked = (hi.HitTest = GridHitTest.RowGroupButton)
|
|
GridCursorLocation = e.Location
|
|
|
|
'If e.Button = MouseButtons.Left Then
|
|
' wenn in eine Group Row Doppelt geklickt wurde..
|
|
If hi.InGroupRow And Not groupRowButtonClicked Then
|
|
' Ein/Ausklappen verhindern
|
|
DXMouseEventArgs.GetMouseArgs(e).Handled = True
|
|
GridViewItem_Clicked = "GROUP"
|
|
CURRENT_CLICKED_PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID"))
|
|
ElseIf hi.InDataRow Then
|
|
GridViewItem_Clicked = "ROW"
|
|
CURRENT_CLICKED_PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID"))
|
|
Else
|
|
GridViewItem_Clicked = Nothing
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub GridView_Docs_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridView_Docs.ColumnWidthChanged
|
|
SaveGridLayout()
|
|
End Sub
|
|
|
|
Private Sub LayoutSpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LayoutSpeichernToolStripMenuItem.Click
|
|
SaveGridLayout()
|
|
End Sub
|
|
|
|
Private Sub GridView_Docs_LostFocus(sender As Object, e As EventArgs) Handles GridView_Docs.LostFocus
|
|
' Save expanded GroupRows
|
|
If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.SaveViewInfo()
|
|
End Sub
|
|
|
|
Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
|
|
|
Decide_Load()
|
|
Handling_DEBUG_USER()
|
|
End Sub
|
|
Sub Handling_DEBUG_USER()
|
|
If USER_DEBUG_LOG = True Then
|
|
If USER_LANGUAGE = "de-DE" Then
|
|
tsslblDEBUG_LOG.Text = "ACHTUNG: UserDebugMode ist eingeschaltet!"
|
|
Else
|
|
tsslblDEBUG_LOG.Text = "ATTENTION: UserDebugMode activated!"
|
|
End If
|
|
tsslblDEBUG_LOG.Visible = True
|
|
Else
|
|
tsslblDEBUG_LOG.Visible = False
|
|
End If
|
|
End Sub
|
|
Private Sub Timer5Mins_Tick(sender As Object, e As EventArgs) Handles Timer5Mins.Tick
|
|
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_LANGUAGE = "de-DE" Then
|
|
tslblUserLoggedin.Text = "License Count: " & USERCOUNT_LOGGED_IN
|
|
Else
|
|
tslblUserLoggedin.Text = "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
|
|
' If LOGCONFIG.Logs.Count > 0 Then
|
|
' Dim odel = $"delete from TBPM_LOG_DEBUG where userid = {USER_ID}"
|
|
' ClassDatabase.Execute_non_Query(odel)
|
|
|
|
' Dim thread As New Thread(AddressOf DebuglogBackgroundthread)
|
|
' thread.Start()
|
|
|
|
' End If
|
|
|
|
' End If
|
|
'End If
|
|
|
|
End Sub
|
|
'Sub DebuglogBackgroundthread()
|
|
' For Each oSLogstring As String In LOGCONFIG.Logs
|
|
' Dim oLogSplit As String()
|
|
' oLogSplit = oSLogstring.Split("|")
|
|
' 'Console.WriteLine(oLogSplit(2))
|
|
' Dim omsg = oLogSplit(2).Replace("'", "''")
|
|
' omsg = omsg.Replace("\\n", "")
|
|
' omsg = omsg.Replace(Chr(10), "")
|
|
' omsg = omsg.Replace(Chr(13), "")
|
|
' Dim odatetime As Date = CDate(oLogSplit(0))
|
|
' Dim oSQL As String = $"INSERT INTO [dbo].[TBPM_LOG_DEBUG] ([USERID] , [LOGMSG], [ADDED_WHEN]) VALUES({USER_ID},'{omsg}','{odatetime}')"
|
|
' ClassDatabase.Execute_non_Query(oSQL)
|
|
' Next
|
|
'End Sub
|
|
Private Sub tsslblDEBUG_LOG_MouseHover(sender As Object, e As EventArgs) Handles tsslblDEBUG_LOG.MouseHover
|
|
MsgBox("UserDebugMode is activated remotely. Debugdata will be transferred to database and will be deleted after 10 days!!", MsgBoxStyle.Information)
|
|
|
|
End Sub
|
|
|
|
Private Sub frmMain_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
|
|
End Sub
|
|
|
|
Private Sub ProfileUndBasisToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProfileUndBasisToolStripMenuItem.Click
|
|
Dim AdminSecurity As Boolean = False
|
|
AdminSecurity = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminSecurity()
|
|
If AdminSecurity = True Then
|
|
frmLoginAdmin.ShowDialog()
|
|
Else
|
|
frmAdministration.ShowDialog()
|
|
End If
|
|
Decide_Load()
|
|
End Sub
|
|
Private Sub KonfigurationenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KonfigurationenToolStripMenuItem.Click
|
|
frmAdmin2.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub LöscheAlleFilterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöscheAlleFilterToolStripMenuItem.Click
|
|
Try
|
|
GridView_Docs.ClearFindFilter()
|
|
GridView_Docs.ClearColumnsFilter()
|
|
SaveGridLayout()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
End Class |