Zooflow: MASSIVE Clean up in Globix Module

GUIs.ZooFlow/App.config

@@ -14,7 +14,7 @@
       connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=IDB;Persist Security Info=True;User ID=sa;Password=dd"
       providerName="System.Data.SqlClient" />
     <add name="DigitalData.GUIs.ZooFlow.Settings.ECMConnectionStringDEFAULT"
-      connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;User ID=sa;Password=dd" />
+      connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;User ID=sa;Password=dd" />
     <add name="DigitalData.GUIs.ZooFlow.Settings.DD_ECMConnectionString"
       connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd"
       providerName="System.Data.SqlClient" />

GUIs.ZooFlow/ApplicationEvents.vb

@@ -13,36 +13,22 @@ Namespace My
     Partial Friend Class MyApplication
         Private _Logger As Logger
 
-        Private oUserAppDataPath As String = Windows.Forms.Application.UserAppDataPath
+        Private UserAppDataPath As String = Windows.Forms.Application.UserAppDataPath
-        Private _BaseLocalUserConfigPath As String = Windows.Forms.Application.LocalUserAppDataPath
+        Private BaseLocalUserConfigPath As String = Windows.Forms.Application.LocalUserAppDataPath
-        Private oCommonAppDataPath As String = Windows.Forms.Application.CommonAppDataPath
+        Private CommonAppDataPath As String = Windows.Forms.Application.CommonAppDataPath
-        Private oStartupPath As String = Windows.Forms.Application.StartupPath
+        Private StartupPath As String = Windows.Forms.Application.StartupPath
 
         Public Sub App_Startup() Handles Me.Startup
-            Dim oLogConfig As New LogConfig(LogPath:=PathType.AppData, CompanyName:="Digital Data", ProductName:="ZooFlow") With {.Debug = True}
+            Dim oLogConfig As New LogConfig(LogPath:=PathType.AppData, CompanyName:="Digital Data", ProductName:="ZooFlow", FileKeepRangeInDays:=30) With {.Debug = True}
-            If My.Settings.UseAppConfigConString = True Then
+
-                ' UserAppDataPath = StartupPath
-                oCommonAppDataPath = oStartupPath
-            End If
             ' System Config files like Service Url will be saved in %LocalAppdata% so they will remain on the machine
-            Dim oConfigManager As New ConfigManager(Of ClassConfig)(oLogConfig,
+            Dim oConfigManager As New ConfigManager(Of ClassConfig)(oLogConfig, UserAppDataPath, CommonAppDataPath, StartupPath)
-                                                                          oUserAppDataPath,
-                                                                          oCommonAppDataPath,
-                                                                          oStartupPath)
 
             ' Layout files will be saved in %Appdata% (Roaming) so they will be syncronized with the user profile
-            Dim oUIConfigPath = IO.Path.Combine(oUserAppDataPath, ClassConstants.FOLDER_NAME_LAYOUT)
+            Dim oUIConfigPath = IO.Path.Combine(UserAppDataPath, ClassConstants.FOLDER_NAME_LAYOUT)
-            Dim oUIConfigAlternatePath = IO.Path.Combine(oUserAppDataPath, ClassConstants.FOLDER_NAME_LAYOUT)
+            Dim oUIConfigAlternatePath = IO.Path.Combine(UserAppDataPath, ClassConstants.FOLDER_NAME_LAYOUT)
             Dim oUIConfigManager As New ConfigManager(Of ClassUIConfig)(oLogConfig, oUIConfigPath, oUIConfigPath, oUIConfigAlternatePath)
 
-            'If oConfigManager.Config.ConnectionStringAppServer <> String.Empty Then
-            '    MyConStringAppserv = DecryptConnectionString(oConfigManager.Config.ConnectionStringAppServer)
-            '    If InitAppDatabase() Then
-            '        Logger.Debug("ConnectionStringAppServer will be used")
-            '    End If
-            'End If
-
-
             LogConfig = oLogConfig
             LogConfig.Debug = True
 

GUIs.ZooFlow/ClassWindowLayout.vb

@@ -38,7 +38,7 @@ Public Class ClassWindowLayout
             End If
             _FileName = oPath
 
-            Dim settings As System.Collections.Generic.List(Of ClassSetting)
+            Dim settings As List(Of ClassSetting)
             settings = Load()
 
             If settings.Count = 0 Then
@@ -112,8 +112,7 @@ Public Class ClassWindowLayout
             Dim _path As String
             _path = Path.Combine(Application.UserAppDataPath(), form.Name & "-Layout.xml")
 
-            Dim layout As ClassLayout = New ClassLayout(_path)
+            Dim settings As List(Of ClassSetting) = New List(Of ClassSetting)
-            Dim settings As System.Collections.Generic.List(Of ClassSetting) = New System.Collections.Generic.List(Of ClassSetting)
             Dim width As Integer
             Dim height As Integer
             Dim x As Integer
@@ -205,18 +204,3 @@ Public Class ClassWindowLayout
         End Sub
     End Class
 End Class
-
-
-'-------------------------------------------------------------------
-
-
-
-Public Class ClassLayout
-
-
-    Public Sub New(filename As String)
-
-    End Sub
-
-
-End Class

GUIs.ZooFlow/DBCW_Stammdaten.Designer.vb

@@ -3401,7 +3401,7 @@ Namespace DBCW_StammdatenTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString
+            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.ECMConnectionStringDEFAULT
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -3976,7 +3976,7 @@ Namespace DBCW_StammdatenTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString
+            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.ECMConnectionStringDEFAULT
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -4541,7 +4541,7 @@ Namespace DBCW_StammdatenTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString
+            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.ECMConnectionStringDEFAULT
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

GUIs.ZooFlow/DBCW_Stammdaten.xsd

@@ -4,12 +4,12 @@
     <xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
       <DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
         <Connections>
-          <Connection AppSettingsObjectName="Settings" AppSettingsPropertyName="DD_ECMConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="DD_ECMConnectionString (Settings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DigitalData.GUIs.ZooFlow.Settings.GlobalReference.Default.DD_ECMConnectionString" Provider="System.Data.SqlClient" />
+          <Connection AppSettingsObjectName="Settings" AppSettingsPropertyName="ECMConnectionStringDEFAULT" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="ECMConnectionStringDEFAULT (Settings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DigitalData.GUIs.ZooFlow.Settings.GlobalReference.Default.ECMConnectionStringDEFAULT" Provider="System.Data.SqlClient" />
         </Connections>
         <Tables>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBCW_PROFILESTableAdapter" GeneratorDataComponentClassName="TBCW_PROFILESTableAdapter" Name="TBCW_PROFILES" UserDataComponentName="TBCW_PROFILESTableAdapter">
             <MainSource>
-              <DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.TBCW_PROFILES" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+              <DbSource ConnectionRef="ECMConnectionStringDEFAULT (Settings)" DbObjectName="DD_ECM.dbo.TBCW_PROFILES" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
                 <DeleteCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="false">
                     <CommandText>DELETE FROM [dbo].[TBCW_PROFILES] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([REGEX_EXPRESSION] = @Original_REGEX_EXPRESSION) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([ACTIVE] = @Original_ACTIVE) AND ([PROFILE_TYPE] = @Original_PROFILE_TYPE))</CommandText>
@@ -106,7 +106,7 @@ SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO
           </TableAdapter>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBCW_PROF_DOC_SEARCHTableAdapter" GeneratorDataComponentClassName="TBCW_PROF_DOC_SEARCHTableAdapter" Name="TBCW_PROF_DOC_SEARCH" UserDataComponentName="TBCW_PROF_DOC_SEARCHTableAdapter">
             <MainSource>
-              <DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.TBCW_PROF_DOC_SEARCH" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+              <DbSource ConnectionRef="ECMConnectionStringDEFAULT (Settings)" DbObjectName="DD_ECM.dbo.TBCW_PROF_DOC_SEARCH" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
                 <DeleteCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="false">
                     <CommandText>DELETE FROM [TBCW_PROF_DOC_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
@@ -208,7 +208,7 @@ SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADD
           </TableAdapter>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBCW_PROF_DATA_SEARCHTableAdapter" GeneratorDataComponentClassName="TBCW_PROF_DATA_SEARCHTableAdapter" Name="TBCW_PROF_DATA_SEARCH" UserDataComponentName="TBCW_PROF_DATA_SEARCHTableAdapter">
             <MainSource>
-              <DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.TBCW_PROF_DATA_SEARCH" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+              <DbSource ConnectionRef="ECMConnectionStringDEFAULT (Settings)" DbObjectName="DD_ECM.dbo.TBCW_PROF_DATA_SEARCH" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
                 <DeleteCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="false">
                     <CommandText>DELETE FROM [TBCW_PROF_DATA_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>

GUIs.ZooFlow/DSDD_Stammdaten.Designer.vb

@@ -1331,7 +1331,7 @@ Namespace DSDD_StammdatenTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString
+            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.ECMConnectionStringDEFAULT
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

GUIs.ZooFlow/DSDD_Stammdaten.xsd

@@ -4,12 +4,12 @@
     <xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
       <DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
         <Connections>
-          <Connection AppSettingsObjectName="Settings" AppSettingsPropertyName="DD_ECMConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="DD_ECMConnectionString (Settings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DigitalData.GUIs.ZooFlow.Settings.GlobalReference.Default.DD_ECMConnectionString" Provider="System.Data.SqlClient" />
+          <Connection AppSettingsObjectName="Settings" AppSettingsPropertyName="ECMConnectionStringDEFAULT" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="ECMConnectionStringDEFAULT (Settings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DigitalData.GUIs.ZooFlow.Settings.GlobalReference.Default.ECMConnectionStringDEFAULT" Provider="System.Data.SqlClient" />
         </Connections>
         <Tables>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBDD_CONNECTIONTableAdapter" GeneratorDataComponentClassName="TBDD_CONNECTIONTableAdapter" Name="TBDD_CONNECTION" UserDataComponentName="TBDD_CONNECTIONTableAdapter">
             <MainSource>
-              <DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.TBDD_CONNECTION" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+              <DbSource ConnectionRef="ECMConnectionStringDEFAULT (Settings)" DbObjectName="DD_ECM.dbo.TBDD_CONNECTION" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
                 <DeleteCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="false">
                     <CommandText>DELETE FROM [TBDD_CONNECTION] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_BEZEICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICHNUNG)) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] = @Original_SERVER)) AND ((@IsNull_DATENBANK = 1 AND [DATENBANK] IS NULL) OR ([DATENBANK] = @Original_DATENBANK)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_BEMERKUNG = 1 AND [BEMERKUNG] IS NULL) OR ([BEMERKUNG] = @Original_BEMERKUNG)) AND ([AKTIV] = @Original_AKTIV) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ((@IsNull_ERSTELLTWANN = 1 AND [ERSTELLTWANN] IS NULL) OR ([ERSTELLTWANN] = @Original_ERSTELLTWANN)) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERTWER] = @Original_GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)) AND ([SYS_CONNECTION] = @Original_SYS_CONNECTION))</CommandText>

GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb

@@ -7744,7 +7744,7 @@ Namespace DSIDB_StammdatenTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString
+            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.ECMConnectionStringDEFAULT
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

GUIs.ZooFlow/DSIDB_Stammdaten.xsd

@@ -5,7 +5,7 @@
       <DataSource DefaultConnectionIndex="1" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
         <Connections>
           <Connection AppSettingsObjectName="Settings" AppSettingsPropertyName="IDBConnectionStringDEFAULT" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="IDBConnectionStringDEFAULT (Settings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DigitalData.GUIs.ZooFlow.Settings.GlobalReference.Default.IDBConnectionStringDEFAULT" Provider="System.Data.SqlClient" />
-          <Connection AppSettingsObjectName="Settings" AppSettingsPropertyName="DD_ECMConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="DD_ECMConnectionString (Settings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DigitalData.GUIs.ZooFlow.Settings.GlobalReference.Default.DD_ECMConnectionString" Provider="System.Data.SqlClient" />
+          <Connection AppSettingsObjectName="Settings" AppSettingsPropertyName="ECMConnectionStringDEFAULT" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="ECMConnectionStringDEFAULT (Settings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DigitalData.GUIs.ZooFlow.Settings.GlobalReference.Default.ECMConnectionStringDEFAULT" Provider="System.Data.SqlClient" />
         </Connections>
         <Tables>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBIDB_BUSINESS_ENTITYTableAdapter" GeneratorDataComponentClassName="TBIDB_BUSINESS_ENTITYTableAdapter" Name="TBIDB_BUSINESS_ENTITY" UserDataComponentName="TBIDB_BUSINESS_ENTITYTableAdapter">
@@ -319,7 +319,7 @@ FROM            VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = @ATTRIBUTE_ID AND LANG_ID = @
           </TableAdapter>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBZF_ADMIN_SOURCE_SQLTableAdapter" GeneratorDataComponentClassName="TBZF_ADMIN_SOURCE_SQLTableAdapter" Name="TBZF_ADMIN_SOURCE_SQL" UserDataComponentName="TBZF_ADMIN_SOURCE_SQLTableAdapter">
             <MainSource>
-              <DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.TBZF_ADMIN_SOURCE_SQL" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+              <DbSource ConnectionRef="ECMConnectionStringDEFAULT (Settings)" DbObjectName="DD_ECM.dbo.TBZF_ADMIN_SOURCE_SQL" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
                 <DeleteCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="true">
                     <CommandText>DELETE FROM TBZF_ADMIN_SOURCE_SQL

GUIs.ZooFlow/Globix/ClassFileDrop.vb

@@ -5,9 +5,19 @@ Imports DigitalData.Modules.Logging
 Imports Microsoft.Office.Interop
 
 Public Class ClassFileDrop
-    Public Shared files_dropped As String()
+    Public files_dropped As String()
     Private _LOGGER As Logger
     Private clsFilehandle As ClassFilehandle
+
+    Public Class DroppedFile
+        Public FilePath As String
+        Public Enum DropType
+            Filesystem
+            OutlookAttachment
+            OutlookMessage
+        End Enum
+    End Class
+
     Public Sub New(LogConfig As LogConfig)
         _LOGGER = LogConfig.GetLogger()
         clsFilehandle = New ClassFilehandle()

GUIs.ZooFlow/Globix/ClassValidator.vb

@@ -1,5 +1,6 @@
 Imports DigitalData.Controls.LookupGrid
 Imports DigitalData.GUIs.ZooFlow.Base
+Imports DigitalData.GUIs.ZooFlow.Globix.Models
 Imports DigitalData.GUIs.ZooFlow.frmGlobix_Index
 Imports DigitalData.Modules.EDMI.API
 Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
@@ -9,10 +10,12 @@ Public Class ClassValidator
     Inherits BaseClass
 
     Private ReadOnly Client As Client
+    Private ReadOnly ManualIndexes As List(Of ManualIndex)
 
-    Public Sub New(pLogConfig As LogConfig, pClient As Client)
+    Public Sub New(pLogConfig As LogConfig, pClient As Client, pManualIndexes As List(Of ManualIndex))
         MyBase.New(pLogConfig)
         Client = pClient
+        ManualIndexes = pManualIndexes
     End Sub
 
     Function ValidateControls(pPanel As Panel, pDocType As DocType) As Boolean
@@ -22,6 +25,10 @@ Public Class ClassValidator
 
             For Each oControl As Control In pPanel.Controls
 
+                If oControl.Name.StartsWith("lbl") Then
+                    Continue For
+                End If
+
                 ' ========================= TEXT BOX =========================
                 If oControl.Name.StartsWith("txt") Then
                     Dim oTextBox As DevExpress.XtraEditors.TextEdit = oControl
@@ -52,6 +59,7 @@ Public Class ClassValidator
                             Return False
                         End If
                     End If
+
                 ElseIf oControl.Name.StartsWith("cmbSingle") Then
                     Dim cmbSingle As TextBox = oControl
 
@@ -228,9 +236,10 @@ Public Class ClassValidator
     End Function
 
     Private Function TestIsIndexOptional(pDocType As DocType, pIndexName As String) As Boolean
-        Dim oIsOptional As Boolean = My.Helpers.GetValueFromDatatable(
+        Dim oIsOptional As Boolean = ManualIndexes.
-            My.Application.Globix.CURR_DT_MAN_INDEXE,
+            Where(Function(index) index.DocTypeId = pDocType.Guid And index.Name = pIndexName).
-            $"DOK_ID = {pDocType.Guid} AND INDEXNAME = '{pIndexName}'", "OPTIONAL", "")
+            Select(Function(index) index.IsOptional).
+            FirstOrDefault()
 
         Return oIsOptional
     End Function

GUIs.ZooFlow/Globix/GlobixControls.vb

@@ -3,11 +3,14 @@ Imports DigitalData.Modules.Logging
 Imports Oracle.ManagedDataAccess.Client
 Imports DigitalData.Controls.LookupGrid
 Imports DigitalData.Modules.Language.Utils
+Imports DigitalData.Modules.Patterns
+Imports DigitalData.GUIs.ZooFlow.Globix.Models
 
 Public Class GlobixControls
     Private Property Form As frmGlobix_Index
     Private Property Panel As Panel
-    Private Patterns As GlobixPatterns
+    Private ReadOnly DocType As DocType
+    Private Property Patterns2 As Patterns2
 
     Public Class ControlMeta
         Public Property IndexName As String
@@ -15,11 +18,12 @@ Public Class GlobixControls
         Public Property MultipleValues As Boolean = False
     End Class
     Private _Logger As Logger
-    Public Sub New(LogConfig As LogConfig, Panel As Panel, Form As frmGlobix_Index)
+    Public Sub New(LogConfig As LogConfig, Panel As Panel, Form As frmGlobix_Index, pDocType As DocType)
         _Logger = LogConfig.GetLogger
         Me.Form = Form
         Me.Panel = Panel
-        Patterns = New GlobixPatterns(LogConfig)
+        DocType = pDocType
+        Patterns2 = New Patterns2(LogConfig)
     End Sub
 
     Public Function AddCheckBox(indexname As String, y As Integer, vorbelegung As String, caption As String)
@@ -106,7 +110,7 @@ Public Class GlobixControls
             If oConnectionString IsNot Nothing And oSql.Length > 0 And SQLSuggestion = True Then
                 _Logger.Debug("Connection String (redacted): [{0}]", oConnectionString.Substring(0, 30))
 
-                If Patterns.HasComplexPatterns(oSql) Then
+                If Patterns2.HasComplexPatterns(oSql) Then
                     _Logger.Debug("sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
                 Else
                     Dim oDatatable = My.DatabaseECM.GetDatatableWithConnection(oSql, oConnectionString)
@@ -189,7 +193,7 @@ Public Class GlobixControls
     Private Sub Get_NextComboBoxResults(cmb As ComboBox)
         Try
             Dim indexname = cmb.Name.Replace("cmb", "")
-            Dim sql = "SELECT GUID,NAME,SQL_RESULT FROM TBDD_INDEX_MAN where SUGGESTION = 1 AND SQL_RESULT like '%@" & indexname & "%' and DOK_ID = " & My.Application.Globix.CURRENT_DOCTYPE_ID & " ORDER BY SEQUENCE"
+            Dim sql = "SELECT GUID,NAME,SQL_RESULT FROM TBDD_INDEX_MAN where SUGGESTION = 1 AND SQL_RESULT like '%@" & indexname & "%' and DOK_ID = " & DocType.Guid & " ORDER BY SEQUENCE"
             Dim DT As DataTable = My.DatabaseECM.GetDatatable(sql)
             If Not IsNothing(DT) Then
                 If DT.Rows.Count > 0 Then
@@ -417,10 +421,9 @@ Public Class GlobixControls
                         Continue For
                     End If
 
-                    oControlSql = Patterns.ReplaceUserValues(oControlSql, My.Application.Globix.CURRENT_DOCTYPE_ID)
+                    oControlSql = Patterns2.ReplaceInternalValues(oControlSql)
-                    oControlSql = Patterns.ReplaceInternalValues(oControlSql)
+                    oControlSql = Patterns2.ReplaceUserValues(oControlSql, My.Application.User)
-                    oControlSql = Patterns.ReplaceControlValues(oControlSql, Panel)
+                    oControlSql = Patterns2.ReplaceControlValues(oControlSql, Panel)
-
 
                     _Logger.Debug("SQL After Preparing: [{0}]", oControlSql)
                     _Logger.Debug("Setting new value for [{0}]", oControlName)

GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb

@@ -4321,7 +4321,7 @@ Namespace GlobixDatasetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString
+            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.ECMConnectionStringDEFAULT
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -4829,7 +4829,7 @@ Namespace GlobixDatasetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString
+            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.ECMConnectionStringDEFAULT
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -5306,7 +5306,7 @@ Namespace GlobixDatasetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString
+            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.ECMConnectionStringDEFAULT
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -5670,7 +5670,7 @@ Namespace GlobixDatasetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString
+            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.ECMConnectionStringDEFAULT
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

GUIs.ZooFlow/Globix/GlobixDataset.xsd

@@ -4,12 +4,12 @@
     <xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
       <DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
         <Connections>
-          <Connection AppSettingsObjectName="Settings" AppSettingsPropertyName="DD_ECMConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="DD_ECMConnectionString (Settings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DigitalData.GUIs.ZooFlow.Settings.GlobalReference.Default.DD_ECMConnectionString" Provider="System.Data.SqlClient" />
+          <Connection AppSettingsObjectName="Settings" AppSettingsPropertyName="ECMConnectionStringDEFAULT" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="ECMConnectionStringDEFAULT (Settings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DigitalData.GUIs.ZooFlow.Settings.GlobalReference.Default.ECMConnectionStringDEFAULT" Provider="System.Data.SqlClient" />
         </Connections>
         <Tables>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBDD_DOKUMENTARTTableAdapter" GeneratorDataComponentClassName="TBDD_DOKUMENTARTTableAdapter" Name="TBDD_DOKUMENTART" UserDataComponentName="TBDD_DOKUMENTARTTableAdapter">
             <MainSource>
-              <DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.TBDD_DOKUMENTART" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+              <DbSource ConnectionRef="ECMConnectionStringDEFAULT (Settings)" DbObjectName="DD_ECM.dbo.TBDD_DOKUMENTART" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
                 <DeleteCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="false">
                     <CommandText>DELETE FROM TBDD_DOKUMENTART
@@ -104,7 +104,7 @@ SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHR
               <Mapping SourceColumn="IDB_OBJECT_STORE_ID" DataSetColumn="IDB_OBJECT_STORE_ID" />
             </Mappings>
             <Sources>
-              <DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.TBDD_DOKUMENTART" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="FillAllDoctypes" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetDataDoctypes" GeneratorSourceName="FillAllDoctypes" GetMethodModifier="Public" GetMethodName="GetDataDoctypes" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataDoctypes" UserSourceName="FillAllDoctypes">
+              <DbSource ConnectionRef="ECMConnectionStringDEFAULT (Settings)" DbObjectName="DD_ECM.dbo.TBDD_DOKUMENTART" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="FillAllDoctypes" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetDataDoctypes" GeneratorSourceName="FillAllDoctypes" GetMethodModifier="Public" GetMethodName="GetDataDoctypes" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataDoctypes" UserSourceName="FillAllDoctypes">
                 <SelectCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="true">
                     <CommandText>SELECT        TBDD_DOKUMENTART.GUID, TBDD_DOKUMENTART.BEZEICHNUNG, TBDD_DOKUMENTART.OBJEKTTYP, TBDD_DOKUMENTART.EINGANGSART_ID, TBDD_DOKUMENTART.KURZNAME, TBDD_DOKUMENTART.ZIEL_PFAD, 
@@ -124,7 +124,7 @@ ORDER BY TBDD_DOKUMENTART.BEZEICHNUNG</CommandText>
           </TableAdapter>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBDD_INDEX_MANTableAdapter" GeneratorDataComponentClassName="TBDD_INDEX_MANTableAdapter" Name="TBDD_INDEX_MAN" UserDataComponentName="TBDD_INDEX_MANTableAdapter">
             <MainSource>
-              <DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.TBDD_INDEX_MAN" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+              <DbSource ConnectionRef="ECMConnectionStringDEFAULT (Settings)" DbObjectName="DD_ECM.dbo.TBDD_INDEX_MAN" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
                 <DeleteCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="true">
                     <CommandText>DELETE FROM TBDD_INDEX_MAN
@@ -236,7 +236,7 @@ SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALU
           </TableAdapter>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBDD_INDEX_AUTOMTableAdapter" GeneratorDataComponentClassName="TBDD_INDEX_AUTOMTableAdapter" Name="TBDD_INDEX_AUTOM" UserDataComponentName="TBDD_INDEX_AUTOMTableAdapter">
             <MainSource>
-              <DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+              <DbSource ConnectionRef="ECMConnectionStringDEFAULT (Settings)" DbObjectName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
                 <DeleteCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="true">
                     <CommandText>DELETE FROM TBDD_INDEX_AUTOM
@@ -325,7 +325,7 @@ SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT,
           </TableAdapter>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBGI_REGEX_DOCTYPETableAdapter" GeneratorDataComponentClassName="TBGI_REGEX_DOCTYPETableAdapter" Name="TBGI_REGEX_DOCTYPE" UserDataComponentName="TBGI_REGEX_DOCTYPETableAdapter">
             <MainSource>
-              <DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.TBGI_REGEX_DOCTYPE" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+              <DbSource ConnectionRef="ECMConnectionStringDEFAULT (Settings)" DbObjectName="DD_ECM.dbo.TBGI_REGEX_DOCTYPE" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
                 <DeleteCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="false">
                     <CommandText>DELETE FROM TBGI_REGEX_DOCTYPE

GUIs.ZooFlow/Globix/GlobixPatterns.vb

@@ -1,453 +0,0 @@
-Imports System.Text.RegularExpressions
-Imports DevExpress.XtraEditors
-Imports DigitalData.Controls.LookupGrid
-Imports DigitalData.Modules.Logging
-Imports DigitalData.Modules.Language.Utils
-
-Public Class GlobixPatterns
-    Private _Logger As Logger
-    Private _idbdata As ClassIDBData
-    Public Sub New(LogConfig As LogConfig)
-        _Logger = LogConfig.GetLogger
-        _idbdata = New ClassIDBData(LogConfig)
-    End Sub
-    ' Complex patterns that rely on a datasource like a Database or Windream
-    Public Const PATTERN_WMI = "WMI"
-    Public Const PATTERN_IDBA = "IDBA"
-    Public Const PATTERN_CTRL = "CTRL"
-    ' Simple patterns that only rely on .NET functions
-    Public Const PATTERN_INT = "INT"
-    ' Simple patterns that rely on Data from the TBDD_USER table
-    Public Const PATTERN_USER = "USER"
-
-    Public Const USER_VALUE_PRENAME = "PRENAME"
-    Public Const USER_VALUE_SURNAME = "SURNAME"
-    Public Const USER_VALUE_EMAIL = "EMAIL"
-    Public Const USER_VALUE_SHORTNAME = "SHORTNAME"
-    Public Const USER_VALUE_LANGUAGE = "LANGUAGE"
-    Public Const USER_VALUE_USER_ID = "USER_ID"
-    Public Const USER_VALUE_PROFILE_ID = "PROFILE_ID"
-
-    Public Const INT_VALUE_USERNAME = "USERNAME"
-    Public Const INT_VALUE_MACHINE = "MACHINE"
-    Public Const INT_VALUE_DOMAIN = "DOMAIN"
-    Public Const INT_VALUE_DATE = "DATE"
-
-    Public Const MAX_TRY_COUNT = 500
-
-    Private myregex As Regex = New Regex("{#(\w+)#([\.\w\d\s_-]+)}+")
-    Private allPatterns As New List(Of String) From {PATTERN_WMI, PATTERN_CTRL, PATTERN_IDBA, PATTERN_USER, PATTERN_INT}
-    Private complexPatterns As New List(Of String) From {PATTERN_WMI, PATTERN_CTRL, PATTERN_IDBA}
-    Private simplePatterns As New List(Of String) From {PATTERN_USER, PATTERN_INT}
-
-    ''' <summary>
-    ''' Wraps a pattern-type and -value in the common format: {#type#value}
-    ''' </summary>
-    Public Function WrapPatternValue(type As String, value As String) As String
-        Return New Pattern(type, value).ToString
-    End Function
-
-
-    Public Function ReplaceAllValues(input As String, panel As Panel, prename As Object, surname As Object, shortname As Object, language As Object, email As Object, userId As Object, profileId As Object, pissql As Boolean) As String
-        Try
-            Dim result = input
-            _Logger.Debug($"inputString BEFORE replacing: [{result}]")
-            result = ReplaceInternalValues(result)
-            result = ReplaceControlValues(result, panel)
-            result = ReplaceIDBAttributes(My.Application.Globix.CURRENT_IDB_OBJ_ID, result, pissql)
-            result = ReplaceUserValues(result, profileId)
-            _Logger.Debug($"inputString AFTER replacing: [{result}]")
-            Return result
-        Catch ex As Exception
-            _Logger.Error(ex)
-            _Logger.Info("Error in ReplaceAllValues:" & ex.Message)
-        End Try
-    End Function
-
-    Public Function ReplaceInternalValues(input As String) As String
-        Try
-            Dim result = input
-
-            ' Replace Username(s)
-            While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_USERNAME)
-                result = ReplacePattern(result, PATTERN_INT, Environment.UserName)
-            End While
-
-            ' Replace Machinename(s)
-            While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_MACHINE)
-                result = ReplacePattern(result, PATTERN_INT, Environment.MachineName)
-            End While
-
-            ' Replace Domainname(s)
-            While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_DOMAIN)
-                result = ReplacePattern(result, PATTERN_INT, Environment.UserDomainName)
-            End While
-
-            ' Replace CurrentDate(s)
-            While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_DATE)
-                result = ReplacePattern(result, PATTERN_INT, Now.ToShortDateString)
-            End While
-            _Logger.Debug("sql after ReplaceInternalValues: " & input)
-            Return result
-        Catch ex As Exception
-            _Logger.Error(ex)
-            _Logger.Info("Error in ReplaceInternalValues:" & ex.Message)
-        End Try
-    End Function
-
-    Public Function ReplaceUserValues(input As String, profileId As Object) As String
-        Try
-            Dim result = input
-            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_PRENAME)
-                result = ReplacePattern(result, PATTERN_USER, My.Application.User.GivenName)
-            End While
-
-            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_USER_ID)
-                result = ReplacePattern(result, PATTERN_USER, My.Application.User.UserId)
-            End While
-
-            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SURNAME)
-                result = ReplacePattern(result, PATTERN_USER, My.Application.User.Surname)
-            End While
-            If IsDBNull(My.Application.User.ShortName) Then
-                My.Application.User.ShortName = ""
-            End If
-            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SHORTNAME)
-                result = ReplacePattern(result, PATTERN_USER, My.Application.User.ShortName)
-            End While
-
-            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_LANGUAGE)
-                result = ReplacePattern(result, PATTERN_USER, My.Application.User.Language)
-            End While
-
-            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_EMAIL)
-                result = ReplacePattern(result, PATTERN_USER, My.Application.User.Email)
-            End While
-
-            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_PROFILE_ID)
-                result = ReplacePattern(result, PATTERN_USER, profileId)
-            End While
-            _Logger.Debug("sql after ReplaceUserValues: " & input)
-            Return result
-        Catch ex As Exception
-            _Logger.Error(ex)
-            _Logger.Info("Error in ReplaceUserValues:" & ex.Message)
-        End Try
-    End Function
-
-    Public Function ReplaceControlValues(input As String, panel As Panel) As String
-        Try
-            Dim result = input
-            Dim oTryCounter = 0
-
-            _Logger.Debug("Input String: [{0}]", input)
-
-            While ContainsPattern(result, PATTERN_CTRL)
-                _Logger.Debug("ReplaceControlValues Try no. [{0}]", oTryCounter)
-
-                If oTryCounter > MAX_TRY_COUNT Then
-                    Throw New Exception($"Max tries in ReplaceControlValues exceeded - Result so far [{result}].")
-                End If
-
-                _Logger.Debug("Getting next pattern..")
-
-                Dim oNextPattern = GetNextPattern(result, PATTERN_CTRL)
-
-                If oNextPattern Is Nothing Then
-                    _Logger.Debug("No Next Pattern found. Exiting!")
-                    Exit While
-                End If
-
-                _Logger.Debug("Next Pattern Value: [{0}]", oNextPattern.Value)
-                _Logger.Debug("Next Pattern Type: [{0}]", oNextPattern.Type)
-
-                Dim controlName As String = oNextPattern.Value
-                Dim oFoundControl As Control = Nothing
-                Dim oFoundType As String = Nothing
-
-                For Each oControl As Control In panel.Controls
-                    If TypeOf oControl Is Label Then
-                        Continue For
-                    End If
-
-                    _Logger.Debug("Getting control metadata from Control: [{0}]", oControl.Name)
-
-                    If oControl.Tag Is Nothing Then
-                        _Logger.Warn("No Metadata object found for control [{0}]. Skipping.", oControl.Name)
-                        Continue For
-                    End If
-
-                    Dim oMeta = TryCast(oControl.Tag, GlobixControls.ControlMeta)
-
-                    _Logger.Debug("Metadata IndexName: [{0}]", oMeta.IndexName)
-                    _Logger.Debug("Metadata IndexType: [{0}]", oMeta.IndexType)
-                    _Logger.Debug("Checking Control Name matches..")
-
-                    If oMeta Is Nothing Then
-                        _Logger.Warn("No Metadata found for control [{0}]. Skipping.", oControl.Name)
-                        Continue For
-                    End If
-
-                    If oMeta.IndexName = controlName Then
-                        _Logger.Debug("Control Name matches! Matching Control: [{0}]", controlName)
-
-                        oFoundControl = oControl
-                        oFoundType = oMeta.IndexType
-                        Exit For
-                    End If
-                Next
-
-                If oFoundControl IsNot Nothing Then
-                    Dim oValue As String = String.Empty
-
-                    _Logger.Debug("Found Control [{0}], continuing with setting value..", oFoundControl.Name)
-
-                    If TypeOf oFoundControl Is TextEdit Then
-                        Try
-                            oValue = DirectCast(oFoundControl, TextEdit).Text
-                        Catch ex As Exception
-                            _Logger.Error(ex)
-                            _Logger.Warn("Control Value for TextBox [{0}] could not be retrieved!", oFoundControl.Name)
-                        End Try
-                    ElseIf TypeOf oFoundControl Is CheckBox Then
-                        Try
-                            oValue = IIf(DirectCast(oFoundControl, CheckBox).Checked, 1, 0)
-                        Catch ex As Exception
-                            _Logger.Error(ex)
-                            _Logger.Warn("Control Value for CheckBox [{0}] could not be retrieved!", oFoundControl.Name)
-                        End Try
-                    ElseIf TypeOf oFoundControl Is LookupControl3 Then
-                        Try
-                            Dim oLookupControl = DirectCast(oFoundControl, LookupControl3)
-
-                            If oLookupControl.Properties.MultiSelect Then
-                                Select Case oFoundType
-                                    Case "INTEGER"
-                                        oValue = String.Join(",", oLookupControl.Properties.SelectedValues)
-                                    Case "VARCHAR"
-                                        Dim oWrapped = oLookupControl.Properties.SelectedValues
-                                        oValue = String.Join(",", oWrapped)
-                                    Case Else
-                                        _Logger.Warn("Lookup Control with [{0}] is not supported!", oFoundType)
-                                End Select
-                            Else
-                                oValue = NotNull(oLookupControl.Properties.SelectedValues.Item(0), "")
-                            End If
-                        Catch ex As Exception
-                            _Logger.Error(ex)
-                            _Logger.Warn("Control Value for LookupControl2 [{0}] could not be retrieved!", oFoundControl.Name)
-                        End Try
-                    Else
-                        _Logger.Debug("Unknown Control type for type [{0}], setting value to empty string.", oFoundControl.Name)
-                        oValue = ""
-                    End If
-
-                    _Logger.Debug("Retrieved Value from Control [{0}] is: [{1}]", controlName, oValue)
-
-                    result = ReplacePattern(result, PATTERN_CTRL, oValue)
-                Else
-                    _Logger.Warn("Control [{0}] not found!", controlName)
-                End If
-
-                oTryCounter += 1
-            End While
-            _Logger.Debug("input after ReplaceControlValues [{input}]")
-            Return result
-        Catch ex As Exception
-            _Logger.Error(ex)
-            _Logger.Info("Error in ReplaceControlValues:" & ex.Message)
-            Return input
-        End Try
-    End Function
-    Public Function ReplaceIDBAttributes(IDB_OBJ_ID As Long, pInput As String, IS_SQL As Boolean) As String
-        Try
-            Dim oResult = pInput
-            Dim oTryCounter As Integer = 0
-            While ContainsPattern(oResult, PATTERN_IDBA)
-
-                Dim indexName As String = GetNextPattern(oResult, PATTERN_IDBA).Value
-                Dim oIDBValue As Object
-                If indexName = "ObjectID" Then
-                    oIDBValue = IDB_OBJ_ID
-                ElseIf indexName = "OBJID" Then
-                    oIDBValue = IDB_OBJ_ID
-                ElseIf indexName = "DocID" Then
-                    oIDBValue = IDB_OBJ_ID
-                Else
-                    oIDBValue = _idbdata.GetVariableValue(indexName)
-                End If
-
-                If IsNothing(oIDBValue) And oTryCounter = MAX_TRY_COUNT Then
-                    _Logger.Warn($"Max tries for [{indexName}] in ReplaceIDBAttributes exceeded - Replacing with [0]!")
-                    Dim oReplaceValue = "{" + $"#{PATTERN_IDBA}#{indexName}" + "}"
-                    oResult = oResult.Replace(oReplaceValue, 0)
-                    Throw New Exception("Max tries in ReplaceIDBAttributes exceeded.")
-
-                End If
-                If oIDBValue IsNot Nothing Or Not IsDBNull(oIDBValue) Then
-                    Dim oReplaceValue = "{" + $"#{PATTERN_IDBA}#{indexName}" + "}"
-                    If IS_SQL = True Then
-                        _Logger.Debug($"IS_SQL = True - oReplaceValue = [{oReplaceValue}]")
-                        If indexName <> "ObjectID" And indexName <> "OBJID" And indexName <> "DocID" Then
-                            Try
-                                oIDBValue = oIDBValue.Replace("'", "''")
-                            Catch ex As Exception
-                                _Logger.Warn($"Invalid IDBValue for [{indexName}] in ReplaceIDBAttributes [{ex.Message}] - Replacing with [0]!")
-                                oIDBValue = 0
-                            End Try
-
-                        End If
-                        _Logger.Debug($"oIDBValue = {oIDBValue}")
-                    End If
-                    oResult = oResult.Replace(oReplaceValue, oIDBValue)
-                Else
-                    _Logger.Warn($"IDBValue for [{indexName}] in ReplaceIDBAttributes is nothing or dbnull - Replacing with [0]!")
-                    Dim oReplaceValue = "{" + $"#{PATTERN_IDBA}#{indexName}" + "}"
-                    oResult = oResult.Replace(oReplaceValue, 0)
-                End If
-                oTryCounter += 100
-            End While
-            _Logger.Debug("sql after ReplaceIDBAttributes: " & pInput)
-            Return oResult
-        Catch ex As Exception
-            _Logger.Error(ex)
-            _Logger.Info("Error in ReplaceIDBAttributes:" & ex.Message)
-            Return pInput
-        End Try
-    End Function
-
-    Private Function ContainsPattern(input As String, type As String) As Boolean
-        Dim elements As MatchCollection = myregex.Matches(input)
-
-        For Each element As Match In elements
-            Dim t As String = element.Groups(1).Value
-
-            If t = type Then
-                Return True
-            End If
-        Next
-
-        Return False
-    End Function
-
-    Public Function GetNextPattern(input As String, type As String) As Pattern
-        Dim elements As MatchCollection = myregex.Matches(input)
-
-        For Each element As Match In elements
-            ' Pattern in input
-            Dim t As String = element.Groups(1).Value
-            Dim v As String = element.Groups(2).Value
-
-            If t = type Then
-                Return New Pattern(t, v)
-            End If
-        Next
-
-        Return Nothing
-    End Function
-
-    Public Function GetAllPatterns(input As String) As List(Of Pattern)
-        Dim elements As MatchCollection = myregex.Matches(input)
-        Dim results As New List(Of Pattern)
-
-        For Each element As Match In elements
-            ' Pattern in input
-            Dim t As String = element.Groups(1).Value
-            Dim v As String = element.Groups(2).Value
-
-            results.Add(New Pattern(t, v))
-        Next
-
-        Return results
-    End Function
-
-    Public Function ReplacePattern(input As String, type As String, replacement As String) As String
-        Dim elements As MatchCollection = myregex.Matches(input)
-
-        If IsNothing(replacement) Then
-            Return input
-        End If
-
-        For Each element As Match In elements
-            ' if group 1 contains the 'pattern' the replace whole group with 'replacement'
-            ' and return it
-            If element.Groups(1).Value = type Then
-                Return Regex.Replace(input, element.Groups(0).Value, replacement)
-            End If
-        Next
-
-        ' no replacement made
-        Return input
-    End Function
-
-    Private Function ContainsPatternAndValue(input As String, type As String, value As String) As Boolean
-        Dim elements As MatchCollection = myregex.Matches(input)
-
-        For Each element As Match In elements
-            ' Pattern in input
-            Dim t As String = element.Groups(1).Value
-            Dim v As String = element.Groups(2).Value
-
-            If t = type And v = value Then
-                Return True
-            End If
-        Next
-
-        Return False
-    End Function
-
-    Public Function HasAnyPatterns(pInput As String) As Boolean
-        Return allPatterns.Any(Function(p)
-                                   Return HasPattern(pInput, p)
-                               End Function)
-    End Function
-
-    Public Function HasOnlySimplePatterns(input As String) As Boolean
-        Return Not HasComplexPatterns(input)
-    End Function
-
-    Public Function HasComplexPatterns(input As String) As Boolean
-        Return complexPatterns.Any(Function(p)
-                                       Return HasPattern(input, p)
-                                   End Function)
-    End Function
-
-    Public Function HasPattern(input As String, type As String) As Boolean
-        Dim matches = myregex.Matches(input)
-
-        For Each match As Match In matches
-            For Each group As Group In match.Groups
-                If group.Value = type Then
-                    Return True
-                End If
-            Next
-        Next
-
-        Return False
-    End Function
-
-    Public Class Pattern
-        Public ReadOnly Property Type As String
-        Public ReadOnly Property Value As String
-
-        Public Sub New(type As String, value As String)
-            Me.Type = type
-            Me.Value = value
-        End Sub
-
-        'Public Sub New(stringRepresentation As String)
-        '    Dim elements As MatchCollection = myregex.Matches(stringRepresentation)
-        '    Dim first As Match = elements.Item(0)
-
-        '    Dim t As String = first.Groups(1).Value
-        '    Dim v As String = first.Groups(2).Value
-
-        '    Type = t
-        '    Value = v
-        'End Sub
-
-        Public Overrides Function ToString() As String
-            Return $"{{#{Type}#{Value}}}"
-        End Function
-    End Class
-End Class

GUIs.ZooFlow/Globix/GlobixPostprocessing.vb

@@ -1,95 +0,0 @@
-Imports System.Text.RegularExpressions
-Imports DigitalData.Modules.Logging
-
-Public Class GlobixPostprocessing
-    Private _Logger As Logger
-
-    Public Sub New(LogConfig As LogConfig)
-        _Logger = LogConfig.GetLogger
-    End Sub
-    Private Const VBSPLIT = "VBSPLIT"
-    Private Const VBREPLACE = "VBREPLACE"
-    Private Const REGEXPRESSION = "REG. EXPRESSION"
-
-    Public Function Get_Nachbearbeitung_Wert(idxvalue As String, Datatable As DataTable) As String
-        Dim oIndexValues As List(Of String) = idxvalue.Split("~").ToList()
-
-        Try
-            For Each oDataRow As DataRow In Datatable.Rows
-                Dim oResult As New List(Of String)
-                Dim oType As String = oDataRow.Item("TYPE").ToString.ToUpper
-
-                Select Case oType
-                    Case VBSPLIT
-                        _Logger.Info(" ...Nachbearbeitung mit VBSPLIT")
-
-                        Dim oSeparator As String = oDataRow.Item("TEXT1")
-                        Dim oSplitIndex As Integer = 0
-                        Integer.TryParse(oDataRow.Item("TEXT2"), oSplitIndex)
-
-                        For Each oIndexValue In oIndexValues
-                            Dim oSplitted As List(Of String) = oIndexValue.Split(oSeparator).ToList()
-                            oResult.Add(oSplitted.Item(oSplitIndex))
-                        Next
-
-                    Case VBREPLACE
-                        Dim oFindString = oDataRow.Item("TEXT1")
-                        Dim oReplaceString = oDataRow.Item("TEXT2")
-
-                        _Logger.Info(" ...Nachbearbeitung mit VBREPLACE")
-                        _Logger.Info(" ...Ersetze '" & oFindString & "' mit '" & oReplaceString & "'")
-
-                        For Each oIndexValue In oIndexValues
-                            Dim oReplaceResult = oIndexValue.Replace(oFindString, oReplaceString)
-                            oResult.Add(oReplaceResult)
-                        Next
-                    Case REGEXPRESSION
-                        _Logger.Info(" ...Nachbearbeitung mit RegEx")
-
-                        Dim oRegexList As New List(Of Regex)
-                        Dim oRegex As New Regex(oDataRow.Item("TEXT1"), RegexOptions.IgnoreCase)
-
-                        oRegexList.Add(oRegex)
-
-                        For Each oIndexValue In oIndexValues
-                            Dim oProcessedString = extractFromStringviaRE(oIndexValue, oRegexList)
-                            oResult.Add(oProcessedString)
-
-                            _Logger.Info(" ...Ergebnis des RegEx: " & oProcessedString)
-                        Next
-                End Select
-
-                oIndexValues = oResult
-            Next
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:")
-            _Logger.Info(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & idxvalue & " - Fehler: " & vbNewLine & ex.Message)
-        End Try
-
-        Return String.Join("~", oIndexValues.ToArray)
-    End Function
-
-    ''' <summary>
-    ''' Extrahiert aus dem String anhand einer Liste von Regular Expressions ein Ergebnis.
-    ''' </summary>
-    ''' <param name="SearchString">Der zu untersuchende String erzeugt wurden.</param>
-    ''' <param name="RegexList">Eine Liste von Regular Expressions</param>
-    ''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
-    ''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
-    Public Function extractFromStringviaRE(SearchString As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
-        If IsNothing(SearchString) Then
-            Return Nothing
-        End If
-
-        For Each rx In RegexList
-            Dim match As Match = rx.Match(SearchString)
-            Dim result As String = match.Groups(RegexGroup).Value
-            If Not String.IsNullOrWhiteSpace(result) Then
-                'Nur den ersten Wert zurückgeben
-                Return result
-            End If
-        Next
-
-        Return Nothing
-    End Function
-End Class

GUIs.ZooFlow/Globix/Models/DocumentType.vb

@@ -0,0 +1,11 @@
+Namespace Globix.Models
+    Public Class DocType
+        Public Property Guid
+        Public Property Name
+        Public Property ObjectStore
+
+        Public Overrides Function ToString() As String
+            Return Name
+        End Function
+    End Class
+End Namespace

GUIs.ZooFlow/Globix/Models/ManualIndex.vb

@@ -0,0 +1,25 @@
+Namespace Globix.Models
+    Public Class ManualIndex
+        Public Property Id As Integer
+
+        Public Property DocTypeName As String
+        Public Property DocTypeId As Integer
+        Public Property Name As String
+        Public Property Comment As String
+        Public Property DataType As String
+        Public Property Sequence As Integer
+
+        Public Property SQLSuggestion As String
+        Public Property SQLCommand As String
+        Public Property SQLConnection As Integer
+
+        Public Property DefaultValue As String
+
+        Public Property IsOptional As Boolean
+        Public Property IsActive As Boolean
+        Public Property IsMultiselect As Boolean
+        Public Property AllowAddingItems As Boolean
+        Public Property PreventMultleValue As Boolean
+    End Class
+
+End Namespace

GUIs.ZooFlow/Globix/State.vb

@@ -23,15 +23,12 @@ Namespace Globix
         Public Property INDEXING_ACTIVE As Boolean = False
         Public Property ABORT_INDEXING As Boolean = False
         Public Property CURRENT_ISATTACHMENT As Boolean = False
-        Public Property CURR_DELETE_ORIGIN As Boolean = False
+        Public Property DeleteOriginalFile As Boolean = False
-        Public Property CURRENT_DROPTYPE As String
         Public Property CURRENT_LASTDOCTYPE As String
         Public Property CURRENT_DOCTYPE_ID As Int16
         Public Property CURRENT_DOCTYPE_DuplicateHandling As String
         Public Property MULTIINDEXING_ACTIVE As Boolean = False
-        Public Property ECMDirect As Boolean = True
         Public Property CURRENT_PROFILE_LOG_INDEX As String
-        Public Property ShowIndexResult As Boolean = True
         Public Property CURR_DT_MAN_INDEXE As DataTable
         Public Property CURR_DT_AUTO_INDEXE As DataTable
         Public Property CURR_DT_DOCTYPE As DataTable
@@ -39,9 +36,7 @@ Namespace Globix
         Public Property FILE_DELIMITER As String
         Public Property VERSION_DELIMITER As String
         Public Property CURRENT_MESSAGEID As String
-        Public Property CURRENT_BusinessEntity As String
         Public Property Folderwatchstarted As Boolean = False
-
         Public Property DTEXCLUDE_FILES As DataTable
         Public Property PATH_FileExclusions As String = Path.Combine(Application.UserAppDataPath(), "FileExclusions.xml")
 

GUIs.ZooFlow/Globix/frmGlobix_Index.Designer.vb

@@ -1,4 +1,6 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Imports DevExpress.XtraEditors
+
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmGlobix_Index
     Inherits DevExpress.XtraBars.Ribbon.RibbonForm
 
@@ -52,8 +54,7 @@ Partial Class frmGlobix_Index
         Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
         Me.pnlIndex = New System.Windows.Forms.Panel()
         Me.Panel3 = New System.Windows.Forms.Panel()
-        Me.Button1 = New System.Windows.Forms.Button()
+        Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
-        Me.btnAblageFlow = New System.Windows.Forms.Button()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.cmbDocType = New DevExpress.XtraEditors.ComboBoxEdit()
         Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
@@ -149,6 +150,7 @@ Partial Class frmGlobix_Index
         '
         'labelError
         '
+        Me.labelError.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
         Me.labelError.Caption = "labelError"
         Me.labelError.Id = 11
         Me.labelError.ImageOptions.SvgImage = CType(resources.GetObject("labelError.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
@@ -158,6 +160,7 @@ Partial Class frmGlobix_Index
         '
         'labelNotice
         '
+        Me.labelNotice.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
         Me.labelNotice.Caption = "labelNotice"
         Me.labelNotice.Id = 12
         Me.labelNotice.ImageOptions.SvgImage = CType(resources.GetObject("labelNotice.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
@@ -264,38 +267,25 @@ Partial Class frmGlobix_Index
         '
         'Panel3
         '
-        Me.Panel3.Controls.Add(Me.Button1)
+        Me.Panel3.Controls.Add(Me.SimpleButton1)
-        Me.Panel3.Controls.Add(Me.btnAblageFlow)
         Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
         Me.Panel3.Location = New System.Drawing.Point(0, 433)
         Me.Panel3.Name = "Panel3"
         Me.Panel3.Size = New System.Drawing.Size(522, 75)
         Me.Panel3.TabIndex = 2
         '
-        'Button1
+        'SimpleButton1
         '
-        Me.Button1.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.SimpleButton1.Appearance.Options.UseFont = True
-        Me.Button1.Location = New System.Drawing.Point(317, 15)
+        Me.SimpleButton1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Button1.Name = "Button1"
+        Me.SimpleButton1.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleRight
-        Me.Button1.Size = New System.Drawing.Size(186, 44)
+        Me.SimpleButton1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_send
-        Me.Button1.TabIndex = 1
+        Me.SimpleButton1.Location = New System.Drawing.Point(0, 0)
-        Me.Button1.Text = "Starte Ablage (Neu)"
+        Me.SimpleButton1.Name = "SimpleButton1"
-        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.SimpleButton1.Size = New System.Drawing.Size(522, 75)
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.SimpleButton1.TabIndex = 2
-        '
+        Me.SimpleButton1.Text = "Ablage starten"
-        'btnAblageFlow
-        '
-        Me.btnAblageFlow.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnAblageFlow.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_g_64___Kopie
-        Me.btnAblageFlow.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnAblageFlow.Location = New System.Drawing.Point(12, 6)
-        Me.btnAblageFlow.Name = "btnAblageFlow"
-        Me.btnAblageFlow.Size = New System.Drawing.Size(185, 63)
-        Me.btnAblageFlow.TabIndex = 1
-        Me.btnAblageFlow.Text = "Starte Ablage (Alt)"
-        Me.btnAblageFlow.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnAblageFlow.UseVisualStyleBackColor = True
         '
         'Panel1
         '
@@ -307,12 +297,12 @@ Partial Class frmGlobix_Index
         Me.Panel1.Size = New System.Drawing.Size(522, 33)
         Me.Panel1.TabIndex = 0
         '
-        'ComboBoxEdit1
+        'cmbDocType
         '
         Me.cmbDocType.Dock = System.Windows.Forms.DockStyle.Top
         Me.cmbDocType.Location = New System.Drawing.Point(0, 0)
         Me.cmbDocType.MenuManager = Me.RibbonControl1
-        Me.cmbDocType.Name = "ComboBoxEdit1"
+        Me.cmbDocType.Name = "cmbDocType"
         SerializableAppearanceObject1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
         SerializableAppearanceObject1.Options.UseBackColor = True
         Me.cmbDocType.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo, "", 20, True, True, False, EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "", Nothing, Nothing, DevExpress.Utils.ToolTipAnchor.[Default])})
@@ -390,6 +380,5 @@ Partial Class frmGlobix_Index
     Friend WithEvents Panel3 As Panel
     Friend WithEvents GlobixDataset As GlobixDataset
     Friend WithEvents cmbDocType As DevExpress.XtraEditors.ComboBoxEdit
-    Friend WithEvents btnAblageFlow As Button
+    Friend WithEvents SimpleButton1 As SimpleButton
-    Friend WithEvents Button1 As Button
 End Class

GUIs.ZooFlow/ModuleHelpers.vb

@@ -30,20 +30,12 @@ Module ModuleHelpers
         End Try
 
     End Function
-    Public Function CheckSpecialSigns(ByVal str As String)
+
-        Try
+    Public Sub NNRefresh_RegexTable()
-            Dim pattern As String = "[!""#$%&'()*+,\-./:;<=>?@[\\\]^_`{|}~\s]"
-            Dim matches As MatchCollection = Regex.Matches(str, pattern)
-            Return matches.Count
-        Catch ex As Exception
-            MsgBox("Unexpected error in CheckSpecialSigns: " & ex.Message, MsgBoxStyle.Critical)
-            Return 0
-        End Try
-    End Function
-    Public Sub Refresh_RegexTable()
         Dim oSQL = "select * from TBGI_FUNCTION_REGEX"
         My.Application.Globix.DT_FUNCTION_REGEX = clsDataASorDB.GetDatatable("DD_ECM", oSQL, "TBGI_FUNCTION_REGEX", "", "")
     End Sub
+
     Public Function GetConnectionString(id As Integer)
         Dim connectionString As String = ""
         Try

GUIs.ZooFlow/My Project/Resources.Designer.vb

@@ -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_send() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("actions_send", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>

GUIs.ZooFlow/My Project/Resources.resx

@@ -118,6 +118,12 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="actions_addcircled2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_addcircled2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="actions_database" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_database.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.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.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
@@ -142,12 +148,6 @@
   <data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="actions_deletecircled6" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_deletecircled6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="editquery" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\editquery.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
   <data name="Checked-outforEdit_Color_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Checked-outforEdit_Color_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -157,8 +157,8 @@
   <data name="definednameuseinformula" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\definednameuseinformula.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="gear_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\gear_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="DD_Icons_ICO_PMANAGER_128px" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\DD_Icons_ICO_PMANAGER_128px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -175,14 +175,8 @@
   <data name="about2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\about2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="renamedatasource" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\del.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\renamedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="StatusAnnotations_Stop_16xLG_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\StatusAnnotations_Stop_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="actions_addcircled4" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_addcircled4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="actions_check4" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_check5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -193,6 +187,9 @@
   <data name="actions_window" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_window.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="pagesetup" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\pagesetup.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="ZOO_FLOW_ sysicon_256" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ZOO_FLOW_ sysicon_256.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -208,6 +205,9 @@
   <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>
+  <data name="actions_check2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_check2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="definednameuseinformula1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\definednameuseinformula1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
@@ -247,12 +247,15 @@
   <data name="save2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\save2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="doublenext" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\doublenext.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
   <data name="del1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\del1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.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>
+  </data>
+  <data name="CW_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\CW_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Checked-outforEdit_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -262,21 +265,18 @@
   <data name="2_LUPE_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\2_LUPE_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="actions_check1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_check1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="editnames" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\editnames.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="about" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
   <data name="actions_addcircled5" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_addcircled5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="about1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\about1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="save3" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\save3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
   <data name="save7" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\save7.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
@@ -298,8 +298,8 @@
   <data name="DD_Icons_ICO_PMANAGER_256px" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\DD_Icons_ICO_PMANAGER_256px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="ZooFlow_CW_DevExpress" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="save4" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\ZooFlow_CW_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\save4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="ZooFlow-25" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ZooFlow-25.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -307,11 +307,11 @@
   <data name="insertsheet" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\insertsheet.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="3_PERSON_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="ZooFlow_CW_DevExpress" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\3_PERSON_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\ZooFlow_CW_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="actions_addcircled2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="actions_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_addcircled2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\actions_edit.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="actions_edit2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_edit2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -331,35 +331,35 @@
   <data name="about3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\about3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="pagesetup" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="doublenext" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\pagesetup.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\doublenext.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="actions_add1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_add1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.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>
   <data name="del3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\del3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="bo_appearance" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="actions_check5" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\bo_appearance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\actions_check6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="actions_deletecircled2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_deletecircled2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.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="del4" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\del4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="2_ZOO_FLOW_Abo" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="actions_addcircled4" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\actions_addcircled4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="bo_document" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bo_document.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="save4" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="about" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\save4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="pagesetup1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\pagesetup1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -373,6 +373,9 @@
   <data name="actions_deletecircled4" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_deletecircled4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="1_LOGO_ZOO_FLOW_DROP2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\1_LOGO_ZOO_FLOW_DROP2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</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.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
@@ -382,23 +385,23 @@
   <data name="1_LOGO_ZOO_FLOW1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\1_LOGO_ZOO_FLOW1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="actions_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="StatusAnnotations_Stop_16xLG_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_edit.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\StatusAnnotations_Stop_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="actions_deletecircled1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_deletecircled1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="actions_check1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="editquery" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_check1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\editquery.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="CW_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="3_PERSON_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\CW_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\3_PERSON_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="actions_edit1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_edit1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="actions_check2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="bo_appearance" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_check2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\bo_appearance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="actions_addcircled1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_addcircled1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -406,29 +409,29 @@
   <data name="crossdatasourcefiltering" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\crossdatasourcefiltering.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="actions_check5" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_check6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.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="actions_deletecircled" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_deletecircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.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>
+  <data name="save3" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\save3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="actions_deletecircled6" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_deletecircled6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="2_ZOO_FLOW_Abo" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="bo_appearance1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bo_appearance1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="actions_database" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="3_PERSON_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_database.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\3_PERSON_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="highimportance" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\highimportance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="renamedatasource" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\renamedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="2_LUPE_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\2_LUPE_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -442,16 +445,16 @@
   <data name="windows" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\windows.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="1_LOGO_ZOO_FLOW_DROP2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="actions_deletecircled" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\1_LOGO_ZOO_FLOW_DROP2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\actions_deletecircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="1_LOGO_ZOO_FLOW" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="del" 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>
+    <value>..\Resources\del.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="GLOBIX_short" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\GLOBIX_short.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="gear_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="actions_send" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\gear_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\actions_send.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
 </root>

GUIs.ZooFlow/My Project/Settings.Designer.vb

@@ -73,17 +73,6 @@ Partial Friend NotInheritable Class Settings
         End Get
     End Property
     
-    <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-     Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;User ID=sa;P"& _ 
-        "assword=dd")>  _
-    Public ReadOnly Property ECMConnectionStringDEFAULT() As String
-        Get
-            Return CType(Me("ECMConnectionStringDEFAULT"),String)
-        End Get
-    End Property
-    
     <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
@@ -106,6 +95,17 @@ Partial Friend NotInheritable Class Settings
             Me("IDBOBJID") = value
         End Set
     End Property
+    
+    <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
+     Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;User ID=sa;Passwo"& _ 
+        "rd=dd")>  _
+    Public ReadOnly Property ECMConnectionStringDEFAULT() As String
+        Get
+            Return CType(Me("ECMConnectionStringDEFAULT"),String)
+        End Get
+    End Property
 End Class
 
 Namespace My

GUIs.ZooFlow/My Project/Settings.settings

@@ -13,13 +13,6 @@
     <Setting Name="UseAppConfigConString" Type="System.Boolean" Scope="Application">
       <Value Profile="(Default)">True</Value>
     </Setting>
-    <Setting Name="ECMConnectionStringDEFAULT" Type="(Connection string)" Scope="Application">
-      <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
-&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
-  &lt;ConnectionString&gt;Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;User ID=sa;Password=dd&lt;/ConnectionString&gt;
-&lt;/SerializableConnectionString&gt;</DesignTimeValue>
-      <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;User ID=sa;Password=dd</Value>
-    </Setting>
     <Setting Name="DD_ECMConnectionString" Type="(Connection string)" Scope="Application">
       <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
 &lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
@@ -31,5 +24,12 @@
     <Setting Name="IDBOBJID" Type="System.String" Scope="User">
       <Value Profile="(Default)" />
     </Setting>
+    <Setting Name="ECMConnectionStringDEFAULT" Type="(Connection string)" Scope="Application">
+      <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
+&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
+  &lt;ConnectionString&gt;Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;User ID=sa;Password=dd&lt;/ConnectionString&gt;
+&lt;/SerializableConnectionString&gt;</DesignTimeValue>
+      <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;User ID=sa;Password=dd</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

GUIs.ZooFlow/MyDataset.Designer.vb

@@ -1662,7 +1662,7 @@ Namespace DSClipboardWatcherTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString
+            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.ECMConnectionStringDEFAULT
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -1930,7 +1930,7 @@ Namespace DSClipboardWatcherTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString
+            Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.ECMConnectionStringDEFAULT
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

GUIs.ZooFlow/MyDataset.xsd

@@ -4,12 +4,12 @@
     <xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
       <DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
         <Connections>
-          <Connection AppSettingsObjectName="Settings" AppSettingsPropertyName="DD_ECMConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="DD_ECMConnectionString (Settings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DigitalData.GUIs.ZooFlow.Settings.GlobalReference.Default.DD_ECMConnectionString" Provider="System.Data.SqlClient" />
+          <Connection AppSettingsObjectName="Settings" AppSettingsPropertyName="ECMConnectionStringDEFAULT" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="ECMConnectionStringDEFAULT (Settings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DigitalData.GUIs.ZooFlow.Settings.GlobalReference.Default.ECMConnectionStringDEFAULT" Provider="System.Data.SqlClient" />
         </Connections>
         <Tables>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="VWCW_USER_PROFILETableAdapter" GeneratorDataComponentClassName="VWCW_USER_PROFILETableAdapter" Name="VWCW_USER_PROFILE" UserDataComponentName="VWCW_USER_PROFILETableAdapter">
             <MainSource>
-              <DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.VWCW_USER_PROFILE" DbObjectType="View" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+              <DbSource ConnectionRef="ECMConnectionStringDEFAULT (Settings)" DbObjectName="DD_ECM.dbo.VWCW_USER_PROFILE" DbObjectType="View" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
                 <SelectCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="false">
                     <CommandText>SELECT GUID, NAME, REGEX_EXPRESSION, COMMENT, ACTIVE, PROFILE_TYPE, PROC_NAME, USER_ID, GROUP_ID FROM dbo.VWCW_USER_PROFILE</CommandText>
@@ -33,7 +33,7 @@
           </TableAdapter>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBCW_PROFILESTableAdapter" GeneratorDataComponentClassName="TBCW_PROFILESTableAdapter" Name="TBCW_PROFILES" UserDataComponentName="TBCW_PROFILESTableAdapter">
             <MainSource>
-              <DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.TBCW_PROFILES" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+              <DbSource ConnectionRef="ECMConnectionStringDEFAULT (Settings)" DbObjectName="DD_ECM.dbo.TBCW_PROFILES" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
                 <DeleteCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="false">
                     <CommandText>DELETE FROM [dbo].[TBCW_PROFILES] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([REGEX_EXPRESSION] = @Original_REGEX_EXPRESSION) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([ACTIVE] = @Original_ACTIVE) AND ([PROFILE_TYPE] = @Original_PROFILE_TYPE))</CommandText>

GUIs.ZooFlow/Resources/actions_send.svg

@@ -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="Send">
+    <polygon points="2,20 8,22.4 24,10 12,24 12,30 16.3,25.7 22,28 30,2  " class="Blue" />
+  </g>
+</svg>

GUIs.ZooFlow/ZooFlow.vbproj

@@ -244,6 +244,8 @@
     <Compile Include="Globix\frmGlobixNameconvention.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Globix\Models\DocumentType.vb" />
+    <Compile Include="Globix\Models\ManualIndex.vb" />
     <Compile Include="modCurrent.vb" />
     <Compile Include="MyDataset.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -336,8 +338,6 @@
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="Globix\GlobixControls.vb" />
-    <Compile Include="Globix\GlobixPatterns.vb" />
-    <Compile Include="Globix\GlobixPostprocessing.vb" />
     <Compile Include="Globix\State.vb" />
     <Compile Include="ModuleHelpers.vb" />
     <Compile Include="My Project\Resources.Designer.vb">
@@ -943,6 +943,9 @@
   <ItemGroup>
     <None Include="Resources\gear_32xLG.png" />
   </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\actions_send.svg" />
+  </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

@@ -27,6 +27,7 @@ Partial Class frmFlowForm
         Me.components = New System.ComponentModel.Container()
         Dim SplashScreenManager As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, Nothing, True, True)
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowForm))
+        Dim SnapOptions1 As DevExpress.Utils.Controls.SnapOptions = New DevExpress.Utils.Controls.SnapOptions()
         Me.NotifyIcon = New System.Windows.Forms.NotifyIcon(Me.components)
         Me.ContextMenuSystray = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.GlobixToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -35,6 +36,8 @@ Partial Class frmFlowForm
         Me.DatenbankverbindungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
         Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
+        Me.SucheTestToolStripMenuItem = 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()
@@ -42,22 +45,22 @@ Partial Class frmFlowForm
         Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
         Me.PictureBoxAbo = New System.Windows.Forms.PictureBox()
         Me.PictureBoxDragDrop = New System.Windows.Forms.PictureBox()
+        Me.PictureBoxPM1 = New DevExpress.XtraEditors.SvgImageBox()
         Me.TimerCheckActiveForms = New System.Windows.Forms.Timer(Me.components)
         Me.TimerCheckDroppedFiles = New System.Windows.Forms.Timer(Me.components)
         Me.TimerFolderwatch = New System.Windows.Forms.Timer(Me.components)
         Me.ToastNotificationsManager1 = New DevExpress.XtraBars.ToastNotifications.ToastNotificationsManager(Me.components)
         Me.PictureBoxGlobix1 = New DevExpress.XtraEditors.SvgImageBox()
-        Me.PictureBoxPM1 = New DevExpress.XtraEditors.SvgImageBox()
-        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.PictureBoxSearch1 = New DevExpress.XtraEditors.SvgImageBox()
+        Me.BehaviorManager1 = New DevExpress.Utils.Behaviors.BehaviorManager(Me.components)
         Me.ContextMenuSystray.SuspendLayout()
         CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBoxDragDrop, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBoxPM1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.ToastNotificationsManager1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBoxGlobix1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBoxPM1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBoxSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.BehaviorManager1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'SplashScreenManager
@@ -73,16 +76,16 @@ Partial Class frmFlowForm
         '
         'ContextMenuSystray
         '
-        Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GlobixToolStripMenuItem, Me.UserKonfigurationToolStripMenuItem, Me.ToolStripSeparator1, Me.VerwaltungToolStripMenuItem, Me.TestToolStripMenuItem, Me.ToolStripSeparator2, Me.ZooFlowBeendenToolStripMenuItem})
+        Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GlobixToolStripMenuItem, Me.UserKonfigurationToolStripMenuItem, Me.ToolStripSeparator1, Me.VerwaltungToolStripMenuItem, Me.ToolStripSeparator3, Me.SucheTestToolStripMenuItem, Me.TestToolStripMenuItem, Me.ToolStripSeparator2, Me.ZooFlowBeendenToolStripMenuItem})
         Me.ContextMenuSystray.Name = "ContextMenuSystray"
-        Me.ContextMenuSystray.Size = New System.Drawing.Size(181, 148)
+        Me.ContextMenuSystray.Size = New System.Drawing.Size(174, 154)
         '
         'GlobixToolStripMenuItem
         '
         Me.GlobixToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsiGlobixConfig})
         Me.GlobixToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.GLOBIX_short
         Me.GlobixToolStripMenuItem.Name = "GlobixToolStripMenuItem"
-        Me.GlobixToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.GlobixToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
         Me.GlobixToolStripMenuItem.Text = "Globix"
         Me.GlobixToolStripMenuItem.Visible = False
         '
@@ -96,7 +99,7 @@ Partial Class frmFlowForm
         '
         Me.UserKonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DatenbankverbindungToolStripMenuItem})
         Me.UserKonfigurationToolStripMenuItem.Name = "UserKonfigurationToolStripMenuItem"
-        Me.UserKonfigurationToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.UserKonfigurationToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
         Me.UserKonfigurationToolStripMenuItem.Text = "User Konfiguration"
         '
         'DatenbankverbindungToolStripMenuItem
@@ -108,30 +111,41 @@ Partial Class frmFlowForm
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(170, 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(180, 22)
+        Me.VerwaltungToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
         Me.VerwaltungToolStripMenuItem.Text = "Verwaltung"
         '
+        'ToolStripSeparator3
+        '
+        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(170, 6)
+        '
+        'SucheTestToolStripMenuItem
+        '
+        Me.SucheTestToolStripMenuItem.Name = "SucheTestToolStripMenuItem"
+        Me.SucheTestToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
+        Me.SucheTestToolStripMenuItem.Text = "Suche (Test)"
+        '
         'TestToolStripMenuItem
         '
         Me.TestToolStripMenuItem.Name = "TestToolStripMenuItem"
-        Me.TestToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.TestToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
         Me.TestToolStripMenuItem.Text = "Test"
         '
         'ToolStripSeparator2
         '
         Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
-        Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(170, 6)
         '
         'ZooFlowBeendenToolStripMenuItem
         '
         Me.ZooFlowBeendenToolStripMenuItem.Name = "ZooFlowBeendenToolStripMenuItem"
-        Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
         Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden"
         '
         'PictureBoxAbo
@@ -157,6 +171,21 @@ Partial Class frmFlowForm
         Me.PictureBoxDragDrop.TabStop = False
         Me.ToolTip1.SetToolTip(Me.PictureBoxDragDrop, "Drag and Drop files here")
         '
+        'PictureBoxPM1
+        '
+        Me.PictureBoxPM1.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.PictureBoxPM1.ItemAppearance.Hovered.FillColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
+        Me.PictureBoxPM1.ItemAppearance.Normal.FillColor = System.Drawing.SystemColors.ControlDark
+        Me.PictureBoxPM1.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox
+        Me.PictureBoxPM1.Location = New System.Drawing.Point(336, 34)
+        Me.PictureBoxPM1.Name = "PictureBoxPM1"
+        Me.PictureBoxPM1.Size = New System.Drawing.Size(90, 90)
+        Me.PictureBoxPM1.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom
+        Me.PictureBoxPM1.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_PM_DevExpress
+        Me.PictureBoxPM1.TabIndex = 14
+        Me.PictureBoxPM1.Text = "SvgImageBox1"
+        Me.ToolTip1.SetToolTip(Me.PictureBoxPM1, "ProcessManager - Workflow")
+        '
         'TimerCheckActiveForms
         '
         Me.TimerCheckActiveForms.Interval = 2000
@@ -190,31 +219,6 @@ Partial Class frmFlowForm
         Me.PictureBoxGlobix1.TabIndex = 15
         Me.PictureBoxGlobix1.Text = "SvgImageBox1"
         '
-        'PictureBoxPM1
-        '
-        Me.PictureBoxPM1.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.PictureBoxPM1.ItemAppearance.Hovered.FillColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
-        Me.PictureBoxPM1.ItemAppearance.Normal.FillColor = System.Drawing.SystemColors.ControlDark
-        Me.PictureBoxPM1.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox
-        Me.PictureBoxPM1.Location = New System.Drawing.Point(336, 34)
-        Me.PictureBoxPM1.Name = "PictureBoxPM1"
-        Me.PictureBoxPM1.Size = New System.Drawing.Size(90, 90)
-        Me.PictureBoxPM1.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom
-        Me.PictureBoxPM1.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_PM_DevExpress
-        Me.PictureBoxPM1.TabIndex = 14
-        Me.PictureBoxPM1.Text = "SvgImageBox1"
-        Me.ToolTip1.SetToolTip(Me.PictureBoxPM1, "ProcessManager - Workflow")
-        '
-        'PictureBox1
-        '
-        Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
-        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
-        Me.PictureBox1.Location = New System.Drawing.Point(203, 6)
-        Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(40, 22)
-        Me.PictureBox1.TabIndex = 12
-        Me.PictureBox1.TabStop = False
-        '
         'PictureBoxSearch1
         '
         Me.PictureBoxSearch1.Cursor = System.Windows.Forms.Cursors.Hand
@@ -239,10 +243,10 @@ Partial Class frmFlowForm
         Me.Appearance.Options.UseForeColor = True
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BehaviorManager1.SetBehaviors(Me, New DevExpress.Utils.Behaviors.Behavior() {CType(DevExpress.Utils.Behaviors.Common.SnapWindowBehavior.Create(GetType(DevExpress.Utils.BehaviorSource.SnapWindowBehaviorSourceForForm), SnapOptions1), DevExpress.Utils.Behaviors.Behavior)})
         Me.ClientSize = New System.Drawing.Size(563, 150)
         Me.Controls.Add(Me.PictureBoxGlobix1)
         Me.Controls.Add(Me.PictureBoxPM1)
-        Me.Controls.Add(Me.PictureBox1)
         Me.Controls.Add(Me.PictureBoxAbo)
         Me.Controls.Add(Me.PictureBoxSearch1)
         Me.Controls.Add(Me.PictureBoxDragDrop)
@@ -255,11 +259,11 @@ Partial Class frmFlowForm
         Me.ContextMenuSystray.ResumeLayout(False)
         CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBoxDragDrop, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBoxPM1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.ToastNotificationsManager1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBoxGlobix1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBoxPM1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBoxSearch1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.BehaviorManager1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -276,7 +280,6 @@ Partial Class frmFlowForm
     Friend WithEvents DatenbankverbindungToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents TimerCheckActiveForms As Timer
     Friend WithEvents TimerCheckDroppedFiles As Timer
-    Friend WithEvents PictureBox1 As PictureBox
     Friend WithEvents TimerFolderwatch As Timer
     Friend WithEvents GlobixToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents TsiGlobixConfig As ToolStripMenuItem
@@ -286,4 +289,7 @@ Partial Class frmFlowForm
     Friend WithEvents PictureBoxPM1 As DevExpress.XtraEditors.SvgImageBox
     Friend WithEvents PictureBoxGlobix1 As DevExpress.XtraEditors.SvgImageBox
     Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
+    Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
+    Friend WithEvents SucheTestToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents BehaviorManager1 As DevExpress.Utils.Behaviors.BehaviorManager
 End Class

GUIs.ZooFlow/frmFlowForm.resx

@@ -1974,13 +1974,7 @@
   <metadata name="ToastNotificationsManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1228, 17</value>
   </metadata>
-  <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <metadata name="BehaviorManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>
+    <value>17, 56</value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
+  </metadata>
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFpvb207zwn+vAAAAKdJREFUOE+1
-        ktERREAQRElHLjIQhAgcYrgs1PkWjp+Txuh3hdpadu+c8vHU1HRPzy4SM7vE55G3wxGpKEQnpgVqemjR
-        AAy1sABoaSyALRjf4iGyBWp6aEUsgKNiYsDX6KF1sQDui4mtvkYPbbo14PIVXgLTGsJWoP76EiuxDocI
-        fkZ/uBc//0j+cCPc8B1uwFOcGgY3YBSnhsENKAUhnGRnDLEF/I8lMzpgJH6ZZgx9AAAAAElFTkSuQmCC
-</value>
-  </data>
 </root>

GUIs.ZooFlow/frmFlowForm.vb

@@ -50,11 +50,10 @@ Public Class frmFlowForm
     Private AdminForm As frmAdmin_Start
     Private Const mSnapOffset As Integer = 35
 
-
     ' Events
     Public Event ClipboardChanged As EventHandler(Of IDataObject)
     Private WithEvents HotkeyClass As Hotkey
-    Private WithEvents Watcher As ClipboardWatcher.Watcher = ClipboardWatcher.Watcher.Singleton
+    Private WithEvents Watcher As Watcher = Watcher.Singleton
 
     Public Sub New()
         MyBase.New(My.LogConfig)
@@ -70,109 +69,14 @@ Public Class frmFlowForm
         ' === Show Splash Screen ===
         SplashScreenManager.ShowForm(Me, GetType(frmSplash), False, False)
 
-        ' === Clean up logfiles ===
-        FileClass = New Filesystem.File(My.LogConfig)
-        FileClass.RemoveFiles(My.LogConfig.LogDirectory, 30, String.Empty, "log")
-
         ' === Initialize AppServer Database Connection with Failover
         AppServerOrDB = New ClassDataASorDB(My.LogConfig)
 
-
-
         ' === Initialization ===
         Init = New ClassInit(My.LogConfig, Me)
         AddHandler Init.Completed, AddressOf Init_Completed
         Init.InitializeApplication()
     End Sub
-    Protected Overrides Sub WndProc(ByRef m As Message)
-        ' Listen for operating system messages
-        Select Case m.Msg
-            Case WM_WINDOWPOSCHANGING
-                SnapToDesktopBorder(Me, m.LParam, 0)
-        End Select
-
-        MyBase.WndProc(m)
-    End Sub
-    Public Shared Sub SnapToDesktopBorder(ByVal clientForm As Form, ByVal LParam As IntPtr, ByVal widthAdjustment As Integer)
-        If clientForm Is Nothing Then
-            ' Satisfies rule: Validate parameters
-            Throw New ArgumentNullException("clientForm")
-        End If
-
-        ' Snap client to the top, left, bottom or right desktop border
-        ' as the form is moved near that border.
-
-        Try
-            ' Marshal the LPARAM value which is a WINDOWPOS struct
-            Dim NewPosition As New NativeMethods.WINDOWPOS
-            NewPosition = CType(Marshal.PtrToStructure(LParam, GetType(NativeMethods.WINDOWPOS)), NativeMethods.WINDOWPOS)
-
-            If NewPosition.y = 0 OrElse NewPosition.x = 0 Then
-                Return ' Nothing to do!
-            End If
-
-            ' Adjust the client size for borders and caption bar
-            Dim ClientRect As Rectangle =
-                clientForm.RectangleToScreen(clientForm.ClientRectangle)
-            ClientRect.Width +=
-                SystemInformation.FrameBorderSize.Width - widthAdjustment
-            ClientRect.Height += (SystemInformation.FrameBorderSize.Height +
-                                  SystemInformation.CaptionHeight)
-
-            ' Now get the screen working area (without taskbar)
-            Dim WorkingRect As Rectangle =
-                System.Windows.Forms.Screen.GetWorkingArea(clientForm.ClientRectangle)
-
-            ' Left border
-            If NewPosition.x >= WorkingRect.X - mSnapOffset AndAlso
-                NewPosition.x <= WorkingRect.X + mSnapOffset Then
-                NewPosition.x = WorkingRect.X
-            End If
-
-            ' Get screen bounds and taskbar height
-            ' (when taskbar is horizontal)
-            Dim ScreenRect As Rectangle =
-                System.Windows.Forms.Screen.GetBounds(System.Windows.Forms.Screen.PrimaryScreen.Bounds)
-            Dim TaskbarHeight As Integer =
-                ScreenRect.Height - WorkingRect.Height
-
-            ' Top border (check if taskbar is on top
-            ' or bottom via WorkingRect.Y)
-            If NewPosition.y >= -mSnapOffset AndAlso
-                 (WorkingRect.Y > 0 AndAlso NewPosition.y <=
-                 (TaskbarHeight + mSnapOffset)) OrElse
-                 (WorkingRect.Y <= 0 AndAlso NewPosition.y <=
-                 (mSnapOffset)) Then
-                If TaskbarHeight > 0 Then
-                    NewPosition.y = WorkingRect.Y ' Horizontal Taskbar
-                Else
-                    NewPosition.y = 0 ' Vertical Taskbar
-                End If
-            End If
-
-            ' Right border
-            If NewPosition.x + ClientRect.Width <=
-                 WorkingRect.Right + mSnapOffset AndAlso
-                 NewPosition.x + ClientRect.Width >=
-                 WorkingRect.Right - mSnapOffset Then
-                NewPosition.x = WorkingRect.Right - (ClientRect.Width +
-                                SystemInformation.FrameBorderSize.Width)
-            End If
-
-            ' Bottom border
-            If NewPosition.y + ClientRect.Height <=
-                   WorkingRect.Bottom + mSnapOffset AndAlso
-                   NewPosition.y + ClientRect.Height >=
-                   WorkingRect.Bottom - mSnapOffset Then
-                NewPosition.y = WorkingRect.Bottom - (ClientRect.Height +
-                                SystemInformation.FrameBorderSize.Height)
-            End If
-
-            ' Marshal it back
-            Marshal.StructureToPtr(NewPosition, LParam, True)
-        Catch ex As ArgumentException
-        End Try
-    End Sub
 
     Private Sub Init_Completed(sender As Object, e As EventArgs)
         Me.Cursor = Cursors.WaitCursor
@@ -258,8 +162,8 @@ Public Class frmFlowForm
         If My.Application.ModulesActive.Contains(MODULE_GLOBAL_INDEXER) Then
             FileDrop = New ClassFileDrop(My.LogConfig)
             FileHandle = New ClassFilehandle()
-            FolderWatch = New ClassFolderwatcher
+            FolderWatch = New ClassFolderwatcher()
-            Refresh_RegexTable()
+            NNRefresh_RegexTable()
 
             Dim oFileExclusions As New ClassExclusions()
             If oFileExclusions.Load(My.Application.Globix.PATH_FileExclusions) = False Then
@@ -388,7 +292,7 @@ Public Class frmFlowForm
     End Sub
 
     Sub ExitZooflow()
-        Dim oResult As DialogResult = MessageBox.Show("Exit Zooflow", "Are you sure you want to close ZooFlow", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        Dim oResult As DialogResult = MessageBox.Show("Exit Zooflow", "Are you sure you want to close ZooFlow?", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
         If oResult = DialogResult.Yes Then
             Application.Exit()
         Else
@@ -399,7 +303,7 @@ Public Class frmFlowForm
     Public Sub OnEvent(Params As Object)
         Logger.Debug("OnEvent called!")
     End Sub
-    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+    Private Sub PictureBox1_Click(sender As Object, e As EventArgs)
         frmSearchNeu.Show()
 
         'Open_FlowSearch()
@@ -854,45 +758,47 @@ Public Class frmFlowForm
 
         oState.CurrentClipboardContents = ClipboardContents
 
-        If oState.MonitoringActive = False Then
+        ' TODO: These messages are so fucking annoying
-            Dim oMessage As String = "Clipboard Watcher is not active!"
-            Logger.Info(oMessage)
-            MsgBox(oMessage, MsgBoxStyle.Critical, Text)
 
-            Exit Sub
+        'If oState.MonitoringActive = False Then
-        End If
+        '    Dim oMessage As String = "Clipboard Watcher is not active!"
+        '    Logger.Info(oMessage)
+        '    MsgBox(oMessage, MsgBoxStyle.Critical, Text)
 
-        If oState.UserProfiles Is Nothing Then
+        '    Exit Sub
-            Dim oMessage As String = "User Profiles are empty!"
+        'End If
-            Logger.Info(oMessage)
-            MsgBox(oMessage, MsgBoxStyle.Critical, Text)
 
-            Exit Sub
+        'If oState.UserProfiles Is Nothing Then
-        End If
+        '    Dim oMessage As String = "User Profiles are empty!"
+        '    Logger.Info(oMessage)
+        '    MsgBox(oMessage, MsgBoxStyle.Critical, Text)
 
-        If oState.ProfileProcesses Is Nothing OrElse oState.ProfileProcesses.Rows.Count = 0 Then
+        '    Exit Sub
-            Dim oMessage As String = "Profile Processes are empty!"
+        'End If
-            Logger.Info(oMessage)
-            MsgBox(oMessage, MsgBoxStyle.Critical, Text)
 
-            Exit Sub
+        'If oState.ProfileProcesses Is Nothing OrElse oState.ProfileProcesses.Rows.Count = 0 Then
-        End If
+        '    Dim oMessage As String = "Profile Processes are empty!"
+        '    Logger.Info(oMessage)
+        '    MsgBox(oMessage, MsgBoxStyle.Critical, Text)
 
-        If oState.ProfileWindows Is Nothing OrElse oState.ProfileWindows.Rows.Count = 0 Then
+        '    Exit Sub
-            Dim oMessage As String = "Profile Processes are empty!"
+        'End If
-            Logger.Info(oMessage)
-            MsgBox(oMessage, MsgBoxStyle.Critical, Text)
 
-            Exit Sub
+        'If oState.ProfileWindows Is Nothing OrElse oState.ProfileWindows.Rows.Count = 0 Then
-        End If
+        '    Dim oMessage As String = "Profile Processes are empty!"
+        '    Logger.Info(oMessage)
+        '    MsgBox(oMessage, MsgBoxStyle.Critical, Text)
 
-        If oState.ProfileProcesses Is Nothing OrElse oState.ProfileProcesses.Rows.Count = 0 Then
+        '    Exit Sub
-            Dim oMessage As String = "Profile Processes are empty!"
+        'End If
-            Logger.Info(oMessage)
-            MsgBox(oMessage, MsgBoxStyle.Critical, Text)
 
-            Exit Sub
+        'If oState.ProfileProcesses Is Nothing OrElse oState.ProfileProcesses.Rows.Count = 0 Then
-        End If
+        '    Dim oMessage As String = "Profile Processes are empty!"
+        '    Logger.Info(oMessage)
+        '    MsgBox(oMessage, MsgBoxStyle.Critical, Text)
+
+        '    Exit Sub
+        'End If
 
         Dim oWindowInfo = ClassWindow.GetWindowInfo()
 
@@ -901,9 +807,7 @@ Public Class frmFlowForm
             oState.MatchTreeView.Nodes.Clear()
 
             ProfileFilter = New ProfileFilter(My.LogConfig,
-                                              oState.UserProfiles, oState.ProfileProcesses,
+                oState.UserProfiles, oState.ProfileProcesses, oState.ProfileWindows, oState.ProfileControls, oState.MatchTreeView)
-                                              oState.ProfileWindows, oState.ProfileControls,
-                                              oState.MatchTreeView)
         Catch ex As Exception
             Logger.Error(ex)
             MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor. Fehlermeldung: " & ex.Message, MsgBoxStyle.Critical, Text)
@@ -1008,5 +912,9 @@ Public Class frmFlowForm
         frmtest.Show()
 
     End Sub
+
+    Private Sub SucheTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SucheTestToolStripMenuItem.Click
+        frmSearchNeu.Show()
+    End Sub
 End Class
 

GUIs.ZooFlow/frmtest.Designer.vb

@@ -153,7 +153,6 @@ Partial Class frmtest
         Me.txtIDB_OBJ_ID.Name = "txtIDB_OBJ_ID"
         Me.txtIDB_OBJ_ID.Size = New System.Drawing.Size(100, 20)
         Me.txtIDB_OBJ_ID.TabIndex = 9
-        Me.txtIDB_OBJ_ID.Text = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBOBJID
         '
         'frmtest
         '

GUIs.ZooFlow/modCurrent.vb

@@ -5,9 +5,7 @@ Imports DigitalData.Modules.Config
 Module modCurrent
 
     Public Property LOGGER As Logger
-    Public Property CONFIG As ConfigManager(Of ClassConfig)
     Public Property ADDITIONAL_TITLE As String
-    Public Property DT_CONNECTIONS As DataTable
     Public Property CURR_MISSING_PATTERN_NAME = "Email To"
     Public Property CURR_MISSING_SEARCH_STRING = String.Empty
     Public Property CURR_MISSING_MANUAL_VALUE = String.Empty

Modules.Database/Adapters/MSSQLServer.vb

@@ -180,12 +180,12 @@ Public Class MSSQLServer
         Return connectionString
     End Function
 
-    <DebuggerStepThrough()>
+    '<DebuggerStepThrough()>
     Private Function TestCanConnect() As Boolean
         Return TestCanConnect(CurrentSQLConnectionString)
     End Function
 
-    <DebuggerStepThrough()>
+    '<DebuggerStepThrough()>
     Private Function TestCanConnect(ConnectionString As String) As Boolean
         Try
             _Logger.Debug("Testing connection to [{0}]", MaskConnectionString(ConnectionString))
@@ -201,7 +201,7 @@ Public Class MSSQLServer
         End Try
     End Function
 
-    <DebuggerStepThrough()>
+    '<DebuggerStepThrough()>
     Private Function TestCanConnect(Connection As SqlConnection) As Boolean
         Try
             If Connection Is Nothing Then

Service.EDMIService/Methods/GlobalIndexer/ImportFile/ImportFileMethod.vb

@@ -96,6 +96,8 @@ Namespace Methods.GlobalIndexer.ImportFile
                 Logger.Info("Writing [{0}] Attributes for ObjectId [{0}] ", oResponse.ObjectId)
                 WriteAttributeValues(oResponse.ObjectId, oFinalAttributes)
 
+                'TODO: Write to TBGI_INDEX_HISTORY?
+
                 ' Finally, commit the transaction
                 Transaction?.Commit()