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

Compare commits

base: AppStd:0c26b56c84fb6d4eac2ffcb306ed1fed2278977d
Branches Tags
AppStd:master
...
compare: AppStd:master
Branches Tags
AppStd:master

5 Commits
0c26b56c84 ... master

Author SHA1 Message Date
Jonathan Jenne
5cafdfc6f6 merge 2022-07-26 15:56:49 +02:00
Digital Data - Marlon Schreiber
9241752a89 MS FolderImport 2022-07-14 15:17:27 +02:00
Jonathan Jenne
234ce3d784 Add ListSearches 2022-07-05 08:41:41 +02:00
Digital Data - Marlon Schreiber
284b5a6363 MS 2022-07-04 13:55:29 +02:00
Digital Data - Marlon Schreiber
efbd9c55a5 MS Duplicate 2022-07-04 13:54:16 +02:00
31 changed files with 2132 additions and 249 deletions
Expand all files Collapse all files

2
ZooFlow/Administration/IDB/frmAdmin_IDBObjectStore.vb
View File

@@ -8,7 +8,7 @@ Public Class frmAdmin_IDBObjectStore
Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
Private FormHelper As FormHelper
Private ReadOnly FormHelper As FormHelper
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
Dim oStorePath As String = String.Empty

2
ZooFlow/App.config
View File

@@ -24,7 +24,7 @@
<value></value>
</setting>
<setting name="DefaultPalette" serializeAs="String">
<value>Custom/Digital Data 2</value>
<value>Custom/Digital Data</value>
</setting>
<setting name="TouchUI" serializeAs="String">
<value></value>

76
ZooFlow/Modules/Globix/frmFileflow_Duplicate.Designer.vb generated
View File

@@ -30,25 +30,22 @@ Partial Class frmFileflow_Duplicate
Me.SimpleButton5 = New DevExpress.XtraEditors.SimpleButton()
Me.SimpleButton4 = New DevExpress.XtraEditors.SimpleButton()
Me.SimpleButton3 = New DevExpress.XtraEditors.SimpleButton()
Me.GroupControl1 = New DevExpress.XtraEditors.GroupControl()
Me.pnlHeader = New DevExpress.XtraEditors.PanelControl()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupControl1.SuspendLayout()
CType(Me.pnlHeader, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'SimpleButton2
'
Me.SimpleButton2.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.SimpleButton2.Appearance.BorderColor = System.Drawing.Color.Black
Me.SimpleButton2.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton2.Appearance.Options.UseBackColor = True
Me.SimpleButton2.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton2.Appearance.Options.UseBorderColor = True
Me.SimpleButton2.Appearance.Options.UseFont = True
Me.SimpleButton2.DialogResult = System.Windows.Forms.DialogResult.No
Me.SimpleButton2.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton2.Location = New System.Drawing.Point(581, 139)
Me.SimpleButton2.Location = New System.Drawing.Point(225, 102)
Me.SimpleButton2.Name = "SimpleButton2"
Me.SimpleButton2.Size = New System.Drawing.Size(100, 41)
Me.SimpleButton2.TabIndex = 3
@@ -56,15 +53,13 @@ Partial Class frmFileflow_Duplicate
'
'SimpleButton1
'
Me.SimpleButton1.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.SimpleButton1.Appearance.BorderColor = System.Drawing.Color.Black
Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton1.Appearance.Options.UseBackColor = True
Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton1.Appearance.Options.UseBorderColor = True
Me.SimpleButton1.Appearance.Options.UseFont = True
Me.SimpleButton1.DialogResult = System.Windows.Forms.DialogResult.Yes
Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton1.Location = New System.Drawing.Point(464, 139)
Me.SimpleButton1.Location = New System.Drawing.Point(118, 102)
Me.SimpleButton1.Name = "SimpleButton1"
Me.SimpleButton1.Size = New System.Drawing.Size(101, 40)
Me.SimpleButton1.TabIndex = 2
@@ -97,14 +92,12 @@ Partial Class frmFileflow_Duplicate
'
'SimpleButton5
'
Me.SimpleButton5.Appearance.BackColor = System.Drawing.Color.WhiteSmoke
Me.SimpleButton5.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton5.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton5.Appearance.ForeColor = System.Drawing.Color.Black
Me.SimpleButton5.Appearance.Options.UseBackColor = True
Me.SimpleButton5.Appearance.Options.UseFont = True
Me.SimpleButton5.Appearance.Options.UseForeColor = True
Me.SimpleButton5.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton5.Location = New System.Drawing.Point(249, 85)
Me.SimpleButton5.Location = New System.Drawing.Point(247, 72)
Me.SimpleButton5.Name = "SimpleButton5"
Me.SimpleButton5.Size = New System.Drawing.Size(143, 42)
Me.SimpleButton5.TabIndex = 6
@@ -112,14 +105,12 @@ Partial Class frmFileflow_Duplicate
'
'SimpleButton4
'
Me.SimpleButton4.Appearance.BackColor = System.Drawing.Color.Wheat
Me.SimpleButton4.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton4.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton4.Appearance.ForeColor = System.Drawing.Color.Black
Me.SimpleButton4.Appearance.Options.UseBackColor = True
Me.SimpleButton4.Appearance.Options.UseFont = True
Me.SimpleButton4.Appearance.Options.UseForeColor = True
Me.SimpleButton4.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.bo_appointment1
Me.SimpleButton4.Location = New System.Drawing.Point(20, 85)
Me.SimpleButton4.Location = New System.Drawing.Point(18, 72)
Me.SimpleButton4.Name = "SimpleButton4"
Me.SimpleButton4.Size = New System.Drawing.Size(223, 42)
Me.SimpleButton4.TabIndex = 5
@@ -127,35 +118,17 @@ Partial Class frmFileflow_Duplicate
'
'SimpleButton3
'
Me.SimpleButton3.Appearance.BackColor = System.Drawing.Color.WhiteSmoke
Me.SimpleButton3.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton3.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton3.Appearance.ForeColor = System.Drawing.Color.Black
Me.SimpleButton3.Appearance.Options.UseBackColor = True
Me.SimpleButton3.Appearance.Options.UseFont = True
Me.SimpleButton3.Appearance.Options.UseForeColor = True
Me.SimpleButton3.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton3.Location = New System.Drawing.Point(20, 37)
Me.SimpleButton3.Location = New System.Drawing.Point(18, 24)
Me.SimpleButton3.Name = "SimpleButton3"
Me.SimpleButton3.Size = New System.Drawing.Size(372, 42)
Me.SimpleButton3.TabIndex = 4
Me.SimpleButton3.Text = "Vorhandene Datei anzeigen"
'
'GroupControl1
'
Me.GroupControl1.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.GroupControl1.Appearance.Options.UseBackColor = True
Me.GroupControl1.AppearanceCaption.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.GroupControl1.AppearanceCaption.Options.UseBackColor = True
Me.GroupControl1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
Me.GroupControl1.Controls.Add(Me.SimpleButton3)
Me.GroupControl1.Controls.Add(Me.SimpleButton5)
Me.GroupControl1.Controls.Add(Me.SimpleButton4)
Me.GroupControl1.Location = New System.Drawing.Point(12, 185)
Me.GroupControl1.Name = "GroupControl1"
Me.GroupControl1.Size = New System.Drawing.Size(669, 138)
Me.GroupControl1.TabIndex = 7
Me.GroupControl1.Text = "Dateisuchen"
'
'pnlHeader
'
Me.pnlHeader.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
@@ -164,19 +137,31 @@ Partial Class frmFileflow_Duplicate
Me.pnlHeader.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlHeader.Location = New System.Drawing.Point(0, 0)
Me.pnlHeader.Name = "pnlHeader"
Me.pnlHeader.Size = New System.Drawing.Size(686, 40)
Me.pnlHeader.Size = New System.Drawing.Size(609, 40)
Me.pnlHeader.TabIndex = 9
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.SimpleButton3)
Me.GroupBox1.Controls.Add(Me.SimpleButton4)
Me.GroupBox1.Controls.Add(Me.SimpleButton5)
Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(12, 149)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(429, 126)
Me.GroupBox1.TabIndex = 10
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Dateisuchen"
'
'frmFileflow_Duplicate
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 21.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(686, 335)
Me.ClientSize = New System.Drawing.Size(609, 286)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.SimpleButton2)
Me.Controls.Add(Me.pnlHeader)
Me.Controls.Add(Me.SimpleButton1)
Me.Controls.Add(Me.GroupControl1)
Me.Controls.Add(Me.PictureEdit1)
Me.Controls.Add(Me.LabelControlMessage)
Me.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -186,9 +171,8 @@ Partial Class frmFileflow_Duplicate
Me.Text = "frmGlobix_Duplicate"
Me.TopMost = True
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupControl1.ResumeLayout(False)
CType(Me.pnlHeader, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -200,6 +184,6 @@ Partial Class frmFileflow_Duplicate
Friend WithEvents SimpleButton5 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents SimpleButton4 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents SimpleButton3 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents GroupControl1 As DevExpress.XtraEditors.GroupControl
Friend WithEvents pnlHeader As DevExpress.XtraEditors.PanelControl
Friend WithEvents GroupBox1 As GroupBox
End Class

25
ZooFlow/Modules/Globix/frmFileflow_Duplicate.resx
View File

@@ -155,25 +155,18 @@
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABkEAAAC77u/
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHECAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJBdHRlbnRpb24iPg0K
ICAgIDxwYXRoIGQ9Ik0xNS4xLDIuNUwyLjEsMjYuNUMxLjgsMjcuMiwyLjMsMjgsMy4xLDI4aDI1Ljlj
MC44LDAsMS4zLTAuOCwwLjktMS41TDE2LjksMi41ICAgQzE2LjUsMS44LDE1LjUsMS44LDE1LjEsMi41
eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgICA8cGF0aCBkPSJNMTYsMjBjMS4xLDAsMiwwLjksMiwycy0w
LjksMi0yLDJzLTItMC45LTItMlMxNC45LDIwLDE2LDIweiBNMTQsMTBoNHY4aC00VjEweiIgY2xhc3M9
IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
Y2U9InByZXNlcnZlIiBpZD0iTXVsdGlwbGVfRG9jdW1lbnRzIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91
bmQ6bmV3IDAgMCAzMiAzMiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmxhY2t7ZmlsbDoj
NzI3MjcyO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTMxLDhoLTVWNWMwLTAuNS0wLjUtMS0xLTFoLTVW
MWMwLTAuNS0wLjUtMS0xLTFIMUMwLjUsMCwwLDAuNSwwLDF2MjJjMCwwLjUsMC41LDEsMSwxaDV2M2Mw
LDAuNSwwLjUsMSwxLDEgIGg1djNjMCwwLjUsMC41LDEsMSwxaDE4YzAuNSwwLDEtMC41LDEtMVY5QzMy
LDguNSwzMS41LDgsMzEsOHogTTYsNXYxN0gyVjJoMTZ2Mkg3QzYuNSw0LDYsNC41LDYsNXogTTEyLDl2
MTdIOFY2aDE2djJIMTMgIEMxMi41LDgsMTIsOC41LDEyLDl6IE0zMCwzMEgxNFYxMGgxNlYzMHoiIGNs
YXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs=
</value>
</data>
<data name="SimpleButton5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">

2
ZooFlow/Modules/Globix/frmFileflow_Duplicate.vb
View File

@@ -12,7 +12,7 @@ Public Class frmFileflow_Duplicate
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
If My.Application.User.Language = "de-DE" Then
omessagetext = $"Die Datei [{pFilename}] wurde bereits" & vbNewLine & "am [{pDate}] verarbeitet." & vbNewLine & "Wollen Sie die gleiche Datei noch einmal verarbeiten?"
omessagetext = $"Die Datei [{pFilename}] wurde bereits am [{pDate}] verarbeitet." & vbNewLine & "Wollen Sie die gleiche Datei noch einmal verarbeiten?"
Else
omessagetext = $"The file [{pFilename}] has already been processed at [{pDate}]. Do you want to process the same file again?"
End If

32
ZooFlow/Modules/Globix/frmGlobix_Index.Designer.vb generated
View File

@@ -46,7 +46,6 @@ Partial Class frmGlobix_Index
Me.chkMultiindexing = New DevExpress.XtraBars.BarCheckItem()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarHeaderItem1 = New DevExpress.XtraBars.BarHeaderItem()
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -78,16 +77,17 @@ Partial Class frmGlobix_Index
'
'RibbonControl1
'
Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green
Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem2, Me.BarButtonItem3, Me.SkipItem, Me.BarButtonItem5, Me.checkItemTopMost, Me.SourceDeleteItem, Me.checkItemPreselection, Me.PreviewItem, Me.labelFilePath, Me.labelError, Me.labelNotice, Me.chkMultiindexing, Me.BarButtonItem1, Me.BarHeaderItem1, Me.BarButtonItem4})
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem2, Me.BarButtonItem3, Me.SkipItem, Me.BarButtonItem5, Me.checkItemTopMost, Me.SourceDeleteItem, Me.checkItemPreselection, Me.PreviewItem, Me.labelFilePath, Me.labelError, Me.labelNotice, Me.chkMultiindexing, Me.BarButtonItem1, Me.BarHeaderItem1})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 17
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl1.Size = New System.Drawing.Size(1033, 67)
Me.RibbonControl1.Size = New System.Drawing.Size(1033, 63)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'BarButtonItem2
@@ -199,12 +199,6 @@ Partial Class frmGlobix_Index
Me.BarHeaderItem1.Name = "BarHeaderItem1"
Me.BarHeaderItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
'
'BarButtonItem4
'
Me.BarButtonItem4.Caption = "BarButtonItem4"
Me.BarButtonItem4.Id = 16
Me.BarButtonItem4.Name = "BarButtonItem4"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
@@ -218,7 +212,6 @@ Partial Class frmGlobix_Index
Me.RibbonPageGroup1.ItemLinks.Add(Me.SkipItem)
Me.RibbonPageGroup1.ItemLinks.Add(Me.PreviewItem)
Me.RibbonPageGroup1.ItemLinks.Add(Me.chkMultiindexing)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem4)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Indexierung"
'
@@ -234,10 +227,10 @@ Partial Class frmGlobix_Index
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelFilePath)
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError)
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelNotice)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 634)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 632)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1033, 22)
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1033, 24)
'
'RibbonPage2
'
@@ -255,7 +248,7 @@ Partial Class frmGlobix_Index
'
Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 67)
Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 63)
Me.SplitContainerControl1.Name = "SplitContainerControl1"
'
'SplitContainerControl1.Panel1
@@ -269,37 +262,35 @@ Partial Class frmGlobix_Index
'
Me.SplitContainerControl1.Panel2.Controls.Add(Me.DocumentViewer1)
Me.SplitContainerControl1.Panel2.Text = "Panel2"
Me.SplitContainerControl1.Size = New System.Drawing.Size(1033, 567)
Me.SplitContainerControl1.Size = New System.Drawing.Size(1033, 569)
Me.SplitContainerControl1.SplitterPosition = 522
Me.SplitContainerControl1.TabIndex = 2
'
'pnlIndex
'
Me.pnlIndex.BackColor = System.Drawing.Color.FromArgb(CType(CType(74, Byte), Integer), CType(CType(115, Byte), Integer), CType(CType(255, Byte), Integer))
Me.pnlIndex.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlIndex.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.pnlIndex.ForeColor = System.Drawing.SystemColors.ControlText
Me.pnlIndex.Location = New System.Drawing.Point(0, 33)
Me.pnlIndex.Name = "pnlIndex"
Me.pnlIndex.Size = New System.Drawing.Size(522, 459)
Me.pnlIndex.Size = New System.Drawing.Size(522, 461)
Me.pnlIndex.TabIndex = 3
'
'Panel3
'
Me.Panel3.Controls.Add(Me.SimpleButton1)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel3.Location = New System.Drawing.Point(0, 492)
Me.Panel3.Location = New System.Drawing.Point(0, 494)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(522, 75)
Me.Panel3.TabIndex = 2
'
'SimpleButton1
'
Me.SimpleButton1.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton1.Appearance.Options.UseBackColor = True
Me.SimpleButton1.Appearance.Options.UseFont = True
Me.SimpleButton1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SimpleButton1.ImageOptions.ImageToTextAlignment = DevExpress.XtraEditors.ImageAlignToText.RightCenter
Me.SimpleButton1.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleRight
Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton1.Location = New System.Drawing.Point(0, 0)
@@ -339,7 +330,7 @@ Partial Class frmGlobix_Index
Me.DocumentViewer1.FileLoaded = False
Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0)
Me.DocumentViewer1.Name = "DocumentViewer1"
Me.DocumentViewer1.Size = New System.Drawing.Size(501, 567)
Me.DocumentViewer1.Size = New System.Drawing.Size(501, 569)
Me.DocumentViewer1.TabIndex = 0
'
'GlobixDataset
@@ -412,5 +403,4 @@ Partial Class frmGlobix_Index
Friend WithEvents cmbDocType As DevExpress.XtraEditors.ComboBoxEdit
Friend WithEvents SimpleButton1 As SimpleButton
Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection
Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
End Class

4
ZooFlow/Modules/Globix/frmGlobix_Index.vb
View File

@@ -387,7 +387,7 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
.SQLConnection = oRow.ItemEx("CONNECTION_ID", 0),
.SQLSuggestion = oRow.ItemEx("SUGGESTION", String.Empty),
.DefaultValue = oRow.ItemEx("DEFAULT_VALUE", String.Empty),
.IsOptional = oRow.ItemEx(Of Integer)("OPTIONAL", False),
.IsOptional = oRow.ItemEx("OPTIONAL", False),
.IsMultiselect = oRow.ItemEx("MULTISELECT", False)
}
@@ -911,6 +911,4 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
Private Sub MessageboxLoad(sender As Object, e As XtraMessageBoxLoadArgs)
e.Visible = My.UIConfig.Globix.ShowSuccessMessageBox
End Sub
End Class

1
ZooFlow/Modules/Globix/frmGlobix_Result.Designer.vb generated
View File

@@ -200,7 +200,6 @@ Partial Class frmGlobix_Result
Me.Name = "frmGlobix_Result"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmGlobix_Result"
Me.TopMost = True
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit()

7
ZooFlow/Modules/Globix/frmGlobix_Result.vb
View File

@@ -14,9 +14,6 @@ Public Class frmGlobix_Result
}
End Sub
Private Sub PictureEdit1_EditValueChanged(sender As Object, e As EventArgs) Handles PictureEdit1.EditValueChanged
Close()
End Sub
Private Async Function GetResult(oVariant As String) As Task
Dim oSql As String
Try
@@ -43,4 +40,8 @@ Public Class frmGlobix_Result
Private Async Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click
Await GetResult("DOCID")
End Sub
Private Sub PictureEdit1_Click(sender As Object, e As EventArgs) Handles PictureEdit1.Click
Close()
End Sub
End Class

644
ZooFlow/Modules/frmFolderImport.Designer.vb generated Normal file
View File

@@ -0,0 +1,644 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmFolderImport
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFolderImport))
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem()
Me.RepositoryItemProgressBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemProgressBar()
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.txtFolderbrowser = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
Me.cmbDoctype = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtRegex = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.btnMoveTo = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtMoveTo = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.NumSplitIndex = New System.Windows.Forms.NumericUpDown()
Me.txtSplitCharacter = New System.Windows.Forms.TextBox()
Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
Me.cmbAttribute = New System.Windows.Forms.ComboBox()
Me.LabelControl2 = New DevExpress.XtraEditors.LabelControl()
Me.NumericUpDownLimit = New System.Windows.Forms.NumericUpDown()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtTitle = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.cmbProfile = New System.Windows.Forms.ComboBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtAddedWho = New System.Windows.Forms.TextBox()
Me.txtAddedWhen = New System.Windows.Forms.TextBox()
Me.txtChangedWho = New System.Windows.Forms.TextBox()
Me.txtChangedWhen = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.txtProfilID = New System.Windows.Forms.TextBox()
Me.GridControlSplit = New DevExpress.XtraGrid.GridControl()
Me.GridViewSplit = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageSplit = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
CType(Me.NumSplitIndex, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.NumericUpDownLimit, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlSplit, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewSplit, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout()
Me.XtraTabPageSplit.SuspendLayout()
Me.SuspendLayout()
'
'RibbonControl1
'
Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarEditItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 8
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.Size = New System.Drawing.Size(894, 158)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'BarButtonItem1
'
Me.BarButtonItem1.Caption = "Importiere Dateien"
Me.BarButtonItem1.Id = 1
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'BarButtonItem2
'
Me.BarButtonItem2.Caption = "Verarbeitung"
Me.BarButtonItem2.Id = 2
Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem2.Name = "BarButtonItem2"
'
'BarEditItem1
'
Me.BarEditItem1.Caption = "Fortschritt Import"
Me.BarEditItem1.Edit = Me.RepositoryItemProgressBar1
Me.BarEditItem1.EditWidth = 130
Me.BarEditItem1.Id = 3
Me.BarEditItem1.Name = "BarEditItem1"
Me.BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
'
'RepositoryItemProgressBar1
'
Me.RepositoryItemProgressBar1.Name = "RepositoryItemProgressBar1"
Me.RepositoryItemProgressBar1.Step = 1
'
'BarButtonItem3
'
Me.BarButtonItem3.Caption = "Speichern"
Me.BarButtonItem3.Id = 4
Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem3.Name = "BarButtonItem3"
'
'BarButtonItem4
'
Me.BarButtonItem4.Caption = "Hinzufügen"
Me.BarButtonItem4.Id = 5
Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem4.Name = "BarButtonItem4"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroup4})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Start"
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Verarbeiten"
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "Prüfen..."
'
'RibbonPageGroup3
'
Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem4)
Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
Me.RibbonPageGroup3.Text = "Aktionen"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.BarEditItem1)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 660)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(894, 24)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'txtFolderbrowser
'
Me.txtFolderbrowser.Location = New System.Drawing.Point(15, 285)
Me.txtFolderbrowser.Name = "txtFolderbrowser"
Me.txtFolderbrowser.Size = New System.Drawing.Size(729, 22)
Me.txtFolderbrowser.TabIndex = 2
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 269)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(95, 13)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Pfad mit Dateien:"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(750, 284)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(38, 23)
Me.Button1.TabIndex = 4
Me.Button1.Text = "..."
Me.Button1.UseVisualStyleBackColor = True
'
'cmbDoctype
'
Me.cmbDoctype.FormattingEnabled = True
Me.cmbDoctype.Location = New System.Drawing.Point(382, 244)
Me.cmbDoctype.Name = "cmbDoctype"
Me.cmbDoctype.Size = New System.Drawing.Size(278, 21)
Me.cmbDoctype.TabIndex = 7
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(379, 228)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(75, 13)
Me.Label2.TabIndex = 8
Me.Label2.Text = "Dokumentart"
'
'txtRegex
'
Me.txtRegex.Location = New System.Drawing.Point(15, 367)
Me.txtRegex.Name = "txtRegex"
Me.txtRegex.Size = New System.Drawing.Size(281, 22)
Me.txtRegex.TabIndex = 9
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(12, 351)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(106, 13)
Me.Label3.TabIndex = 10
Me.Label3.Text = "Regex Dateinamen:"
'
'btnMoveTo
'
Me.btnMoveTo.Location = New System.Drawing.Point(750, 324)
Me.btnMoveTo.Name = "btnMoveTo"
Me.btnMoveTo.Size = New System.Drawing.Size(38, 23)
Me.btnMoveTo.TabIndex = 15
Me.btnMoveTo.Text = "..."
Me.btnMoveTo.UseVisualStyleBackColor = True
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(12, 310)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(144, 13)
Me.Label4.TabIndex = 14
Me.Label4.Text = "Sicherungsort nach Erfolg:"
'
'txtMoveTo
'
Me.txtMoveTo.Location = New System.Drawing.Point(15, 326)
Me.txtMoveTo.Name = "txtMoveTo"
Me.txtMoveTo.Size = New System.Drawing.Size(729, 22)
Me.txtMoveTo.TabIndex = 13
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(6, 18)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(83, 13)
Me.Label5.TabIndex = 16
Me.Label5.Text = "Split-Character"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(95, 18)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(49, 13)
Me.Label6.TabIndex = 17
Me.Label6.Text = "Position"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.NumSplitIndex)
Me.GroupBox1.Controls.Add(Me.txtSplitCharacter)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Location = New System.Drawing.Point(509, 445)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(163, 66)
Me.GroupBox1.TabIndex = 19
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Splitdefinition"
'
'NumSplitIndex
'
Me.NumSplitIndex.Location = New System.Drawing.Point(98, 35)
Me.NumSplitIndex.Maximum = New Decimal(New Integer() {10, 0, 0, 0})
Me.NumSplitIndex.Name = "NumSplitIndex"
Me.NumSplitIndex.Size = New System.Drawing.Size(46, 22)
Me.NumSplitIndex.TabIndex = 18
'
'txtSplitCharacter
'
Me.txtSplitCharacter.Location = New System.Drawing.Point(9, 34)
Me.txtSplitCharacter.Name = "txtSplitCharacter"
Me.txtSplitCharacter.Size = New System.Drawing.Size(27, 22)
Me.txtSplitCharacter.TabIndex = 17
Me.txtSplitCharacter.Text = "-"
'
'LabelControl1
'
Me.LabelControl1.Location = New System.Drawing.Point(661, 428)
Me.LabelControl1.Name = "LabelControl1"
Me.LabelControl1.Size = New System.Drawing.Size(105, 13)
Me.LabelControl1.TabIndex = 20
Me.LabelControl1.Text = "Deskriptives Attribut"
'
'cmbAttribute
'
Me.cmbAttribute.FormattingEnabled = True
Me.cmbAttribute.Location = New System.Drawing.Point(661, 445)
Me.cmbAttribute.Name = "cmbAttribute"
Me.cmbAttribute.Size = New System.Drawing.Size(233, 21)
Me.cmbAttribute.TabIndex = 21
'
'LabelControl2
'
Me.LabelControl2.Location = New System.Drawing.Point(299, 351)
Me.LabelControl2.Name = "LabelControl2"
Me.LabelControl2.Size = New System.Drawing.Size(77, 13)
Me.LabelControl2.TabIndex = 22
Me.LabelControl2.Text = "Limit FileCount"
'
'NumericUpDownLimit
'
Me.NumericUpDownLimit.Location = New System.Drawing.Point(299, 367)
Me.NumericUpDownLimit.Name = "NumericUpDownLimit"
Me.NumericUpDownLimit.Size = New System.Drawing.Size(74, 22)
Me.NumericUpDownLimit.TabIndex = 23
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(12, 228)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(29, 13)
Me.Label7.TabIndex = 26
Me.Label7.Text = "Titel"
'
'txtTitle
'
Me.txtTitle.Location = New System.Drawing.Point(15, 244)
Me.txtTitle.Name = "txtTitle"
Me.txtTitle.Size = New System.Drawing.Size(361, 22)
Me.txtTitle.TabIndex = 27
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(12, 161)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(131, 17)
Me.Label8.TabIndex = 28
Me.Label8.Text = "Ausgewähltes Profil"
'
'cmbProfile
'
Me.cmbProfile.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbProfile.FormattingEnabled = True
Me.cmbProfile.Location = New System.Drawing.Point(15, 181)
Me.cmbProfile.Name = "cmbProfile"
Me.cmbProfile.Size = New System.Drawing.Size(361, 25)
Me.cmbProfile.TabIndex = 29
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(12, 392)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(64, 13)
Me.Label9.TabIndex = 30
Me.Label9.Text = "Erstellt wer"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(162, 392)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(74, 13)
Me.Label10.TabIndex = 31
Me.Label10.Text = "Erstellt wann"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(330, 392)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(77, 13)
Me.Label11.TabIndex = 32
Me.Label11.Text = "Geändert wer"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(477, 392)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(87, 13)
Me.Label12.TabIndex = 33
Me.Label12.Text = "Geändert wann"
'
'txtAddedWho
'
Me.txtAddedWho.Enabled = False
Me.txtAddedWho.Location = New System.Drawing.Point(15, 408)
Me.txtAddedWho.Name = "txtAddedWho"
Me.txtAddedWho.Size = New System.Drawing.Size(144, 22)
Me.txtAddedWho.TabIndex = 34
'
'txtAddedWhen
'
Me.txtAddedWhen.Enabled = False
Me.txtAddedWhen.Location = New System.Drawing.Point(165, 408)
Me.txtAddedWhen.Name = "txtAddedWhen"
Me.txtAddedWhen.Size = New System.Drawing.Size(144, 22)
Me.txtAddedWhen.TabIndex = 35
'
'txtChangedWho
'
Me.txtChangedWho.Enabled = False
Me.txtChangedWho.Location = New System.Drawing.Point(330, 408)
Me.txtChangedWho.Name = "txtChangedWho"
Me.txtChangedWho.Size = New System.Drawing.Size(144, 22)
Me.txtChangedWho.TabIndex = 36
'
'txtChangedWhen
'
Me.txtChangedWhen.Enabled = False
Me.txtChangedWhen.Location = New System.Drawing.Point(480, 408)
Me.txtChangedWhen.Name = "txtChangedWhen"
Me.txtChangedWhen.Size = New System.Drawing.Size(144, 22)
Me.txtChangedWhen.TabIndex = 37
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(666, 228)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(45, 13)
Me.Label13.TabIndex = 40
Me.Label13.Text = "ProfilID"
'
'txtProfilID
'
Me.txtProfilID.Enabled = False
Me.txtProfilID.Location = New System.Drawing.Point(669, 244)
Me.txtProfilID.Name = "txtProfilID"
Me.txtProfilID.Size = New System.Drawing.Size(55, 22)
Me.txtProfilID.TabIndex = 41
'
'GridControlSplit
'
Me.GridControlSplit.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlSplit.Location = New System.Drawing.Point(0, 0)
Me.GridControlSplit.MainView = Me.GridViewSplit
Me.GridControlSplit.MenuManager = Me.RibbonControl1
Me.GridControlSplit.Name = "GridControlSplit"
Me.GridControlSplit.Size = New System.Drawing.Size(487, 179)
Me.GridControlSplit.TabIndex = 42
Me.GridControlSplit.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSplit})
'
'GridViewSplit
'
Me.GridViewSplit.GridControl = Me.GridControlSplit
Me.GridViewSplit.Name = "GridViewSplit"
Me.GridViewSplit.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewSplit.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewSplit.OptionsBehavior.AllowFixedGroups = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewSplit.OptionsBehavior.Editable = False
Me.GridViewSplit.OptionsView.ShowGroupPanel = False
'
'XtraTabControl1
'
Me.XtraTabControl1.Location = New System.Drawing.Point(15, 436)
Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageSplit
Me.XtraTabControl1.Size = New System.Drawing.Size(489, 204)
Me.XtraTabControl1.TabIndex = 43
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageSplit, Me.XtraTabPage2})
'
'XtraTabPageSplit
'
Me.XtraTabPageSplit.Controls.Add(Me.GridControlSplit)
Me.XtraTabPageSplit.Name = "XtraTabPageSplit"
Me.XtraTabPageSplit.Size = New System.Drawing.Size(487, 179)
Me.XtraTabPageSplit.Text = "Trennen nach Satzzeichen"
'
'XtraTabPage2
'
Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(487, 179)
Me.XtraTabPage2.Text = "Weiteres"
'
'RibbonPageGroup4
'
Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem6)
Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem5)
Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
Me.RibbonPageGroup4.Text = "Split-Funktionen"
'
'BarButtonItem5
'
Me.BarButtonItem5.Caption = "Löschen"
Me.BarButtonItem5.Id = 6
Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem5.Name = "BarButtonItem5"
'
'BarButtonItem6
'
Me.BarButtonItem6.Caption = "Hinzufügen"
Me.BarButtonItem6.Id = 7
Me.BarButtonItem6.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem6.Name = "BarButtonItem6"
'
'frmFolderImport
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(894, 684)
Me.Controls.Add(Me.XtraTabControl1)
Me.Controls.Add(Me.txtProfilID)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.txtChangedWhen)
Me.Controls.Add(Me.txtChangedWho)
Me.Controls.Add(Me.txtAddedWhen)
Me.Controls.Add(Me.txtAddedWho)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.cmbProfile)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.txtTitle)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.NumericUpDownLimit)
Me.Controls.Add(Me.LabelControl2)
Me.Controls.Add(Me.cmbAttribute)
Me.Controls.Add(Me.LabelControl1)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.btnMoveTo)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txtMoveTo)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtRegex)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.cmbDoctype)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtFolderbrowser)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.Name = "frmFolderImport"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "frmFolderImport"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.NumSplitIndex, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.NumericUpDownLimit, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControlSplit, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewSplit, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl1.ResumeLayout(False)
Me.XtraTabPageSplit.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents txtFolderbrowser As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents Button1 As Button
Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
Friend WithEvents cmbDoctype As ComboBox
Friend WithEvents Label2 As Label
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents txtRegex As TextBox
Friend WithEvents Label3 As Label
Friend WithEvents btnMoveTo As Button
Friend WithEvents Label4 As Label
Friend WithEvents txtMoveTo As TextBox
Friend WithEvents Label5 As Label
Friend WithEvents Label6 As Label
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents NumSplitIndex As NumericUpDown
Friend WithEvents txtSplitCharacter As TextBox
Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl
Friend WithEvents cmbAttribute As ComboBox
Friend WithEvents LabelControl2 As DevExpress.XtraEditors.LabelControl
Friend WithEvents NumericUpDownLimit As NumericUpDown
Friend WithEvents BarEditItem1 As DevExpress.XtraBars.BarEditItem
Friend WithEvents RepositoryItemProgressBar1 As DevExpress.XtraEditors.Repository.RepositoryItemProgressBar
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents Label7 As Label
Friend WithEvents txtTitle As TextBox
Friend WithEvents Label8 As Label
Friend WithEvents cmbProfile As ComboBox
Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents Label9 As Label
Friend WithEvents Label10 As Label
Friend WithEvents Label11 As Label
Friend WithEvents Label12 As Label
Friend WithEvents txtAddedWho As TextBox
Friend WithEvents txtAddedWhen As TextBox
Friend WithEvents txtChangedWho As TextBox
Friend WithEvents txtChangedWhen As TextBox
Friend WithEvents Label13 As Label
Friend WithEvents txtProfilID As TextBox
Friend WithEvents GridControlSplit As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewSplit As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPageSplit As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
End Class

249
ZooFlow/Modules/frmFolderImport.resx Normal file
View File

@@ -0,0 +1,249 @@
<?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>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPgBAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iUmVhcHBseSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
LkdyZWVue2ZpbGw6IzAzOUMyMzt9Cjwvc3R5bGU+DQogIDxwb2x5Z29uIHBvaW50cz0iNCwyIDI4LDIg
MjgsNiAxOCwxNiAxOCwyNiAxNCwzMCAxNCwxNiA0LDYgIiBjbGFzcz0iWWVsbG93IiAvPg0KICA8cG9s
eWdvbiBwb2ludHM9IjI2LDI2IDI2LDE0IDI0LDE0IDI0LDI2IDIwLDI2IDI1LDMxIDMwLDI2ICIgY2xh
c3M9IkdyZWVuIiAvPg0KPC9zdmc+Cw==
</value>
</data>
<data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcFAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku
QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC
MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSXRlbVR5cGVD
aGVja2VkIj4NCiAgICA8Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lk
dGg9IjEwIiBoZWlnaHQ9IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8
cmVjdCB4PSIyMCIgeT0iMjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNz
PSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMw
LDAuNSwwLjUsMSwxLDFoMTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHog
TTE0LDMwSDRWMjAgICAgIGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0i
TTE0LDEwLjhWMTRINFY0aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwx
aDEyYzAuNSwwLDEtMC41LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwv
Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lkdGg9IjEwIiBoZWlnaHQ9
IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0i
MjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJCbGFjayIgLz4NCiAg
ICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMwLDAuNSwwLjUsMSwxLDFo
MTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHogTTE0LDMwSDRWMjAgICAg
IGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE0LDEwLjhWMTRINFY0
aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwxaDEyYzAuNSwwLDEtMC41
LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwvZz4NCiAgICA8L2c+DQog
ICAgPHBvbHlnb24gcG9pbnRzPSI2LDUgNiw4IDEwLDEyIDE4LDQgMTgsMSAxMCw5ICAiIGNsYXNzPSJH
cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value>
</data>
<data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMICAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzczNzM3NDt9Cgku
WWVsbG93e2ZpbGw6I0ZDQjAxQjt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5CbHVle2ZpbGw6IzM4
N0NCNzt9CgkuUmVke2ZpbGw6I0QwMjEyNzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tk
aXNwbGF5Om5vbmU7ZmlsbDojNzM3Mzc0O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRoLTN2MTBI
OFY0SDVDNC40LDQsNCw0LjQsNCw1djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTFW
NUMyOCw0LjQsMjcuNiw0LDI3LDR6IE0yNCwyNEg4di02ICBoMTZWMjR6IE0xMCw0djhoMTBWNEgxMHog
TTE0LDEwaC0yVjZoMlYxMHoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItem4.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKcCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZCI+DQogICAgPHBhdGggZD0iTTI3LDE0aC05VjVj
MC0wLjUtMC41LTEtMS0xaC0yYy0wLjUsMC0xLDAuNS0xLDF2OUg1Yy0wLjUsMC0xLDAuNS0xLDF2MmMw
LDAuNSwwLjUsMSwxLDFoOXY5ICAgYzAsMC41LDAuNSwxLDEsMWgyYzAuNSwwLDEtMC41LDEtMXYtOWg5
YzAuNSwwLDEtMC41LDEtMXYtMkMyOCwxNC41LDI3LjUsMTQsMjcsMTR6IiBjbGFzcz0iR3JlZW4iIC8+
DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItem5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkRlbGV0ZUNpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0x
Niw0QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHog
TTIzLjEsMjAuMmwtMi44LDIuOEwxNiwxOC44bC00LjIsNC4yICAgbC0yLjgtMi44bDQuMi00LjJsLTQu
Mi00LjJsMi44LTIuOGw0LjIsNC4ybDQuMi00LjJsMi44LDIuOEwxOC44LDE2TDIzLjEsMjAuMnoiIGNs
YXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItem6.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKcCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZCI+DQogICAgPHBhdGggZD0iTTI3LDE0aC05VjVj
MC0wLjUtMC41LTEtMS0xaC0yYy0wLjUsMC0xLDAuNS0xLDF2OUg1Yy0wLjUsMC0xLDAuNS0xLDF2MmMw
LDAuNSwwLjUsMSwxLDFoOXY5ICAgYzAsMC41LDAuNSwxLDEsMWgyYzAuNSwwLDEtMC41LDEtMXYtOWg5
YzAuNSwwLDEtMC41LDEtMXYtMkMyOCwxNC41LDI3LjUsMTQsMjcsMTR6IiBjbGFzcz0iR3JlZW4iIC8+
DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

284
ZooFlow/Modules/frmFolderImport.vb Normal file
View File

@@ -0,0 +1,284 @@
Imports System.IO
Imports System.Text.RegularExpressions
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.ZooFlow
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Public Class frmFolderImport
Private Logger As Logger
Private Property Environment As Environment
Private oFileList As List(Of String)
Private oDoctype_DT As DataTable
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
txtFolderbrowser.Text = FolderBrowserDialog1.SelectedPath
End If
End Sub
Private Sub frmFolderImport_Load(sender As Object, e As EventArgs) Handles Me.Load
Logger = My.LogConfig.GetLogger()
Environment = My.Application.GetEnvironment()
Try
Dim oSQL = "SELECT DISTINCT [DOCTYPE_ID] ,[Doctype] FROM [IDB].[dbo].[VWIDB_DOCTYPE_BUSINESS_ENTITY] where LANG_CODE = 'de-DE'"
oDoctype_DT = My.DatabaseIDB.GetDatatable(oSQL)
If Not IsNothing(oDoctype_DT) Then
cmbDoctype.DataSource = oDoctype_DT
cmbDoctype.ValueMember = oDoctype_DT.Columns(0).ColumnName
cmbDoctype.DisplayMember = oDoctype_DT.Columns(1).ColumnName
End If
oSQL = "select AttributeID,Attribute From VWIDB_ATTRIBUTE_LANG where LANG_CODE = 'de-DE'"
Dim oAttribute_DT As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
If Not IsNothing(oAttribute_DT) Then
cmbAttribute.DataSource = oAttribute_DT
cmbAttribute.ValueMember = oAttribute_DT.Columns(0).ColumnName
cmbAttribute.DisplayMember = oAttribute_DT.Columns(1).ColumnName
End If
Refresh_Profiles()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Refresh_Profiles()
Dim oSQL = "select GUID,TITLE From TBFOLDERIMPORT_PROFILE"
Dim oDTProfiles As DataTable = My.DatabaseECM.GetDatatable(oSQL)
If Not IsNothing(oDTProfiles) Then
cmbProfile.DataSource = oDTProfiles
cmbProfile.ValueMember = oDTProfiles.Columns(0).ColumnName
cmbProfile.DisplayMember = oDTProfiles.Columns(1).ColumnName
End If
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
Dim oTempFileList As List(Of String) = FnGetFileList(txtFolderbrowser.Text, txtRegex.Text)
Try
Dim oMsg = $"Es sollen [{oTempFileList.Count}] Dateien verarbeitet werden!"
MsgBox(oMsg, MsgBoxStyle.Information)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Function FnGetFileList(pFolder As String, pRegex As String) As List(Of String)
Try
Dim oTempFileList As New List(Of String)
Dim di As New DirectoryInfo(pFolder)
' Get a reference to each file in that directory.
Dim fiArr As FileInfo() = di.GetFiles()
' Display the names of the files.
Dim fri As FileInfo
Dim oMatchCount As Integer = 0
Dim oMatch As Boolean = False
For Each fri In fiArr
oMatch = True
If txtRegex.Text <> String.Empty Then
Dim regex As Regex = New Regex(pRegex)
' Step 2: call Match on Regex.
Dim match As Match = regex.Match(fri.Name)
' Step 3: test the Success bool.
' ... If we have Success, write the Value.
If match.Success Then
Else
oMatch = False
End If
End If
If oMatch = True Then
oMatchCount += 1
oTempFileList.Add(fri.FullName)
If NumericUpDownLimit.Value <> 0 Then
If NumericUpDownLimit.Value = oMatchCount Then
Logger.Info($"There is a limit for working files [{NumericUpDownLimit.Value}]! Exiting...")
Exit For
End If
End If
End If
Next fri
Return oTempFileList
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Function
Private Sub btnMoveTo_Click(sender As Object, e As EventArgs) Handles btnMoveTo.Click
If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
txtMoveTo.Text = FolderBrowserDialog1.SelectedPath
End If
End Sub
Private Async Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
Dim oTempFileList As List(Of String) = FnGetFileList(txtFolderbrowser.Text, txtRegex.Text)
If oTempFileList.Count > 0 Then
RepositoryItemProgressBar1.Maximum = oTempFileList.Count
Cursor = Cursors.WaitCursor
If cmbDoctype.SelectedIndex <> -1 And cmbAttribute.SelectedIndex <> -1 Then
BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Dim oCount As Integer = 0
Logger.Info($"WORK_TEMPFILELIST()...[{oTempFileList.Count}] files shall be worked!")
Dim oCountResult As Integer = 0
For Each oFile As String In oTempFileList
Dim oResult As Boolean = False
Try
Logger.Debug($"=== ForEachFile {oCount} =======================================")
Logger.Debug($"...Working on file [{oFile}]")
Dim oFilenameOnly = Path.GetFileName(oFile)
Dim oSplit() As String = oFilenameOnly.Split(txtSplitCharacter.Text)
Dim oSplitString As String = oSplit(NumSplitIndex.Value)
Logger.Debug($"...oSplitString [{oSplitString}]")
If Await StreamFile(oFile, cmbDoctype.SelectedValue, cmbAttribute.Text, oSplitString) = True Then
Logger.Info($"...File successfully worked!")
If txtMoveTo.Text <> String.Empty Then
Try
oResult = MoveFile(oFile, txtMoveTo.Text)
Catch ex As Exception
End Try
Else
oResult = False
End If
Else
oResult = False
End If
If oResult = True Then
oCountResult += 1
End If
Catch ex As Exception
Logger.Warn($"Error working on fileimport for file [{oFile}]")
Logger.Warn($"Error: [{ex.Message}]")
Logger.Error(ex)
End Try
oCount += 1
BarEditItem1.EditValue = oCount
Next
Dim oMSG = $"FileImport finished for [{oCountResult}] of [{oTempFileList.Count }] files!"
Logger.Info(oMSG)
Cursor = Cursors.Default
MsgBox(oMSG, MsgBoxStyle.Information)
BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
End If
End Sub
Private Async Function StreamFile(oFilename As String, pDoctypeID As Integer, pDescriptiveAttribute As String, pDescrValue As String) As Threading.Tasks.Task(Of Boolean)
Try
Dim oResponse As ImportFileResponse = Await My.Application.Service.Client.ImportFileAsync(
oFilename,
New List(Of UserAttributeValue) From {
New UserAttributeValue With {
.Name = pDescriptiveAttribute,
.Values = New List(Of String) From {pDescrValue}.ToArray
}
},
"WORK",
"DOC",
pDoctypeID
)
If oResponse.OK Then
Logger.Info($"File [{oFilename}] successfully imported!")
Return True
Else
Logger.Warn($"## ATTENTION: File [{oFilename}] was not imported! ##")
Return False
End If
Catch ex As Exception
Return False
End Try
End Function
Private Function MoveFile(pFile As String, pPathMove2 As String) As Boolean
Try
Dim oFilename = Path.GetFileName(pFile)
Dim oCombined = String.Concat(pPathMove2, "\", oFilename)
File.Move(pFile, oCombined)
Logger.Info($"...and moved to [{oCombined}]")
Return True
Catch ex As Exception
Logger.Error(ex)
Return False
End Try
End Function
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
Dim oSaveUpdate = $"EXEC PRIDBFOLDERIMPORT_PROFILE '{txtTitle.Text}','{txtFolderbrowser.Text}','{txtRegex.Text}',{NumericUpDownLimit.Value}, {cmbDoctype.SelectedValue},'{txtMoveTo.Text}','', '{My.Application.User.UserName}','{txtProfilID.Text}'"
Dim oProfile = txtTitle.Text
Dim oDT As DataTable
oDT = My.DatabaseECM.GetDatatable(oSaveUpdate)
If Not IsNothing(oDT) Then
Refresh_Profiles()
cmbDoctype.SelectedIndex = cmbProfile.FindStringExact(oProfile)
End If
End Sub
Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
txtFolderbrowser.Text = ""
txtTitle.Text = ""
txtRegex.Text = ""
NumericUpDownLimit.Value = 0
txtMoveTo.Text = ""
cmbDoctype.SelectedIndex = -1
End Sub
Private Sub cmbProfile_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbProfile.SelectedIndexChanged
If cmbProfile.SelectedIndex <> -1 Then
If IsNumeric(cmbProfile.SelectedValue) Then
Dim oSQL = $"SELECT * FROM TBFOLDERIMPORT_PROFILE WHERE GUID = {cmbProfile.SelectedValue}"
Dim oDT As DataTable
oDT = My.DatabaseECM.GetDatatable(oSQL)
If Not IsNothing(oDT) Then
txtProfilID.Text = oDT.Rows(0).Item("GUID")
txtFolderbrowser.Text = oDT.Rows(0).Item("IMPORT_PATH")
txtTitle.Text = oDT.Rows(0).Item("TITLE")
txtRegex.Text = oDT.Rows(0).Item("REGEX_FILENAME")
NumericUpDownLimit.Value = oDT.Rows(0).Item("LIMIT_FILECOUNT")
txtMoveTo.Text = oDT.Rows(0).Item("ARCHIVE_PATH")
Dim oDoctype As String
For Each oRow As DataRow In oDoctype_DT.Rows
If oRow.Item(0) = oDT.Rows(0).Item("DOCTYPE_ID") Then
oDoctype = oRow.Item(1)
Exit For
End If
Next
Dim o1 = cmbDoctype.FindStringExact(oDoctype)
cmbDoctype.SelectedIndex = o1
txtAddedWho.Text = oDT.Rows(0).Item("ADDED_WHO")
txtAddedWhen.Text = oDT.Rows(0).Item("ADDED_WHEN")
txtChangedWho.Text = IIf(IsDBNull(oDT.Rows(0).Item("CHANGED_WHO")), "", oDT.Rows(0).Item("CHANGED_WHO"))
txtChangedWhen.Text = IIf(IsDBNull(oDT.Rows(0).Item("CHANGED_WHEN")), "", oDT.Rows(0).Item("CHANGED_WHEN"))
Dim oSQLSplit = $"SELECT GUID as ID,PRAEFIX as Praefix,SPLIT_CHARACTER Character, SPLIT_POS as SplitPos,SUFFIX as Suffix FROM TBFOLDERIMPORT_STEP_ATTRIBUTE_SPLIT WHERE PROFILE_ID = {oDT.Rows(0).Item("GUID")}"
Dim oDT_Split As DataTable
oDT_Split = My.DatabaseECM.GetDatatable(oSQL)
GridControlSplit.DataSource = oDT_Split
Else
txtProfilID.Text = ""
End If
End If
End If
End Sub
Private Sub GridControlSplit_MouseClick(sender As Object, e As MouseEventArgs) Handles GridControlSplit.MouseClick
RibbonPageGroup4.Visible = True
RibbonPageGroup3.Enabled = False
End Sub
Private Sub GridControlSplit_Leave(sender As Object, e As EventArgs) Handles GridControlSplit.Leave
RibbonPageGroup4.Visible = False
RibbonPageGroup3.Enabled = True
End Sub
End Class

40
ZooFlow/My Project/Resources.Designer.vb generated
View File

@@ -500,6 +500,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property actions_deletecircled7() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("actions_deletecircled7", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
@@ -990,6 +1000,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property delete2() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("delete2", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
@@ -1340,6 +1360,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property menu() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("menu", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
@@ -1490,6 +1520,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property save10() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("save10", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>

40
ZooFlow/My Project/Resources.resx
View File

@@ -244,6 +244,9 @@
<data name="del2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="delete2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\delete2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="Flow" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Flow.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -289,6 +292,9 @@
<data name="deletetable" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\deletetable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="actions_check3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_check3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="3_PERSON_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\3_PERSON_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -313,15 +319,12 @@
<data name="actions_check4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_check5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="actions_check3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_check3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="save10" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save10.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="save5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="updatedataextract" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\updatedataextract.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="previousview" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\previousview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
@@ -352,8 +355,8 @@
<data name="singlepageview" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="documentproperties" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\documentproperties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="ZooFlow_G_DevExpress" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow_G_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="1_LOGO_ZOO_FLOW" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1_LOGO_ZOO_FLOW.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -376,9 +379,6 @@
<data name="new4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\new4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="ZooFlow_G_DevExpress" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow_G_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="save6" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
@@ -454,6 +454,9 @@
<data name="definednameuseinformula1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\definednameuseinformula1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="menu" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\menu.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="CW_GEFUNDEN_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CW_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -538,12 +541,15 @@
<data name="actions_deletecircled5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_deletecircled5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="4_GLOBIX_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\4_GLOBIX_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="updatedataextract" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\updatedataextract.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="ZOOFLOW_DRAG_PROGRESSIVE" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZOOFLOW_DRAG_PROGRESSIVE.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="documentproperties" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\documentproperties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="Compare_RefreshScriptPreview" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Compare_RefreshScriptPreview.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -574,6 +580,9 @@
<data name="ZooFlow_Sidebar_TOP" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow_Sidebar_TOP.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="columnheaders" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\columnheaders.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="definednameuseinformula2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\definednameuseinformula2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
@@ -634,6 +643,9 @@
<data name="save8" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save8.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="4_GLOBIX_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\4_GLOBIX_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="servermode" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\servermode.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
@@ -661,7 +673,7 @@
<data name="del3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="columnheaders" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\columnheaders.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="actions_deletecircled7" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_deletecircled7.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
</root>

18
ZooFlow/My Project/licenses.licx
View File

@@ -1,12 +1,14 @@
DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ImageComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

15
ZooFlow/Resources/actions_deletecircled7.svg Normal file
View File

@@ -0,0 +1,15 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Blue{fill:#1177D7;}
.Yellow{fill:#FFB115;}
.Black{fill:#727272;}
.Green{fill:#039C23;}
.Red{fill:#D11C1C;}
.st0{opacity:0.75;}
.st1{opacity:0.5;}
</style>
<g id="DeleteCircled">
<path d="M16,4C9.4,4,4,9.4,4,16s5.4,12,12,12s12-5.4,12-12S22.6,4,16,4z M23.1,20.2l-2.8,2.8L16,18.8l-4.2,4.2 l-2.8-2.8l4.2-4.2l-4.2-4.2l2.8-2.8l4.2,4.2l4.2-4.2l2.8,2.8L18.8,16L23.1,20.2z" class="Red" />
</g>
</svg>

18
ZooFlow/Resources/delete2.svg Normal file
View File

@@ -0,0 +1,18 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Red{fill:#D11C1C;}
.Black{fill:#727272;}
.Blue{fill:#1177D7;}
.Green{fill:#039C23;}
.Yellow{fill:#FFB115;}
.White{fill:#FFFFFF;}
.st0{opacity:0.5;}
.st1{opacity:0.75;}
</style>
<g id="Delete">
<g>
<path d="M18.8,16l6.9-6.9c0.4-0.4,0.4-1,0-1.4l-1.4-1.4c-0.4-0.4-1-0.4-1.4,0L16,13.2L9.1,6.3c-0.4-0.4-1-0.4-1.4,0 L6.3,7.7c-0.4,0.4-0.4,1,0,1.4l6.9,6.9l-6.9,6.9c-0.4,0.4-0.4,1,0,1.4l1.4,1.4c0.4,0.4,1,0.4,1.4,0l6.9-6.9l6.9,6.9 c0.4,0.4,1,0.4,1.4,0l1.4-1.4c0.4-0.4,0.4-1,0-1.4L18.8,16z" class="Red" />
</g>
</g>
</svg>

16
ZooFlow/Resources/menu.svg Normal file
View File

@@ -0,0 +1,16 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Yellow{fill:#FFB115;}
.Red{fill:#D11C1C;}
.Blue{fill:#1177D7;}
.Green{fill:#039C23;}
.Black{fill:#727272;}
.White{fill:#FFFFFF;}
.st0{opacity:0.75;}
</style>
<g id="Menu">
<path d="M2,10V3c0-0.5,0.5-1,1-1h26c0.5,0,1,0.5,1,1v7H2z M9,12c-1.7,0-3,1.3-3,3s1.3,3,3,3s3-1.3,3-3S10.7,12,9,12z M9,20c-1.7,0-3,1.3-3,3s1.3,3,3,3s3-1.3,3-3S10.7,20,9,20z" class="Blue" />
<path d="M30,10v19c0,0.5-0.5,1-1,1H3c-0.5,0-1-0.5-1-1V10h2v18h24V10H30z M24,14H14v2h10V14z M24,22H14v2h10V22z" class="Black" />
</g>
</svg>

16
ZooFlow/Resources/save10.svg Normal file
View File

@@ -0,0 +1,16 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Black{fill:#737374;}
.Yellow{fill:#FCB01B;}
.Green{fill:#129C49;}
.Blue{fill:#387CB7;}
.Red{fill:#D02127;}
.White{fill:#FFFFFF;}
.st0{opacity:0.5;}
.st1{opacity:0.75;}
.st2{opacity:0.25;}
.st3{display:none;fill:#737374;}
</style>
<path d="M27,4h-3v10H8V4H5C4.4,4,4,4.4,4,5v22c0,0.6,0.4,1,1,1h22c0.6,0,1-0.4,1-1V5C28,4.4,27.6,4,27,4z M24,24H8v-6 h16V24z M10,4v8h10V4H10z M14,10h-2V6h2V10z" class="Black" />
</svg>

7
ZooFlow/Search/SavedSearch.vb
View File

@@ -19,7 +19,6 @@ Namespace SavedSearch
Public Class PredefinedDateSearch
Inherits SavedSearch
'Public Property Image As SvgImage
Public Overrides Property GroupText As String = "Vordefiniert"
Public Property DateConstraint As Search.SearchRunner.DateConstraint
@@ -28,10 +27,12 @@ Namespace SavedSearch
Public Class CustomSearch
Inherits SavedSearch
'Public Property Image As SvgImage
Public Overrides Property GroupText As String = "Eigene"
Public Tokens As New List(Of Search.SearchToken.Token)
Public Property Guid As Integer
Public Property IsSystem As Boolean = False
Public Property Tokens As New List(Of Search.SearchToken.Token)
End Class
<XmlInclude(GetType(Search.SearchToken.Token))>

56
ZooFlow/Search/SearchLoader.vb
View File

@@ -69,23 +69,59 @@ Namespace Search
End Function
Public Function LoadCustomSearches() As List(Of SavedSearch.SavedSearch)
Dim oSearches As New List(Of SavedSearch.SavedSearch)
Dim oSQL As String = $"
Try
Dim oSearches As New List(Of SavedSearch.SavedSearch)
Dim oSQL As String = $"
SELECT DEF.*
FROM [TBIDB_SEARCH_DEFINITION] DEF
JOIN [TBIDB_SEARCH_DEF_RELATIONS] REL ON REL.SEARCH_ID = DEF.GUID
WHERE REL.USR_ID = {UserState.UserId}
"
Dim oTable = Database.GetDatatable(oSQL)
Dim oTable = Database.GetDatatable(oSQL)
For Each oRow As DataRow In oTable.Rows
Dim oBase64 = oRow.Item("XML_VALUE")
Dim oBuffer = System.Convert.FromBase64String(oBase64)
Dim oSearch = DeserializeSearch(oBuffer)
oSearches.Add(oSearch)
Next
For Each oRow As DataRow In oTable.Rows
Dim oBase64 = oRow.Item("XML_VALUE")
Dim oBuffer = System.Convert.FromBase64String(oBase64)
Dim oSearch = DeserializeSearch(oBuffer)
oSearch.Guid = oRow.ItemEx("GUID", 0)
oSearch.IsSystem = oRow.ItemEx("SYS_SEARCH", False)
oSearches.Add(oSearch)
Next
Return oSearches
Return oSearches
Catch ex As Exception
Logger.Error(ex)
Return New List(Of SavedSearch.SavedSearch)
End Try
End Function
Public Function SaveSearch(pSearch As SavedSearch.CustomSearch) As Boolean
Try
Dim oBuffer = SerializeSearch(pSearch)
Dim oBase64 = System.Convert.ToBase64String(oBuffer)
Dim oSQL = $"UPDATE [TBIDB_SEARCH_DEFINITION] SET
TITLE = '{pSearch.Name}',
DESCRIPTION = '{pSearch.Description}',
XML_FILE = '{oBase64}',
CHANGE_WHO = '{UserState.UserName}'
WHERE GUID = {pSearch.Guid}"
Return Database.ExecuteNonQuery(oSQL)
Catch ex As Exception
Logger.Error(ex)
Return False
End Try
End Function
Public Function DeleteSearch(pSearch As SavedSearch.CustomSearch) As Boolean
Try
Dim oSQL = $"DELETE FROM [TBIDB_SEARCH_DEFINITION] WHERE GUID = {pSearch.Guid}"
Return Database.ExecuteNonQuery(oSQL)
Catch ex As Exception
Logger.Error(ex)
Return False
End Try
End Function
Public Function LoadPredefinedSearches() As List(Of SavedSearch.SavedSearch)

345
ZooFlow/Search/frmListSearches.Designer.vb generated Normal file
View File

@@ -0,0 +1,345 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmListSearches
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'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.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.btnSave = New DevExpress.XtraBars.BarButtonItem()
Me.btnDelete = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.GridControlSearches = New DevExpress.XtraGrid.GridControl()
Me.GridViewSearches = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colName = New DevExpress.XtraGrid.Columns.GridColumn()
Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
Me.peSearchImage = New DevExpress.XtraEditors.PictureEdit()
Me.txtDescription = New DevExpress.XtraEditors.TextEdit()
Me.txtTitle = New DevExpress.XtraEditors.TextEdit()
Me.cmbImages = New DevExpress.XtraEditors.ImageComboBoxEdit()
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlSearches, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewSearches, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl1.Panel1.SuspendLayout()
CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl1.SuspendLayout()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControl1.SuspendLayout()
CType(Me.peSearchImage.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDescription.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTitle.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cmbImages.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'RibbonControl1
'
Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.btnSave, Me.btnDelete})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 3
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.Size = New System.Drawing.Size(1049, 158)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'btnSave
'
Me.btnSave.Caption = "Speichern"
Me.btnSave.Id = 1
Me.btnSave.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save10
Me.btnSave.Name = "btnSave"
'
'btnDelete
'
Me.btnDelete.Caption = "Löschen"
Me.btnDelete.Id = 2
Me.btnDelete.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_deletecircled7
Me.btnDelete.Name = "btnDelete"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Start"
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.btnSave)
Me.RibbonPageGroup1.ItemLinks.Add(Me.btnDelete)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Suche"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 711)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1049, 24)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'GridControlSearches
'
Me.GridControlSearches.Dock = System.Windows.Forms.DockStyle.Left
Me.GridControlSearches.Location = New System.Drawing.Point(0, 158)
Me.GridControlSearches.MainView = Me.GridViewSearches
Me.GridControlSearches.MenuManager = Me.RibbonControl1
Me.GridControlSearches.Name = "GridControlSearches"
Me.GridControlSearches.Size = New System.Drawing.Size(324, 553)
Me.GridControlSearches.TabIndex = 2
Me.GridControlSearches.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearches})
'
'GridViewSearches
'
Me.GridViewSearches.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName})
Me.GridViewSearches.GridControl = Me.GridControlSearches
Me.GridViewSearches.Name = "GridViewSearches"
'
'colName
'
Me.colName.Caption = "Name"
Me.colName.FieldName = "Name"
Me.colName.Name = "colName"
Me.colName.Visible = True
Me.colName.VisibleIndex = 0
'
'SplitContainerControl1
'
Me.SplitContainerControl1.Collapsed = True
Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerControl1.Location = New System.Drawing.Point(324, 158)
Me.SplitContainerControl1.Name = "SplitContainerControl1"
'
'SplitContainerControl1.Panel1
'
Me.SplitContainerControl1.Panel1.Controls.Add(Me.LayoutControl1)
Me.SplitContainerControl1.Panel1.Text = "Panel1"
'
'SplitContainerControl1.Panel2
'
Me.SplitContainerControl1.Panel2.Text = "Panel2"
Me.SplitContainerControl1.Size = New System.Drawing.Size(725, 553)
Me.SplitContainerControl1.SplitterPosition = 529
Me.SplitContainerControl1.TabIndex = 3
'
'LayoutControl1
'
Me.LayoutControl1.Controls.Add(Me.peSearchImage)
Me.LayoutControl1.Controls.Add(Me.txtDescription)
Me.LayoutControl1.Controls.Add(Me.txtTitle)
Me.LayoutControl1.Controls.Add(Me.cmbImages)
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.LayoutControl1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControl1.Name = "LayoutControl1"
Me.LayoutControl1.Root = Me.Root
Me.LayoutControl1.Size = New System.Drawing.Size(715, 553)
Me.LayoutControl1.TabIndex = 0
Me.LayoutControl1.Text = "LayoutControl1"
'
'peSearchImage
'
Me.peSearchImage.Location = New System.Drawing.Point(570, 12)
Me.peSearchImage.MenuManager = Me.RibbonControl1
Me.peSearchImage.Name = "peSearchImage"
Me.peSearchImage.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
Me.peSearchImage.Size = New System.Drawing.Size(133, 126)
Me.peSearchImage.StyleController = Me.LayoutControl1
Me.peSearchImage.TabIndex = 4
'
'txtDescription
'
Me.txtDescription.Location = New System.Drawing.Point(102, 60)
Me.txtDescription.MenuManager = Me.RibbonControl1
Me.txtDescription.Name = "txtDescription"
Me.txtDescription.Size = New System.Drawing.Size(456, 20)
Me.txtDescription.StyleController = Me.LayoutControl1
Me.txtDescription.TabIndex = 5
'
'txtTitle
'
Me.txtTitle.Location = New System.Drawing.Point(102, 20)
Me.txtTitle.MenuManager = Me.RibbonControl1
Me.txtTitle.Name = "txtTitle"
Me.txtTitle.Size = New System.Drawing.Size(456, 20)
Me.txtTitle.StyleController = Me.LayoutControl1
Me.txtTitle.TabIndex = 6
'
'cmbImages
'
Me.cmbImages.Location = New System.Drawing.Point(102, 100)
Me.cmbImages.MenuManager = Me.RibbonControl1
Me.cmbImages.Name = "cmbImages"
Me.cmbImages.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.cmbImages.Size = New System.Drawing.Size(456, 20)
Me.cmbImages.StyleController = Me.LayoutControl1
Me.cmbImages.TabIndex = 7
'
'Root
'
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2, Me.LayoutControlItem3, Me.EmptySpaceItem1, Me.LayoutControlItem4, Me.LayoutControlItem1, Me.EmptySpaceItem2})
Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(715, 553)
Me.Root.TextVisible = False
'
'LayoutControlItem2
'
Me.LayoutControlItem2.Control = Me.txtDescription
Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 40)
Me.LayoutControlItem2.Name = "LayoutControlItem2"
Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem2.Size = New System.Drawing.Size(558, 40)
Me.LayoutControlItem2.Text = "Beschreibung"
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(70, 13)
'
'LayoutControlItem3
'
Me.LayoutControlItem3.Control = Me.txtTitle
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem3.Size = New System.Drawing.Size(558, 40)
Me.LayoutControlItem3.Text = "Name"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(70, 13)
'
'EmptySpaceItem1
'
Me.EmptySpaceItem1.AllowHotTrack = False
Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 120)
Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
Me.EmptySpaceItem1.Size = New System.Drawing.Size(558, 10)
Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
'
'LayoutControlItem4
'
Me.LayoutControlItem4.Control = Me.cmbImages
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 80)
Me.LayoutControlItem4.Name = "LayoutControlItem4"
Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem4.Size = New System.Drawing.Size(558, 40)
Me.LayoutControlItem4.Text = "Icon"
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(70, 13)
'
'LayoutControlItem1
'
Me.LayoutControlItem1.Control = Me.peSearchImage
Me.LayoutControlItem1.Location = New System.Drawing.Point(558, 0)
Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Size = New System.Drawing.Size(137, 130)
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem1.TextVisible = False
'
'EmptySpaceItem2
'
Me.EmptySpaceItem2.AllowHotTrack = False
Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 130)
Me.EmptySpaceItem2.Name = "EmptySpaceItem2"
Me.EmptySpaceItem2.Size = New System.Drawing.Size(695, 403)
Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0)
'
'frmListSearches
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1049, 735)
Me.Controls.Add(Me.SplitContainerControl1)
Me.Controls.Add(Me.GridControlSearches)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.Name = "frmListSearches"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "frmListSearches"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControlSearches, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewSearches, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.Panel1.ResumeLayout(False)
CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.ResumeLayout(False)
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.LayoutControl1.ResumeLayout(False)
CType(Me.peSearchImage.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDescription.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTitle.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cmbImages.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents GridControlSearches As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewSearches As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents peSearchImage As DevExpress.XtraEditors.PictureEdit
Friend WithEvents txtDescription As DevExpress.XtraEditors.TextEdit
Friend WithEvents txtTitle As DevExpress.XtraEditors.TextEdit
Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
Friend WithEvents EmptySpaceItem2 As DevExpress.XtraLayout.EmptySpaceItem
Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents cmbImages As DevExpress.XtraEditors.ImageComboBoxEdit
Friend WithEvents btnSave As DevExpress.XtraBars.BarButtonItem
Friend WithEvents btnDelete As DevExpress.XtraBars.BarButtonItem
End Class

120
ZooFlow/Search/frmListSearches.resx Normal file
View File

@@ -0,0 +1,120 @@
<?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>
</root>

74
ZooFlow/Search/frmListSearches.vb Normal file
View File

@@ -0,0 +1,74 @@
Imports DevExpress.Utils
Imports DevExpress.Utils.Svg
Imports DevExpress.XtraGrid
Imports DigitalData.GUIs.ZooFlow.Search
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging
Public Class frmListSearches
Private ReadOnly LogConfig As LogConfig
Private ReadOnly Logger As Logger
Private ReadOnly Database As MSSQLServer
Private SearchLoader As SearchLoader
Private Searches As List(Of SavedSearch.SavedSearch)
Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
LogConfig = pLogConfig
Logger = pLogConfig.GetLogger
Database = pDatabase
End Sub
Private Sub frmListSearches_Load(sender As Object, e As EventArgs) Handles MyBase.Load
SearchLoader = New SearchLoader(My.LogConfig, My.DatabaseIDB, My.Application.User, frmSearchFlow.SvgImageCollection1)
Searches = SearchLoader.LoadCustomSearches()
GridControlSearches.DataSource = Searches
GridViewSearches.FocusedRowHandle = GridControl.InvalidRowHandle
Dim oImages = frmEditSearch.Images
For Each oImage As SvgImageInfo In oImages.ImageInfos
Dim oItem = New DevExpress.XtraEditors.Controls.ImageComboBoxItem(oImage.Name, oImage.Bitmap)
cmbImages.Properties.Items.Add(oItem)
Next
End Sub
Private Sub GridViewSearches_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewSearches.FocusedRowChanged
Dim oSearch As SavedSearch.CustomSearch = GridViewSearches.GetRow(GridViewSearches.FocusedRowHandle)
If oSearch IsNot Nothing Then
txtTitle.EditValue = oSearch.Name
txtDescription.EditValue = oSearch.Description
peSearchImage.EditValue = oSearch.Image
btnDelete.Enabled = True
btnSave.Enabled = True
Else
btnDelete.Enabled = False
btnSave.Enabled = False
End If
End Sub
Private Sub cmbImages_SelectedValueChanged(sender As Object, e As EventArgs) Handles cmbImages.SelectedValueChanged
Dim oImage As SvgBitmap = cmbImages.EditValue
peSearchImage.EditValue = oImage.SvgImage
End Sub
Private Sub btnSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnSave.ItemClick
Dim oSearch As SavedSearch.CustomSearch = GridViewSearches.GetRow(GridViewSearches.FocusedRowHandle)
If oSearch IsNot Nothing Then
oSearch.Name = txtTitle.EditValue
oSearch.Description = txtDescription.EditValue
oSearch.Image = peSearchImage.EditValue
SearchLoader.SaveSearch(oSearch)
End If
End Sub
Private Sub btnDelete_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnDelete.ItemClick
End Sub
End Class

169
ZooFlow/Search/frmSearchFlow.Designer.vb generated
View File

@@ -23,19 +23,19 @@ Partial Class frmSearchFlow
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim ItemTemplate2 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate()
Dim TableColumnDefinition5 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableColumnDefinition6 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TileViewItemElement6 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TileViewItemElement7 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TableRowDefinition4 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TableColumnDefinition7 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableColumnDefinition8 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableRowDefinition5 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TableRowDefinition6 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TileViewItemElement8 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TileViewItemElement9 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TileViewItemElement10 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim ItemTemplate1 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate()
Dim TableColumnDefinition1 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableColumnDefinition2 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TileViewItemElement1 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TileViewItemElement2 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TableRowDefinition1 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TableColumnDefinition3 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableColumnDefinition4 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableRowDefinition2 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TableRowDefinition3 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TileViewItemElement3 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TileViewItemElement4 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TileViewItemElement5 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Me.colName = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.colImage = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.colDescription = New DevExpress.XtraGrid.Columns.TileViewColumn()
@@ -56,10 +56,12 @@ Partial Class frmSearchFlow
Me.BarEditItem2 = New DevExpress.XtraBars.BarEditItem()
Me.RepositoryItemTrackBar2 = New DevExpress.XtraEditors.Repository.RepositoryItemTrackBar()
Me.BarCheckItem1 = New DevExpress.XtraBars.BarCheckItem()
Me.btnEditMySearches = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RepositoryItemMarqueeProgressBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemMarqueeProgressBar()
@@ -148,9 +150,9 @@ Partial Class frmSearchFlow
'
Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.lblResults, Me.chkOperatorAnd, Me.chkOperatorOr, Me.chkDatefilter2, Me.BarCheckItem4, Me.chkSearchEverywhere, Me.BarButtonItem1, Me.BarButtonItem2, Me.btnSaveSearch, Me.chkGridVertical, Me.chkGridHorizontal, Me.BarEditItem1, Me.BarEditItem2, Me.BarCheckItem1})
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.lblResults, Me.chkOperatorAnd, Me.chkOperatorOr, Me.chkDatefilter2, Me.BarCheckItem4, Me.chkSearchEverywhere, Me.BarButtonItem1, Me.BarButtonItem2, Me.btnSaveSearch, Me.chkGridVertical, Me.chkGridHorizontal, Me.BarEditItem1, Me.BarEditItem2, Me.BarCheckItem1, Me.btnEditMySearches})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 30
Me.RibbonControl1.MaxItemId = 31
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3})
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemMarqueeProgressBar1, Me.RepositoryItemTrackBar1, Me.RepositoryItemTrackBar2})
@@ -158,7 +160,7 @@ Partial Class frmSearchFlow
Me.RibbonControl1.ShowDisplayOptionsMenuButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Show
Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.Size = New System.Drawing.Size(954, 160)
Me.RibbonControl1.Size = New System.Drawing.Size(954, 158)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
'
@@ -265,7 +267,7 @@ Partial Class frmSearchFlow
'
'BarEditItem2
'
Me.BarEditItem2.Caption = "BarEditItem2"
Me.BarEditItem2.Caption = "Spalten"
Me.BarEditItem2.Edit = Me.RepositoryItemTrackBar2
Me.BarEditItem2.Id = 27
Me.BarEditItem2.Name = "BarEditItem2"
@@ -284,9 +286,16 @@ Partial Class frmSearchFlow
Me.BarCheckItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.columnheaders
Me.BarCheckItem1.Name = "BarCheckItem1"
'
'btnEditMySearches
'
Me.btnEditMySearches.Caption = "Meine Suchen bearbeiten"
Me.btnEditMySearches.Id = 30
Me.btnEditMySearches.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.menu
Me.btnEditMySearches.Name = "btnEditMySearches"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup5})
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup5, Me.RibbonPageGroup4})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Suche"
'
@@ -313,6 +322,12 @@ Partial Class frmSearchFlow
Me.RibbonPageGroup5.Name = "RibbonPageGroup5"
Me.RibbonPageGroup5.Text = "Begriffsverknüpfung"
'
'RibbonPageGroup4
'
Me.RibbonPageGroup4.ItemLinks.Add(Me.btnEditMySearches)
Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
Me.RibbonPageGroup4.Text = "Meine Suchen"
'
'RibbonPage3
'
Me.RibbonPage3.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3})
@@ -337,10 +352,10 @@ Partial Class frmSearchFlow
'
Me.RibbonStatusBar1.BackColor = System.Drawing.Color.Red
Me.RibbonStatusBar1.ItemLinks.Add(Me.lblResults)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 674)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 672)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(954, 22)
Me.RibbonStatusBar1.Size = New System.Drawing.Size(954, 24)
'
'RibbonPage2
'
@@ -351,7 +366,7 @@ Partial Class frmSearchFlow
'
Me.PanelControl1.Controls.Add(Me.PanelControl2)
Me.PanelControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.PanelControl1.Location = New System.Drawing.Point(0, 160)
Me.PanelControl1.Location = New System.Drawing.Point(0, 158)
Me.PanelControl1.Name = "PanelControl1"
Me.PanelControl1.Padding = New System.Windows.Forms.Padding(30)
Me.PanelControl1.Size = New System.Drawing.Size(954, 514)
@@ -427,61 +442,61 @@ Partial Class frmSearchFlow
Me.ViewSearches.OptionsTiles.RowCount = 2
Me.ViewSearches.OptionsTiles.VerticalContentAlignment = DevExpress.Utils.VertAlignment.Center
Me.ViewSearches.SortInfo.AddRange(New DevExpress.XtraGrid.Columns.GridColumnSortInfo() {New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.colGroupText, DevExpress.Data.ColumnSortOrder.Ascending)})
TableColumnDefinition5.Length.Value = 35.0R
TableColumnDefinition5.PaddingRight = 5
TableColumnDefinition6.Length.Value = 129.0R
ItemTemplate2.Columns.Add(TableColumnDefinition5)
ItemTemplate2.Columns.Add(TableColumnDefinition6)
TileViewItemElement6.Column = Me.colName
TileViewItemElement6.ColumnIndex = 1
TileViewItemElement6.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement6.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement6.Text = "colName"
TileViewItemElement6.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement7.Column = Me.colImage
TileViewItemElement7.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement7.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement7.Text = "colImage"
TileViewItemElement7.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
ItemTemplate2.Elements.Add(TileViewItemElement6)
ItemTemplate2.Elements.Add(TileViewItemElement7)
ItemTemplate2.Name = "DefaultSmall"
TableRowDefinition4.Length.Value = 43.0R
ItemTemplate2.Rows.Add(TableRowDefinition4)
Me.ViewSearches.Templates.Add(ItemTemplate2)
TableColumnDefinition7.Length.Value = 35.0R
TableColumnDefinition7.PaddingRight = 5
TableColumnDefinition8.Length.Value = 111.0R
Me.ViewSearches.TileColumns.Add(TableColumnDefinition7)
Me.ViewSearches.TileColumns.Add(TableColumnDefinition8)
TableRowDefinition5.Length.Value = 17.0R
TableRowDefinition6.Length.Value = 45.0R
Me.ViewSearches.TileRows.Add(TableRowDefinition5)
Me.ViewSearches.TileRows.Add(TableRowDefinition6)
TileViewItemElement8.Appearance.Normal.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold)
TileViewItemElement8.Appearance.Normal.Options.UseFont = True
TileViewItemElement8.Column = Me.colName
TileViewItemElement8.ColumnIndex = 1
TileViewItemElement8.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement8.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement8.Text = "colName"
TileViewItemElement8.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement9.Column = Me.colImage
TileViewItemElement9.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement9.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement9.RowIndex = 1
TileViewItemElement9.Text = "colImage"
TileViewItemElement9.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement10.Column = Me.colDescription
TileViewItemElement10.ColumnIndex = 1
TileViewItemElement10.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement10.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement10.RowIndex = 1
TileViewItemElement10.Text = "colDescription"
TileViewItemElement10.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
Me.ViewSearches.TileTemplate.Add(TileViewItemElement8)
Me.ViewSearches.TileTemplate.Add(TileViewItemElement9)
Me.ViewSearches.TileTemplate.Add(TileViewItemElement10)
TableColumnDefinition1.Length.Value = 35.0R
TableColumnDefinition1.PaddingRight = 5
TableColumnDefinition2.Length.Value = 129.0R
ItemTemplate1.Columns.Add(TableColumnDefinition1)
ItemTemplate1.Columns.Add(TableColumnDefinition2)
TileViewItemElement1.Column = Me.colName
TileViewItemElement1.ColumnIndex = 1
TileViewItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement1.Text = "colName"
TileViewItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement2.Column = Me.colImage
TileViewItemElement2.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement2.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement2.Text = "colImage"
TileViewItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
ItemTemplate1.Elements.Add(TileViewItemElement1)
ItemTemplate1.Elements.Add(TileViewItemElement2)
ItemTemplate1.Name = "DefaultSmall"
TableRowDefinition1.Length.Value = 43.0R
ItemTemplate1.Rows.Add(TableRowDefinition1)
Me.ViewSearches.Templates.Add(ItemTemplate1)
TableColumnDefinition3.Length.Value = 35.0R
TableColumnDefinition3.PaddingRight = 5
TableColumnDefinition4.Length.Value = 111.0R
Me.ViewSearches.TileColumns.Add(TableColumnDefinition3)
Me.ViewSearches.TileColumns.Add(TableColumnDefinition4)
TableRowDefinition2.Length.Value = 17.0R
TableRowDefinition3.Length.Value = 45.0R
Me.ViewSearches.TileRows.Add(TableRowDefinition2)
Me.ViewSearches.TileRows.Add(TableRowDefinition3)
TileViewItemElement3.Appearance.Normal.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold)
TileViewItemElement3.Appearance.Normal.Options.UseFont = True
TileViewItemElement3.Column = Me.colName
TileViewItemElement3.ColumnIndex = 1
TileViewItemElement3.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement3.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement3.Text = "colName"
TileViewItemElement3.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement4.Column = Me.colImage
TileViewItemElement4.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement4.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement4.RowIndex = 1
TileViewItemElement4.Text = "colImage"
TileViewItemElement4.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement5.Column = Me.colDescription
TileViewItemElement5.ColumnIndex = 1
TileViewItemElement5.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement5.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement5.RowIndex = 1
TileViewItemElement5.Text = "colDescription"
TileViewItemElement5.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
Me.ViewSearches.TileTemplate.Add(TileViewItemElement3)
Me.ViewSearches.TileTemplate.Add(TileViewItemElement4)
Me.ViewSearches.TileTemplate.Add(TileViewItemElement5)
'
'colGroupText
'
@@ -756,4 +771,6 @@ Partial Class frmSearchFlow
Friend WithEvents RepositoryItemTrackBar2 As DevExpress.XtraEditors.Repository.RepositoryItemTrackBar
Friend WithEvents BarCheckItem1 As DevExpress.XtraBars.BarCheckItem
Friend WithEvents colSelected As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents btnEditMySearches As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
End Class

17
ZooFlow/Search/frmSearchFlow.vb
View File

@@ -116,12 +116,12 @@ Public Class frmSearchFlow
Private Function LoadDateAttributes() As List(Of String)
Try
Dim oAttributes = My.Tables.DTIDB_ATTRIBUTE.
AsEnumerable().
Where(Function(row) CBool(row.Item("SYS_ATTRIBUTE")) = False).
Where(Function(row) row.Item("TYP_ID") = 5 Or row.Item("TYP_ID") = 6).
Select(Function(row) row.Item("ATTR_TITLE")).
Cast(Of String).
ToList()
AsEnumerable().
Where(Function(row) CBool(row.Item("SYS_ATTRIBUTE")) = False).
Where(Function(row) row.Item("TYP_ID") = 5 Or row.Item("TYP_ID") = 6).
Select(Function(row) row.Item("ATTR_TITLE")).
Cast(Of String).
ToList()
If My.Application.User.Language = "de-DE" Then
oAttributes.Add(IDB_ADDED_WHEN_String_German)
@@ -400,4 +400,9 @@ Public Class frmSearchFlow
e.Handled = False
End If
End Sub
Private Sub btnEditMySearches_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnEditMySearches.ItemClick
Dim oForm As New frmListSearches(LogConfig, My.DatabaseIDB)
oForm.ShowDialog()
End Sub
End Class

23
ZooFlow/ZooFlow.vbproj
View File

@@ -369,6 +369,12 @@
<Compile Include="frmTest.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Modules\frmFolderImport.Designer.vb">
<DependentUpon>frmFolderImport.vb</DependentUpon>
</Compile>
<Compile Include="Modules\frmFolderImport.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Modules\Globix\ClassExclusions.vb" />
<Compile Include="Modules\Globix\ClassValidator.vb" />
<Compile Include="Modules\Globix\frmGlobixNameconvention.Designer.vb">
@@ -427,6 +433,12 @@
<Compile Include="Search\frmEditSearch.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Search\frmListSearches.Designer.vb">
<DependentUpon>frmListSearches.vb</DependentUpon>
</Compile>
<Compile Include="Search\frmListSearches.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Search\SavedSearch.vb" />
<Compile Include="Search\SearchLoader.vb" />
<Compile Include="Search\TokenEditEx.vb">
@@ -607,6 +619,9 @@
<EmbeddedResource Include="frmTest.resx">
<DependentUpon>frmTest.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Modules\frmFolderImport.resx">
<DependentUpon>frmFolderImport.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Modules\Globix\frmGlobixBasicConfig.resx">
<DependentUpon>frmGlobixBasicConfig.vb</DependentUpon>
</EmbeddedResource>
@@ -625,6 +640,9 @@
<EmbeddedResource Include="Search\frmEditSearch.resx">
<DependentUpon>frmEditSearch.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Search\frmListSearches.resx">
<DependentUpon>frmListSearches.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Search\Old\frmFlowSearch.resx">
<DependentUpon>frmFlowSearch.vb</DependentUpon>
</EmbeddedResource>
@@ -812,7 +830,6 @@
<None Include="Resources\save_16xLG.png" />
</ItemGroup>
<ItemGroup>
<Folder Include="Administration\DetailPages\" />
<Folder Include="My Project\DataSources\" />
</ItemGroup>
<ItemGroup>
@@ -1143,6 +1160,10 @@
<Content Include="MailLicense.xml">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<None Include="Resources\menu.svg" />
<None Include="Resources\save10.svg" />
<None Include="Resources\delete2.svg" />
<None Include="Resources\actions_deletecircled7.svg" />
<Content Include="Zooflow.ico" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />

4
ZooFlow/frmConfigBasic.vb
View File

@@ -62,8 +62,8 @@ Public Class frmConfigBasic
Private Sub SaveCatalogSetting(pKey As Integer, pValue As String)
Try
Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = '{pValue}'
WHERE GUID = {pKey}"
Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = '{pValue}'
WHERE GUID = {pKey}"
If My.DatabaseIDB.ExecuteNonQuery(oUpd) = True Then
bsiInfo.Caption = "Position Quicksearch1 saved!"

52
ZooFlow/frmFlowForm.Designer.vb generated
View File

@@ -34,7 +34,7 @@ Partial Class frmFlowForm
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.SucheEntwurfToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.mnitmFolderImport = New System.Windows.Forms.ToolStripMenuItem()
Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -106,62 +106,62 @@ Partial Class frmFlowForm
'
'ContextMenuSystray
'
Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EinblendenToolStripMenuItem, Me.ToolStripSeparator1, Me.VerwaltungToolStripMenuItem, Me.ToolStripSeparator3, Me.SucheEntwurfToolStripMenuItem, Me.TestToolStripMenuItem, Me.ToolStripSeparator2, Me.ZooFlowBeendenToolStripMenuItem, Me.TreeViewToolStripMenuItem})
Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EinblendenToolStripMenuItem, Me.ToolStripSeparator1, Me.VerwaltungToolStripMenuItem, Me.ToolStripSeparator3, Me.mnitmFolderImport, Me.TestToolStripMenuItem, Me.ToolStripSeparator2, Me.ZooFlowBeendenToolStripMenuItem, Me.TreeViewToolStripMenuItem})
Me.ContextMenuSystray.Name = "ContextMenuSystray"
Me.ContextMenuSystray.Size = New System.Drawing.Size(170, 154)
Me.ContextMenuSystray.Size = New System.Drawing.Size(181, 176)
'
'EinblendenToolStripMenuItem
'
Me.EinblendenToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.action_add_16xMD
Me.EinblendenToolStripMenuItem.Name = "EinblendenToolStripMenuItem"
Me.EinblendenToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
Me.EinblendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.EinblendenToolStripMenuItem.Text = "Einblenden"
Me.EinblendenToolStripMenuItem.Visible = False
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(166, 6)
Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
'
'VerwaltungToolStripMenuItem
'
Me.VerwaltungToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.gear_32xLG
Me.VerwaltungToolStripMenuItem.Name = "VerwaltungToolStripMenuItem"
Me.VerwaltungToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
Me.VerwaltungToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.VerwaltungToolStripMenuItem.Text = "Verwaltung"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(166, 6)
Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6)
'
'SucheEntwurfToolStripMenuItem
'mnitmFolderImport
'
Me.SucheEntwurfToolStripMenuItem.Name = "SucheEntwurfToolStripMenuItem"
Me.SucheEntwurfToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
Me.SucheEntwurfToolStripMenuItem.Text = "Suche Entwurf"
Me.mnitmFolderImport.Name = "mnitmFolderImport"
Me.mnitmFolderImport.Size = New System.Drawing.Size(180, 22)
Me.mnitmFolderImport.Text = "Ordnerimport"
'
'TestToolStripMenuItem
'
Me.TestToolStripMenuItem.Name = "TestToolStripMenuItem"
Me.TestToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
Me.TestToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.TestToolStripMenuItem.Text = "Test"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(166, 6)
Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 6)
'
'ZooFlowBeendenToolStripMenuItem
'
Me.ZooFlowBeendenToolStripMenuItem.Name = "ZooFlowBeendenToolStripMenuItem"
Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden"
'
'TreeViewToolStripMenuItem
'
Me.TreeViewToolStripMenuItem.Name = "TreeViewToolStripMenuItem"
Me.TreeViewToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
Me.TreeViewToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.TreeViewToolStripMenuItem.Text = "treeView"
'
'PictureBoxSearch
@@ -170,7 +170,7 @@ Partial Class frmFlowForm
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBoxSearch.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBoxSearch.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox
Me.PictureBoxSearch.Location = New System.Drawing.Point(21, 442)
Me.PictureBoxSearch.Location = New System.Drawing.Point(21, 443)
Me.PictureBoxSearch.Name = "PictureBoxSearch"
Me.PictureBoxSearch.Size = New System.Drawing.Size(158, 50)
Me.PictureBoxSearch.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom
@@ -204,7 +204,7 @@ Partial Class frmFlowForm
Me.pnlQuicksearch1.Controls.Add(Me.PictureEditQuicksearch1)
Me.pnlQuicksearch1.Controls.Add(Me.lblQuicksearch1)
Me.pnlQuicksearch1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlQuicksearch1.Location = New System.Drawing.Point(0, 497)
Me.pnlQuicksearch1.Location = New System.Drawing.Point(0, 498)
Me.pnlQuicksearch1.Name = "pnlQuicksearch1"
Me.pnlQuicksearch1.Size = New System.Drawing.Size(202, 75)
Me.pnlQuicksearch1.TabIndex = 16
@@ -329,9 +329,9 @@ Partial Class frmFlowForm
Me.barDockControlBottom.Appearance.Options.UseBackColor = True
Me.barDockControlBottom.CausesValidation = False
Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
Me.barDockControlBottom.Location = New System.Drawing.Point(0, 774)
Me.barDockControlBottom.Location = New System.Drawing.Point(0, 775)
Me.barDockControlBottom.Manager = Me.BarManager1
Me.barDockControlBottom.Size = New System.Drawing.Size(202, 26)
Me.barDockControlBottom.Size = New System.Drawing.Size(202, 25)
'
'barDockControlLeft
'
@@ -339,7 +339,7 @@ Partial Class frmFlowForm
Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left
Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0)
Me.barDockControlLeft.Manager = Me.BarManager1
Me.barDockControlLeft.Size = New System.Drawing.Size(0, 774)
Me.barDockControlLeft.Size = New System.Drawing.Size(0, 775)
'
'barDockControlRight
'
@@ -347,7 +347,7 @@ Partial Class frmFlowForm
Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right
Me.barDockControlRight.Location = New System.Drawing.Point(202, 0)
Me.barDockControlRight.Manager = Me.BarManager1
Me.barDockControlRight.Size = New System.Drawing.Size(0, 774)
Me.barDockControlRight.Size = New System.Drawing.Size(0, 775)
'
'BarButtonItem2
'
@@ -391,7 +391,7 @@ Partial Class frmFlowForm
Me.Panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
Me.Panel3.Location = New System.Drawing.Point(21, 434)
Me.Panel3.Location = New System.Drawing.Point(21, 435)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(158, 2)
Me.Panel3.TabIndex = 17
@@ -429,13 +429,13 @@ Partial Class frmFlowForm
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 202)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(202, 572)
Me.Panel2.Size = New System.Drawing.Size(202, 573)
Me.Panel2.TabIndex = 17
'
'GridControlRecentFiles
'
Me.GridControlRecentFiles.Anchor = System.Windows.Forms.AnchorStyles.Bottom
Me.GridControlRecentFiles.Location = New System.Drawing.Point(21, 246)
Me.GridControlRecentFiles.Location = New System.Drawing.Point(21, 247)
Me.GridControlRecentFiles.MainView = Me.RecentFilesView
Me.GridControlRecentFiles.MenuManager = Me.BarManager1
Me.GridControlRecentFiles.Name = "GridControlRecentFiles"
@@ -495,7 +495,7 @@ Partial Class frmFlowForm
Me.LabelControl1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelControl1.Appearance.Options.UseFont = True
Me.LabelControl1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None
Me.LabelControl1.Location = New System.Drawing.Point(21, 222)
Me.LabelControl1.Location = New System.Drawing.Point(21, 223)
Me.LabelControl1.Name = "LabelControl1"
Me.LabelControl1.Size = New System.Drawing.Size(158, 18)
Me.LabelControl1.TabIndex = 0
@@ -613,7 +613,7 @@ Partial Class frmFlowForm
Friend WithEvents Panel3 As Panel
Friend WithEvents bbtnitmAusblenden As DevExpress.XtraBars.BarButtonItem
Friend WithEvents EinblendenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SucheEntwurfToolStripMenuItem As ToolStripMenuItem
Friend WithEvents mnitmFolderImport As ToolStripMenuItem
Friend WithEvents GridControlRecentFiles As DevExpress.XtraGrid.GridControl
Friend WithEvents RecentFilesView As DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView
Friend WithEvents colSecondary As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn

20
ZooFlow/frmFlowForm.vb
View File

@@ -181,7 +181,6 @@ Public Class frmFlowForm
' Runtime Variables
Private ESCHitCount As Integer = 0
Private IndexForm As frmGlobix_Index
Private ResultForm As frmGlobix_Result
Private AdminForm As frmAdmin_Start
Private InitialOverlayHandle As IOverlaySplashScreenHandle
@@ -626,6 +625,7 @@ Public Class frmFlowForm
Dim oDroppedFiles = FileDropNew.GetFiles(e)
If oDroppedFiles.Count > 0 Then
Await Globix_CheckDroppedFiles(oDroppedFiles)
End If
Await Load_Recent_Files()
@@ -675,7 +675,9 @@ Public Class frmFlowForm
Logger.Info(" CURRENT_WORKFILE: {0}", My.Application.Globix.CurrentWorkfile)
If IO.File.Exists(My.Application.Globix.CurrentWorkfile.FilePath) = True And
My.Application.Globix.DTACTUAL_FILES.Rows.Count > 0 Then
Globix_Open_IndexDialog()
If Globix_Open_IndexDialog() = True Then
frmGlobix_Result.ShowDialog()
End If
End If
Next
Catch ex As Exception
@@ -703,7 +705,7 @@ Public Class frmFlowForm
FileDropNew.RemoveTempDirectory()
End Sub
Sub Globix_Open_IndexDialog()
Private Function Globix_Open_IndexDialog() As Boolean
Try
IndexForm = New frmGlobix_Index(My.LogConfig)
NotifyIconReset()
@@ -715,14 +717,15 @@ Public Class frmFlowForm
oMessage = "File successfully imported!"
End If
NotifyIcon.ShowBalloonTip(15000, "FileFlow", oMessage, ToolTipIcon.Info)
ResultForm = New frmGlobix_Result()
ResultForm.ShowDialog()
Cursor = Cursors.Default
Return True
End If
Cursor = Cursors.Default
Catch ex As Exception
FormHelper.ShowErrorMessage(ex, "Globix_Open_IndexDialog")
Return False
End Try
End Sub
End Function
Sub NotifyIconReset()
NI_TYPE = "INFO"
NI_MESSAGE = String.Empty
@@ -1229,9 +1232,8 @@ Public Class frmFlowForm
Me.Visible = True
End Sub
Private Sub SucheEntwurfToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SucheEntwurfToolStripMenuItem.Click
Dim oForm = New frmSearchFlow()
oForm.Show()
Private Sub SucheEntwurfToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnitmFolderImport.Click
frmFolderImport.ShowDialog()
End Sub
Private Sub AdvBandedGridView1_DoubleClick(sender As Object, e As EventArgs) Handles RecentFilesView.DoubleClick

3
ZooFlow/frmtest.vb
View File

@@ -2,6 +2,7 @@
Imports DigitalData.Modules.Base.IDB.FileStore
Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.ZooFlow
Imports DevExpress.LookAndFeel
Public Class frmtest
Private Property Environment As Environment
@@ -10,7 +11,7 @@ Public Class frmtest
Private Sub frmtest_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cmbObjectStoreType.SelectedIndex = 0
Environment = My.Application.GetEnvironment()
DevExpress.Skins.SkinManager.EnableFormSkins()
End Sub
Private Sub btnOpenFile_Click(sender As Object, e As EventArgs) Handles btnOpenFile.Click