This commit is contained in:
SchreiberM 2016-11-16 09:43:16 +01:00
parent 1702ab2461
commit 3e6f1c8db8
16 changed files with 1780 additions and 196 deletions

View File

@ -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>

View File

@ -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)

View File

@ -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

View File

@ -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.SplitContainer1.SuspendLayout()
Me.XtraTabPageVariant.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.SplitContainer1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1
resources.ApplyResources(Me.SplitContainer1, "SplitContainer1")
Me.SplitContainer1.Name = "SplitContainer1"
resources.ApplyResources(Me.SplitContainer1.Panel1, "SplitContainer1.Panel1")
Me.SplitContainer1.Panel2.Controls.Add(Me.SplitContainerMain)
resources.ApplyResources(Me.SplitContainer1.Panel2, "SplitContainer1.Panel2")
Me.SplitContainer1.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Panel2
Me.SplitContainer1.SplitterPosition = 302
Me.XtraTabPageVariant.Appearance.Header.BackColor = CType(resources.GetObject("XtraTabPageVariant.Appearance.Header.BackColor"), System.Drawing.Color)
Me.XtraTabPageVariant.Appearance.Header.Font = CType(resources.GetObject("XtraTabPageVariant.Appearance.Header.Font"), System.Drawing.Font)
Me.XtraTabPageVariant.Appearance.Header.ForeColor = CType(resources.GetObject("XtraTabPageVariant.Appearance.Header.ForeColor"), System.Drawing.Color)
Me.XtraTabPageVariant.Appearance.Header.Options.UseBackColor = True
Me.XtraTabPageVariant.Appearance.Header.Options.UseFont = True
Me.XtraTabPageVariant.Appearance.Header.Options.UseForeColor = True
Me.XtraTabPageVariant.Controls.Add(Me.ProgressBarControl1)
Me.XtraTabPageVariant.Controls.Add(Me.ProgressPanel1)
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.SplitContainer1.ResumeLayout(false)
CType(Me.BindingSource_Entity,System.ComponentModel.ISupportInitialize).EndInit
Me.StatusStrip_Main.ResumeLayout(false)
Me.StatusStrip_Main.PerformLayout
CType(Me.DD_ECMAdmin,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.ImageCollection1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.DD_DMSDataSet,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.VWPMO_WF_USER_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.VWPMO_WF_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.TBPMO_FILES_USERBindingSource,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(false)
Me.PerformLayout
Me.XtraTabPageVariant.ResumeLayout(False)
CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainerFORM, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerFORM.ResumeLayout(False)
CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip_Main.ResumeLayout(False)
Me.StatusStrip_Main.PerformLayout()
CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
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

View File

@ -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">
<value>SplitContainer1</value>
<data name="&gt;&gt;SplitContainerFORM.Name" xml:space="preserve">
<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>

View File

@ -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)
SplitContainer1.Collapsed = False
SplitContainer1.PanelVisibility = SplitPanelVisibility.Both
Me.SplitContainerFORM.Panel1.Controls.Add(Me.TreeViewMain)
SplitContainerFORM.Collapsed = False
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
' 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
Refresh_Entity_Data()
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
Case 0
Select Case TCDetails.SelectedTabPage.Name
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
If RECORD_ID = 0 Then
'RUN_WD_SEARCH(WD_Suche, "ENTITY")
RUN_WDSEARCH_GRID("ENTITY")
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)
Dim DT_VARIANT As DataTable = ClassDatabase.Return_Datatable(sel)
If DT_VARIANT.Rows.Count > 0 Then
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")
' RUN_WD_SEARCH(WD_Suche, "RECORD")
XtraTabPageVariant.PageVisible = False
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
Select Case TCDetails.SelectedTabPageIndex
Case 0
If TCDetails.SelectedTabPage.Name = "XtraTabPageVariant" Then
XtraTabPageVariant_Open()
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 2
Case "TabFollowUp"
'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

View File

@ -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

View File

@ -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>

View File

@ -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

View File

@ -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.cmsSystray = New System.Windows.Forms.ContextMenuStrip()
Me.NotifyIcon = New System.Windows.Forms.NotifyIcon(Me.components)
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

View File

@ -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>

View File

@ -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

View File

@ -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()

View File

@ -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

View File

@ -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>

View File

@ -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