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

MS

Browse Source
This commit is contained in:
SchreiberM 2020-12-30 14:10:28 +01:00
parent 79a32d78e7
commit 9d77f906e0
10 changed files with 80 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_PM_WINDREAM/ClassFinalizeDoc.vb
View File

@ -37,7 +37,7 @@
' LOGGER.Info("Unexpected Error in Checking control values for Variable SQL Result - ERROR: " & ex.Message) ' LOGGER.Info("Unexpected Error in Checking control values for Variable SQL Result - ERROR: " & ex.Message)
' End Try ' End Try
'Next 'Next
Dim sql_Statement = clsPatterns.ReplaceUserValues(dr.Item("SQL_COMMAND"), USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) Dim sql_Statement = clsPatterns.ReplaceUserValues(dr.Item("SQL_COMMAND"), USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID, CURRENT_CLICKED_PROFILE_TITLE)
sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement) sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement)
sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject, True) sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject, True)
LOGGER.Debug("sql after ReplaceAllValues: " & sql_Statement) LOGGER.Debug("sql after ReplaceAllValues: " & sql_Statement)

2
app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.1.6.0")> <Assembly: AssemblyVersion("2.1.6.1")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

12
app/DD_PM_WINDREAM/clsPatterns.vb
View File

@ -29,7 +29,8 @@ Public Class clsPatterns
Public Const USER_VALUE_SHORTNAME = "SHORTNAME" Public Const USER_VALUE_SHORTNAME = "SHORTNAME"
Public Const USER_VALUE_LANGUAGE = "LANGUAGE" Public Const USER_VALUE_LANGUAGE = "LANGUAGE"
Public Const USER_VALUE_USER_ID = "USER_ID" Public Const USER_VALUE_USER_ID = "USER_ID"
Public Const USER_VALUE_PROFILE_ID = "PROFILE_ID" Public Const VALUE_PROFILE_ID = "PROFILE_ID"
Public Const VALUE_PROFILE_TITLE = "PROFILE_TITLE"
Public Const INT_VALUE_USERNAME = "USERNAME" Public Const INT_VALUE_USERNAME = "USERNAME"
Public Const INT_VALUE_MACHINE = "MACHINE" Public Const INT_VALUE_MACHINE = "MACHINE"
@ -64,7 +65,7 @@ Public Class clsPatterns
result = ReplaceIDBAttributes(result, is_SQL) result = ReplaceIDBAttributes(result, is_SQL)
End If End If
If Not IsNothing(result) Then If Not IsNothing(result) Then
result = ReplaceUserValues(result, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) result = ReplaceUserValues(result, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID, CURRENT_CLICKED_PROFILE_TITLE)
LOGGER.Debug($"input AFTER replacing: [{result}]") LOGGER.Debug($"input AFTER replacing: [{result}]")
End If End If
@ -106,7 +107,7 @@ Public Class clsPatterns
End Try End Try
End Function End Function
Public Shared Function ReplaceUserValues(input As String, prename As Object, surname As Object, shortname As Object, language As String, email As Object, userId As Object, profileId As Object) As String Public Shared Function ReplaceUserValues(input As String, prename As Object, surname As Object, shortname As Object, language As String, email As Object, userId As Object, profileId As Object, profileTITLE As Object) As String
Try Try
Dim result = input Dim result = input
@ -136,9 +137,12 @@ Public Class clsPatterns
result = ReplacePattern(result, PATTERN_USER, email) result = ReplacePattern(result, PATTERN_USER, email)
End While End While
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_PROFILE_ID) While ContainsPatternAndValue(result, PATTERN_USER, VALUE_PROFILE_ID)
result = ReplacePattern(result, PATTERN_USER, profileId) result = ReplacePattern(result, PATTERN_USER, profileId)
End While End While
While ContainsPatternAndValue(result, PATTERN_USER, VALUE_PROFILE_TITLE)
result = ReplacePattern(result, PATTERN_USER, profileTITLE)
End While
LOGGER.Debug("pInput AFTER ReplaceUserValues: " & input) LOGGER.Debug("pInput AFTER ReplaceUserValues: " & input)
Return result Return result
Catch ex As Exception Catch ex As Exception

2
app/DD_PM_WINDREAM/frmInvDashboard.vb
View File

@ -107,7 +107,7 @@ Public Class frmInvDashboard
Dim oSqlchart = cRow.Item("SQL_COMMAND") Dim oSqlchart = cRow.Item("SQL_COMMAND")
oSqlchart = clsPatterns.ReplaceInternalValues(oSqlchart) oSqlchart = clsPatterns.ReplaceInternalValues(oSqlchart)
oSqlchart = clsPatterns.ReplaceUserValues(oSqlchart, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) oSqlchart = clsPatterns.ReplaceUserValues(oSqlchart, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID, CURRENT_CLICKED_PROFILE_TITLE)
oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER_ID", USER_ID) oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER_ID", USER_ID)
oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER", USER_USERNAME) oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER", USER_USERNAME)

4
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -722,7 +722,7 @@ Public Class frmMain
Dim oSQL = foundRows(0)("SQL_VIEW") Dim oSQL = foundRows(0)("SQL_VIEW")
oSQL = clsPatterns.ReplaceInternalValues(oSQL) oSQL = clsPatterns.ReplaceInternalValues(oSQL)
oSQL = clsPatterns.ReplaceUserValues(oSQL, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) oSQL = clsPatterns.ReplaceUserValues(oSQL, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID, CURRENT_CLICKED_PROFILE_TITLE)
oSQL = oSQL.Replace("@USER_ID", USER_ID) oSQL = oSQL.Replace("@USER_ID", USER_ID)
oSQL = oSQL.Replace("@USERNAME", USER_USERNAME) oSQL = oSQL.Replace("@USERNAME", USER_USERNAME)
@ -1632,7 +1632,7 @@ Public Class frmMain
End If End If
oSQLOverview = clsPatterns.ReplaceInternalValues(oSQLOverview) oSQLOverview = clsPatterns.ReplaceInternalValues(oSQLOverview)
oSQLOverview = clsPatterns.ReplaceUserValues(oSQLOverview, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) oSQLOverview = clsPatterns.ReplaceUserValues(oSQLOverview, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID, CURRENT_CLICKED_PROFILE_TITLE)
oSQLOverview = oSQLOverview.Replace("@USER_ID", USER_ID) oSQLOverview = oSQLOverview.Replace("@USER_ID", USER_ID)
oSQLOverview = oSQLOverview.Replace("@USERNAME", USER_USERNAME) oSQLOverview = oSQLOverview.Replace("@USERNAME", USER_USERNAME)

2
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@ -1044,7 +1044,7 @@ Public Class frmMassValidator
Continue For Continue For
End If End If
sql = clsPatterns.ReplaceUserValues(sqlStatement, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) sql = clsPatterns.ReplaceUserValues(sqlStatement, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID, CURRENT_CLICKED_PROFILE_TITLE)
sql = clsPatterns.ReplaceInternalValues(sql) sql = clsPatterns.ReplaceInternalValues(sql)
LOGGER.Debug(">>> sql after ReplaceInternalValues: " & sql) LOGGER.Debug(">>> sql after ReplaceInternalValues: " & sql)
'sql = ClassPatterns.ReplaceInternalValues(sqlStatement) 'sql = ClassPatterns.ReplaceInternalValues(sqlStatement)

108
app/DD_PM_WINDREAM/frmMonitor.vb
View File

@ -23,6 +23,7 @@ Public Class frmMonitor
End Sub End Sub
Sub Load_Detail() Sub Load_Detail()
If FormShown = False Then Exit Sub If FormShown = False Then Exit Sub
Dim oDocPath As String = String.Empty
Try Try
Dim oDocID Dim oDocID
Try Try
@ -40,7 +41,7 @@ Public Class frmMonitor
If IsNothing(oDocID) Then If IsNothing(oDocID) Then
Exit Sub Exit Sub
End If End If
Dim oDocPath
Try Try
oDocPath = GridView1.GetFocusedRowCellValue(GridView1.Columns("FULL_FILE_PATH")) oDocPath = GridView1.GetFocusedRowCellValue(GridView1.Columns("FULL_FILE_PATH"))
Catch ex As Exception Catch ex As Exception
@ -48,64 +49,77 @@ Public Class frmMonitor
oDocPath = String.Empty oDocPath = String.Empty
End Try End Try
BarStaticItemInfoDoc.Caption = $"DocID: {oDocID} - Docpath: {oDocPath}" BarStaticItemInfoDoc.Caption = $"DocID: {oDocID} - Docpath: {oDocPath}"
Dim oDetailSQL = GRID2_SQL If Not IsNothing(GRID2_SQL) Then
oDetailSQL = oDetailSQL.Replace("@DocID", oDocID) Dim oDetailSQL = GRID2_SQL
oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID)
oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
Dim oDT2 As DataTable = ClassDatabase.Return_Datatable(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
oDetailSQL = GRID3_SQL
oDetailSQL = oDetailSQL.Replace("@DocID", oDocID) oDetailSQL = oDetailSQL.Replace("@DocID", oDocID)
oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID) oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID)
oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID) oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME) oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
Dim oDT3 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL, "Monitor_Detail2") Dim oDT2 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL, "Monitor_Detail1")
If Not IsNothing(oDT3) Then If Not IsNothing(oDT2) Then
LOGGER.Debug($"Found {oDT3.Rows.Count} rows for GridView3") LOGGER.Debug($"Found {oDT2.Rows.Count} rows for GridView2")
GridView3.Columns.Clear() GridView2.Columns.Clear()
GridControl3.DataSource = oDT3 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 End If
If DT_MONITOR_KONFIG.Rows.Count = 4 Then If DT_MONITOR_KONFIG.Rows.Count > 2 Then
oDetailSQL = GRID4_SQL LOGGER.Debug($"DT_MONITOR_KONFIG.Rows.Count > 2")
oDetailSQL = GRID3_SQL
oDetailSQL = oDetailSQL.Replace("@DocID", oDocID) oDetailSQL = oDetailSQL.Replace("@DocID", oDocID)
oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID) oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID)
oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID) oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME) oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
Dim oDT4 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL, "Monitor_Detail3") Dim oDT3 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL, "Monitor_Detail2")
If Not IsNothing(oDT4) Then LOGGER.Debug($"oDetailSQL for Grid 3: {oDetailSQL}")
LOGGER.Debug($"Found {oDT4.Rows.Count} rows for GridView4") If Not IsNothing(oDT3) Then
GridView4.Columns.Clear() LOGGER.Debug($"Found {oDT3.Rows.Count} rows for GridView3")
GridControl4.DataSource = oDT4 GridView3.Columns.Clear()
Try GridControl3.DataSource = oDT3
GridView4.Columns("Geändert wann").DisplayFormat.FormatType = FormatType.DateTime End If
GridView4.Columns("Geändert wann").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" If DT_MONITOR_KONFIG.Rows.Count = 4 Then
Catch ex As Exception LOGGER.Debug($"DT_MONITOR_KONFIG.Rows.Count = 4")
GridView4.Columns("Changed when").DisplayFormat.FormatType = FormatType.DateTime oDetailSQL = GRID4_SQL
GridView4.Columns("Changed when").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" oDetailSQL = oDetailSQL.Replace("@DocID", oDocID)
End Try 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 = ClassDatabase.Return_Datatable(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 End If
End If End If
Load_Doc(oDocPath)
Catch ex As Exception Catch ex As Exception
'MsgBox(ex.Message, MsgBoxStyle.Critical, "Error GridView1.FocusedRowChanged:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Error GridView1.FocusedRowChanged:")
Finally
If oDocPath <> String.Empty Then
Load_Doc(oDocPath)
End If
End Try End Try
End Sub End Sub
Sub Load_Doc(oDocPath As String) Sub Load_Doc(oDocPath As String)
Try Try
@ -120,7 +134,7 @@ Public Class frmMonitor
DocumentViewerMonitor.LoadFile(oDocPath) DocumentViewerMonitor.LoadFile(oDocPath)
BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
DocumentViewerMonitor.Visible = True DocumentViewerMonitor.Visible = True
DocumentViewerMonitor.RightOnlyView(USER_RIGHT_VIEW_ONLY) ' DocumentViewerMonitor.RightOnlyView(USER_RIGHT_VIEW_ONLY)
Else Else
BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Always BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
@ -217,8 +231,11 @@ Public Class frmMonitor
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Load_Grid_Data:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Load_Grid_Data:")
Finally
FormShown = True
End Try End Try
End Function End Function
Sub LoadGrid1Layout() Sub LoadGrid1Layout()
@ -397,7 +414,8 @@ Public Class frmMonitor
If oActiveGrid IsNot Nothing Then If oActiveGrid IsNot Nothing Then
XtraSaveFileDialog1.FileName = oActiveGrid.Name & ".xlsx" XtraSaveFileDialog1.FileName = oActiveGrid.Name
XtraSaveFileDialog1.Filter = "Excel documents (.xlsx)|*.xlsx"
XtraSaveFileDialog1.DefaultExt = ".xlsx" XtraSaveFileDialog1.DefaultExt = ".xlsx"
If XtraSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then If XtraSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

2
app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb generated
View File

@ -344,7 +344,7 @@ Partial Class frmSQL_DESIGNER
'cmbUser 'cmbUser
' '
Me.cmbUser.FormattingEnabled = True Me.cmbUser.FormattingEnabled = True
Me.cmbUser.Items.AddRange(New Object() {"PRENAME", "SURNAME", "SHORTNAME", "LANGUAGE", "EMAIL", "USER_ID", "PROFILE_ID"}) Me.cmbUser.Items.AddRange(New Object() {"PRENAME", "SURNAME", "SHORTNAME", "LANGUAGE", "EMAIL", "USER_ID", "PROFILE_ID", "PROFILE_TITLE"})
Me.cmbUser.Location = New System.Drawing.Point(681, 86) Me.cmbUser.Location = New System.Drawing.Point(681, 86)
Me.cmbUser.Name = "cmbUser" Me.cmbUser.Name = "cmbUser"
Me.cmbUser.Size = New System.Drawing.Size(194, 21) Me.cmbUser.Size = New System.Drawing.Size(194, 21)

2
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -2724,7 +2724,7 @@ Public Class frmValidator
End Sub End Sub
Sub load_viewer() Sub load_viewer()
DocumentViewerValidator.LoadFile(WMDocPathWindows) DocumentViewerValidator.LoadFile(WMDocPathWindows)
DocumentViewerValidator.RightOnlyView(USER_RIGHT_VIEW_ONLY) ' DocumentViewerValidator.RightOnlyView(USER_RIGHT_VIEW_ONLY)
If USER_RIGHT_VIEW_ONLY = True Then If USER_RIGHT_VIEW_ONLY = True Then
RibbonPageFile.Visible = False RibbonPageFile.Visible = False
Else Else

2
app/DD_PM_WINDREAM/frmValidatorSearch.vb
View File

@ -469,7 +469,7 @@ Public Class frmValidatorSearch
If Not IsNothing(clsWMDocGrid.SELECTED_DOC_PATH) And Not IsNothing(DocumentViewer1) Then If Not IsNothing(clsWMDocGrid.SELECTED_DOC_PATH) And Not IsNothing(DocumentViewer1) Then
If clsWMDocGrid.SELECTED_DOC_PATH <> "" Then If clsWMDocGrid.SELECTED_DOC_PATH <> "" Then
DocumentViewer1.LoadFile(clsWMDocGrid.SELECTED_DOC_PATH) DocumentViewer1.LoadFile(clsWMDocGrid.SELECTED_DOC_PATH)
DocumentViewer1.RightOnlyView(USER_RIGHT_VIEW_ONLY) DocumentViewer1.RightViewOnly(USER_RIGHT_VIEW_ONLY)
If USER_RIGHT_VIEW_ONLY = True Then If USER_RIGHT_VIEW_ONLY = True Then
ToolStripDropDownButtonFile.Visible = False ToolStripDropDownButtonFile.Visible = False
Else Else