Globi Integration und Suche Abhängig

GUIs.ZooFlow/ClassConstants.vb

@@ -18,4 +18,5 @@
     Public Const ATTR_TYPE_INTEGER = "BIG INTEGER"
     Public Const ATTR_TYPE_DATE = "DATE"
     Public Const ATTR_TYPE_BOOLEAN = "BIT"
+    Public Const VECTORSEPARATOR = "╚"
 End Class

GUIs.ZooFlow/ClassInit.vb

@@ -112,7 +112,7 @@ Public Class ClassInit
 
     Private Sub Initialize3rdParty(MyApplication As My.MyApplication)
         Try
-            Dim oSql = "SELECT * FROM TBCW_CONFIGURATION"
+            Dim oSql = "Select LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'"
             Dim oDatatable As DataTable = My.Database.GetDatatable(oSql)
 
             If oDatatable.Rows.Count = 0 Then
@@ -121,10 +121,11 @@ Public Class ClassInit
 
             Dim oRow As DataRow = oDatatable.Rows.Item(0)
 
-            MyApplication.Settings.GdPictureKey = NotNull(oRow.Item("GDPICTURE_LICENSE"), String.Empty)
+            MyApplication.Settings.GdPictureKey = NotNull(oRow.Item("LICENSE"), String.Empty)
+            My.Application.Settings.GdPictureKey = NotNull(oRow.Item("LICENSE"), String.Empty)
         Catch ex As Exception
             _Logger.Error(ex)
-            Throw New InitException("Fehler beim Laden der Konfiguration!")
+            Throw New InitException("Error initializing3rdParty!")
         End Try
     End Sub
     Private Sub InitBasicData(MyApplication As My.MyApplication)

GUIs.ZooFlow/Globix/State.vb

@@ -24,8 +24,9 @@
         Public Property ECMDirect As Boolean = True
         Public Property CURRENT_PROFILE_LOG_INDEX As String
         Public Property ShowIndexResult As Boolean = True
-        Public Property CURR_MAN_INDEXE As DataTable
-        Public Property CURR_AUTO_INDEXE As DataTable
+        Public Property CURR_DT_MAN_INDEXE As DataTable
+        Public Property CURR_DT_AUTO_INDEXE As DataTable
+        Public Property CURR_DT_DOCTYPE As DataTable
         Public Property CURR_INDEX_MAN_POSTPROCESSING As DataTable
         Public Property FILE_DELIMITER As String
         Public Property VERSION_DELIMITER As String

GUIs.ZooFlow/Globix/frmGlobix_Index.Designer.vb

@@ -48,6 +48,7 @@ Partial Class frmGlobix_Index
         Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
         Me.pnlIndex = New System.Windows.Forms.Panel()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Label1 = New System.Windows.Forms.Label()
         Me.cmbDoctype = New System.Windows.Forms.ComboBox()
         Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -141,6 +142,7 @@ Partial Class frmGlobix_Index
         Me.labelError.ImageOptions.SvgImage = CType(resources.GetObject("labelError.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.labelError.Name = "labelError"
         Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        Me.labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
         '
         'labelNotice
         '
@@ -149,6 +151,7 @@ Partial Class frmGlobix_Index
         Me.labelNotice.ImageOptions.SvgImage = CType(resources.GetObject("labelNotice.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.labelNotice.Name = "labelNotice"
         Me.labelNotice.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        Me.labelNotice.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
         '
         'chkMultiindexing
         '
@@ -161,10 +164,11 @@ Partial Class frmGlobix_Index
         '
         'BarButtonItem1
         '
-        Me.BarButtonItem1.Caption = "Starten"
+        Me.BarButtonItem1.Caption = "Ablage-Flow"
         Me.BarButtonItem1.Id = 14
-        Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem1.ImageOptions.Image = CType(resources.GetObject("BarButtonItem1.ImageOptions.Image"), System.Drawing.Image)
         Me.BarButtonItem1.Name = "BarButtonItem1"
+        Me.BarButtonItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
         '
         'RibbonPage1
         '
@@ -177,7 +181,7 @@ Partial Class frmGlobix_Index
         Me.RibbonPageGroup3.AllowTextClipping = False
         Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem1)
         Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
-        Me.RibbonPageGroup3.Text = "Datei verarbeiten"
+        Me.RibbonPageGroup3.Text = "Start"
         '
         'RibbonPageGroup1
         '
@@ -242,27 +246,38 @@ Partial Class frmGlobix_Index
         'pnlIndex
         '
         Me.pnlIndex.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.pnlIndex.Location = New System.Drawing.Point(0, 56)
+        Me.pnlIndex.Location = New System.Drawing.Point(0, 50)
         Me.pnlIndex.Name = "pnlIndex"
-        Me.pnlIndex.Size = New System.Drawing.Size(591, 359)
+        Me.pnlIndex.Size = New System.Drawing.Size(591, 365)
         Me.pnlIndex.TabIndex = 1
         '
         'Panel1
         '
+        Me.Panel1.Controls.Add(Me.Label1)
         Me.Panel1.Controls.Add(Me.cmbDoctype)
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
         Me.Panel1.Location = New System.Drawing.Point(0, 0)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(591, 56)
+        Me.Panel1.Size = New System.Drawing.Size(591, 50)
         Me.Panel1.TabIndex = 0
         '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label1.Location = New System.Drawing.Point(3, 3)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(192, 13)
+        Me.Label1.TabIndex = 2
+        Me.Label1.Text = "Bitte wählen Sie einen Ablage-Flow:"
+        '
         'cmbDoctype
         '
         Me.cmbDoctype.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.cmbDoctype.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.cmbDoctype.FormattingEnabled = True
-        Me.cmbDoctype.Location = New System.Drawing.Point(12, 17)
+        Me.cmbDoctype.Location = New System.Drawing.Point(6, 19)
         Me.cmbDoctype.Name = "cmbDoctype"
         Me.cmbDoctype.Size = New System.Drawing.Size(555, 25)
         Me.cmbDoctype.TabIndex = 0
@@ -291,6 +306,7 @@ Partial Class frmGlobix_Index
         CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainerControl1.ResumeLayout(False)
         Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -323,4 +339,5 @@ Partial Class frmGlobix_Index
     Friend WithEvents cmbDoctype As ComboBox
     Friend WithEvents DocumentViewer1 As Controls.DocumentViewer.DocumentViewer
     Friend WithEvents pnlIndex As Panel
+    Friend WithEvents Label1 As Label
 End Class

GUIs.ZooFlow/Globix/frmGlobix_Index.resx

@@ -270,19 +270,27 @@
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
         LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
-        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKMCAAAC77u/
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKUEAAAC77u/
         PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
         IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
         MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
         Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
-        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
-        WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz
-        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
-        Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl
-        Pg0KICA8ZyBpZD0iQ2hlY2tCb3giPg0KICAgIDxwYXRoIGQ9Ik0yNyw0SDVDNC41LDQsNCw0LjUsNCw1
-        djIyYzAsMC41LDAuNSwxLDEsMWgyMmMwLjUsMCwxLTAuNSwxLTFWNUMyOCw0LjUsMjcuNSw0LDI3LDR6
-        IE0xNCwyMmwtNi02bDItMmw0LDQgICBsOC04bDIsMkwxNCwyMnoiIGNsYXNzPSJHcmVlbiIgLz4NCiAg
-        PC9nPg0KPC9zdmc+Cw==
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
+        MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
+        bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRW1wbG95ZWVQcm9maWxlIj4NCiAg
+        ICA8cGF0aCBkPSJNMjksMEgzQzIuNSwwLDIsMC41LDIsMXYzMGMwLDAuNSwwLjUsMSwxLDFoMjZjMC41
+        LDAsMS0wLjUsMS0xVjFDMzAsMC41LDI5LjUsMCwyOSwweiBNMjgsMzBINFYyaDI0VjMweiIgY2xhc3M9
+        IkJsYWNrIiAvPg0KICAgIDxwYXRoIGQ9Ik0xMi4zLDEzLjhjLTAuMS0wLjMtMC4zLTAuNi0wLjMtMC45
+        YzAuMS0wLjEsMC4zLTAuMiwwLjMtMC4yQzExLjYsMTAuNSwxMiw4LDE1LjIsOGMzLjUsMCwzLjcsMS45
+        LDMuNywxLjkgICBzMS45LTAuMSwwLjcsMi45YzAuMS0wLjEsMC4zLTAuMSwwLjMsMC4yYzAuMSwwLjMt
+        MC4xLDAuNi0wLjIsMC45Yy0wLjIsMC4zLDAuMSwxLjEtMC42LDF2MC4xQzE4LjgsMTYuNCwxNy44LDE4
+        LDE2LDE4ICAgcy0yLjctMS42LTMuMS0zLjFjMC0wLjEsMC0wLjEsMC0wLjFDMTIuMiwxNC45LDEyLjQs
+        MTQuMSwxMi4zLDEzLjh6IE0xOC43LDE4Yy0wLjUsMS0xLjQsMS45LTIuNywxLjljLTEuMywwLTIuMi0w
+        LjktMi43LTIgICBDMTEuNywyMC4zLDgsMTguNyw4LDIzLjdWMjRoMTZ2LTAuM0MyNCwxOC43LDIwLjMs
+        MjAuMiwxOC43LDE4eiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
 </value>
   </data>
   <data name="PreviewItem.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -403,24 +411,149 @@
         cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
 </value>
   </data>
-  <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="BarButtonItem1.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
-        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
-        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANoCAAAC77u/
-        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
-        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
-        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
-        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
-        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
-        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
-        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
-        Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
-        MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
-        bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iR2V0dGluZ1N0YXJ0ZWQiPg0KICAg
-        IDxwYXRoIGQ9Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMy
-        My43LDIsMTYsMnogTTEyLDIyVjEwbDEwLDZMMTIsMjJ6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N
-        Cjwvc3ZnPgs=
+        iVBORw0KGgoAAAANSUhEUgAAAOIAAABTCAYAAACChtsHAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAIGFJREFUeF7tnfm7XVV5x/u/QEgE4e5zcxlUKmqtipZqrUNxfIQ6U62iVq22WG2d
+        hwfr1FZtleTe5GYOmQgQAiEhkAkQggyiiBiZFJGZuPt+1rves9fZd5999tlrn5tzH/cP3+fc4az1vusd
+        17z+LL21k7Zo0eLYonXEFi3GAK0jtmgxBmgdsUWLMUBfR/zjT8YLRTx2cUtxmbqgvkI684w/3pz0/i58
+        /f7yTnrP9zvpLf+WpNf/Q5Je8/ZOuuPvknTHG5J051s66Z53J+mhjyfpXRcn6UPrOukz+3J1SJ2ujcHf
+        auEYy7yojiooqqsvGm4jKKQjaDPiGCJ0QJT3m+lOeuDDnXTzS5N0xUmC4zvp6kVLHVZ5zPpP+/vsosl0
+        +oROuuF5nXTX2zrpnd/opI9fE9DAMMYk4LTo44iPXysRVqLsla/vpFdKpHWfxwJCe4d87nxTkj55XW9k
+        d/CGdPNFkhneoJmhsJ6K2PHGJL36DZPpDR/M0ZknOMfwbXp6f5Le/qVOuvWlnXT2+Ml03aIp51zLxQmX
+        L0rS5eJkg7BMvrtCyq4Rx1yHg57SSa9/Tyd9+NKM5tFc1q2Co4eSdNf5koGRucisSJZVgc7Q3S2f9XxU
+        CA5P7knSq85V26hkn+478n3h9bGrlU5ZELLM9dMvCW+vnxRaBXUOAeheJZ9Xvy1Jn76hWN69juiZe/QK
+        jbprUZ5X5LGAo33C0nSlfD6yfa6iLHOglK1LTnPfK6qnKlZJ+U2LT003npXRmC+E3Za7v5Wkm1+o8qdN
+        ywLHW3Z8MhR6nNbrdOViccj3dtLHrvFGWdJlysMMeJNkZ2RFkCiSZVVQfrPUs+Xs6g5y/+okXXfClGT+
+        yUr2iV7BxhNOTe9bNrjN9r8rXpukWxafFt1Go73+zP50CzPio1eKI56YuK7N9AnVou8oYLTh4+FNKsCj
+        QUOsUbveIYpZMpXOPKe4nqqYWZKkqxcvTbeendGYD1hAwTF2yTgP5ZHJlkn7ccJli/IOqNluMLIyy30d
+        tJNPMuSG0ybTn383c4AyJzBYBt17QZKu9zJHP3lZVsX04iSdXTyZbvjzJD16k9bdD0b7ZxKo1i5Zmk6L
+        vpZXsU+R4bTwCb8//bLWlR9/54EsNv1Fkq4S3uCxsN4KQDbICPu89jwv6wJnLM6IV0oF0shMmabY+Qa0
+        J9IZ+fmBNb4RgbFYg655uyhGMicNL66nGijPWGvLKzIao4YZxJHZJN14xqTLWOp8ofwNc3muDq2j65Bi
+        XNPyd5z+wIUBPwOc0fi97YtkJXEGgkUMb2Rs+Zw5aSJ9fNcA5/C0D31CDHvxlLSBOqrR5ruU2fdBb0cD
+        HPHp68UJJ1VGmS7qAFlLEBDaN/9rf9qljoiAooQcDeFBnGOVdEGKuhTWIHVEUUwDjsiEx3w5ovHPLOjq
+        EyddFnQRXpzFHKaIzzhQp68XJxBsENkhQ8tIZc5o8j8y3XHdZpX5hK+7DpSH5cd10gfXewPtQ99oX/3W
+        xAWQ6vpWO2KYc+Xryttof//dNi3jyka075LjJlz7sOF7fuBpD5sRx8URGQv84r99I4JospAd0ZSBcuia
+        EXlRmONlZE4YwuoXGUt2XC/yu/rNiZNpkaEYzFD/sDNJZxi+UN74rgHnhAKc5J7/6W+oITb/pciMiSvv
+        KEX15sF3V0oZ1wUObCgPo03gZ2yobYtonzjxcilPF/WRyzyNgiAw/o4oaR0lsS4Gb6GSFqojWhuYdCAT
+        zsB315jjFD8cMpqMg8iMrEPC26DZVGS/8awkyIp1eRZD9d3GWz/ndVxC+ynpMs52xD4pO0QAcA4vWZe5
+        j7KZU6N9x9d813uI7u9cCE2RDUOrtad30mcO9G/X2Dsigli7SAbZMiaBt1BJC9ERUT544loZN5yhywvO
+        oI5DzsdC1kZTnRHjO/wFL+s+mcn+vvPcJsbmGmyphw0K1FsUBMxpmLSb7vYYhpGXdC9FzqwG3C/jcVdn
+        QfvMpg58DFnYOLQu1BFXnzCZbn+Np1ng/GDMHXHCOSLGYQPdUEkL0hG98llbIsAwJsQJRzcmrAJPVwyV
+        7Dy7ZLJ0vGZyZwcPkxBqrPV5d8Yqcmetz9VfRNPLjSEK39Uu4zBjN2Ssgeaui32dRQ7v6bDml41DI9qG
+        /S6WIPMBrbdfT2NBZESEd+Aj2oCF7Iim5Du+gROiZGRr8j2WcgZCn6wsxsrEAuMwJm+Ksobp4O7v1HWK
+        EJo1GPNd+uL+41PT9U8uqu/8lKHsQcl2YZ1FYAlrlWSyZVE2JfYrOsZ+b5euLvX2oznmjqjOQebY+37f
+        gEBRC8kRu13S3WK8k9IlFVpqwNA+tjLuwmdlAgTdssP/4Y0n7xzeTh6+VAzNlYX/iDaIHKhnNumkT16X
+        o+VhPFz798POmBrU4Sm7883elnw78nhWxnJrTpdurMgjxqaYMbXu8G9W9ZGlx4KZrGFLFbyFDVlQjuj5
+        3vchyfDOkMx4j6V88zBeJlygWNXR7WQWRPJtYrtW71pb3bZoWQLT77Z6Pfdxkq2vlEAmmUp1PQw9dUSX
+        eV+ibcrXbX9jQwv2r0OGum3SQOsmiJ6buG2jeXohxj4j0jVl+YJtbPC2EB3RFPyHq5J09iRpk1OudeWO
+        rXznAn4EwiNZ8dAn5so9xLZXaRcuSvbWJT5+Mv3Vj/vTY//t6lNlHCtlatETGgSNlackLsDk6zea988y
+        iabfv6S2fnodv1/2NSyIrinOcdlfewUFDVoojmhjqn0X+pm46GyoZVmfcp84NnB/y/6vyJcdAFcPP2tW
+        XC0ZjyWDfJvMaPe8S8fwOs1fF35SbrGMpb7i9exl5n72OmcdjvW4um1zXUUphzM+tMHTCRy+O/b9ts7i
+        ajasO/ZVe6IeNiDkaeUx/hlRGsPC6paXZ4oxLKSu6VM3SN1i1DOMO7rGXgdS1o3llF8cZ0bks0Iib/dv
+        XZ3VpUM56CDXpe4UAm0omii77fMSXMSBeieehoXYmnPEqe6kXI8jegMmWzKRpMGijoNo0GKo8/Pv9W/T
+        zf9Cm8SeXHCJb9NNn5rbpjxG64hOYFre9ZfFSIaH7jwpmlFbCI5oPOpM6VQgkzpy9WVk3MFsHt0edous
+        Xip1nyH8i+KRQ2/9degonDyk27n5ZZkzdNvlf3c7UIQHlX1c9nATKW/trd/97GV4GKfvZt967UJGzJze
+        9Om5zmE0d79LA1CcI+rWNoZVVXYMzUtGvETGAERtMxw+q6J7HEuM7dmDmdDAgnBEL9Ptf6OROIZHt9YY
+        LDFsfXkn/fUl7DbRXRuPbO+kBz6qs3SuC+ecnrJ1dEgZpbVS6nponZe9b0+zExtSDtmL02+RNjk6AUzP
+        e98XOkgdaDLA4Tmx4+oOHd509epwQqgeVBYiG6lj0AQUmJeMSD1rTuVYScdlto0vStxnFWx6yUS6+cWd
+        dNs5iRush/yOuyOGxrqCI1pOljpOKaJfjsQFNGRKgMIJn9k/lya4/au+CxfVXQQYrq7bHfwnb0xBBrHf
+        158pzir0VP416Um7WC5gMia/FczkeLkEs9XdYFZPhl2H9+cf82DtdP0LdF9qFB1pD5NKq6fmtqcII3dE
+        t6Apxn3bF7Ru+uROsBXBdx0K0vrYO6LnD8dwC/g+MBXRHgzRh5QH7Hyx85mhYyAj+/3KN9ItiqWpmRWn
+        5iCwOUSXnv+dXUKx2d7xSFZdnLiD6WH94OiNMt56fujwNYFNyic9rKeC0/JGi2UGlhuwfZVdQR0VAI9k
+        VZtkHISRd02nlzCrNiWO6IVb0k8eFmPviL6tLCC7LlUsf2IY1LPTz8KFEw0G54yiRxaQe6N6HT1SRk8P
+        zEh3kK6vo+HtxORPd7iRyQ3hlU3kR1ZktmK0WPrhgG302p7vkeS7jKYrtvaZE0YtXYgs3Na2C/rrKsTo
+        M6IwRDawjBhG8FiMuyMCuiVr/NoX8og1VLLcL3/QazxFQPEMAdzpiFi6Uh4d3mknYLzczbjciXkCjaNT
+        d8JGJzeop3vSRuq3Nh6Zafb8I1n+3v/1dHB4T+ee7/vsLt/R9hTVMQi+Jyj1/PTLvTLrh9FnRCKDy4ha
+        95+KI4YR1m2VEqXqOlYx7cEgM+li9OO7y2VotG/4IOM7MSqXqeoDuWBU173HG5Wv3+zlIWmjCzTOViIc
+        XvhkPHrjP3s6OKLX8R1fUx6ibwQI6ITHrozO4X8nu5vM6unLHQYWmeWzO5/90DpigCYd0bIF40MMSKNr
+        hJHCm4w5tr1qsPxM6SxMu32ZkbTdBIdkEJYx8rTAU3s7uTOC9WhZ7+na87Ve2mE63v/hcLN3HIzOHh9Y
+        0JXRoSuZzczWa4fLpscJnRMlaNoFXd63+qF1xABNOqI5w973S/slwiKHIppVgWG4rPQ+r9iyCGuZaqPI
+        X/QXnY2lvG0NY9P6HHqCLa+wmdqC8pXgg43Ucdk5Wb3Wzt4JoRibVDrujOCrPQ3k5WXGRc1ukiuyHYzP
+        GRqU6inAvDgi0Yed/DjO0Rv1cxj08BjA/jfOY0SMqt4m5RCiCx/Qbqlwit2A0+A8RGfNikV1V4E4sZSn
+        +/ngWk/fG5h97n6nZn4NOPVoqQFLO5+vdmLtcOPds3QDQ5wcFdTh1qfP6PSuTYv9s2QWS4eyZNWr3tQr
+        qzKMeLIGR0RBU+md0sfvodUAxt0RmahZ28BxGjc+lPJkhO7dPRWUi3y4oyV6yp9AII6IcdHddXWbI3od
+        3OrGVugAe6mXfa1Lx104j/vrLMATDS0pGBwdaRO2aUslgI0RqxJ6EfK92nSkbglGdKO7G+YrBM3RO6Iz
+        7km3bYj9fXd/Wz6/Ww0cPKXMM7kdNYZxdcTulPtOUXYDU+5q2BN6rq3kmocibPsr7TK6nTZz6q0OMy72
+        YVKvyd74+NWPsq5p/W6wyEjkhCM8YDt5BA9IFs5mnSO62F2IPiRgMJny6+mMDssZqidDUdlB0NlfxuZF
+        +1n7YeRdU8COEKIyzBHVu58l4AZnIvAKiZAYdMifYWwd0Rsnd7GaAdVfkwJqGCiYa/4cnZws5sD/v7uw
+        HyUboc0QQ/Rhl0t1M6LZjGQWMkxc0PFGLHR+8V++HYLe5ZEYORqEDl19Gbvf/pWMDpvK6Zair/ptUB45
+        6tbddDFIV4KRZ8RueRonxlAd0hj5XHlSkjliDuPuiL/8od+z6JRaP5JTHl3wAE0/WeRhPOzmRDtG7MZu
+        9YFscGgmTVz9OeNiTKc7X/S7RXUMhrTTZ15eu7K6b/yk/i22DRmUDo647x8zOhzBilu6ED2Lrgi+7Nx5
+        OvcSVxnmISNaeT6HgUQt+Zx5TmZ8eeWPrSN6vrinJFMsbZpLsxK8cmcnsgOtg6Ks8cDNaHpJVUG9Q4Cg
+        6I6jvULr7aHleeHy3jWRE1PIiuzHbLPVX+0iJ/s7n+HP4XcyUBcBikdijM7+j3g7itAX9RJ8GRJYvVUw
+        L13TelD6bGv6gw3cF4oj+mxEVOcVp1i+cAIckR06VaOs8YBxZbOZERAeyHYbXph06zbYGGg/B5+7gacO
+        ROdCh8x7xd9qnTg5z9Ex/hwkR4ZA2AxwG+SD//VC6bj2cOGwn6Ed/gbxPKReaTsyuO69nv+crPqhdcQA
+        lG8yI3LdIEs3yleEHMmIx8mY+fRO+uwhL4sB6PLwyWZko1lZeZhzOsLTuuubms1ixnLwyTht41kTrk5u
+        B1g5MVFhJlPtZeUposOOOmMpD1KXu09Guvt24TAbFtg0oWuhdfiXOtnaJo54uOAe3jK0jhigaUfc9yGy
+        UQNOIOWZMV33gmozcMB4uInT5sJDbEYkK0+L4XLLgF2dYV1Si/oPrtPMHTUmlrI43YrnTrjZcianuhcK
+        l8zGQhMH3vyyJL3sHD+D6/joZ7/yd/k/coVvbItxnU2uFZcpR3drm9C22dg2I9ZAU45oVz7SPWkqG6Fc
+        ulFVFWuy+clF4sDCw8ySgnqHgfDALp1wnJrHE/J3NhDErsMBrhThxMV9P/bdRVdfvzrJRLqd76pz9Tnz
+        rCfSD5JlffZiqezJvVoH8xJKq6hMOVw5CVYsWT3WZ16jH1pHDED5JjMiu03WNMQXa168NVFVsV1H/Ewz
+        GRHHQh8rTuZqwD40hTcuJs7Gc3VsR5cwcCTeBuH5t43dGdP+9dE+HtLhSBYvSGdl+kHaI//nvQ9ukX94
+        c8Z3vaUmqQ89ETBlHF2152JoHTEA5Zt1xIlG+HIzlqLgTVzLl6PVD5kjakaMdkTRh+syiiM+sdvTCPRh
+        mZrHOBkn1qcndHAQcSQ2dPCMOg5WLkN1Asqw5njvDxP3c3kWVX0jG9ZGWWpySySuTL1uNfUxE8tz5Hn5
+        DELriAEo32TXlIzYFF+WEfMy6IdRZcSVzhG9PoroRVyJb3Azj8Izt5/tOFe7nCrDfvUxNtOMxniPaxcZ
+        +7nucd9xpTovM7RcwcEb/m6iqTbfUp+Upe39rhUpQ+uIASjfZEbkpEQTfGFQXJc46G2/EJljNDNGpA02
+        RmQs6GgE+rCMyGFb18UbkI3KAC2c79rzE9FF2NXtA6FFtnZ7VHdNuFndKmNV6iTAsdF7z7tidyBplxq+
+        2caJLIbpnraOGIDyTTpi47OmnEoY8M68wXjg2sAmMqLNmva9cNjr5vfbxQEkO7lJj1pdPLE3MWicj0zV
+        fYOxr0MJHeGN72xgDO3bzT24g5ci9Fl43rng+BMbFtRx69i8liNYPXxpr0yqoHXEAE07Im+9N7mOiMH0
+        2wCfR8ZDc1nZrSOeMfdayxD8j+NFbhmjNk3VPdmXdb5BdggdupV27AhwuHjwRgap8zhxHrF1aGV0htWV
+        fF/kQwZmeYf390OZVME8OKKVtwZWxdwtbnmMrSP6bhrjjkZ31kzpwy95ekUwHprdWcNh16zuPCwDcIdr
+        3LWHQ+6S8WMz9qQaL7d8Thyxwlj1Ev85mE45nO1IBt76yoyHYTBaRwzSvOtaCGC4Eogw8slTywvOET1f
+        d3xdnKCxvaYStZNsomRQt8d4cFc/NBQMeCSm7KoOo8lG6titbtln+HP4HYPYlMiH8Z0dOwLVrucfhk4Z
+        xFalrQS8/OmUqpiXrimRxm76roqVUs4N0qXso+aIOeMb94zIxEWjpy9KglIexsOu81jLjHEKBbLB2Fkw
+        dzQKAkFPACILy1ixCfsphZsVFUcQGdmxI8CxLHpTMQv01SG9NxxRMnD3TUkvi6oYeUY0BfJ08ZFpjVS/
+        Xg46pbjPf+fItIxJbgx4DDDujvjAOpEjdYscGjmPKPjtFq/gQRnR/z/+DhYgtMXQ9FSE0i+aEbR237+K
+        wCvlnAPUD0CVIDSgtZpue7Ah3m7sZpJL2z5KZ5S6hQ8me+67RHkYr4wozNlVGXd8da7iYjG2jujlSPZi
+        Sp2sHheVMWZO6Fe/ns+w7ZViIPQsYmUjjsg47JbPePolEZ/uMwv/8XflDILQkHbR6wgvnDI7Jgi53kBk
+        2wdC2kiQxGd4XgHaw8yYgpF3Tek7M3PI810Yj73LPgx6eAwwro5oePaQtP15THJYVK4LNTgy0jDXL2hW
+        0H2q0fTF2DBqo1+qF7EjrujPAsDonNGNzTh25M8vOpvxsuGJt/gbyAeDNpJ5ycBVl5fymIeMyCB2Kr3t
+        i1p3WSQdFuPuiIC3D5q8xY2dMtRbRY4sbq88WdoVnZlsHNZJH96odR/t44jmoBzmdTtVInVSDuGJjdtC
+        x95wRC4WpH72n54H2h7V/jJokHRb2yQDOx6GzIZgXjKic8Q/0XtNmbUkYiOHIppVAW8YHJdwhfUXwf7n
+        buAmGzsjrDtWUyNmrDvbKV7MD2E6YSNB7Fa3wZA2CW9zuuzejnkV2I3RoV/7QqvBsG570SOrVdE6YoAm
+        HdGi8p1fVwdSZ6grSyknvNHV6/ecWAiTC29INEHbyUWy+jC3jPOGhJskigoCAyB1Y6MzJxXfqM3Rpt5D
+        xXVlUAbhQeom8971Tc9DSZDsh9YRAzTpiN2o7LOSyjHGINWg2Gky6Bp3MwQe9oxbz1O4brFEfN7ScPWX
+        6NB44kAv8hzd8oHWT3C6tORGbQIXQcTZRsSCfX9oVkbHD+Yecx0GrSMGcIqVbg6OiEHVRcijew3qdJ1i
+        V/7qylMN2m0q/o53iJLIaxM1dNuiM6KUDxfMq0R8tuKtOa2JdvcH9ZKJdr5FaYZ82c905d2aJsHIBcSG
+        IbJx3XYOTO/N6A+L1hEDUF4zYjM8mjFc09DEhXNEqefy1/d3CPube9seJ4xyAsrpVkPdTKD3yOSDTR72
+        /94nsJt2RLFPsS23te1TXh6BbdnP3RvIccQR8MCQgY0nRU+OD4PWEQNg6Bgvp8x5TfapGzpD4WkBUdEu
+        eDL+GCe6zd+RmQnQxlkx7iMr1SncdLnoDeNnXGo0t7vZWqNZVF81QM9dD3iO1lsFxgNXOWZO0DT02BGZ
+        2p4hCJd0LCCFlwbHDQ2KgXzIuOELVsbDMGgdsQfaVnhetVTGFpPyWRliFFOddENnMjuP5teU3Gu3LOy7
+        +jGG+jLF+FgX3PTCTvrYrmJZ3vxp3c2UXfBclx6OT9duuGUT+449STeKrW4W1NgDa7uNwkxtPz+6Q77j
+        bFkQGZTmQuoUW3EbHT5bXT5FaB0xB9uBz9hmGEyze0ZA5rv3/5Q/l6G8TLmnM36Xh/AGf2LY7iTEmZPp
+        XReLvq5I0seuSVKe6959XtFCeh0dUkazjnu2e5uXeWDs/WBZgXc6uiflG81GImtpH3JnHJq/3jEENrL+
+        TD9W7pFJE1Dnpmt67488vTYjNpcRTcBDQ+jr5mPPo8jTuktMbTPRkk2j15FrUEbqwbioE13xWpL9ntHI
+        lRkStIfu7fbXeJ1VcMIQzO6684Qj2OqmvE26Lji0igKE/a33bcXmwMFnMu2MyN9elaoSqIrQOmJDcI4o
+        BucurN3p+QuUwjlCd29md4G9uJ7BoKwvTz3SZvTEzJ0Fg2x2sC4dpUG3FMfmukHaEI7BKkHaz2OdzW91
+        E96wq8VL3YYJaBXZlf3t4MdGsblAZU1WXve87LbwumgdsSFAm3cQeQ/x2VxXyQyYS4WQRVxWBFpWx5y9
+        6P1bUdlB0HI4tXs09AW5xzwrwrpoV79Vlxia1Q1jQx1/Mg519ArsyuTOmB0edKzaVBdZHZFMGz4PENIf
+        Bq0jNgWhbTOuc/j0cmUcN3uyZsXMIOLk2zzgRyCOuE6y4W22h3PIsY/phpvYms5G7v1F4Y+ueOl7kV7u
+        +oS59USak7dN1Oz7kNKJse3WERuBRkdmKq/0G39Nll1evaEc/JjKIz4rjgKeF5cNJ91pArJhnUhv7WVp
+        ofGtblIXtum2tvmZ4zIeuUOGWe1mt7ppVnZb2y5WHobuugdoHbEhEB1RCtvKQt66vIpsAeuMa2SsuFJ4
+        zcaKTRhGLDJeMDA3NvyeX8AfMhsCc4zfbs4yUdbeGGjQY9zpLlwuccAQ7JPtbnUrrHdYaFZmjMiLxtCo
+        IydD64iNQIyXdi7KdnkURUdTlHsBlyzhxiyZA8ytdz7heRHjwgl5aTjkuS6e3i/1TemkRlPZCD0T9Dhq
+        BY0yHk0Pe96NHdopmAZkLW0hw3J/atGFy8OidcRGMOHaiXHc+Q1vHH3aaUaz8y04IzwjZ7IF9TRgILXg
+        6YpxrRAZrkn0dgHL4vk2DAteZ2puq5vISmTN2IyjVtRfZlP2v8Ofn9BdPj3Bry6EB2kL64e83ZinWQet
+        IzYCHEkXdtlS5XgridIY91PSRd3gT8+7TOE2EsQaSB14msIDC/fsteUdCMdnZDY0/fD6LzagEzaxyLa2
+        cdTK0SmTtf8f9yTZMoqb7Cmsuzqoh8C76x3NyKp1xAagF0Mhr+AmsZJMYkp76FLJPidLt41siDO6+rSu
+        PI3RIKOpywFT7iUleIuZeDCYfnjRqbmtbloHuuaolaNTJmv/P7YZ8lwaz6bZmLW4/ioQ+j4r33yRpxMp
+        r9YRGwCKZTGf/aRFi/lFMGckg64WA8lm9Pik3ji5lyMwRKGJg/Di0sGPesNuSEfdbDStV+JDKy4bCc9S
+        R3dr2xDrmwQWnkuLv78HaFamB9RU76F1xCYgSmExn3OH+cX8Mhj/OONayYx6bClwkkjZFwNj9j+LvMji
+        TBwd+nj9GdJBIDgRpLJsFPIzHNAx483LbdtdBVibdpzbzFY3y6jU88h2T2NA4B2EUkdUwnGCG6UjWvfp
+        2DqiyEfouoF7wWL+IJg8uF9l81ky7hCnwLGztqjS4/TQW4fL4OLwOP4qycZ3fE15GIUTAtrIVrcsG9Vt
+        i/CNPbG17QNad5UutMn44Melixy9uUB1Q1Zee7oegM7Tq4NeR/TgbkYiGEdM3Kye+6yHmROlL71EHNEe
+        929Q2VYXA+Z1QoMxQBEPowZ014px1HmgEpihsMa4553q1JYdqd8p3xtBhtA4+kG/q9ve5HciudTJq06M
+        2S47Wy9BdjyMygl9vTwQs3aJjBOjdIRdqj3dbsGjgiOas7JnNuOhvl3zMNIa0fflr62n7yIUZsTfX6H9
+        X8YNRGgyWl0wu3X5ktOjz2sVwepid/1lQgNaRTyMGsw0bhf6u87z3bsabQwdgRdvt71clC31ogfnTGYI
+        vlvUA3GsOX/zsHKu+yzOzUzf+lMn08Of66TP+vOSTeokD6ubJ7WRETqqa1OUAxvl59+sqt6VNkdhIo1t
+        e1ZPEY0qoA205Tp/63kT8ivMiE/uSdLrL9DLh2JxvTB74H2TMmD3zDYQPQwmYLpW0CiiP2rwGKm18Zc/
+        8LzVbCPtMcPi8xff6aRXvFocyWUwNQDeELHshoNpr0UR/owTMgFEkKCs2wf7ok5662c66eP+6W2jYz+P
+        BF4WD6xO0v1eR8gsL8ehcAHXOuboVADnFnmz8vqiOisi1PeRaV93AzZd6Igtji3yzsH5Rhxox+ukC3yq
+        OJo4IWtiOGYRyKI44ewpklnPFqO5UN8QCW+hHmUWbDE8+joiimoSTWbCPDDcIprzjoazC3Xm//bkdUn6
+        4JokvftbiXuWe/+FEqnfr4vmXHd406f1jhx6ILaUEsLxOUJd9AXZPpRVJAppVEBRXXXRpE23GbFFizFA
+        64gtWowBWkds0WIM0DpiixbHHJ30/wFvzfGG31o+3AAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="BarCheckItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">

GUIs.ZooFlow/ModuleHelpers.vb

@@ -56,5 +56,26 @@ Module ModuleHelpers
     Public Sub Refresh_RegexTable()
         My.Application.BASE_DATA_DT_REGEX = My.Database.GetDatatable("SELECT * FROM TBGI_FUNCTION_REGEX")
     End Sub
+    Public Function FilterDatatable(myDatatable As DataTable, myFilter As String, mycheckColumn As String, pSortString As String, returnDT As Boolean) As Object
+        Try
+            Dim dv As DataView = myDatatable.DefaultView
+            dv.RowFilter = myFilter
+            If dv.Count = 1 And returnDT = False Then
+                For Each rowView As DataRowView In dv
+                    Dim row As DataRow = rowView.Row
+                    Return row.Item(mycheckColumn)
+                Next
+            Else
+                Dim dt_copy As DataTable = New DataTable()
+                dt_copy = myDatatable.Select(myFilter, pSortString).CopyToDataTable()
+
+                Return dt_copy
+            End If
+        Catch ex As Exception
+            MsgBox("Unexpected error in FilterDatatable: " + ex.Message, MsgBoxStyle.Critical)
+            Return Nothing
+        End Try
+
+    End Function
 
 End Module

GUIs.ZooFlow/Search/frmSearchStart.Designer.vb

@@ -126,7 +126,8 @@ Partial Class frmSearchStart
         '
         Me.BarButtonNewSearch.Caption = "Neue Suche"
         Me.BarButtonNewSearch.Id = 1
-        Me.BarButtonNewSearch.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonNewSearch.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonNewSearch.ImageOptions.Image = CType(resources.GetObject("BarButtonNewSearch.ImageOptions.Image"), System.Drawing.Image)
+        Me.BarButtonNewSearch.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonNewSearch.ImageOptions.LargeImage"), System.Drawing.Image)
         Me.BarButtonNewSearch.Name = "BarButtonNewSearch"
         '
         'BarButtonSaveSearch
@@ -186,7 +187,7 @@ Partial Class frmSearchStart
         '
         'BarButtonStartSearch
         '
-        Me.BarButtonStartSearch.Caption = "Suche starten (F2)"
+        Me.BarButtonStartSearch.Caption = "Finden (F2)"
         Me.BarButtonStartSearch.Id = 9
         Me.BarButtonStartSearch.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonStartSearch.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.BarButtonStartSearch.Name = "BarButtonStartSearch"

GUIs.ZooFlow/Search/frmSearchStart.resx

@@ -135,22 +135,24 @@
         Zz4L
 </value>
   </data>
-  <data name="BarButtonNewSearch.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="BarButtonNewSearch.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
-        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
-        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/
-        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
-        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
-        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
-        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
-        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
-        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
-        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
-        dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZENpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0xNiw0
-        QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHogTTI0
-        LDE4aC02djZoLTR2LTZIOHYtNGg2VjhoNHY2aDZWMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N
-        Cjwvc3ZnPgs=
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAG3RFWHRUaXRsZQBBZGQ7UGx1
+        cztCYXJzO1JpYmJvbjuVBjMvAAAAYElEQVQ4T92MUQqAMAxDd0Ev5am8XbTSlEwyRBwIfrzRpelrAF5h
+        Q7KsG5KYbceG5EeCnG3HhkQFI86HxadMFRTxJ1q85NXtAiXzEuiOzBOMOEqdQHfEhoSCOP5GcA/aDplf
+        q/kc1pC+AAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="BarButtonNewSearch.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAG3RFWHRUaXRsZQBBZGQ7UGx1
+        cztCYXJzO1JpYmJvbjuVBjMvAAAAj0lEQVRYR+3OUQqEMAxFUTfoplyVu4vNhyDpRR4Sokg+DsKdafsW
+        M3sVxkoYK2GshLESRsW67XYVf1dhVPSAHtAD/j0gXp4lvuOm4OhwhviOm4KjwxniO24Kjg5niO+4KaiU
+        yxUYFTRgfG9dz58wKsaF3xvwBEZFD6AB44v/vYNR0QOyYKyEsRLGShjr2HIAeeWOhN7Trl4AAAAASUVO
+        RK5CYII=
 </value>
   </data>
   <data name="BarButtonSaveSearch.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -190,20 +192,15 @@
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
         LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
-        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANoCAAAC77u/
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALcBAAAC77u/
         PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
         IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
         MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
-        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
-        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
-        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
-        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
-        Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
-        MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
-        bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iR2V0dGluZ1N0YXJ0ZWQiPg0KICAg
-        IDxwYXRoIGQ9Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMy
-        My43LDIsMTYsMnogTTEyLDIyVjEwbDEwLDZMMTIsMjJ6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N
-        Cjwvc3ZnPgs=
+        Y2U9InByZXNlcnZlIiBpZD0iTmV4dCIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg
+        MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KPC9zdHls
+        ZT4NCiAgPHBhdGggZD0iTTguOSw0LjFDOC40LDMuOCw4LDQuMSw4LDQuNnYyMC43YzAsMC42LDAuNCww
+        LjgsMC45LDAuNWwxNi44LTEwLjNjMC41LTAuMywwLjUtMC44LDAtMS4xTDguOSw0LjF6IiBjbGFzcz0i
+        Qmx1ZSIgLz4NCjwvc3ZnPgs=
 </value>
   </data>
   <data name="BarStaticItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -275,7 +272,6 @@
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>73</value>
   </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="frmSearchStart.IconOptions.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAYAAAAAAAEAIABNFwAAZgAAAICAAAABACAAKAgBALMXAABAQAAAAQAgAChCAADbHwEAMDAAAAEA

GUIs.ZooFlow/Search/frmSearchStart.vb

@@ -33,6 +33,7 @@ Public Class frmSearchStart
     Public DataLoaded As Boolean = False
 
     Private DatatableAttributes As DataTable
+    Private DatatableAttributeLinks As DataTable
     Private DatatableSearchProfiles As DataTable
 
     Private LastSearchForm As frmDocumentResultList
@@ -139,12 +140,17 @@ Public Class frmSearchStart
             Dim oWatch1 As New Watch("Getting data from Database")
             Dim oSQL = $"SELECT * FROM VWIDB_SEARCH_PROFILE_ATTRIBUTES WHERE SEARCH_PROFIL_ID = {SEARCH_ID} ORDER BY [SEQUENCE]"
             Dim oDT As DataTable = Await My.DatabaseIDB.GetDatatableAsync(oSQL)
+            oSQL = $"SELECT * FROM VWIDB_SEARCH_ATTRIBUTES_LINKS WHERE SEARCH_PROFIL_ID = {SEARCH_ID} ORDER BY DEP_ATTR_ID"
+            Dim oDT1 As DataTable = Await My.DatabaseIDB.GetDatatableAsync(oSQL)
             oWatch1.Stop()
 
             Dim oWatch2 As New Watch("Procesing Dataset")
             DatatableAttributes = Nothing
             DatatableAttributes = oDT.Clone()
             oDT.Select("", "SEQUENCE").CopyToDataTable(DatatableAttributes, LoadOption.PreserveChanges)
+            DatatableAttributeLinks = Nothing
+            DatatableAttributeLinks = oDT1.Clone()
+            oDT1.Select("", "DEP_ATTR_ID").CopyToDataTable(DatatableAttributeLinks, LoadOption.PreserveChanges)
             oWatch2.Stop()
 
             Dim oControlCount As Integer = 1
@@ -154,7 +160,7 @@ Public Class frmSearchStart
             Dim YActControlHeight As Integer = 0
             Dim XActControlWidth As Integer = 0
 
-            For Each oAttributeRow As DataRow In oDT.Rows
+            For Each oAttributeRow As DataRow In DatatableAttributes.Rows
                 Dim oXPosition As Integer
                 Dim oYPositionControl As Integer
                 Dim oYPositionLabel As Integer
@@ -236,6 +242,12 @@ Public Class frmSearchStart
 
                     oMyLastGridView = oView
                     oView.FocusInvalidRow()
+                    'Prüfen ob für dieses Grid eine Abhängigkeit definiert ist?
+                    For Each oROW As DataRow In DatatableAttributeLinks.Rows
+                        If CInt(oROW.Item("LINKED_ATTR_ID")) = oAttriID Then
+                            AddHandler oView.FocusedRowChanged, AddressOf FocusedRowChanged
+                        End If
+                    Next
 
                 ElseIf oAttributeType = ATTR_TYPE_DATE Then
                     oMyControl = oControls.CreateExistingDatepicker(oAttributeRow, oXPosition, oYPositionControl)
@@ -373,21 +385,66 @@ Public Class frmSearchStart
             End Select
         Next
     End Sub
+    Private Sub Link2ControlActivated(pAttributeID)
+
+
+        For Each oControl As Control In SelectedTab.Controls
+            Dim octrlType = oControl.GetType.ToString
+            Dim oAttrID As Integer
+            Dim oAttrTitle As String
+            Select Case oControl.GetType.FullName
+                Case GetType(GridControl).FullName
+                    Dim oMyGridControl As GridControl = CType(oControl, GridControl)
+                    Dim oMyGridView As GridView = CType(oMyGridControl.MainView, GridView)
+                    oAttrID = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttributeID
+                    oAttrTitle = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttributeTitle
+                    If pAttributeID = oAttrID Then
+                        MsgBox("Attribute" & oAttrTitle & " is linked")
+                        Continue For
+                    End If
+
+                Case GetType(DateEdit).FullName
+                    ' MsgBox("Date")
+                    Dim oDateEdit As DateEdit = CType(oControl, DateEdit)
+                    oAttrID = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttributeID
+                    oAttrTitle = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttributeTitle
+                    If pAttributeID = oAttrID Then
+
+                        Continue For
+                    End If
+
+                Case GetType(CheckBox).FullName
+                    Dim myCheckBox As CheckBox = CType(oControl, CheckBox)
+                    oAttrID = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttributeID
+                    oAttrTitle = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttributeTitle
+
+                Case Else
+                    'MsgBox(oControl.GetType.ToString)
+            End Select
+        Next
+    End Sub
 
     Private Sub FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs)
         If DataLoaded = False Then Exit Sub
-        Dim oCurrentView As GridView = DirectCast(sender, GridView)
-        Dim oCurrentControl As GridControl = oCurrentView.GridControl
-        Dim oRowView As DataRowView = CType(oCurrentView.GetFocusedRow(), DataRowView)
 
-        If IsNothing(oRowView) = False Then
-            Dim oResult As String = CType(oRowView.Item(0), String)
-            Dim oAttrID = DirectCast(oCurrentControl.Tag, ClassControlCreator.ControlMetadata).AttributeID
-            Dim oAttrTitle = DirectCast(oCurrentControl.Tag, ClassControlCreator.ControlMetadata).AttributeTitle
-            ' RenewSearchAttributes()
-            ' AddSearchAttribute(oAttrID, oAttrTitle, oResult)
+        Dim oMyGridView As GridView = DirectCast(sender, GridView)
+        Dim oMyGridControl As GridControl = oMyGridView.GridControl
 
+        Dim oSelectedRows As Integer() = oMyGridView.GetSelectedRows()
+        If oSelectedRows.Count = 0 Then
+            Exit Sub
         End If
+        Dim oAttrID As Integer
+        Dim oAttrTitle As String
+        oAttrID = DirectCast(oMyGridControl.Tag, ClassControlCreator.ControlMetadata).AttributeID
+        oAttrTitle = DirectCast(oMyGridControl.Tag, ClassControlCreator.ControlMetadata).AttributeTitle
+        For Each orow As DataRow In DatatableAttributeLinks.Rows
+            If CInt(orow.Item("LINKED_ATTR_ID")) = oAttrID Then
+                ' Nun die Controls durchlaufen
+                Link2ControlActivated(CInt(orow.Item("DEP_ATTR_ID")))
+            End If
+        Next
+
 
     End Sub
     Private Sub CheckBox_CheckedChanged(sender As Object, e As EventArgs)

GUIs.ZooFlow/ZooFlow.vbproj

@@ -114,9 +114,9 @@
     <Compile Include="Base\BaseClass.vb" />
     <Compile Include="ClassClipboardWatcher.vb" />
     <Compile Include="ClassCommandlineArgs.vb" />
-    <Compile Include="ClassControlCreator.vb" />
-    <Compile Include="ClassFileDrop.vb" />
-    <Compile Include="ClassFilehandle.vb" />
+    <Compile Include="Search\ClassControlCreator.vb" />
+    <Compile Include="Globix\ClassFileDrop.vb" />
+    <Compile Include="Globix\ClassFilehandle.vb" />
     <Compile Include="ClassInit.vb" />
     <Compile Include="ClassLayout.vb" />
     <Compile Include="ClassWin32.vb" />
@@ -153,16 +153,16 @@
     <Compile Include="Globix\frmGlobix_Index.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmSearchPredefined.Designer.vb">
+    <Compile Include="Search\frmSearchPredefined.Designer.vb">
       <DependentUpon>frmSearchPredefined.vb</DependentUpon>
     </Compile>
-    <Compile Include="frmSearchPredefined.vb">
+    <Compile Include="Search\frmSearchPredefined.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmSearchStart.Designer.vb">
+    <Compile Include="Search\frmSearchStart.Designer.vb">
       <DependentUpon>frmSearchStart.vb</DependentUpon>
     </Compile>
-    <Compile Include="frmSearchStart.vb">
+    <Compile Include="Search\frmSearchStart.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="Globix\GlobixControls.vb" />
@@ -223,10 +223,10 @@
     <EmbeddedResource Include="Globix\frmGlobix_Index.resx">
       <DependentUpon>frmGlobix_Index.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmSearchPredefined.resx">
+    <EmbeddedResource Include="Search\frmSearchPredefined.resx">
       <DependentUpon>frmSearchPredefined.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmSearchStart.resx">
+    <EmbeddedResource Include="Search\frmSearchStart.resx">
       <DependentUpon>frmSearchStart.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="frmSettings.resx">
@@ -368,7 +368,9 @@
   <ItemGroup>
     <None Include="Resources\2_ZOO_FLOW_Abo_MouseOver.png" />
   </ItemGroup>
-  <ItemGroup />
+  <ItemGroup>
+    <Folder Include="Finden\" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
        Other similar extension points exist, see Microsoft.Common.targets.

GUIs.ZooFlow/frmFlowForm.Designer.vb

@@ -187,7 +187,7 @@ Partial Class frmFlowForm
         '
         'TimerCheckDroppedFiles
         '
-        Me.TimerCheckDroppedFiles.Interval = 600
+        Me.TimerCheckDroppedFiles.Interval = 400
         '
         'frmFlowForm
         '

GUIs.ZooFlow/frmFlowForm.resx

@@ -2044,6 +2044,6 @@
     <value>863, 17</value>
   </metadata>
   <metadata name="TimerCheckDroppedFiles.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1045, 17</value>
+    <value>17, 56</value>
   </metadata>
 </root>

GUIs.ZooFlow/frmFlowForm.vb

@@ -299,6 +299,7 @@ Public Class frmFlowForm
 
         If FileDrop.Drop_File(e) = True Then
             TimerCheckDroppedFiles.Start()
+            Me.Cursor = Cursors.WaitCursor
         End If
 
         PictureBoxDragDrop.Image = My.Resources._1_LOGO_ZOO_FLOW1
@@ -315,6 +316,7 @@ Public Class frmFlowForm
 
         TimerCheckDroppedFiles.Stop()
         Check_Dropped_Files()
+        Me.Cursor = Cursors.Default
     End Sub
     Sub Check_Dropped_Files()
         Try

GUIs.ZooFlow/frmGlobix_Index.vb

@@ -998,147 +998,147 @@ Public Class frmGlobix_Index
         End Try
     End Function
     Private Function Write_Indizes()
-        'Try
-        Dim indexierung_erfolgreich As Boolean = False
+        Try
+            Dim indexierung_erfolgreich As Boolean = False
             'Manuelle Indexe Indexieren
 
-            '    If My.Application.Globix.CURR_MAN_INDEXE.Rows.Count > 0 Then
-            '        Dim Count As Integer = 0
-            '        For Each row As DataRow In DTMan.Rows
-            '            Dim idxvalue = row.Item("Indexwert")
-            '            Dim indexname = row.Item("WD_INDEX").ToString
-            '            _Logger.Debug($"Write_Indizes - Index [{indexname}]...")
-            '            Dim optional_Index = CBool(row.Item("OPTIONAL"))
-            '            Dim indexiert = CBool(row.Item("Indexiert"))
-            '            If indexiert And idxvalue.ToString <> "" And idxvalue <> "EMPTY_OI" Then
-            '                If indexname <> String.Empty Then
-            '                    If row.Item("SAVE_VALUE") = True Then
-            '                        'Den Indexwert zwischenspeichern
-            '                        Dim DTTemp As DataTable = MyDataset.TBTEMP_INDEXRESULTS
-            '                        Dim rowexists As Boolean = False
-            '                        For Each rowTemp As DataRow In DTTemp.Rows
-            '                            'Wenn bereits ein Eintrag existiert.....
-            '                            If rowTemp.Item("Dokumentart") = row.Item("DOKUMENTART") And rowTemp.Item("Indexname") = row.Item("INDEXNAME") Then
-            '                                rowexists = True
-            '                                '......überschreiben
-            '                                rowTemp.Item("Value") = row.Item("Indexwert")
-            '                            End If
-            '                        Next
-            '                        '.....ansonsten neu anlegen
-            '                        If rowexists = False Then
-            '                            Dim newRow As DataRow = DTTemp.NewRow()
-            '                            newRow("Dokumentart") = row.Item("DOKUMENTART").ToString
-            '                            newRow("Indexname") = row.Item("INDEXNAME").ToString
-            '                            newRow("Value") = row.Item("Indexwert")
-            '                            DTTemp.Rows.Add(newRow)
-            '                        End If
-            '                    End If
+            If My.Application.Globix.CURR_MAN_INDEXE.Rows.Count > 0 Then
+                Dim Count As Integer = 0
+                For Each row As DataRow In DTMan.Rows
+                    Dim idxvalue = row.Item("Indexwert")
+                    Dim indexname = row.Item("WD_INDEX").ToString
+                    _Logger.Debug($"Write_Indizes - Index [{indexname}]...")
+                    Dim optional_Index = CBool(row.Item("OPTIONAL"))
+                    Dim indexiert = CBool(row.Item("Indexiert"))
+                    If indexiert And idxvalue.ToString <> "" And idxvalue <> "EMPTY_OI" Then
+                        If indexname <> String.Empty Then
+                            If row.Item("SAVE_VALUE") = True Then
+                                'Den Indexwert zwischenspeichern
+                                Dim DTTemp As DataTable = MyDataset.TBTEMP_INDEXRESULTS
+                                Dim rowexists As Boolean = False
+                                For Each rowTemp As DataRow In DTTemp.Rows
+                                    'Wenn bereits ein Eintrag existiert.....
+                                    If rowTemp.Item("Dokumentart") = row.Item("DOKUMENTART") And rowTemp.Item("Indexname") = row.Item("INDEXNAME") Then
+                                        rowexists = True
+                                        '......überschreiben
+                                        rowTemp.Item("Value") = row.Item("Indexwert")
+                                    End If
+                                Next
+                                '.....ansonsten neu anlegen
+                                If rowexists = False Then
+                                    Dim newRow As DataRow = DTTemp.NewRow()
+                                    newRow("Dokumentart") = row.Item("DOKUMENTART").ToString
+                                    newRow("Indexname") = row.Item("INDEXNAME").ToString
+                                    newRow("Value") = row.Item("Indexwert")
+                                    DTTemp.Rows.Add(newRow)
+                                End If
+                            End If
 
-            '                    _Logger.Debug($"Manueller Indexvalue [{idxvalue.ToString}]...NOW THE INDEXING...")
-            '                    Count += 1
+                            _Logger.Debug($"Manueller Indexvalue [{idxvalue.ToString}]...NOW THE INDEXING...")
+                            Count += 1
 
 
-            '                    ' den Typ des Zielindexes auslesen
-            '                    Dim oIndexType As Integer = WINDREAM.GetIndexType(indexname)
-            '                    _Logger.Debug($"oIndexType [{oIndexType.ToString}]...")
-            '                    If oIndexType < WINDREAM.WMObjectVariableValueTypeVector Then
-            '                        _Logger.Debug($"Indexing  oIndexType < WINDREAM.WMObjectVariableValueTypeVector...")
-            '                        indexierung_erfolgreich = WINDREAM.SetFileIndex(My.Application.Globix.CURRENT_NEWFILENAME, indexname, idxvalue, CURR_DOKART_OBJECTTYPE)
-            '                    Else
-            '                        Dim oSplitArray = Split(idxvalue, ClassConstants.VECTORSEPARATOR)
-            '                        Dim oListofString As New List(Of String)
-            '                        If oSplitArray.Count = 0 Then
-            '                            oListofString.Add(idxvalue)
-            '                        Else
-            '                            For Each oStr In oSplitArray
-            '                                oListofString.Add(oStr)
-            '                            Next
-            '                        End If
+                            ' den Typ des Zielindexes auslesen
+                            Dim oIndexType As Integer = WINDREAM.GetIndexType(indexname)
+                            _Logger.Debug($"oIndexType [{oIndexType.ToString}]...")
+                            If oIndexType < WINDREAM.WMObjectVariableValueTypeVector Then
+                                _Logger.Debug($"Indexing  oIndexType < WINDREAM.WMObjectVariableValueTypeVector...")
+                                indexierung_erfolgreich = WINDREAM.SetFileIndex(My.Application.Globix.CURRENT_NEWFILENAME, indexname, idxvalue, CURR_DOKART_OBJECTTYPE)
+                            Else
+                                Dim oSplitArray = Split(idxvalue, ClassConstants.VECTORSEPARATOR)
+                                Dim oListofString As New List(Of String)
+                                If oSplitArray.Count = 0 Then
+                                    oListofString.Add(idxvalue)
+                                Else
+                                    For Each oStr In oSplitArray
+                                        oListofString.Add(oStr)
+                                    Next
+                                End If
 
 
-            '                        indexierung_erfolgreich = WINDREAM.SetFileIndex(My.Application.Globix.CURRENT_NEWFILENAME, indexname, oListofString, CURR_DOKART_OBJECTTYPE)
-            '                    End If
+                                indexierung_erfolgreich = WINDREAM.SetFileIndex(My.Application.Globix.CURRENT_NEWFILENAME, indexname, oListofString, CURR_DOKART_OBJECTTYPE)
+                            End If
 
-            '                    'indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, idxvalue)
-            '                    If indexierung_erfolgreich = False Then
-            '                        MsgBox("Error in Indexing file - See log", MsgBoxStyle.Critical)
-            '                        Return False
-            '                        Exit For
-            '                    End If
-            '                Else
+                            'indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, idxvalue)
+                            If indexierung_erfolgreich = False Then
+                                MsgBox("Error in Indexing file - See log", MsgBoxStyle.Critical)
+                                Return False
+                                Exit For
+                            End If
+                        Else
 
-            '                    _Logger.Debug("No Indexing: indexname: " & indexname)
-            '                    _Logger.Debug("No Indexing: is optional? " & optional_Index.ToString)
-            '                End If
-            '            Else
-            '                _Logger.Debug("Indexvalue is empty or field is not indexed - Indexname:  " & indexname)
-            '                _Logger.Info("Indexvalue is empty or field is not indexed - Indexname:  " & indexname)
-            '            End If
-            '        Next
+                            _Logger.Debug("No Indexing: indexname: " & indexname)
+                            _Logger.Debug("No Indexing: is optional? " & optional_Index.ToString)
+                        End If
+                    Else
+                        _Logger.Debug("Indexvalue is empty or field is not indexed - Indexname:  " & indexname)
+                        _Logger.Info("Indexvalue is empty or field is not indexed - Indexname:  " & indexname)
+                    End If
+                Next
 
-            '    End If
-            '    'Automatische Indexe Indexieren
+            End If
+            'Automatische Indexe Indexieren
 
-            '    If My.Application.Globix.CURR_AUTO_INDEXE.Rows.Count > 0 Then
-            '        Dim Count As Integer = 0
-            '        For Each row As DataRow In My.Application.Globix.CURR_AUTO_INDEXE.Rows
-            '            Dim indexiert = CBool(row.Item("Indexiert"))
-            '            Dim Indexvalue = row.Item("Indexwert").ToString
-            '            Dim indexname = row.Item("INDEXNAME").ToString
-            '            If indexiert = True And Indexvalue <> "" Then
-            '                If Indexvalue <> "EMPTY_OI" Then
-            '                    _Logger.Info("Auto Indexname: " & indexname.ToString)
-            '                    _Logger.Info("Indexvalue: " & Indexvalue.ToString)
-            '                    Count += 1
+            If My.Application.Globix.CURR_AUTO_INDEXE.Rows.Count > 0 Then
+                Dim Count As Integer = 0
+                For Each row As DataRow In My.Application.Globix.CURR_AUTO_INDEXE.Rows
+                    Dim indexiert = CBool(row.Item("Indexiert"))
+                    Dim Indexvalue = row.Item("Indexwert").ToString
+                    Dim indexname = row.Item("INDEXNAME").ToString
+                    If indexiert = True And Indexvalue <> "" Then
+                        If Indexvalue <> "EMPTY_OI" Then
+                            _Logger.Info("Auto Indexname: " & indexname.ToString)
+                            _Logger.Info("Indexvalue: " & Indexvalue.ToString)
+                            Count += 1
 
-            '                    ' den Typ des Zielindexes auslesen
-            '                    Dim indexType As Integer = WINDREAM.GetIndexType(indexname)
+                            ' den Typ des Zielindexes auslesen
+                            Dim indexType As Integer = WINDREAM.GetIndexType(indexname)
 
-            '                    If indexType < WINDREAM.WMObjectVariableValueTypeVector Then
-            '                        indexierung_erfolgreich = WINDREAM.SetFileIndex(My.Application.Globix.CURRENT_NEWFILENAME, indexname, Indexvalue, CURR_DOKART_OBJECTTYPE)
-            '                    Else
-            '                        Dim oSplitArray = Split(Indexvalue, ClassConstants.VECTORSEPARATOR)
-            '                        Dim oListofString As New List(Of String)
-            '                        If oSplitArray.Count = 0 Then
-            '                            oListofString.Add(Indexvalue)
-            '                        Else
-            '                            For Each oStr In oSplitArray
-            '                                oListofString.Add(oStr)
-            '                            Next
-            '                        End If
-            '                        indexierung_erfolgreich = WINDREAM.SetFileIndex(My.Application.Globix.CURRENT_NEWFILENAME, indexname, oListofString, CURR_DOKART_OBJECTTYPE)
-            '                    End If
+                            If indexType < WINDREAM.WMObjectVariableValueTypeVector Then
+                                indexierung_erfolgreich = WINDREAM.SetFileIndex(My.Application.Globix.CURRENT_NEWFILENAME, indexname, Indexvalue, CURR_DOKART_OBJECTTYPE)
+                            Else
+                                Dim oSplitArray = Split(Indexvalue, ClassConstants.VECTORSEPARATOR)
+                                Dim oListofString As New List(Of String)
+                                If oSplitArray.Count = 0 Then
+                                    oListofString.Add(Indexvalue)
+                                Else
+                                    For Each oStr In oSplitArray
+                                        oListofString.Add(oStr)
+                                    Next
+                                End If
+                                indexierung_erfolgreich = WINDREAM.SetFileIndex(My.Application.Globix.CURRENT_NEWFILENAME, indexname, oListofString, CURR_DOKART_OBJECTTYPE)
+                            End If
 
-            '                    'indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, Indexvalue, CURR_DOKART_OBJECTTYPE)
-            '                    If indexierung_erfolgreich = False Then
-            '                        MsgBox("Error in indexing file - See log", MsgBoxStyle.Critical)
-            '                        Return False
-            '                        Exit For
-            '                    End If
-            '                End If
-            '            End If
-            '        Next
-            '    End If
-            '    If DropType = "|OUTLOOK_MESSAGE|" Or DropType = "|FW_MSGONLY|" Or DropType = "|MSGONLY|" Or My.Application.Globix.CURRENT_NEWFILENAME.EndsWith(".msg") Then
-            '        indexierung_erfolgreich = SetEmailIndices()
-            '        If indexierung_erfolgreich = False Then
-            '            MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical)
-            '            Return False
-            '        End If
-            '    ElseIf DropType = "|ATTMNTEXTRACTED|" Or DropType = "|OUTLOOK_ATTACHMENT|" Then
-            '        indexierung_erfolgreich = SetAttachmentIndices()
-            '        If indexierung_erfolgreich = False Then
-            '            MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical)
-            '            Return False
-            '        End If
-            '    End If
-            'Catch ex As Exception
-            '    _Logger.Warn("Unexpected error in Write_Indizes - Fehler: " & vbNewLine & ex.Message)
-            '    _Logger.Error(ex.Message)
-            '    MsgBox("Error in Write_Indizes:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            '    Return False
-            'End Try
-            Return True
+                            'indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, Indexvalue, CURR_DOKART_OBJECTTYPE)
+                            If indexierung_erfolgreich = False Then
+                                MsgBox("Error in indexing file - See log", MsgBoxStyle.Critical)
+                                Return False
+                                Exit For
+                            End If
+                        End If
+                    End If
+                Next
+            End If
+            If DropType = "|OUTLOOK_MESSAGE|" Or DropType = "|FW_MSGONLY|" Or DropType = "|MSGONLY|" Or My.Application.Globix.CURRENT_NEWFILENAME.EndsWith(".msg") Then
+                indexierung_erfolgreich = SetEmailIndices()
+                If indexierung_erfolgreich = False Then
+                    MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical)
+                    Return False
+                End If
+            ElseIf DropType = "|ATTMNTEXTRACTED|" Or DropType = "|OUTLOOK_ATTACHMENT|" Then
+                indexierung_erfolgreich = SetAttachmentIndices()
+                If indexierung_erfolgreich = False Then
+                    MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical)
+                    Return False
+                End If
+            End If
+        Catch ex As Exception
+            _Logger.Warn("Unexpected error in Write_Indizes - Fehler: " & vbNewLine & ex.Message)
+        _Logger.Error(ex.Message)
+        MsgBox("Error in Write_Indizes:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        Return False
+        End Try
+        Return True
     End Function
     Private Function SINGLEFILE_2_IDB(pBusinessEntity As String) As Boolean
         Try

GUIs.ZooFlow/frmSplash.Designer.vb

@@ -23,53 +23,37 @@ Partial Class frmSplash
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSplash))
-        Me.pictureEdit2 = New DevExpress.XtraEditors.PictureEdit()
         Me.pictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
         Me.labelControl2 = New DevExpress.XtraEditors.LabelControl()
         Me.txtActionName = New DevExpress.XtraEditors.LabelControl()
         Me.Version = New DevExpress.XtraEditors.LabelControl()
         Me.ProgressBarControl1 = New DevExpress.XtraEditors.ProgressBarControl()
-        CType(Me.pictureEdit2.Properties,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.pictureEdit1.Properties,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.ProgressBarControl1.Properties,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.SuspendLayout
-        '
-        'pictureEdit2
-        '
-        Me.pictureEdit2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom)  _
-            Or System.Windows.Forms.AnchorStyles.Left)  _
-            Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
-        Me.pictureEdit2.Cursor = System.Windows.Forms.Cursors.Default
-        Me.pictureEdit2.EditValue = CType(resources.GetObject("pictureEdit2.EditValue"),Object)
-        Me.pictureEdit2.Location = New System.Drawing.Point(12, 12)
-        Me.pictureEdit2.Name = "pictureEdit2"
-        Me.pictureEdit2.Properties.AllowFocused = false
-        Me.pictureEdit2.Properties.Appearance.BackColor = System.Drawing.Color.Transparent
-        Me.pictureEdit2.Properties.Appearance.Options.UseBackColor = true
-        Me.pictureEdit2.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
-        Me.pictureEdit2.Properties.ShowMenu = false
-        Me.pictureEdit2.Size = New System.Drawing.Size(525, 260)
-        Me.pictureEdit2.TabIndex = 14
+        Me.pictureEdit2 = New DevExpress.XtraEditors.PictureEdit()
+        Me.Button1 = New System.Windows.Forms.Button()
+        CType(Me.pictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.pictureEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
         '
         'pictureEdit1
         '
-        Me.pictureEdit1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+        Me.pictureEdit1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.pictureEdit1.Cursor = System.Windows.Forms.Cursors.Default
-        Me.pictureEdit1.EditValue = CType(resources.GetObject("pictureEdit1.EditValue"),Object)
-        Me.pictureEdit1.Location = New System.Drawing.Point(335, 346)
+        Me.pictureEdit1.EditValue = CType(resources.GetObject("pictureEdit1.EditValue"), Object)
+        Me.pictureEdit1.Location = New System.Drawing.Point(319, 280)
         Me.pictureEdit1.Name = "pictureEdit1"
-        Me.pictureEdit1.Properties.AllowFocused = false
+        Me.pictureEdit1.Properties.AllowFocused = False
         Me.pictureEdit1.Properties.Appearance.BackColor = System.Drawing.Color.Transparent
-        Me.pictureEdit1.Properties.Appearance.Options.UseBackColor = true
+        Me.pictureEdit1.Properties.Appearance.Options.UseBackColor = True
         Me.pictureEdit1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
-        Me.pictureEdit1.Properties.ShowMenu = false
+        Me.pictureEdit1.Properties.ShowMenu = False
         Me.pictureEdit1.Size = New System.Drawing.Size(202, 28)
         Me.pictureEdit1.TabIndex = 13
         '
         'labelControl2
         '
-        Me.labelControl2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
-        Me.labelControl2.Location = New System.Drawing.Point(12, 278)
+        Me.labelControl2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.labelControl2.Location = New System.Drawing.Point(12, 212)
         Me.labelControl2.Name = "labelControl2"
         Me.labelControl2.Size = New System.Drawing.Size(50, 13)
         Me.labelControl2.TabIndex = 12
@@ -77,8 +61,8 @@ Partial Class frmSplash
         '
         'txtActionName
         '
-        Me.txtActionName.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
-        Me.txtActionName.Location = New System.Drawing.Point(12, 321)
+        Me.txtActionName.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.txtActionName.Location = New System.Drawing.Point(12, 255)
         Me.txtActionName.Name = "txtActionName"
         Me.txtActionName.Size = New System.Drawing.Size(48, 13)
         Me.txtActionName.TabIndex = 12
@@ -86,8 +70,8 @@ Partial Class frmSplash
         '
         'Version
         '
-        Me.Version.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
-        Me.Version.Location = New System.Drawing.Point(12, 361)
+        Me.Version.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Version.Location = New System.Drawing.Point(12, 295)
         Me.Version.Name = "Version"
         Me.Version.Size = New System.Drawing.Size(54, 13)
         Me.Version.TabIndex = 12
@@ -95,20 +79,47 @@ Partial Class frmSplash
         '
         'ProgressBarControl1
         '
-        Me.ProgressBarControl1.Location = New System.Drawing.Point(12, 297)
+        Me.ProgressBarControl1.Location = New System.Drawing.Point(12, 231)
         Me.ProgressBarControl1.Name = "ProgressBarControl1"
         Me.ProgressBarControl1.Properties.EndColor = System.Drawing.Color.Empty
         Me.ProgressBarControl1.Properties.LookAndFeel.SkinName = "Office 2019 Colorful"
-        Me.ProgressBarControl1.Properties.LookAndFeel.UseDefaultLookAndFeel = false
+        Me.ProgressBarControl1.Properties.LookAndFeel.UseDefaultLookAndFeel = False
         Me.ProgressBarControl1.Properties.StartColor = System.Drawing.Color.Empty
-        Me.ProgressBarControl1.Size = New System.Drawing.Size(525, 18)
+        Me.ProgressBarControl1.Size = New System.Drawing.Size(509, 18)
         Me.ProgressBarControl1.TabIndex = 15
         '
+        'pictureEdit2
+        '
+        Me.pictureEdit2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.pictureEdit2.Cursor = System.Windows.Forms.Cursors.Default
+        Me.pictureEdit2.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW
+        Me.pictureEdit2.Location = New System.Drawing.Point(12, 12)
+        Me.pictureEdit2.Name = "pictureEdit2"
+        Me.pictureEdit2.Properties.AllowFocused = False
+        Me.pictureEdit2.Properties.Appearance.BackColor = System.Drawing.Color.Transparent
+        Me.pictureEdit2.Properties.Appearance.Options.UseBackColor = True
+        Me.pictureEdit2.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
+        Me.pictureEdit2.Properties.ShowMenu = False
+        Me.pictureEdit2.Size = New System.Drawing.Size(509, 194)
+        Me.pictureEdit2.TabIndex = 14
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(446, 141)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 16
+        Me.Button1.Text = "Stop"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
         'frmSplash
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(549, 386)
+        Me.ClientSize = New System.Drawing.Size(533, 320)
+        Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.ProgressBarControl1)
         Me.Controls.Add(Me.pictureEdit2)
         Me.Controls.Add(Me.pictureEdit1)
@@ -117,17 +128,18 @@ Partial Class frmSplash
         Me.Controls.Add(Me.labelControl2)
         Me.Name = "frmSplash"
         Me.Text = "Form1"
-        CType(Me.pictureEdit2.Properties,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.pictureEdit1.Properties,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.ProgressBarControl1.Properties,System.ComponentModel.ISupportInitialize).EndInit
-        Me.ResumeLayout(false)
+        CType(Me.pictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.pictureEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
         Me.PerformLayout
 
 End Sub
-    Private WithEvents pictureEdit2 As DevExpress.XtraEditors.PictureEdit
     Private WithEvents pictureEdit1 As DevExpress.XtraEditors.PictureEdit
     Private WithEvents labelControl2 As DevExpress.XtraEditors.LabelControl
     Private WithEvents txtActionName As DevExpress.XtraEditors.LabelControl
     Private WithEvents Version As DevExpress.XtraEditors.LabelControl
     Friend WithEvents ProgressBarControl1 As DevExpress.XtraEditors.ProgressBarControl
+    Private WithEvents pictureEdit2 As DevExpress.XtraEditors.PictureEdit
+    Friend WithEvents Button1 As Button
 End Class

GUIs.ZooFlow/frmSplash.vb

@@ -26,4 +26,8 @@ Public Class frmSplash
         SetProgress
         SetActionName
     End Enum
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        MsgBox("Stop")
+    End Sub
 End Class