MS

app/DD-Record-Organiser/DD-Record-Organiser.vbproj

@@ -93,6 +93,7 @@
       <SpecificVersion>False</SpecificVersion>
     </Reference>
     <Reference Include="DevExpress.Images.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Map.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="DevExpress.Office.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
@@ -130,6 +131,7 @@
     <Reference Include="DevExpress.XtraLayout.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
+    <Reference Include="DevExpress.XtraMap.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
     <Reference Include="DevExpress.XtraNavBar.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
@@ -224,6 +226,8 @@
     <Reference Include="System.DirectoryServices.Protocols" />
     <Reference Include="System.Drawing" />
     <Reference Include="System.Runtime.Remoting" />
+    <Reference Include="System.ServiceModel" />
+    <Reference Include="System.Web" />
     <Reference Include="System.Web.Services" />
     <Reference Include="System.Windows.Forms" />
     <Reference Include="System.Xml" />
@@ -300,6 +304,12 @@
     <Compile Include="frmFileInWork.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmGoogle.Designer.vb">
+      <DependentUpon>frmGoogle.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmGoogle.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmLicense_User.Designer.vb">
       <DependentUpon>frmLicense_User.vb</DependentUpon>
     </Compile>
@@ -330,6 +340,12 @@
     <Compile Include="frmSAP_FuBa.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmSearchAllOver.Designer.vb">
+      <DependentUpon>frmSearchAllOver.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmSearchAllOver.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmStaticListEditor.Designer.vb">
       <DependentUpon>frmStaticListEditor.vb</DependentUpon>
     </Compile>
@@ -707,6 +723,9 @@
     <EmbeddedResource Include="frmFileInWork.resx">
       <DependentUpon>frmFileInWork.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmGoogle.resx">
+      <DependentUpon>frmGoogle.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmLicense.en-US.resx">
       <DependentUpon>frmLicense.vb</DependentUpon>
     </EmbeddedResource>
@@ -734,6 +753,9 @@
     <EmbeddedResource Include="frmSAP_FuBa.resx">
       <DependentUpon>frmSAP_FuBa.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmSearchAllOVer.resx">
+      <DependentUpon>frmSearchAllOver.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmStaticListEditor.en-US.resx">
       <DependentUpon>frmStaticListEditor.vb</DependentUpon>
     </EmbeddedResource>

app/DD-Record-Organiser/ModuleHelperMethods.vb

@@ -186,6 +186,12 @@
 
         frm.Show()
     End Sub
+    Public Sub OpenSearchAllOVer()
+        Dim frm As New frmSearchAllOVer
+        frm = frmSearchAllOVer
+        frm.MdiParent = MAIN_FORM
+        frm.Show()
+    End Sub
     Public Sub Close_Maximized_Forms()
         For i = System.Windows.Forms.Application.OpenForms.Count - 1 To 1 Step -1
             Dim form As Form = System.Windows.Forms.Application.OpenForms(i)

app/DD-Record-Organiser/My Project/licenses.licx

@@ -1,6 +1,9 @@
-DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraMap.MapControl, DevExpress.XtraMap.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraScheduler.SchedulerControl, DevExpress.XtraScheduler.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

app/DD-Record-Organiser/frmConstructor_Main.Designer.vb

@@ -75,8 +75,12 @@ Partial Class frmConstructor_Main
         Me.OfficeVorlagentsmi = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
         Me.AnwendungscacheResettsmi = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator19 = New System.Windows.Forms.ToolStripSeparator()
+        Me.tsbtnRefresh_Entity = New System.Windows.Forms.ToolStripButton()
+        Me.tsbtnDeleteRecord = New System.Windows.Forms.ToolStripButton()
         Me.TCDetails = New DevExpress.XtraTab.XtraTabControl()
         Me.TabDetails = New DevExpress.XtraTab.XtraTabPage()
+        Me.SplitContainerDetails = New DevExpress.XtraEditors.SplitContainerControl()
         Me.pnlDetails = New System.Windows.Forms.Panel()
         Me.ToolStripEdit = New System.Windows.Forms.ToolStrip()
         Me.tsButtonAdd = New System.Windows.Forms.ToolStripButton()
@@ -156,7 +160,10 @@ Partial Class frmConstructor_Main
         Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
         Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
         Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.SplitContainer1 = New DevExpress.XtraEditors.SplitContainerControl()
+        Me.XtraTabPageVariant = New DevExpress.XtraTab.XtraTabPage()
+        Me.ProgressBarControl1 = New DevExpress.XtraEditors.ProgressBarControl()
+        Me.ProgressPanel1 = New DevExpress.XtraWaitForm.ProgressPanel()
+        Me.SplitContainerFORM = New DevExpress.XtraEditors.SplitContainerControl()
         Me.BindingSource_Entity = New System.Windows.Forms.BindingSource(Me.components)
         Me.NavPane = New DevExpress.XtraBars.Navigation.TileNavPane()
         Me.NavButtonHome = New DevExpress.XtraBars.Navigation.NavButton()
@@ -181,6 +188,7 @@ Partial Class frmConstructor_Main
         Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
         Me.TBPMO_FILES_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.ToolTipController = New DevExpress.Utils.ToolTipController(Me.components)
+        Me.RealTimeSource1 = New DevExpress.Data.RealTimeSource()
         CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainerMain.SuspendLayout()
         CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -195,6 +203,8 @@ Partial Class frmConstructor_Main
         CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TCDetails.SuspendLayout()
         Me.TabDetails.SuspendLayout()
+        CType(Me.SplitContainerDetails, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerDetails.SuspendLayout()
         Me.ToolStripEdit.SuspendLayout()
         Me.TabWindream.SuspendLayout()
         CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -210,8 +220,10 @@ Partial Class frmConstructor_Main
         CType(Me.grvwGridPos, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.BindingNavigatorPOS, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.BindingNavigatorPOS.SuspendLayout()
-        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPageVariant.SuspendLayout()
-        Me.SplitContainer1.SuspendLayout()
+        CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerFORM, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerFORM.SuspendLayout()
         CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.StatusStrip_Main.SuspendLayout()
         CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -479,7 +491,7 @@ Partial Class frmConstructor_Main
         '
         'ToolStrip1
         '
-        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslbldisplayRecords, Me.ToolStripDropDownButton3})
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslbldisplayRecords, Me.ToolStripDropDownButton3, Me.ToolStripSeparator19, Me.tsbtnRefresh_Entity, Me.tsbtnDeleteRecord})
         resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
         Me.ToolStrip1.Name = "ToolStrip1"
         '
@@ -546,6 +558,23 @@ Partial Class frmConstructor_Main
         Me.AnwendungscacheResettsmi.Name = "AnwendungscacheResettsmi"
         resources.ApplyResources(Me.AnwendungscacheResettsmi, "AnwendungscacheResettsmi")
         '
+        'ToolStripSeparator19
+        '
+        Me.ToolStripSeparator19.Name = "ToolStripSeparator19"
+        resources.ApplyResources(Me.ToolStripSeparator19, "ToolStripSeparator19")
+        '
+        'tsbtnRefresh_Entity
+        '
+        Me.tsbtnRefresh_Entity.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG
+        resources.ApplyResources(Me.tsbtnRefresh_Entity, "tsbtnRefresh_Entity")
+        Me.tsbtnRefresh_Entity.Name = "tsbtnRefresh_Entity"
+        '
+        'tsbtnDeleteRecord
+        '
+        Me.tsbtnDeleteRecord.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete
+        resources.ApplyResources(Me.tsbtnDeleteRecord, "tsbtnDeleteRecord")
+        Me.tsbtnDeleteRecord.Name = "tsbtnDeleteRecord"
+        '
         'TCDetails
         '
         Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor = CType(resources.GetObject("TCDetails.AppearancePage.HeaderHotTracked.BackColor"), System.Drawing.Color)
@@ -554,18 +583,32 @@ Partial Class frmConstructor_Main
         Me.TCDetails.AppearancePage.HeaderHotTracked.Options.UseBackColor = True
         Me.TCDetails.AppearancePage.HeaderHotTracked.Options.UseFont = True
         resources.ApplyResources(Me.TCDetails, "TCDetails")
+        Me.TCDetails.LookAndFeel.UseDefaultLookAndFeel = False
         Me.TCDetails.Name = "TCDetails"
         Me.TCDetails.SelectedTabPage = Me.TabDetails
-        Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabWindream, Me.TabFollowUp, Me.TabPos})
+        Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabWindream, Me.TabFollowUp, Me.TabPos, Me.XtraTabPageVariant})
         '
         'TabDetails
         '
-        Me.TabDetails.Controls.Add(Me.pnlDetails)
+        Me.TabDetails.Controls.Add(Me.SplitContainerDetails)
         Me.TabDetails.Controls.Add(Me.ToolStripEdit)
         Me.TabDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD
         Me.TabDetails.Name = "TabDetails"
         resources.ApplyResources(Me.TabDetails, "TabDetails")
         '
+        'SplitContainerDetails
+        '
+        Me.SplitContainerDetails.Appearance.BackColor = CType(resources.GetObject("SplitContainerDetails.Appearance.BackColor"), System.Drawing.Color)
+        Me.SplitContainerDetails.Appearance.Options.UseBackColor = True
+        Me.SplitContainerDetails.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Style3D
+        Me.SplitContainerDetails.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
+        resources.ApplyResources(Me.SplitContainerDetails, "SplitContainerDetails")
+        Me.SplitContainerDetails.Name = "SplitContainerDetails"
+        Me.SplitContainerDetails.Panel1.Controls.Add(Me.pnlDetails)
+        resources.ApplyResources(Me.SplitContainerDetails.Panel1, "SplitContainerDetails.Panel1")
+        resources.ApplyResources(Me.SplitContainerDetails.Panel2, "SplitContainerDetails.Panel2")
+        Me.SplitContainerDetails.SplitterPosition = 786
+        '
         'pnlDetails
         '
         Me.pnlDetails.AllowDrop = True
@@ -1079,17 +1122,44 @@ Partial Class frmConstructor_Main
         Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
         resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2")
         '
-        'SplitContainer1
+        'XtraTabPageVariant
         '
-        Me.SplitContainer1.Collapsed = True
+        Me.XtraTabPageVariant.Appearance.Header.BackColor = CType(resources.GetObject("XtraTabPageVariant.Appearance.Header.BackColor"), System.Drawing.Color)
-        Me.SplitContainer1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1
+        Me.XtraTabPageVariant.Appearance.Header.Font = CType(resources.GetObject("XtraTabPageVariant.Appearance.Header.Font"), System.Drawing.Font)
-        resources.ApplyResources(Me.SplitContainer1, "SplitContainer1")
+        Me.XtraTabPageVariant.Appearance.Header.ForeColor = CType(resources.GetObject("XtraTabPageVariant.Appearance.Header.ForeColor"), System.Drawing.Color)
-        Me.SplitContainer1.Name = "SplitContainer1"
+        Me.XtraTabPageVariant.Appearance.Header.Options.UseBackColor = True
-        resources.ApplyResources(Me.SplitContainer1.Panel1, "SplitContainer1.Panel1")
+        Me.XtraTabPageVariant.Appearance.Header.Options.UseFont = True
-        Me.SplitContainer1.Panel2.Controls.Add(Me.SplitContainerMain)
+        Me.XtraTabPageVariant.Appearance.Header.Options.UseForeColor = True
-        resources.ApplyResources(Me.SplitContainer1.Panel2, "SplitContainer1.Panel2")
+        Me.XtraTabPageVariant.Controls.Add(Me.ProgressBarControl1)
-        Me.SplitContainer1.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Panel2
+        Me.XtraTabPageVariant.Controls.Add(Me.ProgressPanel1)
-        Me.SplitContainer1.SplitterPosition = 302
+        Me.XtraTabPageVariant.Name = "XtraTabPageVariant"
+        Me.XtraTabPageVariant.PageVisible = False
+        resources.ApplyResources(Me.XtraTabPageVariant, "XtraTabPageVariant")
+        '
+        'ProgressBarControl1
+        '
+        resources.ApplyResources(Me.ProgressBarControl1, "ProgressBarControl1")
+        Me.ProgressBarControl1.Name = "ProgressBarControl1"
+        Me.ProgressBarControl1.ShowProgressInTaskBar = True
+        '
+        'ProgressPanel1
+        '
+        Me.ProgressPanel1.Appearance.BackColor = CType(resources.GetObject("ProgressPanel1.Appearance.BackColor"), System.Drawing.Color)
+        Me.ProgressPanel1.Appearance.Options.UseBackColor = True
+        resources.ApplyResources(Me.ProgressPanel1, "ProgressPanel1")
+        Me.ProgressPanel1.Name = "ProgressPanel1"
+        '
+        'SplitContainerFORM
+        '
+        Me.SplitContainerFORM.Collapsed = True
+        Me.SplitContainerFORM.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
+        resources.ApplyResources(Me.SplitContainerFORM, "SplitContainerFORM")
+        Me.SplitContainerFORM.Name = "SplitContainerFORM"
+        resources.ApplyResources(Me.SplitContainerFORM.Panel1, "SplitContainerFORM.Panel1")
+        Me.SplitContainerFORM.Panel2.Controls.Add(Me.SplitContainerMain)
+        resources.ApplyResources(Me.SplitContainerFORM.Panel2, "SplitContainerFORM.Panel2")
+        Me.SplitContainerFORM.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Panel2
+        Me.SplitContainerFORM.SplitterPosition = 302
         '
         'NavPane
         '
@@ -1260,11 +1330,16 @@ Partial Class frmConstructor_Main
         Me.TBPMO_FILES_USERBindingSource.DataMember = "TBPMO_FILES_USER"
         Me.TBPMO_FILES_USERBindingSource.DataSource = Me.DD_DMSDataSet
         '
+        'RealTimeSource1
+        '
+        Me.RealTimeSource1.DisplayableProperties = Nothing
+        Me.RealTimeSource1.UseWeakEventHandler = True
+        '
         'frmConstructor_Main
         '
         resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.Controls.Add(Me.SplitContainer1)
+        Me.Controls.Add(Me.SplitContainerFORM)
         Me.Controls.Add(Me.StatusStrip_Main)
         Me.Controls.Add(Me.NavPane)
         Me.Name = "frmConstructor_Main"
@@ -1284,6 +1359,8 @@ Partial Class frmConstructor_Main
         Me.TCDetails.ResumeLayout(False)
         Me.TabDetails.ResumeLayout(False)
         Me.TabDetails.PerformLayout()
+        CType(Me.SplitContainerDetails, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerDetails.ResumeLayout(False)
         Me.ToolStripEdit.ResumeLayout(False)
         Me.ToolStripEdit.PerformLayout()
         Me.TabWindream.ResumeLayout(False)
@@ -1307,21 +1384,23 @@ Partial Class frmConstructor_Main
         CType(Me.BindingNavigatorPOS, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigatorPOS.ResumeLayout(False)
         Me.BindingNavigatorPOS.PerformLayout()
-        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabPageVariant.ResumeLayout(False)
-        Me.SplitContainer1.ResumeLayout(false)
+        CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.BindingSource_Entity,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.SplitContainerFORM, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.StatusStrip_Main.ResumeLayout(false)
+        Me.SplitContainerFORM.ResumeLayout(False)
-        Me.StatusStrip_Main.PerformLayout
+        CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DD_ECMAdmin,System.ComponentModel.ISupportInitialize).EndInit
+        Me.StatusStrip_Main.ResumeLayout(False)
-        CType(Me.ImageCollection1,System.ComponentModel.ISupportInitialize).EndInit
+        Me.StatusStrip_Main.PerformLayout()
-        CType(Me.DD_DMSDataSet,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.VWPMO_WF_USER_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.VWPMO_WF_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TBPMO_FILES_USERBindingSource,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(false)
+        CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.PerformLayout
+        CType(Me.TBPMO_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
 
-End Sub
+    End Sub
     Friend WithEvents NavPane As DevExpress.XtraBars.Navigation.TileNavPane
     Friend WithEvents NavButtonHome As DevExpress.XtraBars.Navigation.NavButton
     Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip
@@ -1436,7 +1515,7 @@ End Sub
     Friend WithEvents docCM_Rename As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents tsTextBoxRenameFile As System.Windows.Forms.ToolStripTextBox
     Friend WithEvents docCM_linkRecord As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents SplitContainer1 As DevExpress.XtraEditors.SplitContainerControl
+    Friend WithEvents SplitContainerFORM As DevExpress.XtraEditors.SplitContainerControl
     Friend WithEvents ToolStripSeparator11 As System.Windows.Forms.ToolStripSeparator
     Friend WithEvents DetailAnsichtDatensatzToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents EntitätssucheStartenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
@@ -1476,4 +1555,12 @@ End Sub
     Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator
     Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
     Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents XtraTabPageVariant As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents SplitContainerDetails As DevExpress.XtraEditors.SplitContainerControl
+    Friend WithEvents tsbtnDeleteRecord As System.Windows.Forms.ToolStripButton
+    Friend WithEvents tsbtnRefresh_Entity As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ToolStripSeparator19 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents ProgressBarControl1 As DevExpress.XtraEditors.ProgressBarControl
+    Friend WithEvents ProgressPanel1 As DevExpress.XtraWaitForm.ProgressPanel
+    Friend WithEvents RealTimeSource1 As DevExpress.Data.RealTimeSource
 End Class

app/DD-Record-Organiser/frmConstructor_Main.resx

@@ -319,7 +319,7 @@
     <value>Detail-Ansicht Datensatz</value>
   </data>
   <data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
-    <value>252, 270</value>
+    <value>252, 292</value>
   </data>
   <data name="&gt;&gt;ContextMenuGrid.Name" xml:space="preserve">
     <value>ContextMenuGrid</value>
@@ -435,6 +435,27 @@
   <data name="ToolStripDropDownButton3.Text" xml:space="preserve">
     <value>Record-Funktionen</value>
   </data>
+  <data name="ToolStripSeparator19.Size" type="System.Drawing.Size, System.Drawing">
+    <value>6, 25</value>
+  </data>
+  <data name="tsbtnRefresh_Entity.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
+    <value>Magenta</value>
+  </data>
+  <data name="tsbtnRefresh_Entity.Size" type="System.Drawing.Size, System.Drawing">
+    <value>81, 22</value>
+  </data>
+  <data name="tsbtnRefresh_Entity.Text" xml:space="preserve">
+    <value>Neu laden</value>
+  </data>
+  <data name="tsbtnDeleteRecord.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
+    <value>Magenta</value>
+  </data>
+  <data name="tsbtnDeleteRecord.Size" type="System.Drawing.Size, System.Drawing">
+    <value>108, 22</value>
+  </data>
+  <data name="tsbtnDeleteRecord.Text" xml:space="preserve">
+    <value>Record löschen</value>
+  </data>
   <data name="ToolStrip1.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
@@ -501,6 +522,15 @@
   <data name="TCDetails.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
+  <data name="SplitContainerDetails.Appearance.BackColor" type="System.Drawing.Color, System.Drawing">
+    <value>ControlLight</value>
+  </data>
+  <data name="SplitContainerDetails.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+    <value>Fill</value>
+  </data>
+  <data name="SplitContainerDetails.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 25</value>
+  </data>
   <data name="pnlDetails.AutoScroll" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
@@ -508,10 +538,10 @@
     <value>Fill</value>
   </data>
   <data name="pnlDetails.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 25</value>
+    <value>0, 0</value>
   </data>
   <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1360, 343</value>
+    <value>786, 336</value>
   </data>
   <data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -523,11 +553,38 @@
     <value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
   <data name="&gt;&gt;pnlDetails.Parent" xml:space="preserve">
-    <value>TabDetails</value>
+    <value>SplitContainerDetails.Panel1</value>
   </data>
   <data name="&gt;&gt;pnlDetails.ZOrder" xml:space="preserve">
     <value>0</value>
   </data>
+  <data name="SplitContainerDetails.Panel1.Text" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="SplitContainerDetails.Panel2.Text" xml:space="preserve">
+    <value>Panel2</value>
+  </data>
+  <data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
+    <value>1356, 340</value>
+  </data>
+  <data name="SplitContainerDetails.TabIndex" type="System.Int32, mscorlib">
+    <value>1</value>
+  </data>
+  <data name="SplitContainerDetails.Text" xml:space="preserve">
+    <value>SplitContainerControl1</value>
+  </data>
+  <data name="&gt;&gt;SplitContainerDetails.Name" xml:space="preserve">
+    <value>SplitContainerDetails</value>
+  </data>
+  <data name="&gt;&gt;SplitContainerDetails.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;SplitContainerDetails.Parent" xml:space="preserve">
+    <value>TabDetails</value>
+  </data>
+  <data name="&gt;&gt;SplitContainerDetails.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
   <metadata name="ToolStripEdit.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>757, 17</value>
   </metadata>
@@ -648,7 +705,7 @@
     <value>0, 0</value>
   </data>
   <data name="ToolStripEdit.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1360, 25</value>
+    <value>1356, 25</value>
   </data>
   <data name="ToolStripEdit.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -669,7 +726,7 @@
     <value>1</value>
   </data>
   <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1360, 368</value>
+    <value>1356, 365</value>
   </data>
   <data name="TabDetails.Text" xml:space="preserve">
     <value>Detailansicht</value>
@@ -825,7 +882,7 @@
     <value>Aqua</value>
   </data>
   <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1360, 343</value>
+    <value>1356, 340</value>
   </data>
   <data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
     <value>7</value>
@@ -931,7 +988,7 @@
     <value>0, 0</value>
   </data>
   <data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1360, 25</value>
+    <value>1356, 25</value>
   </data>
   <data name="ToolStripDokumente.TabIndex" type="System.Int32, mscorlib">
     <value>2</value>
@@ -952,10 +1009,10 @@
     <value>1</value>
   </data>
   <data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1360, 368</value>
+    <value>1356, 365</value>
   </data>
   <data name="TabWindream.Text" xml:space="preserve">
-    <value>windream-Dateien</value>
+    <value>Dateien</value>
   </data>
   <data name="&gt;&gt;TabWindream.Name" xml:space="preserve">
     <value>TabWindream</value>
@@ -988,7 +1045,7 @@
     <value>14, 36</value>
   </data>
   <data name="ListViewFollowUps.Size" type="System.Drawing.Size, System.Drawing">
-    <value>263, 268</value>
+    <value>263, 265</value>
   </data>
   <data name="ListViewFollowUps.TabIndex" type="System.Int32, mscorlib">
     <value>5</value>
@@ -1152,7 +1209,7 @@
     <value>9, 50</value>
   </data>
   <data name="ListBoxUser2Profile.Size" type="System.Drawing.Size, System.Drawing">
-    <value>230, 173</value>
+    <value>230, 160</value>
   </data>
   <data name="ListBoxUser2Profile.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -1206,7 +1263,7 @@
     <value>177, 20</value>
   </data>
   <data name="GroupBox4.Size" type="System.Drawing.Size, System.Drawing">
-    <value>594, 250</value>
+    <value>594, 247</value>
   </data>
   <data name="GroupBox4.TabIndex" type="System.Int32, mscorlib">
     <value>4</value>
@@ -1338,7 +1395,7 @@
     <value>283, 28</value>
   </data>
   <data name="grpbxFU_Profile.Size" type="System.Drawing.Size, System.Drawing">
-    <value>774, 276</value>
+    <value>774, 273</value>
   </data>
   <data name="grpbxFU_Profile.TabIndex" type="System.Int32, mscorlib">
     <value>4</value>
@@ -1383,7 +1440,7 @@
     <value>2</value>
   </data>
   <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1360, 368</value>
+    <value>1356, 365</value>
   </data>
   <data name="TabFollowUp.Text" xml:space="preserve">
     <value>Wiedervorlage</value>
@@ -1410,7 +1467,7 @@
     <value>Cyan</value>
   </data>
   <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1360, 343</value>
+    <value>1356, 340</value>
   </data>
   <data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -1434,7 +1491,7 @@
     <value>0, 25</value>
   </data>
   <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1360, 343</value>
+    <value>1356, 340</value>
   </data>
   <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
     <value>2</value>
@@ -1609,7 +1666,7 @@
     <value>0, 0</value>
   </data>
   <data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1360, 25</value>
+    <value>1356, 25</value>
   </data>
   <data name="BindingNavigatorPOS.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -1638,7 +1695,7 @@
 </value>
   </data>
   <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1360, 368</value>
+    <value>1356, 365</value>
   </data>
   <data name="TabPos.Text" xml:space="preserve">
     <value>Positionen</value>
@@ -1655,6 +1712,84 @@
   <data name="&gt;&gt;TabPos.ZOrder" xml:space="preserve">
     <value>3</value>
   </data>
+  <data name="XtraTabPageVariant.Appearance.Header.BackColor" type="System.Drawing.Color, System.Drawing">
+    <value>Crimson</value>
+  </data>
+  <data name="XtraTabPageVariant.Appearance.Header.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Tahoma, 8.25pt, style=Bold, Italic</value>
+  </data>
+  <data name="XtraTabPageVariant.Appearance.Header.ForeColor" type="System.Drawing.Color, System.Drawing">
+    <value>Black</value>
+  </data>
+  <data name="ProgressBarControl1.EditValue" type="System.Int32, mscorlib">
+    <value>51</value>
+  </data>
+  <data name="ProgressBarControl1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>264, 40</value>
+  </data>
+  <data name="ProgressBarControl1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>170, 24</value>
+  </data>
+  <data name="ProgressBarControl1.TabIndex" type="System.Int32, mscorlib">
+    <value>1</value>
+  </data>
+  <data name="&gt;&gt;ProgressBarControl1.Name" xml:space="preserve">
+    <value>ProgressBarControl1</value>
+  </data>
+  <data name="&gt;&gt;ProgressBarControl1.Type" xml:space="preserve">
+    <value>DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;ProgressBarControl1.Parent" xml:space="preserve">
+    <value>XtraTabPageVariant</value>
+  </data>
+  <data name="&gt;&gt;ProgressBarControl1.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <data name="ProgressPanel1.Appearance.BackColor" type="System.Drawing.Color, System.Drawing">
+    <value>Transparent</value>
+  </data>
+  <data name="ProgressPanel1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>46, 14</value>
+  </data>
+  <data name="ProgressPanel1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>246, 66</value>
+  </data>
+  <data name="ProgressPanel1.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
+  <data name="ProgressPanel1.Text" xml:space="preserve">
+    <value>ProgressPanel1</value>
+  </data>
+  <data name="&gt;&gt;ProgressPanel1.Name" xml:space="preserve">
+    <value>ProgressPanel1</value>
+  </data>
+  <data name="&gt;&gt;ProgressPanel1.Type" xml:space="preserve">
+    <value>DevExpress.XtraWaitForm.ProgressPanel, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;ProgressPanel1.Parent" xml:space="preserve">
+    <value>XtraTabPageVariant</value>
+  </data>
+  <data name="&gt;&gt;ProgressPanel1.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="XtraTabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
+    <value>1356, 365</value>
+  </data>
+  <data name="XtraTabPageVariant.Text" xml:space="preserve">
+    <value>Vorgängervarianten</value>
+  </data>
+  <data name="&gt;&gt;XtraTabPageVariant.Name" xml:space="preserve">
+    <value>XtraTabPageVariant</value>
+  </data>
+  <data name="&gt;&gt;XtraTabPageVariant.Type" xml:space="preserve">
+    <value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;XtraTabPageVariant.Parent" xml:space="preserve">
+    <value>TCDetails</value>
+  </data>
+  <data name="&gt;&gt;XtraTabPageVariant.ZOrder" xml:space="preserve">
+    <value>4</value>
+  </data>
   <data name="&gt;&gt;TCDetails.Name" xml:space="preserve">
     <value>TCDetails</value>
   </data>
@@ -1686,42 +1821,42 @@
     <value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="&gt;&gt;SplitContainerMain.Parent" xml:space="preserve">
-    <value>SplitContainer1.Panel2</value>
+    <value>SplitContainerFORM.Panel2</value>
   </data>
   <data name="&gt;&gt;SplitContainerMain.ZOrder" xml:space="preserve">
     <value>0</value>
   </data>
-  <data name="SplitContainer1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+  <data name="SplitContainerFORM.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Fill</value>
   </data>
-  <data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing">
+  <data name="SplitContainerFORM.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 40</value>
   </data>
-  <data name="SplitContainer1.Panel1.Text" xml:space="preserve">
+  <data name="SplitContainerFORM.Panel1.Text" xml:space="preserve">
     <value>Panel1</value>
   </data>
-  <data name="SplitContainer1.Panel2.Text" xml:space="preserve">
+  <data name="SplitContainerFORM.Panel2.Text" xml:space="preserve">
     <value>Panel2</value>
   </data>
-  <data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="SplitContainerFORM.Size" type="System.Drawing.Size, System.Drawing">
     <value>1362, 645</value>
   </data>
-  <data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
+  <data name="SplitContainerFORM.TabIndex" type="System.Int32, mscorlib">
     <value>4</value>
   </data>
-  <data name="SplitContainer1.Text" xml:space="preserve">
+  <data name="SplitContainerFORM.Text" xml:space="preserve">
     <value>SplitContainerControl1</value>
   </data>
-  <data name="&gt;&gt;SplitContainer1.Name" xml:space="preserve">
+  <data name="&gt;&gt;SplitContainerFORM.Name" xml:space="preserve">
-    <value>SplitContainer1</value>
+    <value>SplitContainerFORM</value>
   </data>
-  <data name="&gt;&gt;SplitContainer1.Type" xml:space="preserve">
+  <data name="&gt;&gt;SplitContainerFORM.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;SplitContainer1.Parent" xml:space="preserve">
+  <data name="&gt;&gt;SplitContainerFORM.Parent" xml:space="preserve">
     <value>$this</value>
   </data>
-  <data name="&gt;&gt;SplitContainer1.ZOrder" xml:space="preserve">
+  <data name="&gt;&gt;SplitContainerFORM.ZOrder" xml:space="preserve">
     <value>4</value>
   </data>
   <metadata name="BindingSource_Entity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -1897,6 +2032,9 @@
   <metadata name="ToolTipController.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>325, 56</value>
   </metadata>
+  <metadata name="RealTimeSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>609, 134</value>
+  </metadata>
   <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
@@ -2610,6 +2748,24 @@
   <data name="&gt;&gt;AnwendungscacheResettsmi.Type" xml:space="preserve">
     <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
+  <data name="&gt;&gt;ToolStripSeparator19.Name" xml:space="preserve">
+    <value>ToolStripSeparator19</value>
+  </data>
+  <data name="&gt;&gt;ToolStripSeparator19.Type" xml:space="preserve">
+    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;tsbtnRefresh_Entity.Name" xml:space="preserve">
+    <value>tsbtnRefresh_Entity</value>
+  </data>
+  <data name="&gt;&gt;tsbtnRefresh_Entity.Type" xml:space="preserve">
+    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;tsbtnDeleteRecord.Name" xml:space="preserve">
+    <value>tsbtnDeleteRecord</value>
+  </data>
+  <data name="&gt;&gt;tsbtnDeleteRecord.Type" xml:space="preserve">
+    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
   <data name="&gt;&gt;tsButtonAdd.Name" xml:space="preserve">
     <value>tsButtonAdd</value>
   </data>
@@ -3066,6 +3222,12 @@
   <data name="&gt;&gt;ToolTipController.Type" xml:space="preserve">
     <value>DevExpress.Utils.ToolTipController, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;RealTimeSource1.Name" xml:space="preserve">
+    <value>RealTimeSource1</value>
+  </data>
+  <data name="&gt;&gt;RealTimeSource1.Type" xml:space="preserve">
+    <value>DevExpress.Data.RealTimeSource, DevExpress.Data.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmConstructor_Main</value>
   </data>

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -166,6 +166,7 @@ Public Class frmConstructor_Main
     Private PARENT_ENTITYID As Integer
     Private SQL_RIGHT_READ_AND_VIEW_ONLY As String = ""
     Private SQL_RIGHT_WINDREAM_FORBIDDEN As String = ""
+    Private DOC_SEARCH_TAB1 As Boolean = False
 
     Private FORM_TYPE As Integer
     Private ENTITY_ID As Integer
@@ -317,9 +318,9 @@ Public Class frmConstructor_Main
 
 
                 Me.SplitContainerTop.Panel1.Controls.Remove(Me.TreeViewMain)
-                Me.SplitContainer1.Panel1.Controls.Add(Me.TreeViewMain)
+                Me.SplitContainerFORM.Panel1.Controls.Add(Me.TreeViewMain)
-                SplitContainer1.Collapsed = False
+                SplitContainerFORM.Collapsed = False
-                SplitContainer1.PanelVisibility = SplitPanelVisibility.Both
+                SplitContainerFORM.PanelVisibility = SplitPanelVisibility.Both
                 SplitContainerTop.Collapsed = True
                 SplitContainerTop.PanelVisibility = SplitPanelVisibility.Panel2
                 SplitContainerMain.Collapsed = True
@@ -443,7 +444,6 @@ Public Class frmConstructor_Main
             MsgBox("Error in Load_Grid_Layout: " & vbNewLine & ex.Message)
         End Try
     End Sub
-
     Sub Load_Splitter_Layout()
         Try
             Dim XMLPath As String = Get_Splitter_Layout_Filename()
@@ -454,6 +454,7 @@ Public Class frmConstructor_Main
             If settings.Count = 0 Then
                 settings.Add(New ClassSetting("SplitViewTopSplitterPosition", SplitContainerTop.SplitterPosition))
                 settings.Add(New ClassSetting("SplitViewMainSplitterPosition", SplitContainerMain.SplitterPosition))
+                settings.Add(New ClassSetting("SplitViewDetailsSplitterPosition", SplitContainerDetails.SplitterPosition))
                 layout.Save(settings)
             End If
 
@@ -465,16 +466,18 @@ Public Class frmConstructor_Main
                         If NODE_NAVIGATION = False Then
                             SplitContainerMain.SplitterPosition = Integer.Parse(setting._value)
                         Else
-                            SplitContainer1.SplitterPosition = Integer.Parse(setting._value)
+                            SplitContainerFORM.SplitterPosition = Integer.Parse(setting._value)
+                        End If
+                    Case "SplitViewDetailsSplitterPosition"
+                        If DOC_SEARCH_TAB1 = True Then
+                            SplitContainerDetails.SplitterPosition = Integer.Parse(setting._value)
                         End If
-
                 End Select
             Next
         Catch ex As Exception
             MsgBox("Fehler in Load_Splitter_Layout:" & vbNewLine & ex.Message)
         End Try
     End Sub
-
     Sub Save_Splitter_Layout()
         Try
             Dim XMLPath = Get_Splitter_Layout_Filename()
@@ -483,9 +486,13 @@ Public Class frmConstructor_Main
             If NODE_NAVIGATION = False Then
                 settings.Add(New ClassSetting("SplitViewTopSplitterPosition", SplitContainerTop.SplitterPosition))
                 settings.Add(New ClassSetting("SplitViewMainSplitterPosition", SplitContainerMain.SplitterPosition))
+                If DOC_SEARCH_TAB1 = True Then
+                    settings.Add(New ClassSetting("SplitViewDetailsSplitterPosition", SplitContainerDetails.SplitterPosition))
+                End If
             Else
                 settings.Add(New ClassSetting("SplitViewTopSplitterPosition", SplitContainerTop.SplitterPosition))
-                settings.Add(New ClassSetting("SplitViewMainSplitterPosition", SplitContainer1.SplitterPosition))
+                settings.Add(New ClassSetting("SplitViewMainSplitterPosition", SplitContainerFORM.SplitterPosition))
+
             End If
 
             layout.Save(settings)
@@ -593,19 +600,7 @@ Public Class frmConstructor_Main
                 If btn.IsMain Then
                     ResetNav()
                 ElseIf btn.Name = "NavButtonRefresh" Then
-                    If TrySave_Automatic() = True Then
+                    Refresh_Entity_Data()
-                        ' Setzt die RECORD_ID auf Null
-                        ' damit beim Refresh keine alten Werte
-                        ' in die Datenbank geschrieben werden
-                        SELECTED_RECORD_ID = 0
-                        RECORD_ID = 0
-                        CURRENT_RECORD_ID = 0
-
-                        If CtrlCommandUI.IsInsert Then
-                            ActivateAllTabs()
-                        End If
-                        Load_Datafor_Entity()
-                    End If
                 End If
 
             Else
@@ -620,7 +615,21 @@ Public Class frmConstructor_Main
 
         End If
     End Sub
+    Sub Refresh_Entity_Data()
+        If TrySave_Automatic() = True Then
+            ' Setzt die RECORD_ID auf Null
+            ' damit beim Refresh keine alten Werte
+            ' in die Datenbank geschrieben werden
+            SELECTED_RECORD_ID = 0
+            RECORD_ID = 0
+            CURRENT_RECORD_ID = 0
 
+            If CtrlCommandUI.IsInsert Then
+                ActivateAllTabs()
+            End If
+            Load_Datafor_Entity()
+        End If
+    End Sub
     Private Function LoadLevel1Nav()
         Dim cat As New TileNavCategory()
         cat.Caption = EBENE1_GRID_RESULT
@@ -2043,6 +2052,7 @@ Public Class frmConstructor_Main
         ClassDatabase.Execute_non_Query(del)
         Lock_RecordControls(False)
         tsmi_RecordDelete.Enabled = True
+        tsbtnDeleteRecord.Enabled = True
         MassenänderungToolStripMenuItem.Enabled = True
         Me.tsButtonAdd.Enabled = False
         Me.tsButtonSave.Enabled = True
@@ -2195,6 +2205,7 @@ Public Class frmConstructor_Main
             tsButtonEdit.Visible = True
             tsButtonDelete.Visible = True
             tsmi_RecordDelete.Enabled = True
+            tsbtnDeleteRecord.Enabled = True
             MassenänderungToolStripMenuItem.Enabled = True
 
             If RIGHT_ADD_R = False Then
@@ -2210,6 +2221,7 @@ Public Class frmConstructor_Main
             If RIGHT_DELETE_R = False Then
                 tsButtonDelete.Visible = False
                 tsmi_RecordDelete.Enabled = False
+                tsbtnDeleteRecord.Enabled = False
             End If
         Catch ex As Exception
             MsgBox("Error in GetSet_Rights:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -2236,6 +2248,7 @@ Public Class frmConstructor_Main
             CONTROL_DOCTYPE_MATCH = result.Item("CONTROL_DOCTYPE_MATCH")
             SQL_RIGHT_READ_AND_VIEW_ONLY = result.Item("SQL_RIGHT_READ_AND_VIEW_ONLY")
             SQL_RIGHT_WINDREAM_FORBIDDEN = result.Item("SQL_RIGHT_WINDREAM_VIEW")
+            DOC_SEARCH_TAB1 = result.Item("DOC_SEARCH_TAB1")
 
             Dim sql_ResultList = 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"
             DT_WINDREAM_RESULTLIST = ClassDatabase.Return_Datatable(sql_ResultList, "GETRESULTLIST KONFIG")
@@ -2437,7 +2450,7 @@ Public Class frmConstructor_Main
 
 
             If windream_Docshow = True Then
-                If TCDetails.SelectedTabPageIndex = 1 Then
+                If TCDetails.SelectedTabPage.Name = "TabWindream" Or (TCDetails.SelectedTabPage.Name = "TabDetails" And DOC_SEARCH_TAB1 = True) Then
                     Me.GridControlDocSearch.DataSource = Nothing
 
                     If WD_ShowEnitityDocs = True Then
@@ -2597,6 +2610,19 @@ Public Class frmConstructor_Main
                         Load_Record_Direct()
                     End If
                 End If
+                If DOC_SEARCH_TAB1 = True Then
+                    SplitContainerDetails.Collapsed = False
+                    SplitContainerDetails.PanelVisibility = SplitPanelVisibility.Both
+                    SplitContainerDetails.Panel2.Controls.Add(ToolStripDokumente)
+                    SplitContainerDetails.Panel2.Controls.Add(GridControlDocSearch)
+                    TabWindream.PageVisible = False
+                Else
+                    SplitContainerDetails.PanelVisibility = SplitPanelVisibility.Panel1
+                    SplitContainerDetails.Collapsed = True
+                    TabWindream.Controls.Add(ToolStripDokumente)
+                    TabWindream.Controls.Add(GridControlDocSearch)
+                    TabWindream.PageVisible = True
+                End If
             End If
 
             sw.Done()
@@ -3192,29 +3218,39 @@ Public Class frmConstructor_Main
                 End Select
             End If
             RIGHT_CONTROL_CHANGED = False
-            Select Case TCDetails.SelectedTabPageIndex
+            Select Case TCDetails.SelectedTabPage.Name
-                Case 0
+                Case "TabDetails"
                     ENTITY_RELOAD_AFT_CONTROL_LOAD = False
                     CtrlBuilder.WatchRecordChanges = False
                     ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_RECORDID, ENTITY_ID, CtrlBuilder.AllControls, ENTITY_ID)
                     CtrlBuilder.WatchRecordChanges = True
 
                     If windream_Docshow = True Then
-                        Dim stg As String = "windream-Dateien"
+                        Dim stg As String = "Dateien"
                         If USER_LANGUAGE <> "de-DE" Then
-                            stg = "windream-files"
+                            stg = "files"
                         End If
                         TabWindream.Text = stg
                     End If
-                Case 1
+                    Dim sel = String.Format("SELECT * FROM TBPMO_RECORD WHERE RECORD_ENTITY_ID = (SELECT RECORD_ENTITY_ID FROM TBPMO_RECORD WHERE GUID = {0}) AND FORM_ID = {1} AND GUID <> {2}", SELECTED_RECORD_ID, ENTITY_ID, SELECTED_RECORD_ID)
-                    If RECORD_ID = 0 Then
+                    Dim DT_VARIANT As DataTable = ClassDatabase.Return_Datatable(sel)
-                        'RUN_WD_SEARCH(WD_Suche, "ENTITY")
+                    If DT_VARIANT.Rows.Count > 0 Then
-                        RUN_WDSEARCH_GRID("ENTITY")
+                        XtraTabPageVariant.PageVisible = True
+                        Dim msg = "Vorgängervarianten"
+                        If USER_LANGUAGE <> "de-DE" Then
+                            msg = "Pre variants"
+                        End If
+                        XtraTabPageVariant.Text = String.Format(msg & " ({0})", DT_VARIANT.Rows.Count)
                     Else
-                        RUN_WDSEARCH_GRID("RECORD")
+                        XtraTabPageVariant.PageVisible = False
-                        ' RUN_WD_SEARCH(WD_Suche, "RECORD")
                     End If
-                Case 2
+                    If DOC_SEARCH_TAB1 = True Then
+                        DocSearch_Decision()
+                    End If
+
+                Case "TabWindream"
+                    DocSearch_Decision()
+                Case "TabFollowUp"
                     tsButtonEdit.Enabled = False
                     Refresh_FollowUps()
                     dtpFollowUp.Enabled = False
@@ -3254,6 +3290,15 @@ Public Class frmConstructor_Main
         End Try
 
     End Sub
+    Sub DocSearch_Decision()
+        If RECORD_ID = 0 Then
+            'RUN_WD_SEARCH(WD_Suche, "ENTITY")
+            RUN_WDSEARCH_GRID("ENTITY")
+        Else
+            RUN_WDSEARCH_GRID("RECORD")
+            ' RUN_WD_SEARCH(WD_Suche, "RECORD")
+        End If
+    End Sub
     Sub Reload_Entity_while_Control_Load()
         Dim result As MsgBoxResult
         Dim stg As String
@@ -3414,49 +3459,6 @@ Public Class frmConstructor_Main
 
         End Try
     End Function
-    'Sub Get_Selected_Record()
-    '    Select Case EDIT_STATE
-    '        Case EditState.None
-    '            'Ganz normalerDatensatzwechsel Wechsel
-    '            Show_Selected_Record_Data("Record-ID")
-    '            'Refresh_Treeview_SelectedData()
-
-    '            Update_Status_Label(False)
-    '            'tslblStatusMain_show(False, "")
-    '        Case EditState.Insert
-    '            'Refresh_Treeview_SelectedData()
-    '        Case EditState.Update
-    '            ' Refresh_Treeview_SelectedData()
-    '    End Select
-    '    Select Case TCDetails.SelectedTabPageIndex
-    '        Case 0
-    '            'Die Values in die Controls laden
-    '            If EDIT_STATE = EditState.None Then
-    '                'TabPageDetails.Text = "Detaileingabe zu '" & ACT_EBENE_STRING & "' - Record(" & SelectedRecordID & ")"
-    '                'Die Daten auf dem Panel laden
-    '                ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, FORM_ID, CtrlBuilder.AllControls)
-    '                'Load_Control_Values(CtrlBuilder.AllControls)
-    '                'Refresh_Treeview_SelectedData()
-    '                RECORD_CHANGED = False
-    '            End If
-    '        Case 1
-    '            RUN_WD_SEARCH(WD_Suche, "RECORD")
-    '        Case 2
-    '            'If FOLLOW_UPisActive = True Then Refresh_FollowUps()
-    '    End Select
-    '    'DT_FU_Record = Nothing
-    '    'VerknüpfungenToolStripMenuItem.Enabled = True
-    '    Update_Record_Label(SELECTED_RECORD_ID)
-
-    '    If FOLLOW_UPisActive = True Then Refresh_FollowUp_TabHeader()
-
-    '    Show_act_WFTask()
-    '    Get_RecordCounts_Nodes()
-    '    pnlDetails.Enabled = False
-
-    '    Refresh_TaskOverview()
-    'End Sub
-
     Private Sub Refresh_FollowUp_TabHeader()
         Try
             DT_FU_Record = ClassDatabase.Return_Datatable("select * from VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD where Record_ID = " & RECORD_ID, "Refresh FollowUp TabHeader")
@@ -3670,7 +3672,7 @@ Public Class frmConstructor_Main
                 Dim selnode As TreeNode = TreeViewMain.SelectedNode
                 Dim NODE_TEXT As String = selnode.Text
 
-                Dim msg = "Windream-Dokumente für Record: " & RECORD_ID
+                Dim msg = "Dateien für Record: " & RECORD_ID
                 If Type = "ENTITY" Then
                     selnode = TreeViewMain.SelectedNode
                     Dim Entitystring
@@ -3679,9 +3681,9 @@ Public Class frmConstructor_Main
                     Else
                         Entitystring = selnode.Text
                     End If
-                    msg = "Windream-Dokumente für Entität: " & Entitystring
+                    msg = "Dateien für Entität: " & Entitystring
                     If USER_LANGUAGE <> "de-DE" Then
-                        msg = "windream-files for entity: " & Entitystring
+                        msg = "files for entity: " & Entitystring
                     End If
                     msg &= " (" & DT_RESULT.Rows.Count.ToString & ")"
                 ElseIf Type = "RECORD" Then
@@ -3702,9 +3704,9 @@ Public Class frmConstructor_Main
                         msg &= " (" & DT_RESULT.Rows.Count.ToString & ")"
                     End If
                 Else
-                    msg = String.Format("Dateien für Volltextsuche")
+                    msg = String.Format("Ergebnis der Volltextsuche")
                     If USER_LANGUAGE <> "de-DE" Then
-                        msg = String.Format("Files for Fulltext-Search")
+                        msg = String.Format("Result of Fulltext-Search")
                     End If
                     msg &= " (" & DT_RESULT.Rows.Count.ToString & ")"
                 End If
@@ -3723,10 +3725,6 @@ Public Class frmConstructor_Main
                        AddressOf OnTextSelectedValueChanged,
                        AddressOf OnCheckboxValueChanged,
                        Type)
-
-                    If TCDetails.SelectedTabPageIndex <> 1 Then
-                        TCDetails.SelectedTabPageIndex = 1
-                    End If
                 End If
             Else
                 Dim selnode As TreeNode = TreeViewMain.SelectedNode
@@ -3742,7 +3740,7 @@ Public Class frmConstructor_Main
                     End If
                     msg = "Keine Dateien für Entität: " & Entitystring & " gefunden"
                     If USER_LANGUAGE <> "de-DE" Then
-                        msg = "No windream-files found for entity: " & Entitystring
+                        msg = "No files found for entity: " & Entitystring
                     End If
                 ElseIf Type = "RECORD" Then
                     If NODE_NAVIGATION Then
@@ -3762,7 +3760,7 @@ Public Class frmConstructor_Main
                 Else
                     msg = "Keine Dateien für Volltextsuche gefunden"
                     If USER_LANGUAGE <> "de-DE" Then
-                        msg = "No windream-files found for fulltext-search"
+                        msg = "No files found for fulltext-search"
                     End If
                 End If
 
@@ -3983,9 +3981,9 @@ Public Class frmConstructor_Main
 
             'AxObjectListControl.RemoveAllColumnHeader()
             'Me.AxObjectListControl.ClearResultList()
-            Dim stg As String = "windream-Dateien"
+            Dim stg As String = "Dateien"
             If USER_LANGUAGE <> "de-DE" Then
-                stg = "windream-files"
+                stg = "files"
             End If
             TabWindream.Text = stg
             Dim elapsed As Double
@@ -4140,9 +4138,11 @@ Public Class frmConstructor_Main
             lblWiedervorlage_Control.Text = "<< Waiting for Selection:"
             'Check_FOLLOWUP_IsConfigured(ENTITY_ID)
         End If
-
+        If TCDetails.SelectedTabPage.Name = "XtraTabPageVariant" Then
-        Select Case TCDetails.SelectedTabPageIndex
+            XtraTabPageVariant_Open()
-            Case 0
+        End If
+        Select Case TCDetails.SelectedTabPage.Name
+            Case "TabDetails"
                 If NODE_NAVIGATION = False Then
                     Column_Row_Handler(RECORD_ID, False, True)
                 End If
@@ -4154,13 +4154,22 @@ Public Class frmConstructor_Main
 
                 'Refresh_CreatedChangedRecordByID(RECORD_ID)
                 ' RECORD_CHANGED = False
-            Case 1 'windream-Dokumente
+                If DOC_SEARCH_TAB1 = True Then
+                    BACKGROUND_HELPER.PictureAlignment = ContentAlignment.BottomRight
+                End If
+            Case "TabWindream" 'Dateien
                 BACKGROUND_HELPER.PictureAlignment = ContentAlignment.BottomRight
-
+            Case "TabFollowUp"
-            Case 2
                 'Refresh_FollowUps()
         End Select
     End Sub
+    Sub XtraTabPageVariant_Open()
+        Try
+
+        Catch ex As Exception
+
+        End Try
+    End Sub
     Private Sub Refresh_FollowUps()
 
         Try
@@ -6175,4 +6184,12 @@ Public Class frmConstructor_Main
             LocateRecordById(CURRENT_RECORD_ID)
         End If
     End Sub
+
+    Private Sub tsbtnDeleteRecord_Click(sender As Object, e As EventArgs) Handles tsbtnDeleteRecord.Click
+        Delete_Record()
+    End Sub
+
+    Private Sub tsbtnRefresh_Entity_Click(sender As Object, e As EventArgs) Handles tsbtnRefresh_Entity.Click
+        Refresh_Entity_Data()
+    End Sub
 End Class

app/DD-Record-Organiser/frmGoogle.Designer.vb

@@ -0,0 +1,148 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmGoogle
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim ImageTilesLayer1 As DevExpress.XtraMap.ImageTilesLayer = New DevExpress.XtraMap.ImageTilesLayer()
+        Dim BingMapDataProvider1 As DevExpress.XtraMap.BingMapDataProvider = New DevExpress.XtraMap.BingMapDataProvider()
+        Dim MiniMap1 As DevExpress.XtraMap.MiniMap = New DevExpress.XtraMap.MiniMap()
+        Dim FixedMiniMapBehavior1 As DevExpress.XtraMap.FixedMiniMapBehavior = New DevExpress.XtraMap.FixedMiniMapBehavior()
+        Dim MiniMapImageTilesLayer1 As DevExpress.XtraMap.MiniMapImageTilesLayer = New DevExpress.XtraMap.MiniMapImageTilesLayer()
+        Dim BingMapDataProvider2 As DevExpress.XtraMap.BingMapDataProvider = New DevExpress.XtraMap.BingMapDataProvider()
+        Dim MiniMapVectorItemsLayer1 As DevExpress.XtraMap.MiniMapVectorItemsLayer = New DevExpress.XtraMap.MiniMapVectorItemsLayer()
+        Dim MapItemStorage1 As DevExpress.XtraMap.MapItemStorage = New DevExpress.XtraMap.MapItemStorage()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.txtAdress = New System.Windows.Forms.TextBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
+        Me.cmbType = New System.Windows.Forms.ComboBox()
+        Me.MapControl1 = New DevExpress.XtraMap.MapControl()
+        CType(Me.MapControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(12, 12)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(38, 13)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Label1"
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
+        '
+        'txtAdress
+        '
+        Me.txtAdress.Location = New System.Drawing.Point(56, 9)
+        Me.txtAdress.Name = "txtAdress"
+        Me.txtAdress.Size = New System.Drawing.Size(282, 21)
+        Me.txtAdress.TabIndex = 2
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(489, 7)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 3
+        Me.Button1.Text = "Button1"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'WebBrowser1
+        '
+        Me.WebBrowser1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.WebBrowser1.Location = New System.Drawing.Point(15, 38)
+        Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
+        Me.WebBrowser1.Name = "WebBrowser1"
+        Me.WebBrowser1.Size = New System.Drawing.Size(671, 344)
+        Me.WebBrowser1.TabIndex = 4
+        '
+        'cmbType
+        '
+        Me.cmbType.FormattingEnabled = True
+        Me.cmbType.Items.AddRange(New Object() {"Map", "Satellite", "Hybrid", "Terrain", "Google Earth"})
+        Me.cmbType.Location = New System.Drawing.Point(344, 9)
+        Me.cmbType.Name = "cmbType"
+        Me.cmbType.Size = New System.Drawing.Size(139, 21)
+        Me.cmbType.TabIndex = 5
+        '
+        'MapControl1
+        '
+        Me.MapControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.MapControl1.CenterPoint = New DevExpress.XtraMap.GeoPoint(45.0R, 16.0R)
+        BingMapDataProvider1.BingKey = "hQUTlqLLK70bETnonpfi~0jx1pIAq1yQ7gXqbIyzKrg~Au-Tewbty8afAxdbNilSv4JlU7qwU-fQKu0ou" & _
+    "H9e1uJmpIyVdA3jugVEWMdy1Rbt"
+        BingMapDataProvider1.Kind = DevExpress.XtraMap.BingMapKind.Road
+        BingMapDataProvider1.TileSource = Nothing
+        ImageTilesLayer1.DataProvider = BingMapDataProvider1
+        Me.MapControl1.Layers.Add(ImageTilesLayer1)
+        Me.MapControl1.Location = New System.Drawing.Point(719, 38)
+        MiniMap1.Alignment = DevExpress.XtraMap.MiniMapAlignment.BottomRight
+        FixedMiniMapBehavior1.CenterPoint = New DevExpress.XtraMap.GeoPoint(45.0R, 18.0R)
+        MiniMap1.Behavior = FixedMiniMapBehavior1
+        BingMapDataProvider2.BingKey = "YOUR BING MAPS KEY"
+        BingMapDataProvider2.TileSource = Nothing
+        MiniMapImageTilesLayer1.DataProvider = BingMapDataProvider2
+        MiniMapVectorItemsLayer1.Data = MapItemStorage1
+        MiniMap1.Layers.Add(MiniMapImageTilesLayer1)
+        MiniMap1.Layers.Add(MiniMapVectorItemsLayer1)
+        Me.MapControl1.MiniMap = MiniMap1
+        Me.MapControl1.Name = "MapControl1"
+        Me.MapControl1.Size = New System.Drawing.Size(659, 344)
+        Me.MapControl1.TabIndex = 6
+        Me.MapControl1.ZoomLevel = 10.0R
+        '
+        'frmGoogle
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1390, 394)
+        Me.Controls.Add(Me.MapControl1)
+        Me.Controls.Add(Me.cmbType)
+        Me.Controls.Add(Me.WebBrowser1)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.txtAdress)
+        Me.Controls.Add(Me.Label1)
+        Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Name = "frmGoogle"
+        Me.Text = "frmGoogle"
+        CType(Me.MapControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents txtAdress As System.Windows.Forms.TextBox
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser
+    Friend WithEvents cmbType As System.Windows.Forms.ComboBox
+    Friend WithEvents MapControl1 As DevExpress.XtraMap.MapControl
+End Class

app/DD-Record-Organiser/frmGoogle.resx

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

app/DD-Record-Organiser/frmGoogle.vb

@@ -0,0 +1,79 @@
+Imports System.Web
+Imports System.Text
+Imports DevExpress.XtraMap
+
+Public Class frmGoogle
+
+
+    Private ReadOnly Property SearchLayer() As InformationLayer
+        Get
+            Return CType(MapControl1.Layers("SearchLayer"), InformationLayer)
+        End Get
+    End Property
+    Private ReadOnly Property SearchProvider() As BingSearchDataProvider
+        Get
+            Return CType(SearchLayer.DataProvider, BingSearchDataProvider)
+        End Get
+    End Property
+
+    Private Sub SearchLayer_DataRequestCompleted(ByVal sender As Object, ByVal e As RequestCompletedEventArgs)
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        ' Get the Google maps URL with defult zoom.
+        Dim url = GoogleMapUrl(txtAdress.Text, cmbType.Text, 0)
+
+        ' Display the URL in the WebBrowser control.
+        WebBrowser1.Navigate(url)
+        SearchProvider.Search(txtAdress.Text)
+        MapControl1.ZoomToFitLayerItems()
+    End Sub
+
+    Private Function GoogleMapUrl(query As String, map_type As String, zoom As Integer)
+
+        ' Start with the base map URL.
+        Dim _url As String = "http://maps.google.com/maps?"
+
+        '  Add the query.
+        _url &= "q=" + HttpUtility.UrlEncode(query, Encoding.UTF8)
+
+        'Add the type.
+        map_type = GoogleMapTypeCode(map_type)
+        If Not IsNothing(map_type) Then
+            _url += "&t=" + map_type
+        End If
+
+
+        'Add the zoom level.
+        If (zoom > 0) Then
+            _url += "&z=" + zoom.ToString()
+        End If
+
+
+        Return _url
+    End Function
+    ' Return a Google map type code.
+    Private Function GoogleMapTypeCode(map_type As String)
+        ' Insert the proper type.
+        Select Case map_type
+            Case "Map"
+                Return "m"
+            Case "Satellite"
+                Return "k"
+            Case "Hybrid"
+                Return "h"
+            Case "Terrain"
+                Return "p"
+            Case "Google Earth"
+                Return "e"
+            Case Else
+                Return Nothing
+        End Select
+    End Function
+
+    Private Sub frmGoogle_Load(sender As Object, e As EventArgs) Handles Me.Load
+        InitializeComponent()
+        ' AddHandler SearchLayer.DataRequestCompleted, AddressOf SearchLayer_DataRequestCompleted
+    End Sub
+End Class

app/DD-Record-Organiser/frmMain.Designer.vb

@@ -22,25 +22,25 @@ Partial Class frmMain
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
-        Me.NotifyIcon = New System.Windows.Forms.NotifyIcon()
+        Me.NotifyIcon = New System.Windows.Forms.NotifyIcon(Me.components)
-        Me.cmsSystray = New System.Windows.Forms.ContextMenuStrip()
+        Me.cmsSystray = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ADDIBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.CockpitAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.TimerTasks = New System.Windows.Forms.Timer()
+        Me.TimerTasks = New System.Windows.Forms.Timer(Me.components)
         Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet()
-        Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource()
+        Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
         Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager()
         Me.ribbonMain = New DevExpress.XtraBars.Ribbon.RibbonControl()
-        Me.MainMenu = New DevExpress.XtraBars.Ribbon.ApplicationMenu()
+        Me.MainMenu = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components)
         Me.itemSettings = New DevExpress.XtraBars.BarButtonItem()
         Me.itemInfo = New DevExpress.XtraBars.BarButtonItem()
         Me.itemAbout = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem19 = New DevExpress.XtraBars.BarButtonItem()
         Me.itemExit = New DevExpress.XtraBars.BarButtonItem()
         Me.LabelMachine = New DevExpress.XtraBars.BarStaticItem()
-        Me.LabelUser = New DevExpress.XtraBars.BarStaticItem()
         Me.LabelLoggedIn = New DevExpress.XtraBars.BarStaticItem()
         Me.LabelVersion = New DevExpress.XtraBars.BarStaticItem()
         Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
@@ -68,9 +68,13 @@ Partial Class frmMain
         Me.BarButtonItem22 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem23 = New DevExpress.XtraBars.BarButtonItem()
+        Me.LabelUser = New DevExpress.XtraBars.BarButtonItem()
+        Me.RibbonPageCategory1 = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
         Me.pageHome = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.groupQuickAccessForm = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.groupSearchAllOver = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.pageForms = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.groupQuickAccessForm2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.pageAdmin = New DevExpress.XtraBars.Ribbon.RibbonPage()
@@ -79,10 +83,13 @@ Partial Class frmMain
         Me.RibbonPageGroupMenue = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
-        Me.DefaultLookAndFeel1 = New DevExpress.LookAndFeel.DefaultLookAndFeel()
+        Me.DefaultLookAndFeel1 = New DevExpress.LookAndFeel.DefaultLookAndFeel(Me.components)
         Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem()
-        Me.TimerClose3Minutes = New System.Windows.Forms.Timer()
+        Me.TimerClose3Minutes = New System.Windows.Forms.Timer(Me.components)
         Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
+        Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.BarButtonItem24 = New DevExpress.XtraBars.BarButtonItem()
         Me.cmsSystray.SuspendLayout()
         CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -179,10 +186,11 @@ Partial Class frmMain
         Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu
         Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray
         Me.ribbonMain.ExpandCollapseItem.Id = 0
-        Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelUser, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes, Me.BarSubItem1, Me.BarButtonItem14, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemAbout, Me.BarButtonItem19})
+        Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes, Me.BarSubItem1, Me.BarButtonItem14, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemAbout, Me.BarButtonItem19, Me.BarButtonItem23, Me.LabelUser, Me.BarButtonItem24})
         resources.ApplyResources(Me.ribbonMain, "ribbonMain")
-        Me.ribbonMain.MaxItemId = 1
+        Me.ribbonMain.MaxItemId = 7
         Me.ribbonMain.Name = "ribbonMain"
+        Me.ribbonMain.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategory1})
         Me.ribbonMain.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.pageHome, Me.pageForms, Me.pageAdmin})
         Me.ribbonMain.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.Office2010
         Me.ribbonMain.StatusBar = Me.RibbonStatusBar1
@@ -241,14 +249,6 @@ Partial Class frmMain
         Me.LabelMachine.Name = "LabelMachine"
         Me.LabelMachine.TextAlignment = System.Drawing.StringAlignment.Near
         '
-        'LabelUser
-        '
-        resources.ApplyResources(Me.LabelUser, "LabelUser")
-        Me.LabelUser.Glyph = Global.DD_Record_Organiser.My.Resources.Resources.user_16xLG
-        Me.LabelUser.Id = 4
-        Me.LabelUser.Name = "LabelUser"
-        Me.LabelUser.TextAlignment = System.Drawing.StringAlignment.Near
-        '
         'LabelLoggedIn
         '
         resources.ApplyResources(Me.LabelLoggedIn, "LabelLoggedIn")
@@ -457,9 +457,29 @@ Partial Class frmMain
         Me.BarButtonItem9.Id = 45
         Me.BarButtonItem9.Name = "BarButtonItem9"
         '
+        'BarButtonItem23
+        '
+        resources.ApplyResources(Me.BarButtonItem23, "BarButtonItem23")
+        Me.BarButtonItem23.Glyph = CType(resources.GetObject("BarButtonItem23.Glyph"), System.Drawing.Image)
+        Me.BarButtonItem23.Id = 2
+        Me.BarButtonItem23.LargeGlyph = CType(resources.GetObject("BarButtonItem23.LargeGlyph"), System.Drawing.Image)
+        Me.BarButtonItem23.Name = "BarButtonItem23"
+        '
+        'LabelUser
+        '
+        resources.ApplyResources(Me.LabelUser, "LabelUser")
+        Me.LabelUser.Glyph = Global.DD_Record_Organiser.My.Resources.Resources.user_16xLG
+        Me.LabelUser.Id = 4
+        Me.LabelUser.Name = "LabelUser"
+        '
+        'RibbonPageCategory1
+        '
+        Me.RibbonPageCategory1.Name = "RibbonPageCategory1"
+        resources.ApplyResources(Me.RibbonPageCategory1, "RibbonPageCategory1")
+        '
         'pageHome
         '
-        Me.pageHome.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.groupQuickAccessForm})
+        Me.pageHome.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.groupQuickAccessForm, Me.groupSearchAllOver})
         Me.pageHome.Image = Global.DD_Record_Organiser.My.Resources.Resources.HomeHS
         Me.pageHome.Name = "pageHome"
         resources.ApplyResources(Me.pageHome, "pageHome")
@@ -477,11 +497,17 @@ Partial Class frmMain
         Me.groupQuickAccessForm.Name = "groupQuickAccessForm"
         resources.ApplyResources(Me.groupQuickAccessForm, "groupQuickAccessForm")
         '
+        'groupSearchAllOver
+        '
+        Me.groupSearchAllOver.ItemLinks.Add(Me.BarButtonItem23)
+        Me.groupSearchAllOver.Name = "groupSearchAllOver"
+        resources.ApplyResources(Me.groupSearchAllOver, "groupSearchAllOver")
+        '
         'pageForms
         '
         Me.pageForms.Appearance.BackColor = CType(resources.GetObject("pageForms.Appearance.BackColor"), System.Drawing.Color)
         Me.pageForms.Appearance.Options.UseBackColor = True
-        Me.pageForms.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.groupQuickAccessForm2})
+        Me.pageForms.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.groupQuickAccessForm2, Me.RibbonPageGroup4})
         Me.pageForms.Image = Global.DD_Record_Organiser.My.Resources.Resources.application_form
         Me.pageForms.Name = "pageForms"
         resources.ApplyResources(Me.pageForms, "pageForms")
@@ -570,6 +596,25 @@ Partial Class frmMain
         Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
         resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
         '
+        'BarStaticItem1
+        '
+        resources.ApplyResources(Me.BarStaticItem1, "BarStaticItem1")
+        Me.BarStaticItem1.Id = 6
+        Me.BarStaticItem1.Name = "BarStaticItem1"
+        Me.BarStaticItem1.TextAlignment = System.Drawing.StringAlignment.Near
+        '
+        'RibbonPageGroup4
+        '
+        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem24)
+        Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
+        resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4")
+        '
+        'BarButtonItem24
+        '
+        resources.ApplyResources(Me.BarButtonItem24, "BarButtonItem24")
+        Me.BarButtonItem24.Id = 6
+        Me.BarButtonItem24.Name = "BarButtonItem24"
+        '
         'frmMain
         '
         Me.Appearance.BackColor = CType(resources.GetObject("frmMain.Appearance.BackColor"), System.Drawing.Color)
@@ -603,7 +648,6 @@ Partial Class frmMain
     Friend WithEvents pageForms As DevExpress.XtraBars.Ribbon.RibbonPage
     Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
     Friend WithEvents LabelMachine As DevExpress.XtraBars.BarStaticItem
-    Friend WithEvents LabelUser As DevExpress.XtraBars.BarStaticItem
     Friend WithEvents LabelLoggedIn As DevExpress.XtraBars.BarStaticItem
     Friend WithEvents LabelVersion As DevExpress.XtraBars.BarStaticItem
     Friend WithEvents pageAdmin As DevExpress.XtraBars.Ribbon.RibbonPage
@@ -654,6 +698,13 @@ Partial Class frmMain
     Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents itemAbout As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem19 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents RibbonPageCategory1 As DevExpress.XtraBars.Ribbon.RibbonPageCategory
+    Friend WithEvents BarButtonItem23 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents groupSearchAllOver As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents LabelUser As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents BarButtonItem24 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
 
 End Class
 

app/DD-Record-Organiser/frmMain.resx

@@ -1359,9 +1359,6 @@
   <data name="LabelMachine.Caption" xml:space="preserve">
     <value>StatusMachine</value>
   </data>
-  <data name="LabelUser.Caption" xml:space="preserve">
-    <value>StatusUser</value>
-  </data>
   <data name="LabelLoggedIn.Caption" xml:space="preserve">
     <value>StatusLoggedIn</value>
   </data>
@@ -2126,15 +2123,97 @@ Konfiguration</value>
   <data name="BarButtonItem9.Caption" xml:space="preserve">
     <value>Resultlist Config</value>
   </data>
+  <data name="BarButtonItem23.Caption" xml:space="preserve">
+    <value>Globale Suche</value>
+  </data>
+  <data name="BarButtonItem23.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACZ0RVh0VGl0
+        bGUARmluZDtCYXJzO1JpYmJvbjtTdGFuZGFyZDtTZWFyY2i7ZZwIAAAC7klEQVQ4T6WTe0iTURjGP+1i
+        miD0RzdJCkVRA7EbzUuSRowuaGgNW27aalhupTOzpXYxL5kVol3I0UKtxJmbbLWZVJRlYJdptnIrU0uz
+        tVIso6kVT+9nGQX+UfTCj+98z3Pe853zfu9hAPwXv4cDMZGYTEwiHImxYL0x/gz5sSvsw3FT0hFPWb7a
+        kFagHdmRo7oaJcjwIX1iWn61x76iel1mcf2w/LheJ8ks9yDdQZZfy+YxjOzw6MBJkq26e+fBC5jbe6Gs
+        aoDkoGqYdNfM4rqhpkddeNb5FqfPX0NyrrqB9AmS/dVs3mg4xiTkLj9UUgfru0E0NFlQUFIFsfwie0Dv
+        3YWX0f1mAJYOG85VXock6yLiUk5yyPt1HCf+zlPnawwt6Ozuh+HWE0h2lyAsOhuLV6YiamsxLF3vYe54
+        hwu1d5C4RwF+suIs5bH1ok8ERMyJT6sYMj23wtjWC5XhIQRJhQhak4UNwjysFhbCaH4LU7sNl642Q5px
+        Bjypwh4QHDOd0h2YtcLC8grNPfR/tOPL12941mXD3hwlFnPTsWSZGCtic9FssaJvwI7hka8wmjrBEx/B
+        0tWppbTAJCZSdGKox/qBtteKaIkKlXoT6m8+REB4Cub6rkHougPoJr+s5jEiE9Uo05qg0Tdi4QqpnRZw
+        Zrj8oi+fPg+BL1NDrHkDwX4tFXOAdrCLLSJ3fVIpBsnfkKzFFo0Vsfv0VCsb/EJEI+RPZcJicjoetXVD
+        qTaCJ9dAqWvB7aY2+AYldNEE91WCo+bWtldQ1LQgOl2HUm0rGu8/hecCnoV8F2Z+iFCafKAC1xtNePm6
+        D4YbzRClFGG2d3g6TXDjcFNEsoNluHHXhB5rP+roeHHb8zDLOyKefLZjGTevwBiZf2ii2S90G7wWbbTM
+        9ApLI30aMYGY4s8RbPYP3tLsw0nAvMD1LbN8IkSkOxOjvcD2vAvB/hZ3YgYxlRi7C+wk9n6wmhvh+vP9
+        RyONd8P+hXHFvwfMd61HCl7ECOjpAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="BarButtonItem23.LargeGlyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACZ0RVh0VGl0
+        bGUARmluZDtCYXJzO1JpYmJvbjtTdGFuZGFyZDtTZWFyY2i7ZZwIAAAJwElEQVRYR8VWaVSU1xm2xsZU
+        GxNrUk2aNuk5OWmO2TUtNmIkLoBRgohsKiKbw6YzRHRAYJBFdlCWYd9hQJYxMDACsgyLyKo4sq/DAAPI
+        GjfEEHx671fGpi1J/JW85zxz73zf8977vPfe733vMgC/KpZ8+EviP52ft98sts9qP8l/VgF0kOUEz/0A
+        9P9Sg9NnSv4PfZbk/5wAZqC80sYdorLm/JyiRkVaXo0i5lJ5vl+kcBd5t4K+p8RFY/jRGSU7ErIr82Mz
+        JYro9DJFeMrVfL+IJfk/KYAZ7IrklnNVUxfkI5OYufsQgyPTqKrvQEKWBN5hQlfC+S3lKflxmeXO+eXN
+        kCsm0SefQP7VOpRfb4VAdB1+UXlK/tOV+CkByzNE1TtLaloXZIopPHg4h4np+7jVOQhhQQ3EJXWIu1S+
+        YO4QpIzsudDEArXswoaFqZn7ZCigs28UobFCxKQWoL1vBAnZFQtsHl9jkc+I+K95w5KLl/XI79Aufbki
+        I7+2pvy6FL3yO5id+w7y4QlU1neBn5iHhPQilNW1w8Y16hrhvkDwPD+tpKq6kawWiZ5at2wMkUlinHYL
+        R1ltGyrqO2HvHldLuCsJllc1di077hhGuosWGFuwTNo5RLvLfcMzN6fmXluQ1LVBNjSBucfz6CBR5BY2
+        wDdUgORLpZDUdeA4N/Qe4a8iWHkh8crdoupbDJ8abeMFV8FxCkTmleuMCA4vasHA0kWF8JlVMGEHkmbR
+        PMOFtGGi94/OvZCYXYqqxk6M3JkmW/AIdc29SMmugKtPNJKzy3FFIsVBS/c5wn+RYNW5CxlzOYX1JPIR
+        RsDQyBTiBCVgcwPhG56B3NIm8ILTYHzSN5Tw6aot12d5kWbRnALTabP8b+9tXuURmj0Smy5GU0sf2ft7
+        mCQoqpIiIl4Ee+eLSBKWI4CfiS90bPGhyv4vd+lYaxy0cEO0oBCtXYOMgJE7M4jLKAfb8QJsHQKQQ1Yh
+        LKUQh0/6jb6y4c8vk7mengWlMdHbOIZouQQKkHq5ErfaBvBwdo4s5zjS82pwzi8ZrK99EBAlJK0fVPey
+        sGXHMew3dsYBcx78I7LQKO1hBIxNfEu+lgrYu4TDyOIsyOeJkEQxjE94Q9/SRZfMxZwFOrHS6J+VrLP8
+        PO75WMRnFENUVIOm5jZkCEvB80vBcY4PTKx4YLuEwsD0LFR2m2LbHhsYWnlDx9QF7oHJqK5vxfcLC2jt
+        7EdARDZY9n7Q0rfDScdQuPqn4KRrJI6y/cVkLrp1T1eBiX6vkd27Vk78JxzXEFTXSTExOYMnT54wA3b3
+        DSE2+RvompyB3jEnaOqewCa1Q/8WwDoPbZOzOOMZjTwiWtrSic4eGeRDY5if/x7fzc+jjQjKFlWA40YE
+        nPR98s5H2z8mczJngQqgPy+Yn77YcMIpGIqxCdx98AiK8bvoJae5h2BwbAbT92bRL1fgoLEDtqmb4sOt
+        +lDVtIb+cS98ZewI1il/xKbkMYf22/tzGCb+PYMT6CaQj85gkiSzIcU4zE54Yed+mxtkzpcI6CosW6Gu
+        y9po68wnp3ecIYvKOnDSrQAHWJdgYJuDM76lKJB0oodkuP4BBf654wje36KLg8dcYe8Wgb2HuTCydCV7
+        PwOZYgaXr96GpWM6NI6G40vTKNi6ZSOnWIoO2TgGyMocsjqHv76rspkGTgWsPHrCx9snLAP9w5MIjK2G
+        ql4iDnBrcMS7DUd9OnDIrRF6dgWISGsimW0UQWEp2LrHHB5ByUgXlkDXzJXZIhqxd2QxNmkHQY1dDA3X
+        RuzhNUHjdBl2m8YhIE6C290KOLrzoapuHETmXkMFrLZ2DB241SaDsLgVakdS4JXajx7ZLEm/9+EpGAIr
+        TAY7fi+MHa/ickkbOnuHoXXkNDapGlzX0GPXGNt5Q9oxgAzxDfxdPwQO8R1o73+A+va74CT2QiewHQbB
+        LdhnJ4Cg4AbKrkmx19CeZr51VMAam7Oh8x39YzA5kwN93nVMTz7G1MRjdMkeoqRxBpxYOdgxA+BGt8HB
+        XwIpqQtGx91pIv8TwQaLU4Fo6x2DHjseO4nIiYk5jI/PoaXvPnLrJ2HI74JheCfMQ+pgSbajXtqP/Ye5
+        88R3PRXwkjU3BA0tcmhapIAV2Y2B4Udkv2dR23oPOdVTcEobBDdVjoC8ERzjFZHc3oVDLE8q4A2C11in
+        L+DaTRm2HgnGgYu3yMF9iDbZA5TdnkZ8xRjMErthktAFrrAf2pxEFFe3Y5/hKer/OiPAwj7wXgUptXtt
+        0sFO6kV40SiqWu4ir2EaAfmjcBcOw0ekQEjRCEzOFeFKZQv0zHmPlQIs7AMel9V2YvuxEBjF3IaHeACF
+        0imk1t0BN08O26w+cC7L4FIwAK1TicgpaoK6jt19pYA1h6w92r8paoC5pwhWUc1wzR3CefEw/IpHEXB1
+        DIGkjamegJeQVLWLEpIpq6Bl5NBNJydYb3TcrSuzoA6GjknQu1gNq5wecET9cCgcwJkisnqFcvhWKvB1
+        xg2YeWUhJr0U2zXNuqgvFbBa6/CpsKDob5AkaoKBuxg+xUMIkowhtGocMfXjEDRPIYFEY35Bgvi8BngE
+        p2PHPsso4vsKwR/2GXEiyM0HEVnV0DydhFPiHpwtG4Rb5TB8axUIvzmGoJoh6HpkITyzElzPWHyqejCG
+        +lIBK9/9aNtGY+vzs6LSZngnVcHASwy/wi6kNt+BQDqO4NIemASXwif1Gimv9SQjOj964633PyG+vydY
+        /fZ7Kh8etvKczSlsgjO/ABpnEuCUexPhTcOIuDkMnlgKbZ4AzlFipOTWYJe2zaNXX3ub5oHVVADNRi9u
+        /9LU2pYcRnL3Q/TlOrAjSmAccIWBfWQZIoW1SCQl2ZLjj398rscmPlQ9vWZRvKyqfsTOihxGcifERYEE
+        pj6XoOWUgK+cE2Hun4VgQTmi0kphaO6KjZ/s/pr40E/weQKmFtDO2i1q+sbah7gKHql8UWnFzGHJLmwE
+        n5RSp/MJ2KNrP7rpM21Lwn2VQFnRmEJGsO5TVR3zPbqcUa5HHEISxOQ+WE8CqkNQrAgclwhs0zQbfecD
+        NepP9/5pLaCmFLFm/etvv/O5phl/51c2reoH2Nitw8YX+6zaPttlHLlu/ZsbCWctgXJyppoRU4pYu+6P
+        f9moomYYtXX3sfZtGhbYqm4GFbXD7R9v2R/z0trXPiAcGrlycqU/Y0xVJPgdAZ2EqqSJhn5qGwioI92z
+        H96GlUb79Bl9R69plEs/sTcJ3iKg49AD+2P+T005EBVCV4RGRUH79NmPOi7a//rTSCnoGM/i/9QoaSk8
+        qy3lS/H/Rm5QvyqWfPjLAcv+Bd859emhr0AKAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="LabelUser.Caption" xml:space="preserve">
+    <value>StatusUser</value>
+  </data>
+  <data name="BarButtonItem24.Caption" xml:space="preserve">
+    <value>Google</value>
+  </data>
   <data name="ribbonMain.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
+  <data name="RibbonPageCategory1.Text" xml:space="preserve">
+    <value>RibbonPageCategory1</value>
+  </data>
   <data name="RibbonPageGroup2.Text" xml:space="preserve">
     <value>Kalender</value>
   </data>
   <data name="groupQuickAccessForm.Text" xml:space="preserve">
     <value>Views/Sichten</value>
   </data>
+  <data name="groupSearchAllOver.Text" xml:space="preserve">
+    <value>Globale Suche</value>
+  </data>
   <data name="pageHome.Text" xml:space="preserve">
     <value>Home</value>
   </data>
@@ -2144,6 +2223,9 @@ Konfiguration</value>
   <data name="groupQuickAccessForm2.Text" xml:space="preserve">
     <value>Views/Sichten</value>
   </data>
+  <data name="RibbonPageGroup4.Text" xml:space="preserve">
+    <value>Test</value>
+  </data>
   <data name="pageForms.Text" xml:space="preserve">
     <value>Weitere Sichten</value>
   </data>
@@ -2163,13 +2245,13 @@ Konfiguration</value>
     <value>Administration</value>
   </data>
   <data name="ribbonMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1666, 150</value>
+    <value>1326, 150</value>
   </data>
   <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 739</value>
+    <value>0, 743</value>
   </data>
   <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1666, 23</value>
+    <value>1326, 23</value>
   </data>
   <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
     <value>RibbonStatusBar1</value>
@@ -2207,6 +2289,9 @@ Konfiguration</value>
   <data name="RibbonPageGroup3.Text" xml:space="preserve">
     <value>Schnellstart </value>
   </data>
+  <data name="BarStaticItem1.Caption" xml:space="preserve">
+    <value>StatusVersion</value>
+  </data>
   <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
@@ -2220,7 +2305,7 @@ Konfiguration</value>
     <value>6, 13</value>
   </data>
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>1666, 762</value>
+    <value>1326, 766</value>
   </data>
   <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 8.25pt</value>
@@ -3210,12 +3295,6 @@ Konfiguration</value>
   <data name="&gt;&gt;LabelMachine.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="&gt;&gt;LabelUser.Name" xml:space="preserve">
-    <value>LabelUser</value>
-  </data>
-  <data name="&gt;&gt;LabelUser.Type" xml:space="preserve">
-    <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
   <data name="&gt;&gt;LabelLoggedIn.Name" xml:space="preserve">
     <value>LabelLoggedIn</value>
   </data>
@@ -3378,6 +3457,24 @@ Konfiguration</value>
   <data name="&gt;&gt;BarButtonItem9.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;BarButtonItem23.Name" xml:space="preserve">
+    <value>BarButtonItem23</value>
+  </data>
+  <data name="&gt;&gt;BarButtonItem23.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;LabelUser.Name" xml:space="preserve">
+    <value>LabelUser</value>
+  </data>
+  <data name="&gt;&gt;LabelUser.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageCategory1.Name" xml:space="preserve">
+    <value>RibbonPageCategory1</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageCategory1.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.Ribbon.RibbonPageCategory, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;pageHome.Name" xml:space="preserve">
     <value>pageHome</value>
   </data>
@@ -3396,6 +3493,12 @@ Konfiguration</value>
   <data name="&gt;&gt;groupQuickAccessForm.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;groupSearchAllOver.Name" xml:space="preserve">
+    <value>groupSearchAllOver</value>
+  </data>
+  <data name="&gt;&gt;groupSearchAllOver.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;pageForms.Name" xml:space="preserve">
     <value>pageForms</value>
   </data>
@@ -3462,6 +3565,24 @@ Konfiguration</value>
   <data name="&gt;&gt;RibbonPageGroup3.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;BarStaticItem1.Name" xml:space="preserve">
+    <value>BarStaticItem1</value>
+  </data>
+  <data name="&gt;&gt;BarStaticItem1.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageGroup4.Name" xml:space="preserve">
+    <value>RibbonPageGroup4</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageGroup4.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;BarButtonItem24.Name" xml:space="preserve">
+    <value>BarButtonItem24</value>
+  </data>
+  <data name="&gt;&gt;BarButtonItem24.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmMain</value>
   </data>

app/DD-Record-Organiser/frmMain.vb

@@ -836,4 +836,13 @@ Public Class frmMain
             ribbonMain.Minimized = False
         End If
     End Sub
+
+    Private Sub BarButtonItem23_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem23.ItemClick
+        OpenSearchAllOVer()
+
+    End Sub
+
+    Private Sub BarButtonItem24_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem24.ItemClick
+        frmGoogle.ShowDialog()
+    End Sub
 End Class

app/DD-Record-Organiser/frmNewVariant.vb

@@ -21,7 +21,7 @@ Public Class frmNewVariant
                         Dim ins = String.Format("INSERT INTO TBPMO_RECORD_VARIANT (RECORD_ID,REASON_CODE,COMMENT,ADDED_WHO) VALUES ({0},'{1}','{2}','{3}')", CURRENT_RECORD_ID, cmbReason.SelectedText, txtComment.Text, Environment.UserName)
                         If ClassDatabase.Execute_non_Query(ins) = True Then
                             Upd = String.Format("UPDATE TBPMO_RECORD SET RECORD_ENTITY_ID = (SELECT RECORD_ENTITY_ID FROM TBPMO_RECORD WHERE GUID = {0}),CHANGED_WHO = '{1}' WHERE GUID = {2}", CURRENT_RECORD_ID, Environment.UserName, REC_ID)
-                            If ClassDatabase.Execute_non_Query(ins) = True Then
+                            If ClassDatabase.Execute_non_Query(Upd) = True Then
                                 CURRENT_RECORD_ID = REC_ID
                                 Me.DialogResult = System.Windows.Forms.DialogResult.OK
                                 Me.Close()

app/DD-Record-Organiser/frmSearchAllOVer.Designer.vb

@@ -0,0 +1,415 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmSearchAllOVer
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSearchAllOVer))
+        Me.ToolStripMain = New System.Windows.Forms.ToolStrip()
+        Me.tsbtnRefresh = New System.Windows.Forms.ToolStripButton()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.rbSearchRecord = New System.Windows.Forms.RadioButton()
+        Me.rbSearchFulltext = New System.Windows.Forms.RadioButton()
+        Me.rbSearchCombined = New System.Windows.Forms.RadioButton()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.txtSearch = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl()
+        Me.SplitContainer2 = New DevExpress.XtraEditors.SplitContainerControl()
+        Me.GridControlRecords = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewRecords = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.ToolStripRecords = New System.Windows.Forms.ToolStrip()
+        Me.tslblRecordsResult = New System.Windows.Forms.ToolStripLabel()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.pnlDetails = New System.Windows.Forms.Panel()
+        Me.GridControlFiles = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewFiles = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.ToolStripDokumente = New System.Windows.Forms.ToolStrip()
+        Me.tslblDocView = New System.Windows.Forms.ToolStripLabel()
+        Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
+        Me.cmsRecords = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ExportExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ShowRecordToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMain.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        Me.GroupBox1.SuspendLayout()
+        CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerMain.SuspendLayout()
+        CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainer2.SuspendLayout()
+        CType(Me.GridControlRecords, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewRecords, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ToolStripRecords.SuspendLayout()
+        CType(Me.GridControlFiles, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewFiles, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ToolStripDokumente.SuspendLayout()
+        Me.cmsRecords.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'ToolStripMain
+        '
+        Me.ToolStripMain.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.ToolStripMain.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnRefresh})
+        Me.ToolStripMain.Location = New System.Drawing.Point(0, 92)
+        Me.ToolStripMain.Name = "ToolStripMain"
+        Me.ToolStripMain.Size = New System.Drawing.Size(1340, 25)
+        Me.ToolStripMain.TabIndex = 1
+        Me.ToolStripMain.Text = "ToolStrip1"
+        '
+        'tsbtnRefresh
+        '
+        Me.tsbtnRefresh.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG
+        Me.tsbtnRefresh.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnRefresh.Name = "tsbtnRefresh"
+        Me.tsbtnRefresh.Size = New System.Drawing.Size(92, 22)
+        Me.tsbtnRefresh.Text = "Starte Suche"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(12, 11)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(504, 13)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "In diesem Formular können Sie systemweit (in Sichten und/oder Dateien) nach Vollt" & _
+    "extbegriffen suchen."
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(703, 112)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(38, 13)
+        Me.Label3.TabIndex = 3
+        Me.Label3.Text = "Label3"
+        '
+        'rbSearchRecord
+        '
+        Me.rbSearchRecord.AutoSize = True
+        Me.rbSearchRecord.Location = New System.Drawing.Point(293, 20)
+        Me.rbSearchRecord.Name = "rbSearchRecord"
+        Me.rbSearchRecord.Size = New System.Drawing.Size(183, 17)
+        Me.rbSearchRecord.TabIndex = 1
+        Me.rbSearchRecord.Text = "Nur in ADDI-Datensätzen suchen"
+        Me.rbSearchRecord.UseVisualStyleBackColor = True
+        '
+        'rbSearchFulltext
+        '
+        Me.rbSearchFulltext.AutoSize = True
+        Me.rbSearchFulltext.Location = New System.Drawing.Point(493, 20)
+        Me.rbSearchFulltext.Name = "rbSearchFulltext"
+        Me.rbSearchFulltext.Size = New System.Drawing.Size(188, 17)
+        Me.rbSearchFulltext.TabIndex = 2
+        Me.rbSearchFulltext.Text = "Nur in Volltext der Dateien suchen"
+        Me.rbSearchFulltext.UseVisualStyleBackColor = True
+        '
+        'rbSearchCombined
+        '
+        Me.rbSearchCombined.AutoSize = True
+        Me.rbSearchCombined.Checked = True
+        Me.rbSearchCombined.Location = New System.Drawing.Point(12, 20)
+        Me.rbSearchCombined.Name = "rbSearchCombined"
+        Me.rbSearchCombined.Size = New System.Drawing.Size(275, 17)
+        Me.rbSearchCombined.TabIndex = 0
+        Me.rbSearchCombined.TabStop = True
+        Me.rbSearchCombined.Text = "Kombinierte Suche (ADDI-Datensätzen und Dateien)"
+        Me.rbSearchCombined.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.txtSearch)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.GroupBox1)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.ToolStripMain)
+        Me.Panel1.Controls.Add(Me.Label3)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(1340, 117)
+        Me.Panel1.TabIndex = 7
+        '
+        'txtSearch
+        '
+        Me.txtSearch.Location = New System.Drawing.Point(15, 50)
+        Me.txtSearch.Name = "txtSearch"
+        Me.txtSearch.Size = New System.Drawing.Size(501, 21)
+        Me.txtSearch.TabIndex = 0
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(15, 31)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(66, 13)
+        Me.Label2.TabIndex = 8
+        Me.Label2.Text = "Suchbegriff:"
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.rbSearchRecord)
+        Me.GroupBox1.Controls.Add(Me.rbSearchFulltext)
+        Me.GroupBox1.Controls.Add(Me.rbSearchCombined)
+        Me.GroupBox1.Location = New System.Drawing.Point(619, 31)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(684, 49)
+        Me.GroupBox1.TabIndex = 7
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Bitte definieren Sie eine Suchvariante:"
+        '
+        'SplitContainerMain
+        '
+        Me.SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
+        Me.SplitContainerMain.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainerMain.Location = New System.Drawing.Point(0, 117)
+        Me.SplitContainerMain.Name = "SplitContainerMain"
+        Me.SplitContainerMain.Panel1.Controls.Add(Me.SplitContainer2)
+        Me.SplitContainerMain.Panel1.Text = "Panel1"
+        Me.SplitContainerMain.Panel2.Controls.Add(Me.GridControlFiles)
+        Me.SplitContainerMain.Panel2.Controls.Add(Me.ToolStripDokumente)
+        Me.SplitContainerMain.Panel2.Text = "Panel2"
+        Me.SplitContainerMain.Size = New System.Drawing.Size(1340, 430)
+        Me.SplitContainerMain.SplitterPosition = 692
+        Me.SplitContainerMain.TabIndex = 8
+        Me.SplitContainerMain.Text = "SplitContainerControl1"
+        '
+        'SplitContainer2
+        '
+        Me.SplitContainer2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer2.Horizontal = False
+        Me.SplitContainer2.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainer2.Name = "SplitContainer2"
+        Me.SplitContainer2.Panel1.Controls.Add(Me.GridControlRecords)
+        Me.SplitContainer2.Panel1.Controls.Add(Me.ToolStripRecords)
+        Me.SplitContainer2.Panel1.Text = "Panel1"
+        Me.SplitContainer2.Panel2.Controls.Add(Me.pnlDetails)
+        Me.SplitContainer2.Panel2.Text = "Panel2"
+        Me.SplitContainer2.Size = New System.Drawing.Size(692, 430)
+        Me.SplitContainer2.SplitterPosition = 236
+        Me.SplitContainer2.TabIndex = 0
+        Me.SplitContainer2.Text = "SplitContainerControl1"
+        '
+        'GridControlRecords
+        '
+        Me.GridControlRecords.ContextMenuStrip = Me.cmsRecords
+        Me.GridControlRecords.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridControlRecords.Location = New System.Drawing.Point(0, 25)
+        Me.GridControlRecords.MainView = Me.GridViewRecords
+        Me.GridControlRecords.Name = "GridControlRecords"
+        Me.GridControlRecords.Size = New System.Drawing.Size(692, 211)
+        Me.GridControlRecords.TabIndex = 0
+        Me.GridControlRecords.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewRecords})
+        '
+        'GridViewRecords
+        '
+        Me.GridViewRecords.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
+        Me.GridViewRecords.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewRecords.GridControl = Me.GridControlRecords
+        Me.GridViewRecords.Name = "GridViewRecords"
+        Me.GridViewRecords.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewRecords.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewRecords.OptionsBehavior.Editable = False
+        Me.GridViewRecords.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewRecords.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewRecords.OptionsSelection.EnableAppearanceFocusedRow = False
+        Me.GridViewRecords.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewRecords.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
+        Me.GridViewRecords.OptionsView.ColumnAutoWidth = False
+        Me.GridViewRecords.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewRecords.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
+        '
+        'ToolStripRecords
+        '
+        Me.ToolStripRecords.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblRecordsResult, Me.ToolStripSeparator1, Me.ToolStripButton1})
+        Me.ToolStripRecords.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStripRecords.Name = "ToolStripRecords"
+        Me.ToolStripRecords.Size = New System.Drawing.Size(692, 25)
+        Me.ToolStripRecords.TabIndex = 0
+        Me.ToolStripRecords.Text = "ToolStrip2"
+        '
+        'tslblRecordsResult
+        '
+        Me.tslblRecordsResult.Name = "tslblRecordsResult"
+        Me.tslblRecordsResult.Size = New System.Drawing.Size(93, 22)
+        Me.tslblRecordsResult.Text = "0 Records found"
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
+        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.Excel_25ixel
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.ToolStripButton1.Size = New System.Drawing.Size(60, 22)
+        Me.ToolStripButton1.Text = "Export"
+        '
+        'pnlDetails
+        '
+        Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnlDetails.Location = New System.Drawing.Point(0, 0)
+        Me.pnlDetails.Name = "pnlDetails"
+        Me.pnlDetails.Size = New System.Drawing.Size(692, 182)
+        Me.pnlDetails.TabIndex = 0
+        '
+        'GridControlFiles
+        '
+        Me.GridControlFiles.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridControlFiles.Location = New System.Drawing.Point(0, 25)
+        Me.GridControlFiles.MainView = Me.GridViewFiles
+        Me.GridControlFiles.Name = "GridControlFiles"
+        Me.GridControlFiles.Size = New System.Drawing.Size(636, 405)
+        Me.GridControlFiles.TabIndex = 4
+        Me.GridControlFiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewFiles})
+        '
+        'GridViewFiles
+        '
+        Me.GridViewFiles.Appearance.EvenRow.BackColor = System.Drawing.Color.Orange
+        Me.GridViewFiles.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewFiles.GridControl = Me.GridControlFiles
+        Me.GridViewFiles.Name = "GridViewFiles"
+        Me.GridViewFiles.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewFiles.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewFiles.OptionsBehavior.Editable = False
+        Me.GridViewFiles.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewFiles.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewFiles.OptionsSelection.EnableAppearanceFocusedRow = False
+        Me.GridViewFiles.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewFiles.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
+        Me.GridViewFiles.OptionsView.ColumnAutoWidth = False
+        Me.GridViewFiles.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewFiles.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
+        '
+        'ToolStripDokumente
+        '
+        Me.ToolStripDokumente.AllowDrop = True
+        Me.ToolStripDokumente.Font = New System.Drawing.Font("Tahoma", 9.0!)
+        Me.ToolStripDokumente.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblDocView, Me.ToolStripButton2})
+        Me.ToolStripDokumente.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStripDokumente.Name = "ToolStripDokumente"
+        Me.ToolStripDokumente.Size = New System.Drawing.Size(636, 25)
+        Me.ToolStripDokumente.TabIndex = 3
+        Me.ToolStripDokumente.Text = "ToolStrip2"
+        '
+        'tslblDocView
+        '
+        Me.tslblDocView.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle))
+        Me.tslblDocView.Name = "tslblDocView"
+        Me.tslblDocView.Size = New System.Drawing.Size(126, 22)
+        Me.tslblDocView.Text = "Windream-Dokumente"
+        '
+        'ToolStripButton2
+        '
+        Me.ToolStripButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.ToolStripButton2.Image = Global.DD_Record_Organiser.My.Resources.Resources.Excel_25ixel
+        Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton2.Name = "ToolStripButton2"
+        Me.ToolStripButton2.Size = New System.Drawing.Size(63, 22)
+        Me.ToolStripButton2.Text = "Export"
+        '
+        'cmsRecords
+        '
+        Me.cmsRecords.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportExcelToolStripMenuItem, Me.ShowRecordToolStripMenuItem})
+        Me.cmsRecords.Name = "cmsRecords"
+        Me.cmsRecords.Size = New System.Drawing.Size(144, 48)
+        '
+        'ExportExcelToolStripMenuItem
+        '
+        Me.ExportExcelToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.Excel_25ixel
+        Me.ExportExcelToolStripMenuItem.Name = "ExportExcelToolStripMenuItem"
+        Me.ExportExcelToolStripMenuItem.Size = New System.Drawing.Size(143, 22)
+        Me.ExportExcelToolStripMenuItem.Text = "Export Excel"
+        '
+        'ShowRecordToolStripMenuItem
+        '
+        Me.ShowRecordToolStripMenuItem.Name = "ShowRecordToolStripMenuItem"
+        Me.ShowRecordToolStripMenuItem.Size = New System.Drawing.Size(143, 22)
+        Me.ShowRecordToolStripMenuItem.Text = "Show Record"
+        '
+        'frmSearchAllOVer
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1340, 547)
+        Me.Controls.Add(Me.SplitContainerMain)
+        Me.Controls.Add(Me.Panel1)
+        Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmSearchAllOVer"
+        Me.Text = "Search all over"
+        Me.ToolStripMain.ResumeLayout(False)
+        Me.ToolStripMain.PerformLayout()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerMain.ResumeLayout(False)
+        CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainer2.ResumeLayout(False)
+        CType(Me.GridControlRecords, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewRecords, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ToolStripRecords.ResumeLayout(False)
+        Me.ToolStripRecords.PerformLayout()
+        CType(Me.GridControlFiles, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewFiles, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ToolStripDokumente.ResumeLayout(False)
+        Me.ToolStripDokumente.PerformLayout()
+        Me.cmsRecords.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents ToolStripMain As System.Windows.Forms.ToolStrip
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents rbSearchRecord As System.Windows.Forms.RadioButton
+    Friend WithEvents rbSearchFulltext As System.Windows.Forms.RadioButton
+    Friend WithEvents rbSearchCombined As System.Windows.Forms.RadioButton
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+    Friend WithEvents SplitContainerMain As DevExpress.XtraEditors.SplitContainerControl
+    Friend WithEvents SplitContainer2 As DevExpress.XtraEditors.SplitContainerControl
+    Friend WithEvents pnlDetails As System.Windows.Forms.Panel
+    Friend WithEvents tsbtnRefresh As System.Windows.Forms.ToolStripButton
+    Friend WithEvents txtSearch As System.Windows.Forms.TextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents GridControlRecords As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewRecords As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents ToolStripRecords As System.Windows.Forms.ToolStrip
+    Friend WithEvents tslblRecordsResult As System.Windows.Forms.ToolStripLabel
+    Friend WithEvents ToolStripDokumente As System.Windows.Forms.ToolStrip
+    Friend WithEvents tslblDocView As System.Windows.Forms.ToolStripLabel
+    Friend WithEvents GridControlFiles As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewFiles As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents cmsRecords As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents ExportExcelToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ShowRecordToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+End Class

app/DD-Record-Organiser/frmSearchAllOVer.resx

@@ -0,0 +1,185 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ToolStripMain.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="cmsRecords.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>454, 17</value>
+  </metadata>
+  <metadata name="ToolStripRecords.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>145, 17</value>
+  </metadata>
+  <metadata name="ToolStripDokumente.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>289, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA
+        AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
+        AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAAAAAAAP8AAAAAAAAPd/AAAA
+        AAAPd3fwAAAAAA93d38AAAAAAPd3d///8AAAD3d3d3d/8AAA93d3d3fwAAAPd3//d38AAA93///3fwAA
+        D3f///d/AAAPd///938AAA93f/93fwAAAPd3d3fwAAAA/3d3f/AAAAAA///wAP//AADn/wAAw/8AAIH/
+        AACA/wAAwAcAAOABAADwAQAA+AAAAPgAAAD4AAAA+AAAAPgAAAD8AQAA/AEAAP8HAAAoAAAAEAAAACAA
+        AAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgBNTU0AWFhYAGRkZABubW4AeXl5AIaG
+        hgDg4OAA5uTlAOvr6wDx7/AA9vb2APr6+gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAAAAAAAAAAAMDAAAAAAA
+        AAAAAAAAAAAKBAcMAAAAAAAAAAAAAAAMBAEBBwwAAAAAAAAAAAAADAQBAQEHDAAAAAAAAAAAAAAKBAEB
+        AQcMDAwMDAAAAAAAAAoEAQEBBAEBAQYIDQAAAAAACgQBAQEBAQEBAggAAAAAAAAKAwEGCAsIBQEGDAAA
+        AAAADAEBCAsLCwgBAQwAAAAAAAgBAQsLCwsLAwEMAAAAAAAMAQEICwsLCAEBDAAAAAAADAYBBggLCAUB
+        BgwAAAAAAAAIAgEBAQEBAggAAAAAAAAADQgGAQEBBggNAAAAAAAAAAAADAwMDAwAAAD//wAA5/8AAMP/
+        AACB/wAAgP8AAMAHAADgAQAA8AEAAPgAAAD4AAAA+AAAAPgAAAD4AAAA/AEAAPwBAAD/BwAAKAAAABAA
+        AAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29jD29vYwAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29jD29vbv9vb27/b2
+        9jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29jDq6urvZGRk/4aG
+        hv/29vbv9vb2MAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29jD29vbvZGRk/0JC
+        Qv9CQkL/hoaG//b29u/29vYwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vYw9vb272Rk
+        ZP9CQkL/QkJC/0JCQv+Ghob/9vb27/b29jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb2
+        9jDq6urvZGRk/0JCQv9CQkL/QkJC/4aGhv/29vb/9vb2//b29v/29vb/9vb2z/b29lAAAAAAAAAAAAAA
+        AAAAAAAA9vb2MOrq6u9kZGT/QkJC/0JCQv9CQkL/ZGRk/0JCQv9CQkL/QkJC/3p6ev/g4OD/9vb2gAAA
+        AAAAAAAAAAAAAAAAAAD29vYw6urq72RkZP9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/TU1N/+Dg
+        4P/29vZQAAAAAAAAAAAAAAAAAAAAAPb29jDr6+v/WVlZ/0JCQv95eHj/5uTl//Hv8P/m5OX/bm1u/0JC
+        Qv96enr/9vb2zwAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2/0JCQv9CQkL/5uTl//Hv8P/x7/D/8e/w/+bk
+        5f9CQkL/QkJC//b29v8AAAAAAAAAAAAAAAAAAAAAAAAAAODg4P9CQkL/QkJC//Hv8P/x7/D/8e/w//Hv
+        8P/x7/D/WFhY/0JCQv/29vb/AAAAAAAAAAAAAAAAAAAAAAAAAAD29vb/QkJC/0JCQv/m5OX/8e/w//Hv
+        8P/x7/D/5uTl/0JCQv9CQkL/9vb2/wAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2z3p6ev9CQkL/eXh4/+bk
+        5f/x7/D/5uTl/25tbv9CQkL/enp6//b29s8AAAAAAAAAAAAAAAAAAAAAAAAAAPb29lDg4OD/TU1N/0JC
+        Qv9CQkL/QkJC/0JCQv9CQkL/TU1N/+Dg4P/29vZQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2gODg
+        4P96enr/QkJC/0JCQv9CQkL/enp6/+Dg4P/29vaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAD29vZQ9vb2z/b29v/29vb/9vb2//b29s/29vZQAAAAAAAAAADn/wAAw/8AAIH/AAAA/wAAAH8AAIAD
+        AADAAQAA4AAAAPAAAAD4AAAA+AAAAPgAAAD4AAAA+AAAAPwBAAD+AwAA
+</value>
+  </data>
+</root>

app/DD-Record-Organiser/frmSearchAllOver.vb

@@ -0,0 +1,156 @@
+Imports DevExpress.Utils
+Public Class frmSearchAllOVer
+    Inherits Form
+    Dim sel_Records, sel_FT As String
+    Private Sub tsbtnRefresh_Click(sender As Object, e As EventArgs) Handles tsbtnRefresh.Click
+        If txtSearch.Text = "" Then
+            Exit Sub
+        End If
+        sel_Records = ""
+        sel_FT = ""
+
+        If rbSearchCombined.Checked = True Then
+            PREPARE_RECORD_SQL()
+            PREPARE_FT_SQL()
+        End If
+        If rbSearchRecord.Checked = True Then
+            PREPARE_RECORD_SQL()
+        End If
+        If rbSearchFulltext.Checked Then
+            PREPARE_FT_SQL()
+        End If
+        Dim DT_Files As DataTable
+        Dim DT_RECORD_RESULT As DataTable
+        If rbSearchCombined.Checked Or rbSearchRecord.Checked Then
+            DT_RECORD_RESULT = Refresh_Records()
+        Else
+            SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1
+            SplitContainerMain.Collapsed = True
+            tslblRecordsResult.Text = String.Format("No records found")
+            GridControlRecords.DataSource = Nothing
+        End If
+        If rbSearchCombined.Checked Or rbSearchFulltext.Checked Then
+            DT_Files = Refresh_Files()
+            If rbSearchFulltext.Checked Then
+                SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1
+                SplitContainerMain.Collapsed = True
+            End If
+        Else
+            SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
+            SplitContainerMain.Collapsed = True
+            GridControlFiles.DataSource = Nothing
+        End If
+    End Sub
+    Sub PREPARE_FT_SQL()
+        Dim sqlft = SQL_FULLTEXT
+        sqlft = sqlft.Replace("@FULLTEXT", txtSearch.Text)
+        Dim selDoc = String.Format("SELECT [DocID],[FULL_FILENAME],[Filename],[DISPLAY_NAME],[Doctype],[Creation_DateTime] As CreatedWhen,[Change_DateTime] as ChangedWhen,[IN_WORK] as [InWork?] " & _
+                    "FROM VWPMO_DOC_SEARCH where DocID in " & vbNewLine & _
+                    "({0}) " & vbNewLine & _
+                    "AND DocID IN (SELECT dwObjectID FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwUserOrGroupID = {1})", sqlft, USERID_FK_INT_ECM)
+        sel_FT = selDoc
+
+    End Sub
+    Sub PREPARE_RECORD_SQL()
+        sel_Records = String.Format("select T.RECORD_ID,TR.FORM_ID AS ENTITY_ID ,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), TFV.GUID), 1) as Entity," & _
+                                       "T.VALUE,TR.ADDED_WHO as AddedWho,TR.ADDED_WHEN as AddedWhen,TR.CHANGED_WHO As ChangedWho,TR.CHANGED_WHEN as ChangedWhen from TBPMO_CONTROL_VALUE T,TBPMO_RECORD TR,TBPMO_FORM_VIEW TFV " & _
+                                       "where T.RECORD_ID = TR.GUID AND TR.FORM_ID = TFV.FORM_ID AND T.value like '%{1}%' ORDER BY T.RECORD_ID", USER_LANGUAGE, txtSearch.Text)
+    End Sub
+    Private Function Refresh_Records()
+        Dim DT_RECORD_RESULT = ClassDatabase.Return_Datatable(sel_Records)
+        If Not IsNothing(DT_RECORD_RESULT) Then
+            SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.None
+            SplitContainerMain.Collapsed = False
+            If DT_RECORD_RESULT.Rows.Count > 0 Then
+                GridControlRecords.DataSource = DT_RECORD_RESULT
+                tslblRecordsResult.Text = String.Format("{0} records found", DT_RECORD_RESULT.Rows.Count)
+                Try
+                    GridViewRecords.Columns("AddedWhen").DisplayFormat.FormatType = FormatType.DateTime
+                    GridViewRecords.Columns("AddedWhen").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
+                    GridViewRecords.Columns("ChangedWhen").DisplayFormat.FormatType = FormatType.DateTime
+                    GridViewRecords.Columns("ChangedWhen").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
+                    GridViewRecords.ApplyFindFilter(txtSearch.Text)
+                Catch ex As Exception
+
+                End Try
+                ' FormID und RecordID immer ausblenden
+                GridViewRecords.Columns.Item("ENTITY_ID").Visible = False
+            Else
+                tslblRecordsResult.Text = String.Format("No records found")
+                GridControlRecords.DataSource = Nothing
+            End If
+            Return DT_RECORD_RESULT
+        Else
+            Return Nothing
+        End If
+    End Function
+    Private Function Refresh_Files()
+        Dim DT_Files = ClassDatabase.Return_Datatable(sel_FT)
+        If Not IsNothing(DT_Files) Then
+            SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.None
+            SplitContainerMain.Collapsed = False
+            If DT_Files.Rows.Count > 0 Then
+                GridControlFiles.DataSource = DT_Files
+                tslblDocView.Text = String.Format("{0} files found", DT_Files.Rows.Count)
+                Try
+                    GridViewFiles.Columns("AddedWhen").DisplayFormat.FormatType = FormatType.DateTime
+                    GridViewFiles.Columns("AddedWhen").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
+                    GridViewFiles.Columns("ChangedWhen").DisplayFormat.FormatType = FormatType.DateTime
+                    GridViewFiles.Columns("ChangedWhen").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
+                Catch ex As Exception
+
+                End Try
+                ' FormID und RecordID immer ausblenden
+                GridViewFiles.Columns.Item("FULL_FILENAME").Visible = False
+            Else
+                tslblDocView.Text = String.Format(" No files found")
+                GridControlFiles.DataSource = Nothing
+            End If
+            Return DT_Files
+        Else
+            Return Nothing
+        End If
+    End Function
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        Export_Excel(GridControlRecords)
+    End Sub
+
+    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
+        Export_Excel(GridControlFiles)
+    End Sub
+
+    Private Sub ExportExcelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportExcelToolStripMenuItem.Click
+        Export_Excel(GridControlRecords)
+    End Sub
+    Sub Export_Excel(Grid As DevExpress.XtraGrid.GridControl)
+        Dim saveFileDialog1 As New SaveFileDialog
+        saveFileDialog1.Filter = "Excel File|*.xlsx"
+        saveFileDialog1.Title = "Export to Excel:"
+        saveFileDialog1.ShowDialog()
+        If saveFileDialog1.FileName <> "" Then
+            Cursor = Cursors.WaitCursor
+            Grid.MainView.ExportToXlsx(saveFileDialog1.FileName)
+            Dim result As MsgBoxResult
+            Dim msg = String.Format("Datei wurde erstellt! Wollen Sie diese nun öffnen?")
+
+            If USER_LANGUAGE <> "de-DE" Then
+                msg = String.Format("File was created. Do You want to open excel?")
+            End If
+            result = MessageBox.Show(msg, "Exporting result:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+            If result = MsgBoxResult.Yes Then
+                Process.Start(saveFileDialog1.FileName)
+            End If
+        End If
+        Cursor = Cursors.Default
+    End Sub
+
+    Private Sub ShowRecordToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShowRecordToolStripMenuItem.Click
+        Dim RECORD_ID = GridViewRecords.GetFocusedRowCellValue(GridViewRecords.Columns("RECORD_ID"))
+        If Not IsNothing(RECORD_ID) Then
+            ClassJumpRecord.JumpToRecord(0, RECORD_ID)
+        End If
+
+        JUMP_RECORD_ID = 0
+    End Sub
+End Class