MS

app/DD-Record-Organizer/ClassFileResult.vb

@@ -6,9 +6,9 @@
             Dim upd As String
             InWork = False
             If comment = "" Then
-                upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET IN_WORK = {0} WHERE DocID = {1}", state, DocID)
+                upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Change_DateTime = GETDATE(), IN_WORK = {0} WHERE DocID = {1}", state, DocID)
             Else
-                upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET IN_WORK = {0}, IN_WORK_USER = '{1}', IN_WORK_COMMENT = '{2}' WHERE DocID = {3}", state, USER_USERNAME, comment, DocID)
+                upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Change_DateTime = GETDATE(), IN_WORK = {0}, IN_WORK_USER = '{1}', IN_WORK_COMMENT = '{2}' WHERE DocID = {3}", state, USER_USERNAME, comment, DocID)
             End If
             If ClassDatabase.Execute_non_Query(upd) = True Then
                 If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
@@ -27,7 +27,7 @@
     Public Shared Function Set_Displayname(Displayname As String)
         Try
             Dim upd As String
-            upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET DISPLAY_NAME = '{0}' WHERE DocID = {1}", Displayname, DocID)
+            upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET DISPLAY_NAME = '{0}',Change_DateTime = GETDATE() WHERE DocID = {1}", Displayname, DocID)
             If ClassDatabase.Execute_non_Query(upd) = True Then
                 If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
                     ClassDatabase.Execute_non_Query(upd, True)

app/DD-Record-Organizer/ClassFunctionCommands.vb

@@ -57,7 +57,7 @@
                 Throw New Exception("Funktion für " & ControlId & " wurde nicht gefunden")
             End If
         Catch ex As Exception
-            MsgBox("Fehler beim Empfangen der KalenderFunktion:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            MsgBox("Error in LoadFunction:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             Return Nothing
         End Try
     End Function

app/DD-Record-Organizer/ClassNodeNavigation.vb

@@ -48,6 +48,8 @@
                     ClassNodeNavigation.NODE_CONFIGURABLE_ID = ID
                     CURRENT_NODE_CONFIGURABLE_ID = ID
                 End If
+            Else
+                If LogErrorsOnly = False Then ClassLogger.Add("NO CURRENT_DT_NODE_CONFIGURABLE_NODES", False)
             End If
         Catch ex As Exception
             ClassNodeNavigation.NODE_CONFIGURABLE_ID = 0

app/DD-Record-Organizer/ClassWindreamDocGrid.vb

@@ -235,7 +235,7 @@ Public Class ClassWindreamDocGrid
             Catch ex As Exception
                 ClassLogger.Add(">> Attention: Could not Add tables to ds.Tables: " & ex.Message, False)
             End Try
-
+            gridView.BestFitColumns(GridDocResult_BestFitColumns)
 
             Try
                 Dim resultTable As DataTable = ds.Tables(0)

app/DD-Record-Organizer/ModuleMySettings.vb

@@ -18,6 +18,7 @@ Module ModuleMySettings
     Public MY_WIKISTRING As String
     Public WD_GROUP1 As String
     Public WD_UNICODE As Boolean = False
+    Public GridDocResult_BestFitColumns As Boolean = True
     Public SQL_FULLTEXT As String
 
     'Public WD_ShowEnitityDocs As Boolean = True
@@ -211,6 +212,9 @@ Module ModuleMySettings
                         If Row.Item("Value") <> String.Empty Then
                             MyFormsDesign = Row.Item("Value")
                         End If
+                    Case "GridDocResult_BestFitColumns"
+                        GridDocResult_BestFitColumns = CBool(Row.Item("Value"))
+
                 End Select
             Next
             'update 1.1
@@ -270,6 +274,13 @@ Module ModuleMySettings
                 DT.Rows.Add(newRow)
                 DT.WriteXml(ConfigPath)
             End If
+            If rowresult.Contains("GridDocResult_BestFitColumns") = False Then
+                Dim newRow As DataRow = DT.NewRow()
+                newRow("ConfigName") = "GridDocResult_BestFitColumns"
+                newRow("Value") = "True"
+                DT.Rows.Add(newRow)
+                DT.WriteXml(ConfigPath)
+            End If
 
 
         Catch ex As Exception
@@ -366,6 +377,10 @@ Module ModuleMySettings
             Dim newRow16 As DataRow = table.NewRow()
             newRow16("ConfigName") = "MyFormsDesign"
             newRow16("Value") = ""
+            Dim newRow17 As DataRow = table.NewRow()
+            newRow17("ConfigName") = "GridDocResult_BestFitColumns"
+            newRow17("Value") = "True"
+
 
             table.AcceptChanges()
             ClassLogger.Add(">> CreateConfigTable su...", False)

app/DD-Record-Organizer/My Project/AssemblyInfo.vb

@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.4.9.7")>
+<Assembly: AssemblyVersion("2.4.9.8")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

app/DD-Record-Organizer/My Project/Settings.Designer.vb

@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.5.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.7.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase

app/DD-Record-Organizer/My Project/Settings.Settings

@@ -55,5 +55,8 @@
     <Setting Name="windreamGruppe" Type="System.String" Scope="Application">
       <Value Profile="(Default)">sDigital Data - windream-Benutzer</Value>
     </Setting>
+    <Setting Name="UserDocIDIndexname" Type="System.String" Scope="User">
+      <Value Profile="(Default)">Dokument-ID</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

app/DD-Record-Organizer/frmClientLogin.resx

@@ -121,11 +121,14 @@
   <data name="cmbClients.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
   </data>
+  <data name="&gt;&gt;Label2.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
   <data name="Label1.Text" xml:space="preserve">
     <value>Ihr User ist für mehrere Mandanten konfiguriert. Bitte wählen Sie einen Mandanten.</value>
   </data>
-  <data name="Label2.TabIndex" type="System.Int32, mscorlib">
+  <data name="$this.Text" xml:space="preserve">
-    <value>2</value>
+    <value>Mandanten Login</value>
   </data>
   <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
     <value>1</value>
@@ -137,8 +140,8 @@
   <data name="Label2.Text" xml:space="preserve">
     <value>Ihre Userlizenz wird vom Kontingent des ausgewählten Mandanten abgezogen.</value>
   </data>
-  <data name="Label1.Font" type="System.Drawing.Font, System.Drawing">
+  <data name="&gt;&gt;btnLogin.Name" xml:space="preserve">
-    <value>Tahoma, 9.75pt</value>
+    <value>btnLogin</value>
   </data>
   <data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
     <value>12, 31</value>
@@ -146,9 +149,6 @@
   <data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
     <value>440, 14</value>
   </data>
-  <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
-    <value>3</value>
-  </data>
   <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
     <value>486, 16</value>
   </data>
@@ -167,8 +167,8 @@
   <data name="&gt;&gt;cmbClients.ZOrder" xml:space="preserve">
     <value>2</value>
   </data>
-  <data name="btnLogin.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="btnLogin.Text" xml:space="preserve">
-    <value>472, 42</value>
+    <value>Login</value>
   </data>
   <data name="&gt;&gt;Label2.Type" xml:space="preserve">
     <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
@@ -182,6 +182,9 @@
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
     <value>499, 142</value>
   </data>
+  <data name="&gt;&gt;btnLogin.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
     <value>CenterScreen</value>
@@ -201,12 +204,12 @@
   <data name="&gt;&gt;btnLogin.ZOrder" xml:space="preserve">
     <value>0</value>
   </data>
-  <data name="Label1.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
   <data name="btnLogin.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
     <value>MiddleLeft</value>
   </data>
+  <data name="btnLogin.Location" type="System.Drawing.Point, System.Drawing">
+    <value>15, 86</value>
+  </data>
   <data name="&gt;&gt;cmbClients.Name" xml:space="preserve">
     <value>cmbClients</value>
   </data>
@@ -216,11 +219,8 @@
   <data name="&gt;&gt;Label1.Type" xml:space="preserve">
     <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="btnLogin.Font" type="System.Drawing.Font, System.Drawing">
+  <data name="btnLogin.Size" type="System.Drawing.Size, System.Drawing">
-    <value>Tahoma, 9.75pt</value>
+    <value>472, 42</value>
-  </data>
-  <data name="btnLogin.Location" type="System.Drawing.Point, System.Drawing">
-    <value>15, 86</value>
   </data>
   <data name="btnLogin.TabIndex" type="System.Int32, mscorlib">
     <value>3</value>
@@ -228,14 +228,14 @@
   <data name="cmbClients.Location" type="System.Drawing.Point, System.Drawing">
     <value>15, 56</value>
   </data>
-  <data name="btnLogin.Text" xml:space="preserve">
+  <data name="Label2.TabIndex" type="System.Int32, mscorlib">
-    <value>Login</value>
+    <value>2</value>
   </data>
   <data name="cmbClients.Font" type="System.Drawing.Font, System.Drawing">
     <value>Tahoma, 9.75pt</value>
   </data>
-  <data name="&gt;&gt;Label2.Parent" xml:space="preserve">
+  <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
-    <value>$this</value>
+    <value>3</value>
   </data>
   <data name="&gt;&gt;Label1.Name" xml:space="preserve">
     <value>Label1</value>
@@ -243,22 +243,19 @@
   <data name="cmbClients.Size" type="System.Drawing.Size, System.Drawing">
     <value>472, 24</value>
   </data>
-  <data name="&gt;&gt;btnLogin.Parent" xml:space="preserve">
+  <data name="btnLogin.Font" type="System.Drawing.Font, System.Drawing">
-    <value>$this</value>
+    <value>Tahoma, 9.75pt</value>
   </data>
-  <data name="&gt;&gt;btnLogin.Name" xml:space="preserve">
+  <data name="Label1.TabIndex" type="System.Int32, mscorlib">
-    <value>btnLogin</value>
+    <value>0</value>
   </data>
   <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
     <value>Tahoma, 8.25pt</value>
   </data>
-  <data name="$this.Text" xml:space="preserve">
+  <data name="Label1.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Mandanten Login</value>
+    <value>Tahoma, 9.75pt</value>
   </data>
   <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
-  <metadata name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>en</value>
-  </metadata>
 </root>

app/DD-Record-Organizer/frmConfig_Basic.Designer.vb

@@ -22,8 +22,8 @@ Partial Class frmConfig_Basic
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic))
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
         Me.lblLinkedServer = New System.Windows.Forms.Label()
@@ -73,16 +73,17 @@ Partial Class frmConfig_Basic
         Me.Label8 = New System.Windows.Forms.Label()
         Me.btnstartstop2 = New System.Windows.Forms.Button()
         Me.TabPage4 = New System.Windows.Forms.TabPage()
+        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.Button7 = New System.Windows.Forms.Button()
+        Me.RadioButton3 = New System.Windows.Forms.RadioButton()
+        Me.rbGruppe = New System.Windows.Forms.RadioButton()
+        Me.rbUser = New System.Windows.Forms.RadioButton()
+        Me.txtObjectExists = New System.Windows.Forms.TextBox()
+        Me.Button6 = New System.Windows.Forms.Button()
         Me.btncheckWDFolderexists = New System.Windows.Forms.Button()
         Me.txtwdFolder = New System.Windows.Forms.TextBox()
         Me.Label12 = New System.Windows.Forms.Label()
-        Me.Button6 = New System.Windows.Forms.Button()
+        Me.CheckBoxGridDocResult_BestFitColumns = New System.Windows.Forms.CheckBox()
-        Me.txtObjectExists = New System.Windows.Forms.TextBox()
-        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
-        Me.rbUser = New System.Windows.Forms.RadioButton()
-        Me.rbGruppe = New System.Windows.Forms.RadioButton()
-        Me.RadioButton3 = New System.Windows.Forms.RadioButton()
-        Me.Button7 = New System.Windows.Forms.Button()
         Me.TabControl1.SuspendLayout()
         Me.TabPage1.SuspendLayout()
         Me.TabPage2.SuspendLayout()
@@ -231,6 +232,7 @@ Partial Class frmConfig_Basic
         '
         'TabPage2
         '
+        Me.TabPage2.Controls.Add(Me.CheckBoxGridDocResult_BestFitColumns)
         Me.TabPage2.Controls.Add(Me.Button4)
         Me.TabPage2.Controls.Add(Me.GroupBox5)
         Me.TabPage2.Controls.Add(Me.GroupBox1)
@@ -399,8 +401,8 @@ Partial Class frmConfig_Basic
         '
         'DataGridView1
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         resources.ApplyResources(Me.DataGridView1, "DataGridView1")
         Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.DataGridView1.Name = "DataGridView1"
@@ -445,6 +447,56 @@ Partial Class frmConfig_Basic
         Me.TabPage4.Name = "TabPage4"
         Me.TabPage4.UseVisualStyleBackColor = True
         '
+        'GroupBox2
+        '
+        Me.GroupBox2.Controls.Add(Me.Button7)
+        Me.GroupBox2.Controls.Add(Me.RadioButton3)
+        Me.GroupBox2.Controls.Add(Me.rbGruppe)
+        Me.GroupBox2.Controls.Add(Me.rbUser)
+        Me.GroupBox2.Controls.Add(Me.txtObjectExists)
+        Me.GroupBox2.Controls.Add(Me.Button6)
+        resources.ApplyResources(Me.GroupBox2, "GroupBox2")
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.TabStop = False
+        '
+        'Button7
+        '
+        resources.ApplyResources(Me.Button7, "Button7")
+        Me.Button7.Name = "Button7"
+        Me.Button7.UseVisualStyleBackColor = True
+        '
+        'RadioButton3
+        '
+        resources.ApplyResources(Me.RadioButton3, "RadioButton3")
+        Me.RadioButton3.Name = "RadioButton3"
+        Me.RadioButton3.TabStop = True
+        Me.RadioButton3.UseVisualStyleBackColor = True
+        '
+        'rbGruppe
+        '
+        resources.ApplyResources(Me.rbGruppe, "rbGruppe")
+        Me.rbGruppe.Name = "rbGruppe"
+        Me.rbGruppe.TabStop = True
+        Me.rbGruppe.UseVisualStyleBackColor = True
+        '
+        'rbUser
+        '
+        resources.ApplyResources(Me.rbUser, "rbUser")
+        Me.rbUser.Name = "rbUser"
+        Me.rbUser.TabStop = True
+        Me.rbUser.UseVisualStyleBackColor = True
+        '
+        'txtObjectExists
+        '
+        resources.ApplyResources(Me.txtObjectExists, "txtObjectExists")
+        Me.txtObjectExists.Name = "txtObjectExists"
+        '
+        'Button6
+        '
+        resources.ApplyResources(Me.Button6, "Button6")
+        Me.Button6.Name = "Button6"
+        Me.Button6.UseVisualStyleBackColor = True
+        '
         'btncheckWDFolderexists
         '
         resources.ApplyResources(Me.btncheckWDFolderexists, "btncheckWDFolderexists")
@@ -461,55 +513,11 @@ Partial Class frmConfig_Basic
         resources.ApplyResources(Me.Label12, "Label12")
         Me.Label12.Name = "Label12"
         '
-        'Button6
+        'CheckBoxGridDocResult_BestFitColumns
         '
-        resources.ApplyResources(Me.Button6, "Button6")
+        resources.ApplyResources(Me.CheckBoxGridDocResult_BestFitColumns, "CheckBoxGridDocResult_BestFitColumns")
-        Me.Button6.Name = "Button6"
+        Me.CheckBoxGridDocResult_BestFitColumns.Name = "CheckBoxGridDocResult_BestFitColumns"
-        Me.Button6.UseVisualStyleBackColor = True
+        Me.CheckBoxGridDocResult_BestFitColumns.UseVisualStyleBackColor = True
-        '
-        'txtObjectExists
-        '
-        resources.ApplyResources(Me.txtObjectExists, "txtObjectExists")
-        Me.txtObjectExists.Name = "txtObjectExists"
-        '
-        'GroupBox2
-        '
-        Me.GroupBox2.Controls.Add(Me.Button7)
-        Me.GroupBox2.Controls.Add(Me.RadioButton3)
-        Me.GroupBox2.Controls.Add(Me.rbGruppe)
-        Me.GroupBox2.Controls.Add(Me.rbUser)
-        Me.GroupBox2.Controls.Add(Me.txtObjectExists)
-        Me.GroupBox2.Controls.Add(Me.Button6)
-        resources.ApplyResources(Me.GroupBox2, "GroupBox2")
-        Me.GroupBox2.Name = "GroupBox2"
-        Me.GroupBox2.TabStop = False
-        '
-        'rbUser
-        '
-        resources.ApplyResources(Me.rbUser, "rbUser")
-        Me.rbUser.Name = "rbUser"
-        Me.rbUser.TabStop = True
-        Me.rbUser.UseVisualStyleBackColor = True
-        '
-        'rbGruppe
-        '
-        resources.ApplyResources(Me.rbGruppe, "rbGruppe")
-        Me.rbGruppe.Name = "rbGruppe"
-        Me.rbGruppe.TabStop = True
-        Me.rbGruppe.UseVisualStyleBackColor = True
-        '
-        'RadioButton3
-        '
-        resources.ApplyResources(Me.RadioButton3, "RadioButton3")
-        Me.RadioButton3.Name = "RadioButton3"
-        Me.RadioButton3.TabStop = True
-        Me.RadioButton3.UseVisualStyleBackColor = True
-        '
-        'Button7
-        '
-        resources.ApplyResources(Me.Button7, "Button7")
-        Me.Button7.Name = "Button7"
-        Me.Button7.UseVisualStyleBackColor = True
         '
         'frmConfig_Basic
         '
@@ -599,4 +607,5 @@ Partial Class frmConfig_Basic
     Friend WithEvents txtObjectExists As TextBox
     Friend WithEvents Button6 As Button
     Friend WithEvents Button7 As Button
+    Friend WithEvents CheckBoxGridDocResult_BestFitColumns As CheckBox
 End Class

app/DD-Record-Organizer/frmConfig_Basic.vb

@@ -140,6 +140,7 @@ Public Class frmConfig_Basic
             chkLogErrorsOnly.Checked = LogErrorsOnly
             'txtwdSearch_Count.Text = WDResultListCount.ToString
             txtTask_Popup.Text = Task_Popup_minutes.ToString
+            CheckBoxGridDocResult_BestFitColumns.Checked = GridDocResult_BestFitColumns
 
             Dim sql As String = "SELECT 0,'' UNION ALL SELECT T.GUID, T.FORM_TITLE FROM TBPMO_FORM_CONSTRUCTOR T"
             Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
@@ -185,6 +186,8 @@ Public Class frmConfig_Basic
         LogErrorsOnly = chkLogErrorsOnly.Checked
         SaveMySettingsValue("LogErrorsOnly", LogErrorsOnly, "ConfigMain")
         clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly
+
+
     End Sub
     Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
         My.Settings.Save()
@@ -554,4 +557,12 @@ Public Class frmConfig_Basic
             End If
         End If
     End Sub
+
+    Private Sub CheckBoxGridDocResult_BestFitColumns_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxGridDocResult_BestFitColumns.CheckedChanged
+        If formloaded = False Then Exit Sub
+        GridDocResult_BestFitColumns = chkLogErrorsOnly.Checked
+        SaveMySettingsValue("GridDocResult_BestFitColumns", GridDocResult_BestFitColumns, "ConfigMain")
+
+
+    End Sub
 End Class

app/DD-Record-Organizer/frmConstructorDesigner.Designer.vb

@@ -47,8 +47,8 @@ Partial Class frmConstructorDesigner
         Dim Label19 As System.Windows.Forms.Label
         Dim SQL_RIGHT_READ_AND_VIEW_ONLYLabel As System.Windows.Forms.Label
         Dim SQL_RIGHT_WINDREAM_VIEWLabel As System.Windows.Forms.Label
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin()
         Me.TBPMO_FORM_CONSTRUCTORBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBPMO_FORM_CONSTRUCTORTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter()
@@ -1250,8 +1250,8 @@ Partial Class frmConstructorDesigner
         '
         Me.dgvResult.AllowUserToAddRows = False
         Me.dgvResult.AllowUserToDeleteRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.Cyan
-        Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         resources.ApplyResources(Me.dgvResult, "dgvResult")
         Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvResult.Name = "dgvResult"
@@ -1261,8 +1261,8 @@ Partial Class frmConstructorDesigner
         '
         Me.dgvPlaceholders.AllowUserToAddRows = False
         Me.dgvPlaceholders.AllowUserToDeleteRows = False
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.Cyan
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.Cyan
-        Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace})
         resources.ApplyResources(Me.dgvPlaceholders, "dgvPlaceholders")

app/DD-Record-Organizer/frmConstructor_Main.en-US.resx

@@ -117,72 +117,10 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="cmsTreeView.Size" type="System.Drawing.Size, System.Drawing">
-    <value>189, 160</value>
-  </data>
-  <data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
-    <value>227, 270</value>
-  </data>
-  <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1091, 212</value>
-  </data>
-  <data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1091, 25</value>
-  </data>
-  <data name="SplitContainerTop.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1379, 237</value>
-  </data>
-  <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1373, 372</value>
-  </data>
-  <data name="TabDetails.Text" xml:space="preserve">
-    <value>Details</value>
-  </data>
-  <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1379, 403</value>
-  </data>
-  <data name="TabPos.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAExpc3Q7QnVsbGV0O1FzfzkAAABa
-        SURBVDhPY/j//z9FGEPAxsaGEYhBNF4MUw/TVADED0A0kkHMQMyCBbOCaHQDQJr/g2gkA0B8nBimDqYY
-        wwXEYqyCpGCsgqRgMEGxF6CaQYEzGogjMRD/MwAARTWKOO3Nn7MAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1373, 372</value>
-  </data>
-  <data name="TabPos.Text" xml:space="preserve">
-    <value>positions</value>
-  </data>
-  <data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1373, 372</value>
-  </data>
-  <data name="TabWindream.Text" xml:space="preserve">
-    <value>windream-files</value>
-  </data>
-  <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1373, 372</value>
-  </data>
-  <data name="TabFollowUp.Text" xml:space="preserve">
-    <value>Follow Up</value>
-  </data>
-  <data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1373, 372</value>
-  </data>
-  <data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1379, 645</value>
-  </data>
-  <data name="ResetEbenenAuswahlToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>188, 22</value>
-  </data>
   <data name="ResetEbenenAuswahlToolStripMenuItem.Text" xml:space="preserve">
     <value>Reset Entity-Selection</value>
   </data>
-  <data name="ToolStripSeparator14.Size" type="System.Drawing.Size, System.Drawing">
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-    <value>185, 6</value>
-  </data>
   <data name="FormDesignerToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -192,39 +130,9 @@
         E+BVyPIGnMT05CNGJ9j+P9gukJ0V/DDOPjLPmqLNo1WwrxQ+GCNWVrb1cMEAAAAASUVORK5CYII=
 </value>
   </data>
-  <data name="FormDesignerToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>188, 22</value>
-  </data>
-  <data name="ToolStripSeparator13.Size" type="System.Drawing.Size, System.Drawing">
-    <value>185, 6</value>
-  </data>
-  <data name="AuswertungAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>188, 22</value>
-  </data>
   <data name="AuswertungAnzeigenToolStripMenuItem.Text" xml:space="preserve">
     <value>Show Charts</value>
   </data>
-  <data name="tsmiFilesearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIISURBVDhPY/jx4wdFGKsgFDMBsQMQpwFxAhBbAjGG
-        OgwBKHb5+v3HtkW3X5+vPPv0fv35Z3dW3X1zFijeBMTmSOqwGuB0/dWn/aFbbr03W37lPzJO3Hnn1dMP
-        X3YB1RjD1KNrZvr67fu2yKVX3llOOfs/etnVd4tPP70w58Tjy0ELL38CiaWtuf4CqK4OpgfdALvlp56c
-        s+w5+T9y3sV3IMOAYk5A7P3649cd3tPOfgXJnbn/9hBQTAGkB92AlPp1N+5Zthz9P+/gg0tAvhuSXFzr
-        ppu30eWQNYNwQvOaa3csaw78n7L99lUgPxxJLq1mxZX7ILnFB+9fAPJBLsMwQHf3uafHLUt3//eoP/D9
-        0cuPu4Fi+UBcfPHumwMOVXv/2JTv+Xv32fu9QDFhkB50A+JOXnt+2LZg2x/L3C3/HYu3/y6ZcfJRwdQT
-        T2Bik9ZduQZUB0obYD2omq88PeyUs/6XRerq/8FV2z6CaBi2zVj7Z9Kq8yDNWUDMBtMH13z8wsPDtvHz
-        fhmHz/yf1rjp+dev37fdf/xmz6b9105tP3zzxIvXH3YC1aUAMVwzCIMIpaNnbx82Der4pe3Z9D+hbCFQ
-        8zdQ9OkDsSAQgxINiM0NxHCNMAwiQhv7VtxQssr4H5ndi6wZQzE2DCJAJmdNmbnw3JcvX0nSDMLIHDsg
-        BuVAZDEC+AcDADVk7WUUiqKZAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="tsmiFilesearch.Size" type="System.Drawing.Size, System.Drawing">
-    <value>188, 22</value>
-  </data>
-  <data name="tsmiFilesearch.Text" xml:space="preserve">
-    <value>Search files</value>
-  </data>
   <data name="tsmiNodedownSearch.Size" type="System.Drawing.Size, System.Drawing">
     <value>273, 22</value>
   </data>
@@ -306,25 +214,23 @@
   <data name="tsmiFulltext.Text" xml:space="preserve">
     <value>Fulltextsearch</value>
   </data>
-  <data name="ToolStripSeparator12.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="tsmiFilesearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>185, 6</value>
-  </data>
-  <data name="ToolStripSeparator24.Size" type="System.Drawing.Size, System.Drawing">
-    <value>185, 6</value>
-  </data>
-  <data name="tsmi_NewNode.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIISURBVDhPY/jx4wdFGKsgFDMBsQMQpwFxAhBbAjGG
-        yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
+        OgwBKHb5+v3HtkW3X5+vPPv0fv35Z3dW3X1zFijeBMTmSOqwGuB0/dWn/aFbbr03W37lPzJO3Hnn1dMP
-        TkSuQmCC
+        X3YB1RjD1KNrZvr67fu2yKVX3llOOfs/etnVd4tPP70w58Tjy0ELL38CiaWtuf4CqK4OpgfdALvlp56c
+        s+w5+T9y3sV3IMOAYk5A7P3649cd3tPOfgXJnbn/9hBQTAGkB92AlPp1N+5Zthz9P+/gg0tAvhuSXFzr
+        ppu30eWQNYNwQvOaa3csaw78n7L99lUgPxxJLq1mxZX7ILnFB+9fAPJBLsMwQHf3uafHLUt3//eoP/D9
+        0cuPu4Fi+UBcfPHumwMOVXv/2JTv+Xv32fu9QDFhkB50A+JOXnt+2LZg2x/L3C3/HYu3/y6ZcfJRwdQT
+        T2Bik9ZduQZUB0obYD2omq88PeyUs/6XRerq/8FV2z6CaBi2zVj7Z9Kq8yDNWUDMBtMH13z8wsPDtvHz
+        fhmHz/yf1rjp+dev37fdf/xmz6b9105tP3zzxIvXH3YC1aUAMVwzCIMIpaNnbx82Der4pe3Z9D+hbCFQ
+        8zdQ9OkDsSAQgxINiM0NxHCNMAwiQhv7VtxQssr4H5ndi6wZQzE2DCJAJmdNmbnw3JcvX0nSDMLIHDsg
+        BuVAZDEC+AcDADVk7WUUiqKZAAAAAElFTkSuQmCC
 </value>
   </data>
-  <data name="tsmi_NewNode.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="tsmiFilesearch.Text" xml:space="preserve">
-    <value>188, 22</value>
+    <value>Search files</value>
-  </data>
-  <data name="tsmi_NewNode.Text" xml:space="preserve">
-    <value>New node</value>
   </data>
   <data name="SdsdToolStripMenuItem.Text" xml:space="preserve">
     <value>Nodecaption:</value>
@@ -352,6 +258,17 @@
   <data name="UnterhalbToolStripMenuItem.Text" xml:space="preserve">
     <value>Add below this level</value>
   </data>
+  <data name="tsmi_NewNode.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
+        yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
+        TkSuQmCC
+</value>
+  </data>
+  <data name="tsmi_NewNode.Text" xml:space="preserve">
+    <value>New node</value>
+  </data>
   <data name="tsmiNodeDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
@@ -368,9 +285,6 @@
         CIKE5/Vi8yJsDM8P8P0HLGwR4Wl3ICYAAAAASUVORK5CYII=
 </value>
   </data>
-  <data name="tsmiNodeDelete.Size" type="System.Drawing.Size, System.Drawing">
-    <value>188, 22</value>
-  </data>
   <data name="tsmiNodeDelete.Text" xml:space="preserve">
     <value>Delete node</value>
   </data>
@@ -452,11 +366,11 @@
   <data name="DetailAnsichtDatensatzToolStripMenuItem.Text" xml:space="preserve">
     <value>Detail-View Record</value>
   </data>
-  <data name="ToolStripDropDownButton3.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
-    <value>109, 22</value>
+    <value>227, 270</value>
   </data>
-  <data name="ToolStripDropDownButton3.Text" xml:space="preserve">
+  <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>record-functions</value>
+    <value>1084, 212</value>
   </data>
   <data name="CopyRecordtsmi.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -514,6 +428,12 @@
   <data name="AnwendungscacheResettsmi.Text" xml:space="preserve">
     <value>Reset application-cache</value>
   </data>
+  <data name="ToolStripDropDownButton3.Size" type="System.Drawing.Size, System.Drawing">
+    <value>109, 22</value>
+  </data>
+  <data name="ToolStripDropDownButton3.Text" xml:space="preserve">
+    <value>record-functions</value>
+  </data>
   <data name="tsbtnRefresh_Entity.Size" type="System.Drawing.Size, System.Drawing">
     <value>108, 22</value>
   </data>
@@ -526,17 +446,14 @@
   <data name="tsbtnGeodata.Text" xml:space="preserve">
     <value>geodata navigation</value>
   </data>
+  <data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
+    <value>1084, 25</value>
+  </data>
+  <data name="SplitContainerTop.Size" type="System.Drawing.Size, System.Drawing">
+    <value>1379, 237</value>
+  </data>
   <data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
-    <value>665, 293</value>
+    <value>658, 326</value>
-  </data>
-  <data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
-    <value>665, 24</value>
-  </data>
-  <data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
-    <value>665, 26</value>
-  </data>
-  <data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1373, 347</value>
   </data>
   <data name="tslblDocViewLocked.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -558,8 +475,14 @@
   <data name="tslblDocViewLocked.Text" xml:space="preserve">
     <value>View is locked - Click Edit Record for unlocking</value>
   </data>
-  <data name="ToolStripEdit.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1373, 25</value>
+    <value>658, 24</value>
+  </data>
+  <data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
+    <value>658, 26</value>
+  </data>
+  <data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
+    <value>1373, 380</value>
   </data>
   <data name="tsButtonAdd.Size" type="System.Drawing.Size, System.Drawing">
     <value>49, 22</value>
@@ -629,8 +552,17 @@
   <data name="tslblFileslocked.Text" xml:space="preserve">
     <value>No file-access</value>
   </data>
-  <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="ToolStripEdit.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1373, 347</value>
+    <value>1373, 25</value>
+  </data>
+  <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
+    <value>1373, 405</value>
+  </data>
+  <data name="TabDetails.Text" xml:space="preserve">
+    <value>Details</value>
+  </data>
+  <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
+    <value>1379, 436</value>
   </data>
   <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
     <value>1373, 347</value>
@@ -735,17 +667,28 @@
         YII=
 </value>
   </data>
+  <data name="tslblPoslocked.Size" type="System.Drawing.Size, System.Drawing">
+    <value>109, 22</value>
+  </data>
   <data name="tslblPoslocked.Text" xml:space="preserve">
     <value>Positions locked</value>
   </data>
   <data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing">
     <value>1373, 25</value>
   </data>
-  <data name="cmsResultFilesBasic.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="TabPos.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>128, 48</value>
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAExpc3Q7QnVsbGV0O1FzfzkAAABa
+        SURBVDhPY/j//z9FGEPAxsaGEYhBNF4MUw/TVADED0A0kkHMQMyCBbOCaHQDQJr/g2gkA0B8nBimDqYY
+        wwXEYqyCpGCsgqRgMEGxF6CaQYEzGogjMRD/MwAARTWKOO3Nn7MAAAAASUVORK5CYII=
+</value>
   </data>
-  <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1373, 347</value>
+    <value>1373, 372</value>
+  </data>
+  <data name="TabPos.Text" xml:space="preserve">
+    <value>positions</value>
   </data>
   <data name="cmDoc1FileOpen.Size" type="System.Drawing.Size, System.Drawing">
     <value>127, 22</value>
@@ -767,8 +710,11 @@
   <data name="cmDoc1FileProperties.Text" xml:space="preserve">
     <value>Properties</value>
   </data>
-  <data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="cmsResultFilesBasic.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1373, 25</value>
+    <value>128, 48</value>
+  </data>
+  <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
+    <value>1373, 347</value>
   </data>
   <data name="tsbtnDoc_Refresh.Size" type="System.Drawing.Size, System.Drawing">
     <value>102, 22</value>
@@ -800,8 +746,14 @@
   <data name="tsbtnStartFulltext.Text" xml:space="preserve">
     <value>Fulltextsearch</value>
   </data>
-  <data name="GroupBox4.Text" xml:space="preserve">
+  <data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
-    <value>Special recipient for record:</value>
+    <value>1373, 25</value>
+  </data>
+  <data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
+    <value>1373, 372</value>
+  </data>
+  <data name="TabWindream.Text" xml:space="preserve">
+    <value>windream-files</value>
   </data>
   <data name="btnRemoveUser_FollowUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -832,6 +784,9 @@
   <data name="Label7.Text" xml:space="preserve">
     <value>Attention: this list overdrives the general list.</value>
   </data>
+  <data name="GroupBox4.Text" xml:space="preserve">
+    <value>Special recipient for record:</value>
+  </data>
   <data name="lblFollowUp_save.Size" type="System.Drawing.Size, System.Drawing">
     <value>92, 15</value>
   </data>
@@ -844,23 +799,32 @@
   <data name="Label5.Text" xml:space="preserve">
     <value>Saved Follow Ups</value>
   </data>
+  <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
+    <value>1373, 372</value>
+  </data>
+  <data name="TabFollowUp.Text" xml:space="preserve">
+    <value>Follow Up</value>
+  </data>
   <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
     <value>1373, 347</value>
   </data>
-  <data name="tsVariants.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1373, 25</value>
-  </data>
   <data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
     <value>63, 22</value>
   </data>
   <data name="ToolStripButton1.Text" xml:space="preserve">
     <value>Reload</value>
   </data>
-  <data name="SplitContainerFORM.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="tsVariants.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1379, 645</value>
+    <value>1373, 25</value>
   </data>
-  <data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
-    <value>210, 370</value>
+    <value>1373, 372</value>
+  </data>
+  <data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
+    <value>1379, 685</value>
+  </data>
+  <data name="SplitContainerFORM.Size" type="System.Drawing.Size, System.Drawing">
+    <value>1379, 685</value>
   </data>
   <data name="docCM_Open.Size" type="System.Drawing.Size, System.Drawing">
     <value>209, 22</value>
@@ -907,12 +871,6 @@
   <data name="ToolStripSeparator20.Size" type="System.Drawing.Size, System.Drawing">
     <value>206, 6</value>
   </data>
-  <data name="docCM_RenameMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>209, 22</value>
-  </data>
-  <data name="docCM_RenameMain.Text" xml:space="preserve">
-    <value>Rename</value>
-  </data>
   <data name="NeuToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
     <value>187, 22</value>
   </data>
@@ -925,6 +883,12 @@
   <data name="DisplaynameUmbenennenToolStripMenuItem.Text" xml:space="preserve">
     <value>Rename displayname</value>
   </data>
+  <data name="docCM_RenameMain.Size" type="System.Drawing.Size, System.Drawing">
+    <value>209, 22</value>
+  </data>
+  <data name="docCM_RenameMain.Text" xml:space="preserve">
+    <value>Rename</value>
+  </data>
   <data name="docCM_InWork.Size" type="System.Drawing.Size, System.Drawing">
     <value>209, 22</value>
   </data>
@@ -937,9 +901,6 @@
   <data name="docCM_linkRecord.Text" xml:space="preserve">
     <value>Link file with record</value>
   </data>
-  <data name="WindreamToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>209, 22</value>
-  </data>
   <data name="DateiVersionierenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAAwAAAAMCAYAAABWdVznAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -948,17 +909,20 @@
 </value>
   </data>
   <data name="DateiVersionierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>175, 22</value>
+    <value>180, 22</value>
   </data>
   <data name="DateiVersionierenToolStripMenuItem.Text" xml:space="preserve">
     <value>Create new version</value>
   </data>
   <data name="DokumentartÄndernToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>175, 22</value>
+    <value>180, 22</value>
   </data>
   <data name="DokumentartÄndernToolStripMenuItem.Text" xml:space="preserve">
     <value>Change the doctpe</value>
   </data>
+  <data name="WindreamToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>209, 22</value>
+  </data>
   <data name="ToolStripSeparator7.Size" type="System.Drawing.Size, System.Drawing">
     <value>206, 6</value>
   </data>
@@ -1054,45 +1018,18 @@
   <data name="docCM_ResetView.Text" xml:space="preserve">
     <value>Reset view</value>
   </data>
-  <data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
-    <value>
+    <value>210, 392</value>
-        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEhvbWU7HnRkOAAAAWlJREFUWEfF
-        lNFOxDAMBO/D+m1IfHmIT5mTvWzS9DiVhxG1O/WuQOLRWvtX7PJOynAch6MJ+d1XsPjWkjPL4OTOrECE
-        s4vn/M2SnFkGJ3dyOEE5XN+dkjPL4OSOBrhw2CqRM8vg5E4+vAqH0xI5swxO7lwJh2WJnFkGJw9m4d8D
-        925aImeWwcmdVTjOpRI5swxGnoYPP97zf2C7RM4sQxb6z51wdqcl9D6UASE+6LhDLhy2fxM5swxDeCcc
-        tkrkzDIMwX24Ew5bfw7QAu6DK+GwLEFecFbgnXCYliAvWBX4SzjYEuQFswKfCIdfJcgLXIFPhkMpQV6g
-        BZ7h49kdeoKjOBeS88oIXg+KHsioC84FdcEuA3cE1AXngrpgl4E7AuqCc0FdsMvAHQF1wbmgLthl4I6A
-        uuBcUBfsMnBHQF1wLqgLdhm4I6AuOBfUBbsM3BFQF5wL6oJdBu4IqAvOBXXBLu/ELu+jPX4ATMNRVtCQ
-        oP8AAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="NavButtonRefresh.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAndEVYdFRpdGxlAFJlZnJlc2g7UmVwZWF0O0JhcnM7
-        UmliYm9uO1JlbG9hZM1N9ukAAAGxSURBVFhHxZYxTsNAEEVzACSuk8LcJCegJE1ocg5OQZUCbkLHEaiQ
-        6Mx/1tqaGY9jC5tN8STv+P/5jnez3l3btjclLdYkLdYkLdZkVGia5hp7cRKv4kN8F7imxj00mbcj5o0K
-        mUk8iBfxJdoZ0KDFk/U62zwXDonhUfALs7Br4MFre52FYpY/wLP4EVnAEvDSYwgHm+fCoYiBp8/C38WT
-        YK7vC1xT417U0+NiazbPhYMEwPzF1/4pjuIuenq4VzRorddhPa4BSAAsImui4SFqI9L0HIrH9hiwHtcA
-        JOB1xtV+jLoM6SxvwvYYsB7XACTgv2wNzOvka7dI1zMsuAzrcQ3Wouaz4WA9rsFa1Hw2HKzHNbgFabEm
-        bpC9rgS3l6/FDZKwCHPsPGtxgxAW6cLBeqaQjl0xbs2nqHODILawqXThYD1TSMeWbHuwue2jzg2CwdJt
-        xWLRAxRt3IrZ3kdaNwiGCA3/+jHiw9YdUKLHDYwB+IRu9TkeDiY2D9ygGKBfcFseSBY/wLDaC1seyVwe
-        uIEEMbxns0OpzYNRITMZmOv/PZbXJi3WJC3WJC3Wo939Ao+TPgKX3Mi+AAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="NavPane.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1379, 40</value>
   </data>
   <data name="StatusStrip_Main.Size" type="System.Drawing.Size, System.Drawing">
     <value>1379, 24</value>
   </data>
-  <assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
   <data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFtEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu
-        OS4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEFAQAAAChE
+        MTYuMCwgQ3VsdHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iODhkMTc1NGQ3MDBlNDlhBQEAAAAo
-        ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL
+        RGV2RXhwcmVzcy5VdGlscy5JbWFnZUNvbGxlY3Rpb25TdHJlYW1lcgAAAAACAAAACw==
 </value>
   </data>
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">

app/DD-Record-Organizer/frmConstructor_Main.vb

@@ -142,7 +142,7 @@ Public Class frmConstructor_Main
     ' Private gridGUID = 2
 
     Private DT_WINDREAM_RESULTLIST_DEF As DataTable
-    Private DT_WINDREAM_RESULTLIST As DataTable
+    Private DT_WINDREAM_COLUMNS_GRID As DataTable
     Private DT_DOCRESULT_DROPDOWN_ITEMS As DataTable
     Private DT_RESULTLIST_OPTIONS As DataTable
     Private DT_RESULTLIST_VARIABLE_VALUE As DataTable
@@ -2358,14 +2358,14 @@ Public Class frmConstructor_Main
                 ClassLogger.Add("ADDING RECORDS IS PROHIBITED FOR ENTITY: " & ENTITY_ID, False)
             End If
 
-            sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
+            sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
-            DT_WINDREAM_RESULTLIST = ClassDatabase.Return_Datatable(sql, True)
+            DT_WINDREAM_COLUMNS_GRID = ClassDatabase.Return_Datatable(sql, True)
-            sql = String.Format("select T.*, T1.HEADER_CAPTION from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID AND T.CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 3 AND LANGUAGE = '{1}')", ENTITY_ID, USER_LANGUAGE)
+            sql = String.Format("select T.*, T1.HEADER_CAPTION from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID AND T.CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 3 AND LANGUAGE = '{1}')  ORDER BY T.SEQUENCE ", ENTITY_ID, USER_LANGUAGE)
             DT_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql, True)
 
             sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
             DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql, True)
-            sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE)
+            sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE)
             DT_RESULTLIST_VARIABLE_VALUE = ClassDatabase.Return_Datatable(sql, True)
             Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
                               Select form
@@ -2433,7 +2433,7 @@ Public Class frmConstructor_Main
             ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = " & ENTITY_ID, True)
 
             If CBool(LOAD_ENTITY_SEARCH_AT_STARTUP) = True Then
-                ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, True, True)
+                ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_COLUMNS_GRID, ENTITY_ID, RECORD_ID, True, True)
             End If
             Select Case ACT_EBENE
                 Case 1
@@ -3629,7 +3629,7 @@ Public Class frmConstructor_Main
                 Me.Cursor = Cursors.Default
             End If
             Dim DT_RESULT As DataTable
-            DT_RESULT = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, CBool(LOAD_ENTITY_SEARCH_AT_STARTUP))
+            DT_RESULT = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_COLUMNS_GRID, ENTITY_ID, RECORD_ID, CBool(LOAD_ENTITY_SEARCH_AT_STARTUP))
 
             If IsNothing(DT_RESULT) Then
                 Dim msg = "wrong DocSearch-Configuration oer unexpected Error in Get_DOC_RESULTTABLE - Check logfile and contact Digital Data"
@@ -3701,7 +3701,7 @@ Public Class frmConstructor_Main
                     ClassWindreamDocGrid.FillColumns(
                        GridViewDoc_Search,
                        DT_RESULT,
-                       DT_WINDREAM_RESULTLIST,
+                       DT_WINDREAM_COLUMNS_GRID,
                        DT_DOCRESULT_DROPDOWN_ITEMS,
                        AddressOf OnCBSelectedValueChanged,
                        AddressOf OnDateSelectedValueChanged,
@@ -5819,6 +5819,7 @@ Public Class frmConstructor_Main
                 File.Delete(XMLPath)
                 GridControlDocSearch.DataSource = Nothing
                 GridViewDoc_Search.Columns.Clear()
+
                 RUN_WDSEARCH_GRID()
 
             Else
@@ -6463,7 +6464,7 @@ Public Class frmConstructor_Main
                     ' Rename file.
                     My.Computer.FileSystem.RenameFile(OldName, NewName)
                     Cursor = Cursors.WaitCursor
-                    Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Filename = '{0}', FULL_FILENAME = '{1}', CHANGED_WHO = '{2}', CHANGED_WHEN = GETDATE() WHERE DocID = {3}",
+                    Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Change_DateTime = GETDATE(), Filename = '{0}', FULL_FILENAME = '{1}', CHANGED_WHO = '{2}', CHANGED_WHEN = GETDATE() WHERE DocID = {3}",
                                                OnlyFilename, NewName, USER_USERNAME, ClassWindreamDocGrid.SELECTED_DOC_ID)
                     If DD_LIB_Standards.clsDatabase.Execute_non_Query(upd) Then
                         If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then

app/DD-Record-Organizer/frmMain.vb

@@ -347,7 +347,9 @@ Public Class frmMain
 
                     image2 = Nothing
                 Next
-
+            Else
+                MsgBox("No consturctors configured for user!", MsgBoxStyle.Information)
+                Clipboard.SetText(SQL2)
             End If
 
             Dim sql = "SELECT COUNT(GUID) FROM TBPMO_USER_GLOBAL_SEARCH WHERE USER_ID = " & USER_GUID
@@ -491,18 +493,22 @@ Public Class frmMain
     Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         Try
             Me.Cursor = Cursors.WaitCursor
+
             If ERROR_INIT <> "INVALID USER" Then
+
                 If Task_Popup_minutes <> 0 Then
                     TimerTasks.Start()
                     Refresh_TaskReminder()
                 End If
 
                 RUN_TIMER()
+
                 If Sett_ConstructorStart <> 0 Then
                     Cursor = Cursors.WaitCursor
                     OpenFormConstructor(Sett_ConstructorStart)
                     Cursor = Cursors.Default
                 End If
+
                 'Lizenz abgellaufen, überprüfen ob User Admin ist
                 If LICENSE_COUNT < USERS_LOGGED_IN Then
                     If USER_IS_ADMIN = True Then
@@ -525,6 +531,7 @@ Public Class frmMain
                 End If
                 Try
                     If ClassUpdate.Init = True And Not IsNothing(ClassUpdate.DT_UPDATE_ITEMS) Then
+                        'MsgBox("532")
                         If Not IsNothing(ClassUpdate.DT_UPDATE) And Not IsNothing(ClassUpdate.DT_UPDATE_ITEMS) Then
                             If ClassUpdate.DT_UPDATE_ITEMS.Rows.Count > 0 Then
                                 If ClassUpdate.InitUser = False Then
@@ -566,9 +573,10 @@ Public Class frmMain
                 MsgBox("Application will close now!", MsgBoxStyle.Critical)
                 Me.Close()
             End If
-
+            ' MsgBox("574")
             Dim myversion = CInt(My.Application.Info.Version.ToString.Replace(".", ""))
             Dim minreqver = CInt(MIN_REQUIRED_VERSION.Replace(".", ""))
+            '   MsgBox("577")
             If myversion < minreqver Then
                 MsgBox(String.Format("Your version '{0}' does not match the minimum required version and needs to be updated! Please contact Your systemadministrator!" & vbNewLine & "Application will close now.", My.Application.Info.Version.ToString), MsgBoxStyle.Exclamation)
                 Me.Close()

app/DD-Record-Organizer/frmRecordView.vb

@@ -62,9 +62,9 @@ Public Class frmRecordView
 
             sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
             DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql, True)
-            sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE)
+            sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE)
             DT_RESULTLIST_VARIABLE_VALUE = ClassDatabase.Return_Datatable(sql, True)
-            Dim sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
+            Dim sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND LANGUAGE = '{1}' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
             DT_WINDREAM_RESULTLIST = ClassDatabase.Return_Datatable(sql_ResultList, True)
             sql_ResultList = String.Format("select * from TBPMO_DOCRESULT_DROPDOWN_ITEMS WHERE CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 4 AND LANGUAGE = '{1}')", ENTITY_ID, USER_LANGUAGE)
             DT_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql_ResultList, True)

app/DD-Record-Organizer/frmWM_ChangeDoctype.vb

@@ -32,7 +32,7 @@ Public Class frmWM_ChangeDoctype
             End If
             Me.DialogResult = System.Windows.Forms.DialogResult.OK
             For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
-                sql = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Doctype = '{0}' WHERE DocID = {1}", NewDoctype, row.Item("DOC_ID"))
+                sql = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Doctype = '{0}',Change_DateTime = GETDATE(), WHERE DocID = {1}", NewDoctype, row.Item("DOC_ID"))
                 If clsDatabase.Execute_non_Query(sql) = True Then
                     If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
                         clsDatabase.Execute_non_Query(sql, True)

app/DD-Record-Organizer/frmWM_CreateVersion.vb

@@ -14,7 +14,7 @@ Public Class frmWM_CreateVersion
                 Dim VERSION = clsDatabase.Execute_Scalar(sql, True)
                 If Not IsNothing(VERSION) Then
                     VERSION = VERSION + 1
-                    Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Version = {0} WHERE DocID = {1}", VERSION, row.Item("DOC_ID"))
+                    Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Version = {0},Change_DateTime = GETDATE() WHERE DocID = {1}", VERSION, row.Item("DOC_ID"))
                     clsDatabase.Execute_non_Query(upd)
                     If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
                         clsDatabase.Execute_non_Query(upd, True)

app/DD-Record-Organizer/frmWM_IndexFile.vb

@@ -1005,9 +1005,12 @@ Public Class frmWM_IndexFile
     Sub Refresh_indices()
         Try
             If CURRENT_DOKARTID > 0 Then
-                Dim sql = "SELECT OBJEKTTYP FROM TBDD_DOKUMENTART WHERE GUID = " & CURRENT_DOKARTID
+                Dim sql = "SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & CURRENT_DOKARTID
-                OBJECT_TYPETextBox.Text = ClassDatabase.Execute_Scalar(sql, True)
+                Dim DTDOKART As DataTable = clsDatabase.Return_Datatable(sql)
+                If DTDOKART.Rows.Count = 1 Then
+                    OBJECT_TYPETextBox.Text = DTDOKART.Rows(0).Item("OBJEKTTYP")
                     DOCTYPE_IDTextBox.Text = CURRENT_DOKARTID
+                    PATHTextBox.Text = DTDOKART.Rows(0).Item("ZIEL_PFAD")
                     Dim dt As DataTable
                     'sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & CURRENT_DOKARTID
                     'Dim dt As DataTable = ClassDatabase.Return_Datatable(sql, True)
@@ -1062,6 +1065,8 @@ Public Class frmWM_IndexFile
 
                     End If
                 End If
+
+            End If
         Catch ex As Exception
             MsgBox("Error in Refresh Indices for Indexing:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try

app/RecordOrganizer_RightManager/frmStart.Designer.vb

@@ -86,7 +86,7 @@ Partial Class frmStart
         Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button2.Image = Global.RecordOrganizer_RightManager.My.Resources.Resources.folder_Closed_16xSM
         Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button2.Location = New System.Drawing.Point(711, 14)
+        Me.Button2.Location = New System.Drawing.Point(715, 14)
         Me.Button2.Name = "Button2"
         Me.Button2.Size = New System.Drawing.Size(111, 23)
         Me.Button2.TabIndex = 1
@@ -140,7 +140,7 @@ Partial Class frmStart
         '
         Me.GroupBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.GroupBox1.Controls.Add(Me.chkLogerrorsonly)
-        Me.GroupBox1.Location = New System.Drawing.Point(622, 43)
+        Me.GroupBox1.Location = New System.Drawing.Point(626, 43)
         Me.GroupBox1.Name = "GroupBox1"
         Me.GroupBox1.Size = New System.Drawing.Size(200, 67)
         Me.GroupBox1.TabIndex = 6