MS Changes1500

This commit is contained in:
SchreiberM 2019-12-04 14:56:34 +01:00
parent 07b913be52
commit 27f1a4e327
6 changed files with 160 additions and 488 deletions

View File

@ -104,30 +104,31 @@ Public Class clsPatterns
Dim result = input Dim result = input
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_PRENAME) While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_PRENAME)
result = ReplacePattern(input, PATTERN_USER, prename) result = ReplacePattern(result, PATTERN_USER, prename)
End While End While
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_USER_ID) While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_USER_ID)
result = ReplacePattern(input, PATTERN_USER, userId) result = ReplacePattern(result, PATTERN_USER, userId)
End While End While
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SURNAME) While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SURNAME)
result = ReplacePattern(input, PATTERN_USER, surname) result = ReplacePattern(result, PATTERN_USER, surname)
End While End While
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SHORTNAME) While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SHORTNAME)
result = ReplacePattern(input, PATTERN_USER, shortname) result = ReplacePattern(result, PATTERN_USER, shortname)
End While End While
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_LANGUAGE) While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_LANGUAGE)
result = ReplacePattern(input, PATTERN_USER, language) result = ReplacePattern(result, PATTERN_USER, language)
End While End While
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_EMAIL) While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_EMAIL)
result = ReplacePattern(input, 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, USER_VALUE_PROFILE_ID)
result = ReplacePattern(input, PATTERN_USER, profileId) result = ReplacePattern(result, PATTERN_USER, profileId)
End While End While
Return result Return result
@ -275,7 +276,7 @@ Public Class clsPatterns
Public Shared Function ReplacePattern(input As String, type As String, replacement As String) As String Public Shared Function ReplacePattern(input As String, type As String, replacement As String) As String
Dim elements As MatchCollection = regex.Matches(input) Dim elements As MatchCollection = regex.Matches(input)
If IsNothing(replacement) Or replacement = String.Empty Then If IsNothing(replacement) Then
Return input Return input
End If End If

View File

@ -33,7 +33,7 @@ Public Class clsWMDocGrid
Dim oNewDataTable As New DataTable Dim oNewDataTable As New DataTable
oNewDataTable.TableName = "TBSELECTED_FILES" oNewDataTable.TableName = "TBSELECTED_FILES"
' Create two columns, ID and Name. ' Create two columns, ID and Name.
oNewDataTable.Columns.Add("DOC_ID", GetType(Integer)) oNewDataTable.Columns.Add("DocID", GetType(Integer))
oNewDataTable.Columns.Add("DOC_PATH", GetType(System.String)) oNewDataTable.Columns.Add("DOC_PATH", GetType(System.String))
oNewDataTable.Columns.Add("OBJECTTYPE", GetType(System.String)) oNewDataTable.Columns.Add("OBJECTTYPE", GetType(System.String))
oNewDataTable.Columns.Add("INWORK", GetType(System.Boolean)) oNewDataTable.Columns.Add("INWORK", GetType(System.Boolean))
@ -59,11 +59,11 @@ Public Class clsWMDocGrid
For Each row In ActiveDocGrid.GetSelectedRows For Each row In ActiveDocGrid.GetSelectedRows
Dim newRow As DataRow = DTDocuments.NewRow() Dim newRow As DataRow = DTDocuments.NewRow()
Try Try
Dim DOC_ID = ActiveDocGrid.GetRowCellValue(row, "DocID") Dim DocID = ActiveDocGrid.GetRowCellValue(row, "DocID")
SELECTED_DOC_ID = DOC_ID SELECTED_DOC_ID = DocID
newRow("DOC_ID") = ActiveDocGrid.GetRowCellValue(row, "DocID") newRow("DocID") = ActiveDocGrid.GetRowCellValue(row, "DocID")
Catch ex As Exception Catch ex As Exception
newRow("DOC_ID") = 0 newRow("DocID") = 0
SELECTED_DOC_ID = 0 SELECTED_DOC_ID = 0
End Try End Try
Try Try
@ -105,11 +105,11 @@ Public Class clsWMDocGrid
Else Else
Dim newRow As DataRow = DTDocuments.NewRow() Dim newRow As DataRow = DTDocuments.NewRow()
Try Try
Dim DOC_ID = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("DocID")) Dim DocID = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("DocID"))
SELECTED_DOC_ID = DOC_ID SELECTED_DOC_ID = DocID
newRow("DOC_ID") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("DocID")) newRow("DocID") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("DocID"))
Catch ex As Exception Catch ex As Exception
newRow("DOC_ID") = 0 newRow("DocID") = 0
SELECTED_DOC_ID = 0 SELECTED_DOC_ID = 0
End Try End Try
Try Try

View File

@ -464,6 +464,9 @@ Partial Class frmAdmin2
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colTITLE}) Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colTITLE})
Me.GridView1.GridControl = Me.GridControl1 Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1" Me.GridView1.Name = "GridView1"
Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsBehavior.Editable = False
Me.GridView1.OptionsView.EnableAppearanceEvenRow = True Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
Me.GridView1.OptionsView.ShowAutoFilterRow = True Me.GridView1.OptionsView.ShowAutoFilterRow = True
' '
@ -687,6 +690,9 @@ Partial Class frmAdmin2
Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4}) Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4})
Me.GridView2.GridControl = Me.GridControl2 Me.GridView2.GridControl = Me.GridControl2
Me.GridView2.Name = "GridView2" Me.GridView2.Name = "GridView2"
Me.GridView2.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView2.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView2.OptionsBehavior.Editable = False
Me.GridView2.OptionsView.EnableAppearanceEvenRow = True Me.GridView2.OptionsView.EnableAppearanceEvenRow = True
Me.GridView2.OptionsView.ShowAutoFilterRow = True Me.GridView2.OptionsView.ShowAutoFilterRow = True
' '

View File

@ -1108,6 +1108,12 @@
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>Vorlagen Verwaltung</value>
</data>
<data name="RibbonPageGroup2.Text" xml:space="preserve">
<value>Phrasen Verwaltung</value>
</data>
<data name="RibbonPage1.Text" xml:space="preserve"> <data name="RibbonPage1.Text" xml:space="preserve">
<value>Aktionen</value> <value>Aktionen</value>
</data> </data>
@ -1144,12 +1150,6 @@
<data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>Vorlagen Verwaltung</value>
</data>
<data name="RibbonPageGroup2.Text" xml:space="preserve">
<value>Phrasen Verwaltung</value>
</data>
<data name="RibbonPage2.Text" xml:space="preserve"> <data name="RibbonPage2.Text" xml:space="preserve">
<value>RibbonPage2</value> <value>RibbonPage2</value>
</data> </data>
@ -1163,387 +1163,6 @@
<data name="XtraTabPage1.AutoScroll" type="System.Boolean, mscorlib"> <data name="XtraTabPage1.AutoScroll" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
<data name="&gt;&gt;Button1.Name" xml:space="preserve">
<value>Button1</value>
</data>
<data name="&gt;&gt;Button1.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Button1.Parent" xml:space="preserve">
<value>XtraTabPage1</value>
</data>
<data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;GridControl1.Name" xml:space="preserve">
<value>GridControl1</value>
</data>
<data name="&gt;&gt;GridControl1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControl1.Parent" xml:space="preserve">
<value>XtraTabPage1</value>
</data>
<data name="&gt;&gt;GridControl1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;GUIDTextBox.Name" xml:space="preserve">
<value>GUIDTextBox</value>
</data>
<data name="&gt;&gt;GUIDTextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GUIDTextBox.Parent" xml:space="preserve">
<value>XtraTabPage1</value>
</data>
<data name="&gt;&gt;GUIDTextBox.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="&gt;&gt;TITLETextBox.Name" xml:space="preserve">
<value>TITLETextBox</value>
</data>
<data name="&gt;&gt;TITLETextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;TITLETextBox.Parent" xml:space="preserve">
<value>XtraTabPage1</value>
</data>
<data name="&gt;&gt;TITLETextBox.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="&gt;&gt;EMAIL_SUBJECTTextBox.Name" xml:space="preserve">
<value>EMAIL_SUBJECTTextBox</value>
</data>
<data name="&gt;&gt;EMAIL_SUBJECTTextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;EMAIL_SUBJECTTextBox.Parent" xml:space="preserve">
<value>XtraTabPage1</value>
</data>
<data name="&gt;&gt;EMAIL_SUBJECTTextBox.ZOrder" xml:space="preserve">
<value>7</value>
</data>
<data name="&gt;&gt;EMAIL_BODY1TextBox.Name" xml:space="preserve">
<value>EMAIL_BODY1TextBox</value>
</data>
<data name="&gt;&gt;EMAIL_BODY1TextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;EMAIL_BODY1TextBox.Parent" xml:space="preserve">
<value>XtraTabPage1</value>
</data>
<data name="&gt;&gt;EMAIL_BODY1TextBox.ZOrder" xml:space="preserve">
<value>9</value>
</data>
<data name="&gt;&gt;EMAIL_BODY2TextBox.Name" xml:space="preserve">
<value>EMAIL_BODY2TextBox</value>
</data>
<data name="&gt;&gt;EMAIL_BODY2TextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;EMAIL_BODY2TextBox.Parent" xml:space="preserve">
<value>XtraTabPage1</value>
</data>
<data name="&gt;&gt;EMAIL_BODY2TextBox.ZOrder" xml:space="preserve">
<value>11</value>
</data>
<data name="&gt;&gt;EMAIL_BODY3TextBox.Name" xml:space="preserve">
<value>EMAIL_BODY3TextBox</value>
</data>
<data name="&gt;&gt;EMAIL_BODY3TextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;EMAIL_BODY3TextBox.Parent" xml:space="preserve">
<value>XtraTabPage1</value>
</data>
<data name="&gt;&gt;EMAIL_BODY3TextBox.ZOrder" xml:space="preserve">
<value>13</value>
</data>
<data name="&gt;&gt;ADDED_WHOTextBox.Name" xml:space="preserve">
<value>ADDED_WHOTextBox</value>
</data>
<data name="&gt;&gt;ADDED_WHOTextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ADDED_WHOTextBox.Parent" xml:space="preserve">
<value>XtraTabPage1</value>
</data>
<data name="&gt;&gt;ADDED_WHOTextBox.ZOrder" xml:space="preserve">
<value>15</value>
</data>
<data name="&gt;&gt;ADDED_WHENTextBox.Name" xml:space="preserve">
<value>ADDED_WHENTextBox</value>
</data>
<data name="&gt;&gt;ADDED_WHENTextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ADDED_WHENTextBox.Parent" xml:space="preserve">
<value>XtraTabPage1</value>
</data>
<data name="&gt;&gt;ADDED_WHENTextBox.ZOrder" xml:space="preserve">
<value>17</value>
</data>
<data name="&gt;&gt;CHANGED_WHOTextBox.Name" xml:space="preserve">
<value>CHANGED_WHOTextBox</value>
</data>
<data name="&gt;&gt;CHANGED_WHOTextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;CHANGED_WHOTextBox.Parent" xml:space="preserve">
<value>XtraTabPage1</value>
</data>
<data name="&gt;&gt;CHANGED_WHOTextBox.ZOrder" xml:space="preserve">
<value>19</value>
</data>
<data name="&gt;&gt;CHANGED_WHENTextBox.Name" xml:space="preserve">
<value>CHANGED_WHENTextBox</value>
</data>
<data name="&gt;&gt;CHANGED_WHENTextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;CHANGED_WHENTextBox.Parent" xml:space="preserve">
<value>XtraTabPage1</value>
</data>
<data name="&gt;&gt;CHANGED_WHENTextBox.ZOrder" xml:space="preserve">
<value>21</value>
</data>
<data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing">
<value>917, 376</value>
</data>
<data name="XtraTabPage1.Text" xml:space="preserve">
<value>Email Inhalte Workflow</value>
</data>
<data name="&gt;&gt;XtraTabPage1.Name" xml:space="preserve">
<value>XtraTabPage1</value>
</data>
<data name="&gt;&gt;XtraTabPage1.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;XtraTabPage1.Parent" xml:space="preserve">
<value>XtraTabControl1</value>
</data>
<data name="&gt;&gt;XtraTabPage1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="XtraTabControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>919, 401</value>
</data>
<data name="XtraTabControl1.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="XtraTabPage2.AutoScroll" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="&gt;&gt;CHANGED_WHENTextBox1.Name" xml:space="preserve">
<value>CHANGED_WHENTextBox1</value>
</data>
<data name="&gt;&gt;CHANGED_WHENTextBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;CHANGED_WHENTextBox1.Parent" xml:space="preserve">
<value>XtraTabPage2</value>
</data>
<data name="&gt;&gt;CHANGED_WHENTextBox1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;CHANGED_WHOTextBox1.Name" xml:space="preserve">
<value>CHANGED_WHOTextBox1</value>
</data>
<data name="&gt;&gt;CHANGED_WHOTextBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;CHANGED_WHOTextBox1.Parent" xml:space="preserve">
<value>XtraTabPage2</value>
</data>
<data name="&gt;&gt;CHANGED_WHOTextBox1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="&gt;&gt;ADDED_WHENTextBox1.Name" xml:space="preserve">
<value>ADDED_WHENTextBox1</value>
</data>
<data name="&gt;&gt;ADDED_WHENTextBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ADDED_WHENTextBox1.Parent" xml:space="preserve">
<value>XtraTabPage2</value>
</data>
<data name="&gt;&gt;ADDED_WHENTextBox1.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="&gt;&gt;ADDED_WHOTextBox1.Name" xml:space="preserve">
<value>ADDED_WHOTextBox1</value>
</data>
<data name="&gt;&gt;ADDED_WHOTextBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ADDED_WHOTextBox1.Parent" xml:space="preserve">
<value>XtraTabPage2</value>
</data>
<data name="&gt;&gt;ADDED_WHOTextBox1.ZOrder" xml:space="preserve">
<value>7</value>
</data>
<data name="&gt;&gt;STRING6TextBox.Name" xml:space="preserve">
<value>STRING6TextBox</value>
</data>
<data name="&gt;&gt;STRING6TextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;STRING6TextBox.Parent" xml:space="preserve">
<value>XtraTabPage2</value>
</data>
<data name="&gt;&gt;STRING6TextBox.ZOrder" xml:space="preserve">
<value>9</value>
</data>
<data name="&gt;&gt;STRING5TextBox.Name" xml:space="preserve">
<value>STRING5TextBox</value>
</data>
<data name="&gt;&gt;STRING5TextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;STRING5TextBox.Parent" xml:space="preserve">
<value>XtraTabPage2</value>
</data>
<data name="&gt;&gt;STRING5TextBox.ZOrder" xml:space="preserve">
<value>11</value>
</data>
<data name="&gt;&gt;STRING4TextBox.Name" xml:space="preserve">
<value>STRING4TextBox</value>
</data>
<data name="&gt;&gt;STRING4TextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;STRING4TextBox.Parent" xml:space="preserve">
<value>XtraTabPage2</value>
</data>
<data name="&gt;&gt;STRING4TextBox.ZOrder" xml:space="preserve">
<value>13</value>
</data>
<data name="&gt;&gt;STRING3TextBox.Name" xml:space="preserve">
<value>STRING3TextBox</value>
</data>
<data name="&gt;&gt;STRING3TextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;STRING3TextBox.Parent" xml:space="preserve">
<value>XtraTabPage2</value>
</data>
<data name="&gt;&gt;STRING3TextBox.ZOrder" xml:space="preserve">
<value>15</value>
</data>
<data name="&gt;&gt;STRING2TextBox.Name" xml:space="preserve">
<value>STRING2TextBox</value>
</data>
<data name="&gt;&gt;STRING2TextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;STRING2TextBox.Parent" xml:space="preserve">
<value>XtraTabPage2</value>
</data>
<data name="&gt;&gt;STRING2TextBox.ZOrder" xml:space="preserve">
<value>17</value>
</data>
<data name="&gt;&gt;STRING1TextBox.Name" xml:space="preserve">
<value>STRING1TextBox</value>
</data>
<data name="&gt;&gt;STRING1TextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;STRING1TextBox.Parent" xml:space="preserve">
<value>XtraTabPage2</value>
</data>
<data name="&gt;&gt;STRING1TextBox.ZOrder" xml:space="preserve">
<value>19</value>
</data>
<data name="&gt;&gt;CAPT_TYPEComboBox.Name" xml:space="preserve">
<value>CAPT_TYPEComboBox</value>
</data>
<data name="&gt;&gt;CAPT_TYPEComboBox.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;CAPT_TYPEComboBox.Parent" xml:space="preserve">
<value>XtraTabPage2</value>
</data>
<data name="&gt;&gt;CAPT_TYPEComboBox.ZOrder" xml:space="preserve">
<value>21</value>
</data>
<data name="&gt;&gt;LANGUAGEComboBox.Name" xml:space="preserve">
<value>LANGUAGEComboBox</value>
</data>
<data name="&gt;&gt;LANGUAGEComboBox.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;LANGUAGEComboBox.Parent" xml:space="preserve">
<value>XtraTabPage2</value>
</data>
<data name="&gt;&gt;LANGUAGEComboBox.ZOrder" xml:space="preserve">
<value>23</value>
</data>
<data name="&gt;&gt;TITLETextBox1.Name" xml:space="preserve">
<value>TITLETextBox1</value>
</data>
<data name="&gt;&gt;TITLETextBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;TITLETextBox1.Parent" xml:space="preserve">
<value>XtraTabPage2</value>
</data>
<data name="&gt;&gt;TITLETextBox1.ZOrder" xml:space="preserve">
<value>25</value>
</data>
<data name="&gt;&gt;GUIDTextBox1.Name" xml:space="preserve">
<value>GUIDTextBox1</value>
</data>
<data name="&gt;&gt;GUIDTextBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GUIDTextBox1.Parent" xml:space="preserve">
<value>XtraTabPage2</value>
</data>
<data name="&gt;&gt;GUIDTextBox1.ZOrder" xml:space="preserve">
<value>27</value>
</data>
<data name="&gt;&gt;GridControl2.Name" xml:space="preserve">
<value>GridControl2</value>
</data>
<data name="&gt;&gt;GridControl2.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControl2.Parent" xml:space="preserve">
<value>XtraTabPage2</value>
</data>
<data name="&gt;&gt;GridControl2.ZOrder" xml:space="preserve">
<value>28</value>
</data>
<data name="XtraTabPage2.Size" type="System.Drawing.Size, System.Drawing">
<value>917, 376</value>
</data>
<data name="XtraTabPage2.Text" xml:space="preserve">
<value>GUI Phrasen</value>
</data>
<data name="&gt;&gt;XtraTabPage2.Name" xml:space="preserve">
<value>XtraTabPage2</value>
</data>
<data name="&gt;&gt;XtraTabPage2.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;XtraTabPage2.Parent" xml:space="preserve">
<value>XtraTabControl1</value>
</data>
<data name="&gt;&gt;XtraTabPage2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;XtraTabControl1.Name" xml:space="preserve">
<value>XtraTabControl1</value>
</data>
<data name="&gt;&gt;XtraTabControl1.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;XtraTabControl1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;XtraTabControl1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="Button1.Location" type="System.Drawing.Point, System.Drawing"> <data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
<value>769, 39</value> <value>769, 39</value>
</data> </data>
@ -1622,9 +1241,6 @@
<data name="&gt;&gt;GridControl1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;GridControl1.ZOrder" xml:space="preserve">
<value>1</value> <value>1</value>
</data> </data>
<metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="GUIDTextBox.Location" type="System.Drawing.Point, System.Drawing"> <data name="GUIDTextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>323, 14</value> <value>323, 14</value>
</data> </data>
@ -1853,6 +1469,33 @@
<data name="&gt;&gt;CHANGED_WHENTextBox.ZOrder" xml:space="preserve"> <data name="&gt;&gt;CHANGED_WHENTextBox.ZOrder" xml:space="preserve">
<value>21</value> <value>21</value>
</data> </data>
<data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing">
<value>917, 376</value>
</data>
<data name="XtraTabPage1.Text" xml:space="preserve">
<value>Email Inhalte Workflow</value>
</data>
<data name="&gt;&gt;XtraTabPage1.Name" xml:space="preserve">
<value>XtraTabPage1</value>
</data>
<data name="&gt;&gt;XtraTabPage1.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;XtraTabPage1.Parent" xml:space="preserve">
<value>XtraTabControl1</value>
</data>
<data name="&gt;&gt;XtraTabPage1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="XtraTabControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>919, 401</value>
</data>
<data name="XtraTabControl1.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="XtraTabPage2.AutoScroll" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<metadata name="TBDD_GUI_LANGUAGE_PHRASEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBDD_GUI_LANGUAGE_PHRASEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value> <value>17, 56</value>
</metadata> </metadata>
@ -1877,9 +1520,6 @@
<data name="&gt;&gt;CHANGED_WHENTextBox1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;CHANGED_WHENTextBox1.ZOrder" xml:space="preserve">
<value>1</value> <value>1</value>
</data> </data>
<metadata name="TBDD_GUI_LANGUAGE_PHRASEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<data name="CHANGED_WHOTextBox1.Location" type="System.Drawing.Point, System.Drawing"> <data name="CHANGED_WHOTextBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>399, 305</value> <value>399, 305</value>
</data> </data>
@ -2243,6 +1883,36 @@
<data name="&gt;&gt;GridControl2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;GridControl2.ZOrder" xml:space="preserve">
<value>28</value> <value>28</value>
</data> </data>
<data name="XtraTabPage2.Size" type="System.Drawing.Size, System.Drawing">
<value>917, 376</value>
</data>
<data name="XtraTabPage2.Text" xml:space="preserve">
<value>GUI Phrasen</value>
</data>
<data name="&gt;&gt;XtraTabPage2.Name" xml:space="preserve">
<value>XtraTabPage2</value>
</data>
<data name="&gt;&gt;XtraTabPage2.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;XtraTabPage2.Parent" xml:space="preserve">
<value>XtraTabControl1</value>
</data>
<data name="&gt;&gt;XtraTabPage2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;XtraTabControl1.Name" xml:space="preserve">
<value>XtraTabControl1</value>
</data>
<data name="&gt;&gt;XtraTabControl1.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;XtraTabControl1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;XtraTabControl1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="TBDD_EMAIL_TEMPLATETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBDD_EMAIL_TEMPLATETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>442, 17</value> <value>442, 17</value>
</metadata> </metadata>
@ -2263,17 +1933,16 @@
</data> </data>
<data name="frmAdmin2.IconOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="frmAdmin2.IconOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAALXRFWHRUaXRsZQBEQjtTb3Vy dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAtdEVYdFRpdGxlAERCO1NvdXJjZTtTdG9yO2RhdGFz
Y2U7U3RvcjtkYXRhc291cmNlO0RhdGFiYXNlO0VkaXQo9rqcAAABpUlEQVRYR8WVMU7DQBBFU9Aj0XED b3VyY2U7RGF0YWJhc2U7RWRpdCj2upwAAAGlSURBVFhHxZUxTsNAEEVT0CPRcQMKCiQoqBGUkGtQIqoU
CgokKKgRlJBrUCKqFCAFjkDHTZBoKNIilI5LQBOkFEgs/yE7cnZmQ7xexcWTnNn5/08cjzMIIfSKW9wk IAWOQMdNkGgo0iKUjktAE6QUSCz/ITtydmZDvF7FxZOc2fn/TxyPMwgh9Ipb3CRucZO4xc/JdZNtcSKu
bnGTuMXPyXWTbXEirsSjeBbv4kN8V3BNjTN66EWDduHlZbnFSrAvbsWrCJmgxQMvN8stqnkopsIzzQGv xKN4Fu/iQ3xXcE2NM3roRYN24eVlucVKsC9uxasImaDFAy83yy2qeSimwjPNAa+hl2UKUAk8oy5MvSxT
oZdlClAJPKMuTL0sUwA1zyJxCWZelimAmueRuARzL8sUgOZIXIJWA/T+E/T+EPa+hiNxIUq9iPAaeVmm ADXPInEJZl6WKYCa55G4BHMvyxSA5khcglYD9P4T9P4Q9r6GI3EhSr2I8Bp5WaYAauYZeBN34lTkvorR
AGrmGXgTd+JU5L6K0eKBV/YafokX8SAuxZnYEztiq4JrapzRQy8atLVP72t442WZAqj5JxJ3ZXx+/zQQ 4oFX9hp+iRfxIC7FmdgTO2KrgmtqnNFDLxq0tU/va3jjZZkCqPknEndlfH7/NBCHIlRwnRyg5AZ44Ysh
hyJUcJ0coOQGeOGLIVIDlFrDONwMkRqgxBqmvvnS59QAXdfwWOap2w6LO5IaoMsaHsl4VXgN58XXcNUD UgOUWsM43AyRGqDEGqa++dLn1ABd1/BY5qnbDos7khqgyxoeyXhVeA3nxddw1QPX5C8cUgPk/Bu2DofU
1+QvHFID5Pwbtg6H1ABtN2CMrjL3QmuWwtGYcJBhmzXMCgd0JhxkCuuuYVY4kGXCAdOKXXEgWMXUGmJW AG03YIyuMvdCa5bC0ZhwkGGbNcwKB3QmHGQK665hVjiQZcIB04pdcSBYxdQaYlaHxMF13YQDWSY8B5k1
h8TBdd2EA1kmPAeZNcPWCge0xiwHmcWh/4YDWmOWg8yaA6wVDiGEwS9IKlJjkp5nnAAAAABJRU5ErkJg w9YKB7TGLAeZxaH/hgNaY5aDzJoDrBUOIYTBL0gqUmOSnmecAAAAAElFTkSuQmCC
gg==
</value> </value>
</data> </data>
<data name="$this.Text" xml:space="preserve"> <data name="$this.Text" xml:space="preserve">

View File

@ -301,7 +301,7 @@ Public Class frmMain
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
GridView_Docs.Columns.Item("GUID").Visible = False GridView_Docs.Columns.Item("GUID").Visible = False
GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False
'GridView_Docs.Columns.Item("DOC_ID").Visible = False 'GridView_Docs.Columns.Item("DocID").Visible = False
GridView_Docs.Columns.Item("TL_STATE").Visible = False GridView_Docs.Columns.Item("TL_STATE").Visible = False
GridView_Docs.Columns.Item("ICON").MaxWidth = 24 GridView_Docs.Columns.Item("ICON").MaxWidth = 24
GridView_Docs.Columns.Item("ICON").MinWidth = 24 GridView_Docs.Columns.Item("ICON").MinWidth = 24
@ -699,7 +699,7 @@ Public Class frmMain
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
GridView_Docs.Columns.Item("GUID").Visible = False GridView_Docs.Columns.Item("GUID").Visible = False
GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False
'GridView_Docs.Columns.Item("DOC_ID").Visible = False 'GridView_Docs.Columns.Item("DocID").Visible = False
GridView_Docs.Columns.Item("TL_STATE").Visible = False GridView_Docs.Columns.Item("TL_STATE").Visible = False
GridView_Docs.Columns.Item("ICON").MaxWidth = 24 GridView_Docs.Columns.Item("ICON").MaxWidth = 24
GridView_Docs.Columns.Item("ICON").MinWidth = 24 GridView_Docs.Columns.Item("ICON").MinWidth = 24
@ -729,7 +729,7 @@ Public Class frmMain
Dim GridDXFieldName = oActGridColumn.FieldName Dim GridDXFieldName = oActGridColumn.FieldName
If oViewColumn.Caption = oGridDXFieldName Then If oViewColumn.Caption = oGridDXFieldName Then
If oActGridColumn.Visible = False 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 If oViewColumn.Caption <> "GUID" And oViewColumn.Caption <> "TL_STATE" And oViewColumn.Caption <> "PROFILE_ID" And oViewColumn.Caption <> "DocID" And
oViewColumn.Caption <> "FULL_FILE_PATH" And oViewColumn.Caption <> "GROUP_COLOR" And oViewColumn.Caption <> "GROUP_TEXT" Then oViewColumn.Caption <> "FULL_FILE_PATH" And oViewColumn.Caption <> "GROUP_COLOR" And oViewColumn.Caption <> "GROUP_TEXT" Then
Console.WriteLine($"ViewColumn [{oViewColumn.Caption}] is invisible") Console.WriteLine($"ViewColumn [{oViewColumn.Caption}] is invisible")
Else Else
@ -787,7 +787,7 @@ Public Class frmMain
' sql = sql.Replace("@DATE", Now.ToShortDateString) ' sql = sql.Replace("@DATE", Now.ToShortDateString)
' sql = sql.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID) ' 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 " & ' 'String.Format("SELECT '1' TL_STATE,T.PROFIL_ID,T1.TITLE, T.DocID, T.FILE_PATH, T.DMS_ERSTELLT_DATE,[dbo].[FNPM_LAST_WORKUSER_DOC] (T.PROFIL_ID,T.DocID) AS 'Last User',[dbo].[FNPM_LAST_EDITED_DOC] (T.PROFIL_ID,T.DocID) as 'Last edited' FROM TBPM_PROFILE_FILES T, VWPM_PROFILE_USER T1 " &
' ' "WHERE T.PROFIL_ID = T1.PROFIL_ID " & ' ' "WHERE T.PROFIL_ID = T1.PROFIL_ID " &
' ' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", USER_USERNAME) ' ' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", USER_USERNAME)
' CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True) ' CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True)
@ -1106,13 +1106,13 @@ Public Class frmMain
ElseIf hitInfo.InDataRow Then ElseIf hitInfo.InDataRow Then
Dim DOC_GUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID")) Dim DOC_GUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID"))
Dim DOC_ID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DOC_ID")) Dim DocID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DocID"))
If IsNothing(DOC_ID) Then Exit Sub If IsNothing(DocID) Then Exit Sub
Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("FULL_FILE_PATH")) 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("W:", "\\windream\objects")
DOC_PATH = DOC_PATH.Replace("K:", "\\windream\objects") DOC_PATH = DOC_PATH.Replace("K:", "\\windream\objects")
'Checking if table really contains one record with profile-id and docid 'Checking if table really contains one record with profile-id and docid
expression = expression & " AND DOC_ID = " & DOC_ID expression = expression & " AND DocID = " & DocID
Dim TEMP_TABLE = CURR_DT_PROFILEGRID Dim TEMP_TABLE = CURR_DT_PROFILEGRID
Dim foundRows() As DataRow Dim foundRows() As DataRow
foundRows = TEMP_TABLE.Select(expression) foundRows = TEMP_TABLE.Select(expression)
@ -1121,7 +1121,7 @@ Public Class frmMain
result += 1 result += 1
Next Next
If result = 1 Then If result = 1 Then
CURRENT_DOC_ID = DOC_ID CURRENT_DOC_ID = DocID
CURRENT_JUMP_DOC_GUID = DOC_GUID CURRENT_JUMP_DOC_GUID = DOC_GUID
CURRENT_DOC_GUID = CURRENT_JUMP_DOC_GUID CURRENT_DOC_GUID = CURRENT_JUMP_DOC_GUID
CURRENT_DOC_PATH = DOC_PATH CURRENT_DOC_PATH = DOC_PATH
@ -1216,22 +1216,22 @@ Public Class frmMain
Dim NewDatatable As New DataTable Dim NewDatatable As New DataTable
NewDatatable.Columns.Add("DOC_ID") NewDatatable.Columns.Add("DocID")
NewDatatable.Columns.Add("DOC_GUID") NewDatatable.Columns.Add("DOC_GUID")
NewDatatable.Columns.Add("FULL_PATH") NewDatatable.Columns.Add("FULL_PATH")
For Each oRowHandle As Integer In oSelectedRows For Each oRowHandle As Integer In oSelectedRows
Dim DOC_ID = GridView_Docs.GetRowCellValue(oRowHandle, "DOC_ID") Dim DocID = GridView_Docs.GetRowCellValue(oRowHandle, "DocID")
If IsNothing(DOC_ID) Then If IsNothing(DocID) Then
Continue For Continue For
End If End If
Dim R As DataRow = NewDatatable.NewRow Dim R As DataRow = NewDatatable.NewRow
CURRENT_DOC_ID = DOC_ID CURRENT_DOC_ID = DocID
Dim DOC_PATH = GridView_Docs.GetRowCellValue(oRowHandle, "FULL_FILE_PATH") Dim DOC_PATH = GridView_Docs.GetRowCellValue(oRowHandle, "FULL_FILE_PATH")
CURRENT_DOC_PATH = DOC_PATH CURRENT_DOC_PATH = DOC_PATH
CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(oRowHandle, "GUID") CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(oRowHandle, "GUID")
R("DOC_ID") = CURRENT_DOC_ID R("DocID") = CURRENT_DOC_ID
R("FULL_PATH") = CURRENT_DOC_PATH R("FULL_PATH") = CURRENT_DOC_PATH
R("DOC_GUID") = GridView_Docs.GetRowCellValue(oRowHandle, "GUID") R("DOC_GUID") = GridView_Docs.GetRowCellValue(oRowHandle, "GUID")
NewDatatable.Rows.Add(R) NewDatatable.Rows.Add(R)
@ -1310,7 +1310,7 @@ Public Class frmMain
oSQLOverview = oSQLOverview.Replace("@DATE", Now.ToShortDateString) oSQLOverview = oSQLOverview.Replace("@DATE", Now.ToShortDateString)
oSQLOverview = oSQLOverview.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID) 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 " & 'String.Format("SELECT '1' TL_STATE,T.PROFIL_ID,T1.TITLE, T.DocID, T.FILE_PATH, T.DMS_ERSTELLT_DATE,[dbo].[FNPM_LAST_WORKUSER_DOC] (T.PROFIL_ID,T.DocID) AS 'Last User',[dbo].[FNPM_LAST_EDITED_DOC] (T.PROFIL_ID,T.DocID) as 'Last edited' FROM TBPM_PROFILE_FILES T, VWPM_PROFILE_USER T1 " &
' "WHERE T.PROFIL_ID = T1.PROFIL_ID " & ' "WHERE T.PROFIL_ID = T1.PROFIL_ID " &
' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", USER_USERNAME) ' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", USER_USERNAME)
CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(oSQLOverview, True) CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(oSQLOverview, True)
@ -1422,7 +1422,7 @@ Public Class frmMain
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
GridView_Docs.Columns.Item("GUID").Visible = False GridView_Docs.Columns.Item("GUID").Visible = False
GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False
GridView_Docs.Columns.Item("DOC_ID").Visible = False 'GridView_Docs.Columns.Item("DocID").Visible = False
GridView_Docs.Columns.Item("TL_STATE").Visible = False GridView_Docs.Columns.Item("TL_STATE").Visible = False
GridView_Docs.Columns.Item("ICON").MaxWidth = 24 GridView_Docs.Columns.Item("ICON").MaxWidth = 24
GridView_Docs.Columns.Item("ICON").MinWidth = 24 GridView_Docs.Columns.Item("ICON").MinWidth = 24

View File

@ -439,7 +439,7 @@ Public Class frmValidator
Try Try
If TypeOf control Is Label Then Exit Sub If TypeOf control Is Label Then Exit Sub
Dim sql As String = $"SELECT NAME, CONNECTION_ID, SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE GUID = {controlId} AND PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(ISNULL(SQL_UEBERPRUEFUNG,'')) > 0 AND SQL_UEBERPRUEFUNG NOT LIKE '%#WMI#%' AND SQL_UEBERPRUEFUNG NOT LIKE '%#CTRL#%'" Dim sql As String = $"SELECT NAME, CONNECTION_ID, SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE GUID = {controlId} AND PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(ISNULL(SQL_UEBERPRUEFUNG,'')) > 0 AND CTRL_TYPE <> 'BUTTON' AND SQL_UEBERPRUEFUNG NOT LIKE '%#WMI#%' AND SQL_UEBERPRUEFUNG NOT LIKE '%#CTRL#%'"
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql) Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
If IsNothing(dt) Then Exit Sub If IsNothing(dt) Then Exit Sub
@ -1006,14 +1006,13 @@ Public Class frmValidator
If IsNothing(oSQL) Then If IsNothing(oSQL) Then
Exit Sub Exit Sub
End If End If
Dim oSQL2 = ClassControlCreator.GET_CONTROL_PROPERTY(DTCONTROLS, oControlID, "SQL2") Override_SQLCommand = ClassControlCreator.GET_CONTROL_PROPERTY(DTCONTROLS, oControlID, "SQL2")
If IsNothing(oSQL2) Then If IsNothing(Override_SQLCommand) Then
oSQL2 = "" Override_SQLCommand = ""
End If End If
' = $"select SQL_UEBERPRUEFUNG,SQL2 FROM TBPM_PROFILE_CONTROLS WHERE GUID = {oControlID}" ' = $"select SQL_UEBERPRUEFUNG,SQL2 FROM TBPM_PROFILE_CONTROLS WHERE GUID = {oControlID}"
oSQL = clsPatterns.ReplaceAllValues(oSQL, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) oSQL = clsPatterns.ReplaceAllValues(oSQL, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
LOGGER.Debug($"oSQL after replace {oSQL}") Override_SQLCommand = clsPatterns.ReplaceAllValues(Override_SQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
oSQL2 = clsPatterns.ReplaceAllValues(oSQL2, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
Dim oDT_ACTIONS As DataTable = ClassDatabase.Return_Datatable(oSQL) Dim oDT_ACTIONS As DataTable = ClassDatabase.Return_Datatable(oSQL)
If IsNothing(oDT_ACTIONS) Then If IsNothing(oDT_ACTIONS) Then
MsgBox("Something went wrong in custom action - Please check Your log!", MsgBoxStyle.Exclamation) MsgBox("Something went wrong in custom action - Please check Your log!", MsgBoxStyle.Exclamation)
@ -1060,18 +1059,14 @@ Public Class frmValidator
oColor = "" oColor = ""
End Try End Try
Try Try
OverrideAll = CBool(oDT_ACTIONS?.Rows(0).Item("OverrideAll")) OverrideAll = oDT_ACTIONS?.Rows(0).Item("OverrideAll")
Catch ex As Exception Catch ex As Exception
LOGGER.Warn($"Could not set OverrideAll {ex.Message}")
OverrideAll = False OverrideAll = False
End Try End Try
Try If OverrideAll = True Then
Override_SQLCommand = oSQL2 LOGGER.Warn($"OverrideAll will be in Action!")
Override_SQLCommand = clsPatterns.ReplaceAllValues(Override_SQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) End If
LOGGER.Debug($"Override_SQLCommand after replace {Override_SQLCommand}")
Catch ex As Exception
Override_SQLCommand = ""
End Try
Select Case oAction Select Case oAction
Case "SetButton" Case "SetButton"
@ -2312,6 +2307,7 @@ Public Class frmValidator
Dim SpaltenWerte As String() Dim SpaltenWerte As String()
LOGGER.Debug($"{dt.Rows.Count} Columns configured for control {oControlId}.") LOGGER.Debug($"{dt.Rows.Count} Columns configured for control {oControlId}.")
If dt.Rows.Count > 1 Then If dt.Rows.Count > 1 Then
For Each Zeile As Object In wertWD For Each Zeile As Object In wertWD
LOGGER.Debug($"vektorrow Value {Zeile.ToString}...") LOGGER.Debug($"vektorrow Value {Zeile.ToString}...")
SpaltenWerte = Split(Zeile, Delimiter) SpaltenWerte = Split(Zeile, Delimiter)
@ -2380,60 +2376,60 @@ Public Class frmValidator
If oValueFromSource Is Nothing = False Then If oValueFromSource Is Nothing = False Then
Dim omytype = oValueFromSource.GetType.ToString Dim omytype = oValueFromSource.GetType.ToString
LOGGER.Debug($"omytype is [{omytype}]!")
'Es wird gegen ein Vektorfeld nachindexiert 'Es wird gegen ein Vektorfeld nachindexiert
If omytype.Contains("System.Object") Or omytype = "System.Data.DataTable" Or omytype = "System.String" Then If omytype.Contains("System.Object") Or omytype = "System.Data.DataTable" Or omytype = "System.String" Then
Select Case oTyp Select Case oTyp
'Tabellendarstellung 'Tabellendarstellung
Case "TABLE" Case "TABLE"
Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId) Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId)
Dim oColCount = dt.Rows.Count
Dim SpaltenWerte As String() Dim oColValuesfromSource As String()
LOGGER.Debug($"{dt.Rows.Count} Columns configured for control {oControlId}.") LOGGER.Debug($"DevExpressGrid: {oColCount} Columns configured for control {oControlId}.")
If dt.Rows.Count >= 1 Then If oColCount >= 1 Then
Dim oDataSource As DataTable = oMyGridControl.DataSource Dim oDataSource As DataTable = oMyGridControl.DataSource
oDataSource.Rows.Clear() oDataSource.Rows.Clear()
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
For Each Zeile As Object In oValueFromSource For Each Zeile As Object In oValueFromSource
LOGGER.Debug($"vektorrow Value {Zeile.ToString}...") LOGGER.Debug($"vektorrow Value {Zeile.ToString}...")
SpaltenWerte = Split(Zeile, Delimiter) oColValuesfromSource = Split(Zeile, Delimiter)
Dim oColCount = dt.Rows.Count
Select Case oColCount Select Case oColCount
Case 1 Case 1
oDataSource.Rows.Add(New String() {Zeile.ToString}) oDataSource.Rows.Add(New String() {Zeile.ToString})
'dgv.Rows.Add(New String() {Zeile.ToString}) 'dgv.Rows.Add(New String() {Zeile.ToString})
Case 2 Case 2
If SpaltenWerte.Length = 2 Then If oColValuesfromSource.Length = 2 Then
oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1)})
'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)})
Else Else
oDataSource.Rows.Add(New String() {SpaltenWerte(0), ""}) oDataSource.Rows.Add(New String() {oColValuesfromSource(0), ""})
'dgv.Rows.Add(New String() {SpaltenWerte(0), ""}) 'dgv.Rows.Add(New String() {SpaltenWerte(0), ""})
End If End If
Case 3 Case 3
If SpaltenWerte.Length = 3 Then If oColValuesfromSource.Length = 3 Then
oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2)})
'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)})
ElseIf SpaltenWerte.Length = 2 Then ElseIf oColValuesfromSource.Length = 2 Then
oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""}) oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), ""})
'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""}) 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""})
Else Else
oDataSource.Rows.Add(New String() {SpaltenWerte(0), "", ""}) oDataSource.Rows.Add(New String() {oColValuesfromSource(0), "", ""})
'dgv.Rows.Add(New String() {SpaltenWerte(0), "", ""}) 'dgv.Rows.Add(New String() {SpaltenWerte(0), "", ""})
End If End If
Case 4 Case 4
If SpaltenWerte.Length = 4 Then If oColValuesfromSource.Length = 4 Then
oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3)})
'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)})
ElseIf SpaltenWerte.Length = 3 Then ElseIf oColValuesfromSource.Length = 3 Then
oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""}) oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), ""})
'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""}) 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""})
ElseIf SpaltenWerte.Length = 2 Then ElseIf oColValuesfromSource.Length = 2 Then
oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""}) oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), "", ""})
'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""}) 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""})
Else Else
oDataSource.Rows.Add(New String() {SpaltenWerte(0), "", "", ""}) oDataSource.Rows.Add(New String() {oColValuesfromSource(0), "", "", ""})
'dgv.Rows.Add(New String() {SpaltenWerte(0), "", "", ""}) 'dgv.Rows.Add(New String() {SpaltenWerte(0), "", "", ""})
End If End If
@ -2441,28 +2437,28 @@ Public Class frmValidator
Next Next
Else Else
If omytype = "System.String" Then If omytype = "System.String" Then
SpaltenWerte = Split(oValueFromSource.ToString, Delimiter) oColValuesfromSource = Split(oValueFromSource.ToString, Delimiter)
Select Case SpaltenWerte.Length Select Case oColValuesfromSource.Length
Case 2 Case 2
oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1)})
Case 3 Case 3
oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2)})
Case 4 Case 4
oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3)})
End Select End Select
ElseIf omytype = "System.Data.DataTable" Then ElseIf omytype = "System.Data.DataTable" Then
Dim oMyDatatable As DataTable = oValueFromSource Dim oMyDatatable As DataTable = oValueFromSource
For Each oRow As DataRow In oMyDatatable.Rows For Each oRow As DataRow In oMyDatatable.Rows
LOGGER.Debug($"IDB ROW Vector {oRow.Item(0).ToString}...") LOGGER.Debug($"IDB ROW Vector {oRow.Item(0).ToString}...")
SpaltenWerte = Split(oRow.Item(0).ToString, Delimiter) oColValuesfromSource = Split(oRow.Item(0).ToString, Delimiter)
Select Case SpaltenWerte.Length Select Case oColValuesfromSource.Length
Case 2 Case 2
oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1)})
Case 3 Case 3
oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2)})
Case 4 Case 4
oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3)})
End Select End Select
'Select Case oMyDatatable.Rows.Count 'Select Case oMyDatatable.Rows.Count
' Case 1 ' Case 1
@ -2522,7 +2518,8 @@ Public Class frmValidator
Next Next
End Select End Select
Else
LOGGER.Warn($"Could not load Devexpress.Grid [{oControl.Name }] as omytype is [{omytype}]!")
End If End If
@ -2779,7 +2776,6 @@ Public Class frmValidator
ItemWorked = True ItemWorked = True
Dim oErrorOcurred As Boolean = False Dim oErrorOcurred As Boolean = False
If OverrideAll = False Then If OverrideAll = False Then
'Eingaben auf Form überprüfen 'Eingaben auf Form überprüfen
If Check_UpdateIndexe() = False Then If Check_UpdateIndexe() = False Then
@ -2799,7 +2795,7 @@ Public Class frmValidator
If oValue.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ### If oValue.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ###
LOGGER.Debug("Indexing wih dynamic sql...") LOGGER.Debug("Indexing wih dynamic sql...")
Dim oSQLCommand = oFinalIndexRow.Item("SQL_COMMAND") Dim oSQLCommand = oFinalIndexRow.Item("SQL_COMMAND")
s
oSQLCommand = clsPatterns.ReplaceAllValues(oSQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) oSQLCommand = clsPatterns.ReplaceAllValues(oSQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
If IsNothing(oSQLCommand) Then If IsNothing(oSQLCommand) Then
errormessage = "Error while replacing Values in final indexing - Check the log" errormessage = "Error while replacing Values in final indexing - Check the log"
@ -3066,7 +3062,7 @@ Public Class frmValidator
Exit Sub Exit Sub
End If End If
Else Else
LOGGER.Info("Overriding all in action") LOGGER.Info($"Overriding all in action for DocID: {CURRENT_DOC_ID} - ProfileID: {CURRENT_ProfilGUID}")
If Override_SQLCommand <> "" Then If Override_SQLCommand <> "" Then
If ClassDatabase.Execute_non_Query(Override_SQLCommand) = False Then If ClassDatabase.Execute_non_Query(Override_SQLCommand) = False Then
oErrorOcurred = True oErrorOcurred = True