AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS01.08.2016

Browse Source
This commit is contained in:
SchreiberM
2016-08-02 10:33:46 +02:00
parent bd3652b891
commit 76c1d9d66b
9 changed files with 3157 additions and 2310 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD-Record-Organiser/ClassHelper.vb
View File

@@ -132,7 +132,8 @@ Public Class ClassHelper
Else
File_SYSOPEN(RESULT_DOC_PATH, DocID)
End If
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> RESULT_DOC_PATH IS NOTHING")
End If
Catch ex As Exception
MsgBox("Unexpected Error in File_open:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
@@ -143,6 +144,13 @@ Public Class ClassHelper
Try
If RESULT_DOC_PATH <> Nothing Then
If System.IO.File.Exists(RESULT_DOC_PATH) = True Then
Process.Start(RESULT_DOC_PATH)
Else
MsgBox("File Does Not Exist!", MsgBoxStyle.Exclamation)
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)

2
app/DD-Record-Organiser/Class_DOC_SEARCH.vb
View File

@@ -81,7 +81,7 @@ Public Class Class_DOC_SEARCH
"WHEN {1} THEN " & _
" (SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {5} AND RECORD_ID = {0}) " & _
"ELSE '' END AS OPTION4 " & _
"FROM VWPMO_WD_DOC_SEARCH WHERE RECORD_ID LIKE '%#{0}%'", RECORD_ID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4)
"FROM VWPMO_WD_DOC_SEARCH WHERE RECORD_ID LIKE '%#{0}#%' AND ENTITY_ID LIKE '%#{1}#%'", RECORD_ID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4)
End If
Return ClassDatabase.Return_Datatable_Connection(SQL_DOC_SEARCH, 1)
Catch ex As Exception

392
app/DD-Record-Organiser/frmConstructor_Main.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

49
app/DD-Record-Organiser/frmConstructor_Main.en-US.resx
View File

@@ -214,6 +214,9 @@
<data name="DetailAnsichtDatensatzToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
</data>
<data name="DetailAnsichtDatensatzToolStripMenuItem.Text" xml:space="preserve">
<value>Detail-View Record</value>
</data>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>227, 270</value>
</data>
@@ -221,55 +224,73 @@
<value>Details</value>
</data>
<data name="DateiÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<value>190, 22</value>
</data>
<data name="DateiÖffnenToolStripMenuItem.Text" xml:space="preserve">
<value>Open file</value>
</data>
<data name="ToolStripSeparator7.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value>
<value>187, 6</value>
</data>
<data name="CopyToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<value>190, 22</value>
</data>
<data name="CopyToolStripMenuItem.Text" xml:space="preserve">
<value>Copy file</value>
</data>
<data name="ToolStripSeparator10.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value>
<value>187, 6</value>
</data>
<data name="UmbenennenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<value>190, 22</value>
</data>
<data name="UmbenennenToolStripMenuItem.Text" xml:space="preserve">
<value>Rename</value>
</data>
<data name="TSMIDisplayname.Size" type="System.Drawing.Size, System.Drawing">
<value>190, 22</value>
</data>
<data name="TSMIDisplayname.Text" xml:space="preserve">
<value>Rename displayname</value>
</data>
<data name="TSMI_inWork.Size" type="System.Drawing.Size, System.Drawing">
<value>190, 22</value>
</data>
<data name="TSMI_inWork.Text" xml:space="preserve">
<value>Lock file for working</value>
</data>
<data name="TSMI_linkRecord.Size" type="System.Drawing.Size, System.Drawing">
<value>190, 22</value>
</data>
<data name="TSMI_linkRecord.Text" xml:space="preserve">
<value>Link file to record</value>
</data>
<data name="ToolStripSeparator8.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value>
<value>187, 6</value>
</data>
<data name="DeleteToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<value>190, 22</value>
</data>
<data name="DeleteToolStripMenuItem.Text" xml:space="preserve">
<value>Delete file</value>
</data>
<data name="ToolStripSeparator9.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value>
<value>187, 6</value>
</data>
<data name="PropertiesToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<value>190, 22</value>
</data>
<data name="PropertiesToolStripMenuItem.Text" xml:space="preserve">
<value>Properties</value>
</data>
<data name="DateiMitDatensatzVerknüpfenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<data name="AnsichtZurücksetzenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>190, 22</value>
</data>
<data name="DateiMitDatensatzVerknüpfenToolStripMenuItem.Text" xml:space="preserve">
<value>Link file with other record</value>
<data name="AnsichtZurücksetzenToolStripMenuItem.Text" xml:space="preserve">
<value>Set stored layout back</value>
</data>
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>210, 160</value>
<value>191, 226</value>
</data>
<data name="KonfigurationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>174, 22</value>

4748
app/DD-Record-Organiser/frmConstructor_Main.resx
View File

File diff suppressed because it is too large Load Diff

14
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -3084,8 +3084,14 @@ Public Class frmConstructor_Main
grvwGrid.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
End If
Next
Try
grvwGrid.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
grvwGrid.Columns("files?").ColumnEdit = CheckBoxEditorForDisplay
Catch ex As Exception
ClassLogger.Add(">> Attention: Column files? not existing in GridView?", False)
End Try
'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False
End If
HideColumns()
@@ -4534,14 +4540,16 @@ Public Class frmConstructor_Main
End If
End If
If TCDetails.SelectedTabPageIndex = 1 And NEW_FILES_ADDED = True Then
'Nur wenn neue Dateien abgelegt wurden muss die Prozedur zur aktualisierung der windream Dateien ausgeführt werden...ansonsten muss nichts passieren
If NEW_FILES_ADDED = True Then
Me.Cursor = Cursors.WaitCursor
If Class_DOC_SEARCH.REFRESH_DOC_TABLE_RESULTS = True Then
RUN_WDSEARCH_GRID("RECORD")
End If
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> No new files were added or windream tab is not focused!", False)
End If
Me.Cursor = Cursors.Default
Else
'If RIGHT_ONLY_READ = True Then
' ClassLogger.Add(">> RIGHT_ONLY_READ is set! No DragDrop allowed", False)

66
app/DD-Record-Organiser/frmWD_Link_to_Record.Designer.vb generated
View File

@@ -23,46 +23,40 @@ Partial Class frmWD_Link_to_Record
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWD_Link_to_Record))
Me.cmbConstructorForms = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
Me.trvwMain = New System.Windows.Forms.TreeView()
Me.Label2 = New System.Windows.Forms.Label()
Me.dgEntityRecords = New DevExpress.XtraGrid.GridControl()
Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.cmbConstructorForms = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.btnLink = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtFilename = New System.Windows.Forms.TextBox()
Me.txtRecordId = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl1.SuspendLayout()
CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'cmbConstructorForms
'SplitContainerControl1
'
Me.cmbConstructorForms.FormattingEnabled = True
resources.ApplyResources(Me.cmbConstructorForms, "cmbConstructorForms")
Me.cmbConstructorForms.Name = "cmbConstructorForms"
'
'Label1
'
resources.ApplyResources(Me.Label1, "Label1")
Me.Label1.Name = "Label1"
resources.ApplyResources(Me.SplitContainerControl1, "SplitContainerControl1")
Me.SplitContainerControl1.Name = "SplitContainerControl1"
Me.SplitContainerControl1.Panel1.Controls.Add(Me.trvwMain)
resources.ApplyResources(Me.SplitContainerControl1.Panel1, "SplitContainerControl1.Panel1")
Me.SplitContainerControl1.Panel2.Controls.Add(Me.dgEntityRecords)
resources.ApplyResources(Me.SplitContainerControl1.Panel2, "SplitContainerControl1.Panel2")
Me.SplitContainerControl1.SplitterPosition = 322
'
'trvwMain
'
resources.ApplyResources(Me.trvwMain, "trvwMain")
Me.trvwMain.Name = "trvwMain"
'
'Label2
'
resources.ApplyResources(Me.Label2, "Label2")
Me.Label2.Name = "Label2"
'
'dgEntityRecords
'
resources.ApplyResources(Me.dgEntityRecords, "dgEntityRecords")
@@ -80,7 +74,25 @@ Partial Class frmWD_Link_to_Record
Me.grvwGrid.Name = "grvwGrid"
Me.grvwGrid.OptionsBehavior.Editable = False
Me.grvwGrid.OptionsBehavior.ReadOnly = True
Me.grvwGrid.OptionsView.ColumnAutoWidth = False
Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = True
Me.grvwGrid.OptionsView.ShowAutoFilterRow = True
'
'cmbConstructorForms
'
Me.cmbConstructorForms.FormattingEnabled = True
resources.ApplyResources(Me.cmbConstructorForms, "cmbConstructorForms")
Me.cmbConstructorForms.Name = "cmbConstructorForms"
'
'Label1
'
resources.ApplyResources(Me.Label1, "Label1")
Me.Label1.Name = "Label1"
'
'Label2
'
resources.ApplyResources(Me.Label2, "Label2")
Me.Label2.Name = "Label2"
'
'btnLink
'
@@ -115,16 +127,6 @@ Partial Class frmWD_Link_to_Record
resources.ApplyResources(Me.Label5, "Label5")
Me.Label5.Name = "Label5"
'
'SplitContainerControl1
'
resources.ApplyResources(Me.SplitContainerControl1, "SplitContainerControl1")
Me.SplitContainerControl1.Name = "SplitContainerControl1"
Me.SplitContainerControl1.Panel1.Controls.Add(Me.trvwMain)
resources.ApplyResources(Me.SplitContainerControl1.Panel1, "SplitContainerControl1.Panel1")
Me.SplitContainerControl1.Panel2.Controls.Add(Me.dgEntityRecords)
resources.ApplyResources(Me.SplitContainerControl1.Panel2, "SplitContainerControl1.Panel2")
Me.SplitContainerControl1.SplitterPosition = 322
'
'frmWD_Link_to_Record
'
resources.ApplyResources(Me, "$this")
@@ -141,10 +143,10 @@ Partial Class frmWD_Link_to_Record
Me.Controls.Add(Me.cmbConstructorForms)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "frmWD_Link_to_Record"
CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.ResumeLayout(False)
CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()

178
app/DD-Record-Organiser/frmWD_Link_to_Record.resx
View File

@@ -117,14 +117,102 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="SplitContainerControl1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="SplitContainerControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 67</value>
</data>
<data name="trvwMain.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="trvwMain.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="trvwMain.Size" type="System.Drawing.Size, System.Drawing">
<value>322, 503</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="trvwMain.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="&gt;&gt;trvwMain.Name" xml:space="preserve">
<value>trvwMain</value>
</data>
<data name="&gt;&gt;trvwMain.Type" xml:space="preserve">
<value>System.Windows.Forms.TreeView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;trvwMain.Parent" xml:space="preserve">
<value>SplitContainerControl1.Panel1</value>
</data>
<data name="&gt;&gt;trvwMain.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainerControl1.Panel1.Text" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="dgEntityRecords.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="dgEntityRecords.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="grvwGrid.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Aqua</value>
</data>
<data name="grvwGrid.Appearance.FilterPanel.BackColor" type="System.Drawing.Color, System.Drawing">
<value>255, 128, 0</value>
</data>
<data name="dgEntityRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>907, 503</value>
</data>
<data name="dgEntityRecords.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="&gt;&gt;dgEntityRecords.Name" xml:space="preserve">
<value>dgEntityRecords</value>
</data>
<data name="&gt;&gt;dgEntityRecords.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;dgEntityRecords.Parent" xml:space="preserve">
<value>SplitContainerControl1.Panel2</value>
</data>
<data name="&gt;&gt;dgEntityRecords.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainerControl1.Panel2.Text" xml:space="preserve">
<value>Panel2</value>
</data>
<data name="SplitContainerControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1234, 503</value>
</data>
<data name="SplitContainerControl1.TabIndex" type="System.Int32, mscorlib">
<value>10</value>
</data>
<data name="SplitContainerControl1.Text" xml:space="preserve">
<value>SplitContainerControl1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Name" xml:space="preserve">
<value>SplitContainerControl1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="cmbConstructorForms.Location" type="System.Drawing.Point, System.Drawing">
<value>157, 14</value>
</data>
<data name="cmbConstructorForms.Size" type="System.Drawing.Size, System.Drawing">
<value>177, 21</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="cmbConstructorForms.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
@@ -170,31 +258,6 @@
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>8</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="trvwMain.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="trvwMain.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="trvwMain.Size" type="System.Drawing.Size, System.Drawing">
<value>322, 503</value>
</data>
<data name="trvwMain.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="&gt;&gt;trvwMain.Name" xml:space="preserve">
<value>trvwMain</value>
</data>
<data name="&gt;&gt;trvwMain.Type" xml:space="preserve">
<value>System.Windows.Forms.TreeView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;trvwMain.Parent" xml:space="preserve">
<value>SplitContainerControl1.Panel1</value>
</data>
<data name="&gt;&gt;trvwMain.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="Label2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
@@ -225,36 +288,6 @@
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>7</value>
</data>
<data name="dgEntityRecords.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="dgEntityRecords.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="grvwGrid.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Aqua</value>
</data>
<data name="grvwGrid.Appearance.FilterPanel.BackColor" type="System.Drawing.Color, System.Drawing">
<value>255, 128, 0</value>
</data>
<data name="dgEntityRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>907, 503</value>
</data>
<data name="dgEntityRecords.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="&gt;&gt;dgEntityRecords.Name" xml:space="preserve">
<value>dgEntityRecords</value>
</data>
<data name="&gt;&gt;dgEntityRecords.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;dgEntityRecords.Parent" xml:space="preserve">
<value>SplitContainerControl1.Panel2</value>
</data>
<data name="&gt;&gt;dgEntityRecords.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="btnLink.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold</value>
</data>
@@ -414,39 +447,6 @@
<data name="&gt;&gt;Label5.ZOrder" xml:space="preserve">
<value>6</value>
</data>
<data name="SplitContainerControl1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value>
</data>
<data name="SplitContainerControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 67</value>
</data>
<data name="SplitContainerControl1.Panel1.Text" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="SplitContainerControl1.Panel2.Text" xml:space="preserve">
<value>Panel2</value>
</data>
<data name="SplitContainerControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1234, 503</value>
</data>
<data name="SplitContainerControl1.TabIndex" type="System.Int32, mscorlib">
<value>10</value>
</data>
<data name="SplitContainerControl1.Text" xml:space="preserve">
<value>SplitContainerControl1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Name" xml:space="preserve">
<value>SplitContainerControl1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>

8
app/DD-Record-Organiser/frmWD_Link_to_Record.vb
View File

@@ -530,6 +530,8 @@ Public Class frmWD_Link_to_Record
Dim constructorName As String = constructor.title
Load_Grid_Layout(constructorName)
grvwGrid.Columns.Item("Form-ID").Visible = False
grvwGrid.Columns.Item("ROW_COLOR").Visible = False
If RECORD_ID > 0 Then
Dim rowHandle = grvwGrid.LocateByValue(0, grvwGrid.Columns("Record-ID"), RECORD_ID)
grvwGrid.FocusedRowHandle = rowHandle
@@ -671,4 +673,10 @@ Public Class frmWD_Link_to_Record
Private Sub frmWD_Link_to_Record_Shown(sender As Object, e As EventArgs) Handles Me.Shown
txtRecordId.Text = ""
End Sub
Private Sub grvwGrid_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles grvwGrid.RowStyle
If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
e.Appearance.BackColor = Color.Orange
End If
End Sub
End Class