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 Else
File_SYSOPEN(RESULT_DOC_PATH, DocID) File_SYSOPEN(RESULT_DOC_PATH, DocID)
End If End If
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> RESULT_DOC_PATH IS NOTHING")
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in File_open:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical) 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 Try
If RESULT_DOC_PATH <> Nothing Then 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 End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical) 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 " & _ "WHEN {1} THEN " & _
" (SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {5} AND RECORD_ID = {0}) " & _ " (SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {5} AND RECORD_ID = {0}) " & _
"ELSE '' END AS OPTION4 " & _ "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 End If
Return ClassDatabase.Return_Datatable_Connection(SQL_DOC_SEARCH, 1) Return ClassDatabase.Return_Datatable_Connection(SQL_DOC_SEARCH, 1)
Catch ex As Exception 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"> <data name="DetailAnsichtDatensatzToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value> <value>226, 22</value>
</data> </data>
<data name="DetailAnsichtDatensatzToolStripMenuItem.Text" xml:space="preserve">
<value>Detail-View Record</value>
</data>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing"> <data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>227, 270</value> <value>227, 270</value>
</data> </data>
@@ -221,55 +224,73 @@
<value>Details</value> <value>Details</value>
</data> </data>
<data name="DateiÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="DateiÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value> <value>190, 22</value>
</data> </data>
<data name="DateiÖffnenToolStripMenuItem.Text" xml:space="preserve"> <data name="DateiÖffnenToolStripMenuItem.Text" xml:space="preserve">
<value>Open file</value> <value>Open file</value>
</data> </data>
<data name="ToolStripSeparator7.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator7.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value> <value>187, 6</value>
</data> </data>
<data name="CopyToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="CopyToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value> <value>190, 22</value>
</data> </data>
<data name="CopyToolStripMenuItem.Text" xml:space="preserve"> <data name="CopyToolStripMenuItem.Text" xml:space="preserve">
<value>Copy file</value> <value>Copy file</value>
</data> </data>
<data name="ToolStripSeparator10.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator10.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value> <value>187, 6</value>
</data> </data>
<data name="UmbenennenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="UmbenennenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value> <value>190, 22</value>
</data> </data>
<data name="UmbenennenToolStripMenuItem.Text" xml:space="preserve"> <data name="UmbenennenToolStripMenuItem.Text" xml:space="preserve">
<value>Rename</value> <value>Rename</value>
</data> </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"> <data name="ToolStripSeparator8.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value> <value>187, 6</value>
</data> </data>
<data name="DeleteToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="DeleteToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value> <value>190, 22</value>
</data> </data>
<data name="DeleteToolStripMenuItem.Text" xml:space="preserve"> <data name="DeleteToolStripMenuItem.Text" xml:space="preserve">
<value>Delete file</value> <value>Delete file</value>
</data> </data>
<data name="ToolStripSeparator9.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator9.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value> <value>187, 6</value>
</data> </data>
<data name="PropertiesToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="PropertiesToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value> <value>190, 22</value>
</data> </data>
<data name="PropertiesToolStripMenuItem.Text" xml:space="preserve"> <data name="PropertiesToolStripMenuItem.Text" xml:space="preserve">
<value>Properties</value> <value>Properties</value>
</data> </data>
<data name="DateiMitDatensatzVerknüpfenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="AnsichtZurücksetzenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value> <value>190, 22</value>
</data> </data>
<data name="DateiMitDatensatzVerknüpfenToolStripMenuItem.Text" xml:space="preserve"> <data name="AnsichtZurücksetzenToolStripMenuItem.Text" xml:space="preserve">
<value>Link file with other record</value> <value>Set stored layout back</value>
</data> </data>
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing"> <data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>210, 160</value> <value>191, 226</value>
</data> </data>
<data name="KonfigurationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="KonfigurationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>174, 22</value> <value>174, 22</value>

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

File diff suppressed because it is too large Load Diff

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

@@ -3084,6 +3084,12 @@ Public Class frmConstructor_Main
grvwGrid.Columns(col).ColumnEdit = CheckBoxEditorForDisplay grvwGrid.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
End If End If
Next 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 'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False
End If End If
@@ -4534,14 +4540,16 @@ Public Class frmConstructor_Main
End If End If
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 If Class_DOC_SEARCH.REFRESH_DOC_TABLE_RESULTS = True Then
RUN_WDSEARCH_GRID("RECORD") RUN_WDSEARCH_GRID("RECORD")
End If End If
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> No new files were added or windream tab is not focused!", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> No new files were added or windream tab is not focused!", False)
End If End If
Me.Cursor = Cursors.Default
Else Else
'If RIGHT_ONLY_READ = True Then 'If RIGHT_ONLY_READ = True Then
' ClassLogger.Add(">> RIGHT_ONLY_READ is set! No DragDrop allowed", False) ' 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()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWD_Link_to_Record)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWD_Link_to_Record))
Me.cmbConstructorForms = New System.Windows.Forms.ComboBox() Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
Me.Label1 = New System.Windows.Forms.Label()
Me.trvwMain = New System.Windows.Forms.TreeView() Me.trvwMain = New System.Windows.Forms.TreeView()
Me.Label2 = New System.Windows.Forms.Label()
Me.dgEntityRecords = New DevExpress.XtraGrid.GridControl() Me.dgEntityRecords = New DevExpress.XtraGrid.GridControl()
Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView() 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.btnLink = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.txtFilename = New System.Windows.Forms.TextBox() Me.txtFilename = New System.Windows.Forms.TextBox()
Me.txtRecordId = New System.Windows.Forms.TextBox() Me.txtRecordId = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label() 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() CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl1.SuspendLayout() Me.SplitContainerControl1.SuspendLayout()
CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'cmbConstructorForms 'SplitContainerControl1
' '
Me.cmbConstructorForms.FormattingEnabled = True resources.ApplyResources(Me.SplitContainerControl1, "SplitContainerControl1")
resources.ApplyResources(Me.cmbConstructorForms, "cmbConstructorForms") Me.SplitContainerControl1.Name = "SplitContainerControl1"
Me.cmbConstructorForms.Name = "cmbConstructorForms" Me.SplitContainerControl1.Panel1.Controls.Add(Me.trvwMain)
' resources.ApplyResources(Me.SplitContainerControl1.Panel1, "SplitContainerControl1.Panel1")
'Label1 Me.SplitContainerControl1.Panel2.Controls.Add(Me.dgEntityRecords)
' resources.ApplyResources(Me.SplitContainerControl1.Panel2, "SplitContainerControl1.Panel2")
resources.ApplyResources(Me.Label1, "Label1") Me.SplitContainerControl1.SplitterPosition = 322
Me.Label1.Name = "Label1"
' '
'trvwMain 'trvwMain
' '
resources.ApplyResources(Me.trvwMain, "trvwMain") resources.ApplyResources(Me.trvwMain, "trvwMain")
Me.trvwMain.Name = "trvwMain" Me.trvwMain.Name = "trvwMain"
' '
'Label2
'
resources.ApplyResources(Me.Label2, "Label2")
Me.Label2.Name = "Label2"
'
'dgEntityRecords 'dgEntityRecords
' '
resources.ApplyResources(Me.dgEntityRecords, "dgEntityRecords") resources.ApplyResources(Me.dgEntityRecords, "dgEntityRecords")
@@ -80,7 +74,25 @@ Partial Class frmWD_Link_to_Record
Me.grvwGrid.Name = "grvwGrid" Me.grvwGrid.Name = "grvwGrid"
Me.grvwGrid.OptionsBehavior.Editable = False Me.grvwGrid.OptionsBehavior.Editable = False
Me.grvwGrid.OptionsBehavior.ReadOnly = True Me.grvwGrid.OptionsBehavior.ReadOnly = True
Me.grvwGrid.OptionsView.ColumnAutoWidth = False
Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = True 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 'btnLink
' '
@@ -115,16 +127,6 @@ Partial Class frmWD_Link_to_Record
resources.ApplyResources(Me.Label5, "Label5") resources.ApplyResources(Me.Label5, "Label5")
Me.Label5.Name = "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 'frmWD_Link_to_Record
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@@ -141,10 +143,10 @@ Partial Class frmWD_Link_to_Record
Me.Controls.Add(Me.cmbConstructorForms) Me.Controls.Add(Me.cmbConstructorForms)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "frmWD_Link_to_Record" 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() CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.ResumeLayout(False) Me.SplitContainerControl1.ResumeLayout(False)
CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()

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

@@ -117,14 +117,102 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </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" /> <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"> <data name="cmbConstructorForms.Location" type="System.Drawing.Point, System.Drawing">
<value>157, 14</value> <value>157, 14</value>
</data> </data>
<data name="cmbConstructorForms.Size" type="System.Drawing.Size, System.Drawing"> <data name="cmbConstructorForms.Size" type="System.Drawing.Size, System.Drawing">
<value>177, 21</value> <value>177, 21</value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="cmbConstructorForms.TabIndex" type="System.Int32, mscorlib"> <data name="cmbConstructorForms.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
</data> </data>
@@ -170,31 +258,6 @@
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>8</value> <value>8</value>
</data> </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"> <data name="Label2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
@@ -225,36 +288,6 @@
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>7</value> <value>7</value>
</data> </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"> <data name="btnLink.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold</value> <value>Segoe UI, 8.25pt, style=Bold</value>
</data> </data>
@@ -414,39 +447,6 @@
<data name="&gt;&gt;Label5.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label5.ZOrder" xml:space="preserve">
<value>6</value> <value>6</value>
</data> </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"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </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 Dim constructorName As String = constructor.title
Load_Grid_Layout(constructorName) Load_Grid_Layout(constructorName)
grvwGrid.Columns.Item("Form-ID").Visible = False
grvwGrid.Columns.Item("ROW_COLOR").Visible = False
If RECORD_ID > 0 Then If RECORD_ID > 0 Then
Dim rowHandle = grvwGrid.LocateByValue(0, grvwGrid.Columns("Record-ID"), RECORD_ID) Dim rowHandle = grvwGrid.LocateByValue(0, grvwGrid.Columns("Record-ID"), RECORD_ID)
grvwGrid.FocusedRowHandle = rowHandle 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 Private Sub frmWD_Link_to_Record_Shown(sender As Object, e As EventArgs) Handles Me.Shown
txtRecordId.Text = "" txtRecordId.Text = ""
End Sub 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 End Class