524 lines
22 KiB
VB.net
524 lines
22 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports DevExpress.Utils
|
|
Imports DevExpress.XtraGrid
|
|
Imports DevExpress.XtraGrid.Views.Grid
|
|
Imports DevExpress.XtraPrinting
|
|
Imports DigitalData.GUIs.Common
|
|
|
|
Public Class frmMonitor
|
|
Dim DT_MONITOR_KONFIG As DataTable
|
|
Dim GRID1_TITLE As String
|
|
Dim GRID2_TITLE As String
|
|
Dim GRID2_SQL As String
|
|
Dim GRID3_TITLE As String
|
|
Dim GRID3_SQL As String
|
|
Dim GRID4_TITLE As String
|
|
Dim GRID4_SQL As String
|
|
|
|
Private _GridBuilder As GridBuilder
|
|
Private _ActiveGrid As GridControl = Nothing
|
|
' Private _frmDocView As frmDocView 'You need a reference to Form1
|
|
Dim FormShown As Boolean = False
|
|
Private Sub GridView1_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView1.FocusedRowChanged
|
|
If FormShown = False Then Exit Sub
|
|
Load_Detail()
|
|
|
|
End Sub
|
|
Sub Load_Detail()
|
|
If FormShown = False Then Exit Sub
|
|
Dim oDocPath As String = String.Empty
|
|
Try
|
|
Dim oDocID
|
|
Try
|
|
oDocID = GridView1.GetFocusedRowCellValue(GridView1.Columns("DocID"))
|
|
Catch ex As Exception
|
|
Try
|
|
oDocID = GridView1.GetFocusedRowCellValue(GridView1.Columns("ObjectID"))
|
|
Catch ex1 As Exception
|
|
LOGGER.Warn("Could not get Doc/ObjectReference: " & ex.Message)
|
|
MsgBox("Could not get Doc/ObjectReference: " & ex.Message, MsgBoxStyle.Critical, "Load_Detail")
|
|
Exit Sub
|
|
End Try
|
|
End Try
|
|
|
|
If IsNothing(oDocID) Then
|
|
Exit Sub
|
|
End If
|
|
|
|
Try
|
|
oDocPath = GridView1.GetFocusedRowCellValue(GridView1.Columns("FULL_FILE_PATH"))
|
|
Catch ex As Exception
|
|
LOGGER.Warn($"Error getting DocPath in Monitor: {ex.Message}")
|
|
oDocPath = String.Empty
|
|
End Try
|
|
BarStaticItemInfoDoc.Caption = $"DocID: {oDocID} - Docpath: {oDocPath}"
|
|
If Not IsNothing(GRID2_SQL) Then
|
|
Dim oDetailSQL = GRID2_SQL
|
|
oDetailSQL = oDetailSQL.Replace("@DocID", oDocID)
|
|
oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID)
|
|
oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
|
|
oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
|
|
Dim oDT2 As DataTable = DatabaseFallback.GetDatatableECM(oDetailSQL) ', "Monitor_Detail1")
|
|
If Not IsNothing(oDT2) Then
|
|
LOGGER.Debug($"Found {oDT2.Rows.Count} rows for GridView2")
|
|
GridView2.Columns.Clear()
|
|
GridControl2.DataSource = oDT2
|
|
Try
|
|
GridView2.Columns("Wann").DisplayFormat.FormatType = FormatType.DateTime
|
|
GridView2.Columns("Wann").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
|
|
Catch ex As Exception
|
|
GridView2.Columns("When").DisplayFormat.FormatType = FormatType.DateTime
|
|
GridView2.Columns("When").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
|
|
End Try
|
|
|
|
End If
|
|
If DT_MONITOR_KONFIG.Rows.Count > 2 Then
|
|
LOGGER.Debug($"DT_MONITOR_KONFIG.Rows.Count > 2")
|
|
oDetailSQL = GRID3_SQL
|
|
oDetailSQL = oDetailSQL.Replace("@DocID", oDocID)
|
|
oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID)
|
|
oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
|
|
oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
|
|
Dim oDT3 As DataTable = DatabaseFallback.GetDatatableECM(oDetailSQL) ', "Monitor_Detail2")
|
|
LOGGER.Debug($"oDetailSQL for Grid 3: {oDetailSQL}")
|
|
If Not IsNothing(oDT3) Then
|
|
LOGGER.Debug($"Found {oDT3.Rows.Count} rows for GridView3")
|
|
GridView3.Columns.Clear()
|
|
GridControl3.DataSource = oDT3
|
|
End If
|
|
If DT_MONITOR_KONFIG.Rows.Count = 4 Then
|
|
LOGGER.Debug($"DT_MONITOR_KONFIG.Rows.Count = 4")
|
|
oDetailSQL = GRID4_SQL
|
|
oDetailSQL = oDetailSQL.Replace("@DocID", oDocID)
|
|
oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID)
|
|
oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
|
|
oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
|
|
LOGGER.Debug($"oDetailSQL for Grid 4: {oDetailSQL}")
|
|
Dim oDT4 As DataTable = DatabaseFallback.GetDatatableECM(oDetailSQL) ', "Monitor_Detail3")
|
|
If Not IsNothing(oDT4) Then
|
|
LOGGER.Debug($"Found {oDT4.Rows.Count} rows for GridView4")
|
|
GridView4.Columns.Clear()
|
|
GridControl4.DataSource = oDT4
|
|
Try
|
|
GridView4.Columns("Geändert wann").DisplayFormat.FormatType = FormatType.DateTime
|
|
GridView4.Columns("Geändert wann").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
|
|
Catch ex As Exception
|
|
GridView4.Columns("Changed when").DisplayFormat.FormatType = FormatType.DateTime
|
|
GridView4.Columns("Changed when").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
|
|
End Try
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error GridView1.FocusedRowChanged:")
|
|
Finally
|
|
If oDocPath <> String.Empty Then
|
|
Load_Doc(oDocPath)
|
|
End If
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
Sub Load_Doc(oDocPath As String)
|
|
Try
|
|
If SplitContainerControlMain.Collapsed = False And oDocPath <> String.Empty Then
|
|
'If Not Application.OpenForms().OfType(Of frmValidator).Any Then
|
|
' frmDocView.Show()
|
|
' _frmDocView = frmDocView
|
|
'End If
|
|
'_frmDocView.LoadFile(oDocPath)
|
|
|
|
If File.Exists(oDocPath) Then
|
|
DocumentViewerMonitor.LoadFile(oDocPath)
|
|
BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
|
|
DocumentViewerMonitor.Visible = True
|
|
' DocumentViewerMonitor.RightOnlyView(USER_RIGHT_VIEW_ONLY)
|
|
|
|
Else
|
|
BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
|
|
BarStaticItemInfo.Caption = $"File is not existing or accessible!"
|
|
DocumentViewerMonitor.Visible = False
|
|
End If
|
|
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex.Message)
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in LoadDoc:")
|
|
End Try
|
|
End Sub
|
|
Private Async Sub frmMonitor_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
SplitContainerControlMain.Collapsed = True
|
|
|
|
Dim _GridList As New List(Of GridView) From {
|
|
GridView1,
|
|
GridView2,
|
|
GridView3,
|
|
GridView4
|
|
}
|
|
_GridBuilder = New GridBuilder(_GridList).
|
|
WithReadOnlyOptions().
|
|
WithClipboardHandler()
|
|
|
|
GridView1.ShowLoadingPanel()
|
|
Await Load_Grid_Data()
|
|
GridView1.HideLoadingPanel()
|
|
|
|
Select Case DT_MONITOR_KONFIG.Rows.Count
|
|
Case 2
|
|
LoadGrid1Layout()
|
|
LoadGrid2Layout()
|
|
SplitContainerControl1.SplitterPosition = CONFIG.Config.MonitorSplitter1_Distance
|
|
Case 3
|
|
LoadGrid1Layout()
|
|
LoadGrid2Layout()
|
|
LoadGrid3Layout()
|
|
SplitContainerControl1.SplitterPosition = CONFIG.Config.MonitorSplitter1_Distance
|
|
SplitContainerControl2.SplitterPosition = CONFIG.Config.MonitorSplitter2_Distance
|
|
Case 4
|
|
LoadGrid1Layout()
|
|
LoadGrid2Layout()
|
|
LoadGrid3Layout()
|
|
LoadGrid4Layout()
|
|
SplitContainerControl1.SplitterPosition = CONFIG.Config.MonitorSplitter1_Distance
|
|
SplitContainerControl2.SplitterPosition = CONFIG.Config.MonitorSplitter2_Distance
|
|
SplitContainerControl3.SplitterPosition = CONFIG.Config.MonitorSplitter3_Distance
|
|
End Select
|
|
Try
|
|
DocumentViewerMonitor.Init(LOGCONFIG, GDPICTURE_LICENSE)
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
End Try
|
|
End Sub
|
|
Async Function Load_Grid_Data() As Threading.Tasks.Task
|
|
Try
|
|
FormShown = False
|
|
Dim oSQL = "SELECT * FROM TBPM_MONITOR_KONFIG"
|
|
DT_MONITOR_KONFIG = DatabaseFallback.GetDatatableECM(oSQL) ', "Monitor-Load_Grid_Data1")
|
|
If Not IsNothing(DT_MONITOR_KONFIG) Then
|
|
If DT_MONITOR_KONFIG.Rows.Count >= 1 Then
|
|
oSQL = DT_MONITOR_KONFIG.Rows(0).Item("GRID_SQL")
|
|
GridView1.Columns.Clear()
|
|
Dim oDTGRID1 As DataTable = Await DatabaseFallback.GetDatatableECMAsync(oSQL) ', "Monitor-Load_Grid_Data2")
|
|
GridControl1.DataSource = oDTGRID1
|
|
|
|
GRID1_TITLE = DT_MONITOR_KONFIG.Rows(0).Item("GRID_TITLE")
|
|
GridView1.ViewCaption = GRID1_TITLE
|
|
Try
|
|
'GridView1.Columns.Item("FULL_FILE_PATH").Visible = False
|
|
Catch ex As Exception
|
|
LOGGER.Info($"Attention: No Column FULL_FILE_PATH in GridView1")
|
|
End Try
|
|
Select Case DT_MONITOR_KONFIG.Rows.Count
|
|
Case 2
|
|
SplitContainerControl2.Collapsed = True
|
|
Case 3
|
|
SplitContainerControl3.Collapsed = True
|
|
Case Else
|
|
SplitContainerControl2.Collapsed = False
|
|
SplitContainerControl3.Collapsed = False
|
|
End Select
|
|
If DT_MONITOR_KONFIG.Rows.Count > 1 Then
|
|
GRID2_TITLE = DT_MONITOR_KONFIG.Rows(1).Item("GRID_TITLE")
|
|
GRID2_SQL = DT_MONITOR_KONFIG.Rows(1).Item("GRID_SQL")
|
|
GridView2.ViewCaption = GRID2_TITLE
|
|
Select Case DT_MONITOR_KONFIG.Rows.Count
|
|
Case 3
|
|
GRID3_TITLE = DT_MONITOR_KONFIG.Rows(2).Item("GRID_TITLE")
|
|
GRID3_SQL = DT_MONITOR_KONFIG.Rows(2).Item("GRID_SQL")
|
|
GridView3.ViewCaption = GRID3_TITLE
|
|
Case 4
|
|
GRID3_TITLE = DT_MONITOR_KONFIG.Rows(2).Item("GRID_TITLE")
|
|
GRID3_SQL = DT_MONITOR_KONFIG.Rows(2).Item("GRID_SQL")
|
|
GridView3.ViewCaption = GRID3_TITLE
|
|
GRID4_TITLE = DT_MONITOR_KONFIG.Rows(3).Item("GRID_TITLE")
|
|
GRID4_SQL = DT_MONITOR_KONFIG.Rows(3).Item("GRID_SQL")
|
|
GridView4.ViewCaption = GRID4_TITLE
|
|
End Select
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Load_Grid_Data:")
|
|
Finally
|
|
FormShown = True
|
|
End Try
|
|
End Function
|
|
Sub LoadGrid1Layout()
|
|
Try
|
|
Dim Filename As String = String.Format("DevExpressGridViewMonitor_UserLayout_Grid1.xml")
|
|
Dim xml As String = System.IO.Path.Combine(CONFIG.UserConfigPath.Replace("UserConfig.xml", ""), Filename)
|
|
If File.Exists(xml) Then
|
|
GridView1.RestoreLayoutFromXml(xml, OptionsLayoutBase.FullLayout)
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Error while restoring layout 1: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
Sub LoadGrid2Layout()
|
|
Try
|
|
Dim Filename As String = String.Format("DevExpressGridViewMonitor_UserLayout_Grid2.xml")
|
|
Dim xml As String = System.IO.Path.Combine(CONFIG.UserConfigPath.Replace("UserConfig.xml", ""), Filename)
|
|
If File.Exists(xml) Then
|
|
GridView2.RestoreLayoutFromXml(xml, OptionsLayoutBase.FullLayout)
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Error while restoring layout 2: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
Sub LoadGrid3Layout()
|
|
Try
|
|
Dim Filename As String = String.Format("DevExpressGridViewMonitor_UserLayout_Grid3.xml")
|
|
Dim xml As String = System.IO.Path.Combine(CONFIG.UserConfigPath.Replace("UserConfig.xml", ""), Filename)
|
|
If File.Exists(xml) Then
|
|
GridView3.RestoreLayoutFromXml(xml, OptionsLayoutBase.FullLayout)
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Error while restoring layout 3: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
Sub LoadGrid4Layout()
|
|
Try
|
|
Dim Filename As String = String.Format("DevExpressGridViewMonitor_UserLayout_Grid4.xml")
|
|
Dim xml As String = System.IO.Path.Combine(CONFIG.UserConfigPath.Replace("UserConfig.xml", ""), Filename)
|
|
If File.Exists(xml) Then
|
|
GridView4.RestoreLayoutFromXml(xml, OptionsLayoutBase.FullLayout)
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Error while restoring layout 4: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Sub SaveGrid1layout()
|
|
Try
|
|
Dim o = CONFIG.UserConfigPath.Replace("UserConfig.xml", "")
|
|
Dim Filename As String = String.Format("DevExpressGridViewMonitor_UserLayout_Grid1.xml")
|
|
Dim xml As String = System.IO.Path.Combine(CONFIG.UserConfigPath.Replace("UserConfig.xml", ""), Filename)
|
|
GridView1.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Error while saving Grid1Layout: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
Sub RemoveLayout()
|
|
Try
|
|
Dim Filename As String = String.Format("DevExpressGridViewMonitor_UserLayout_Grid1.xml")
|
|
Dim xml As String = System.IO.Path.Combine(CONFIG.UserConfigPath.Replace("UserConfig.xml", ""), Filename)
|
|
IO.File.Delete(xml)
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Error while saving RemoveLayout1: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
Sub SaveGrid2layout()
|
|
Try
|
|
Dim Filename As String = String.Format("DevExpressGridViewMonitor_UserLayout_Grid2.xml")
|
|
Dim xml As String = System.IO.Path.Combine(CONFIG.UserConfigPath.Replace("UserConfig.xml", ""), Filename)
|
|
GridView2.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Error while saving Grid2Layout: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
Sub RemoveLayout2()
|
|
Try
|
|
Dim Filename As String = String.Format("DevExpressGridViewMonitor_UserLayout_Grid2.xml")
|
|
Dim xml As String = System.IO.Path.Combine(CONFIG.UserConfigPath.Replace("UserConfig.xml", ""), Filename)
|
|
IO.File.Delete(xml)
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Error while saving RemoveLayout2: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
Sub SaveGrid3layout()
|
|
Try
|
|
Dim Filename As String = String.Format("DevExpressGridViewMonitor_UserLayout_Grid3.xml")
|
|
Dim xml As String = System.IO.Path.Combine(CONFIG.UserConfigPath.Replace("UserConfig.xml", ""), Filename)
|
|
GridView3.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Error while saving Grid3Layout: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
Sub RemoveLayout3()
|
|
Try
|
|
Dim Filename As String = String.Format("DevExpressGridViewMonitor_UserLayout_Grid3.xml")
|
|
Dim xml As String = System.IO.Path.Combine(CONFIG.UserConfigPath.Replace("UserConfig.xml", ""), Filename)
|
|
IO.File.Delete(xml)
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Error while saving RemoveLayout3: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
Sub SaveGrid4layout()
|
|
Try
|
|
Dim Filename As String = String.Format("DevExpressGridViewMonitor_UserLayout_Grid4.xml")
|
|
Dim xml As String = System.IO.Path.Combine(CONFIG.UserConfigPath.Replace("UserConfig.xml", ""), Filename)
|
|
GridView4.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Error while saving Grid4Layout: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
Sub RemoveLayout4()
|
|
Try
|
|
Dim Filename As String = String.Format("DevExpressGridViewMonitor_UserLayout_Grid4.xml")
|
|
Dim xml As String = System.IO.Path.Combine(CONFIG.UserConfigPath.Replace("UserConfig.xml", ""), Filename)
|
|
IO.File.Delete(xml)
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Error while saving RemoveLayout4: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub frmMonitor_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
|
Select Case DT_MONITOR_KONFIG.Rows.Count
|
|
Case 2
|
|
SaveGrid1layout()
|
|
SaveGrid2layout()
|
|
Case 3
|
|
SaveGrid1layout()
|
|
SaveGrid2layout()
|
|
SaveGrid3layout()
|
|
CONFIG.Config.MonitorSplitter1_Distance = SplitContainerControl1.SplitterPosition
|
|
CONFIG.Config.MonitorSplitter2_Distance = SplitContainerControl2.SplitterPosition
|
|
|
|
Case 4
|
|
SaveGrid1layout()
|
|
SaveGrid2layout()
|
|
SaveGrid3layout()
|
|
SaveGrid4layout()
|
|
CONFIG.Config.MonitorSplitter1_Distance = SplitContainerControl1.SplitterPosition
|
|
CONFIG.Config.MonitorSplitter2_Distance = SplitContainerControl2.SplitterPosition
|
|
CONFIG.Config.MonitorSplitter3_Distance = SplitContainerControl3.SplitterPosition
|
|
End Select
|
|
CONFIG.Save()
|
|
Try
|
|
DocumentViewerMonitor.Done()
|
|
'_frmDocView.Close()
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub frmMonitor_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
|
FormShown = True
|
|
Load_Detail()
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
|
|
Dim oActiveGrid = GetActiveGridControl()
|
|
|
|
If oActiveGrid IsNot Nothing Then
|
|
|
|
|
|
XtraSaveFileDialog1.FileName = oActiveGrid.Name
|
|
XtraSaveFileDialog1.Filter = "Excel documents (.xlsx)|*.xlsx"
|
|
XtraSaveFileDialog1.DefaultExt = ".xlsx"
|
|
|
|
If XtraSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
|
|
Dim oOptions As New XlsxExportOptions() With {
|
|
.ExportMode = XlsxExportMode.SingleFile
|
|
}
|
|
oActiveGrid.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions)
|
|
End If
|
|
Else
|
|
MessageBox.Show("Bitte wählen Sie eine Tabelle aus, die Sie exportieren möchten", Text, MessageBoxButtons.OK)
|
|
End If
|
|
End Sub
|
|
Private Function GetActiveGridControl() As GridControl
|
|
If _ActiveGrid Is Nothing Then
|
|
Return Nothing
|
|
End If
|
|
|
|
Return _ActiveGrid
|
|
End Function
|
|
|
|
Private Sub GridControl1_Enter(sender As Object, e As EventArgs) Handles GridControl1.Enter, GridControl1.Enter, GridControl2.Enter, GridControl3.Enter, GridControl4.Enter
|
|
_ActiveGrid = sender
|
|
End Sub
|
|
|
|
Private Sub frmMonitor_HelpButtonClicked(sender As Object, e As CancelEventArgs) Handles Me.HelpButtonClicked
|
|
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
|
|
If SplitContainerControlMain.Collapsed = True Then
|
|
SplitContainerControlMain.Collapsed = False
|
|
|
|
If USER_LANGUAGE = "de-DE" Then
|
|
BarButtonItem3.Caption = "DocView deaktivieren"
|
|
Else
|
|
BarButtonItem3.Caption = "Deactivate DocView"
|
|
End If
|
|
|
|
BarButtonItem3.Down = True
|
|
Dim oDocPath
|
|
Try
|
|
oDocPath = GridView1.GetFocusedRowCellValue(GridView1.Columns("FULL_FILE_PATH"))
|
|
|
|
|
|
Catch ex As Exception
|
|
LOGGER.Warn($"Error getting DocPath in Monitor: {ex.Message}")
|
|
Exit Sub
|
|
End Try
|
|
DocumentViewerMonitor?.LoadFile(oDocPath)
|
|
|
|
'If oDocPath <> "" Then
|
|
' If Not Application.OpenForms().OfType(Of frmValidator).Any Then
|
|
' frmDocView.Show()
|
|
' _frmDocView = frmDocView
|
|
' End If
|
|
' _frmDocView.LoadFile(oDocPath)
|
|
' Me.SendToBack()
|
|
'End If
|
|
Else
|
|
SplitContainerControlMain.Collapsed = True
|
|
|
|
If USER_LANGUAGE = "de-DE" Then
|
|
BarButtonItem3.Caption = "DocView aktivieren"
|
|
Else
|
|
BarButtonItem3.Caption = "Activate DocView"
|
|
End If
|
|
BarButtonItem3.Down = False
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Async Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
|
|
Select Case DT_MONITOR_KONFIG.Rows.Count
|
|
Case 2
|
|
RemoveLayout()
|
|
RemoveLayout2()
|
|
Case 3
|
|
RemoveLayout()
|
|
RemoveLayout2()
|
|
RemoveLayout3()
|
|
Case 4
|
|
RemoveLayout()
|
|
RemoveLayout2()
|
|
RemoveLayout3()
|
|
RemoveLayout4()
|
|
End Select
|
|
|
|
GridView1.ShowLoadingPanel()
|
|
Await Load_Grid_Data()
|
|
GridView1.HideLoadingPanel()
|
|
End Sub
|
|
End Class |