Currency Summary EUR

• Robustere Behandlung von Datenquellen, SQL-Placeholders und Verbindungs-IDs
• Verbesserte Steuerlogik für abhängige Controls, Enable/Disable und SetControlData
• Konsistente Verarbeitung von Vektorfeldern, Lookup, ComboBox, DateEdit und GridControl
• Validierung: Pflichtfelder, Regex-Checks, Grid-Zellenvalidierung, Fehlerdialoge
• Performance- und Logging-Verbesserungen, reduzierte Nebenwirkungen (Flags, Flow)
• Zusätzliche Suchen: Preload, OnClick, UI-Anbindung, Refresh
• Dokument-Viewer: Laden, Sichtbarkeit, PDF-Annotationen und Export-Workflow
• Finale Indexierung inkl. SQL-basierten Werten, Work-History-Logging, Move2Folder
• Fehlerbehandlung bei Überspringen/Löschen, Freigabe und Workflow-Abschluss
• UI-Feedback: Statuslabel, Ribbon-Buttons, Tooltips, Ghost-Mode Unterstützung
• Codehygiene: Null-/DBNull-Checks, Culture-Handling, farbliche Formatierung (Currency)

MARVIN_IST_COOL.txt

@@ -0,0 +1 @@
+Aber El Raho ist cooler!

app/SetupVS19/Product.wxs

@@ -1,5 +1,5 @@
-<?define ProgramName="TaskFlow"?>
+<?define ProgramName="taskFLOW"?>
-<?define ProductName="TaskFlow"?>
+<?define ProductName="taskFLOW"?>
 <?define Manufacturer="Digital Data"?>
 <?define Description="Beschreibung des Programms"?>
 <?define Comments="Kommentar wie Copyright-Hinweis"?>
@@ -42,7 +42,7 @@
 		</Upgrade>
 
 		<!-- Legt das Icon fest -->
-		<Icon Id="AppIcon.exe" SourceFile="..\TaskFlow\bin\$(var.Configuration)\$(var.ProgramName).exe" />
+		<Icon Id="AppIcon.exe" SourceFile="..\taskFLOW\bin\$(var.Configuration)\$(var.ProgramName).exe" />
 		<!-- Zeige Icon in Systemsteuerung > Programme entfernen -->
 		<Property Id="ARPPRODUCTICON" Value="AppIcon.exe" />
 
@@ -85,8 +85,8 @@
 		<DirectoryRef Id="INSTALLDIR">
 
 			<Component Id="MainApplicationExe" Guid="71B06048-F595-40CE-B429-79C2F2D6001B" KeyPath="yes">
-				<File Id="MainApplicationExe" Source="..\TaskFlow\bin\$(var.Configuration)\$(var.ProgramName).exe" Name="$(var.ProgramName).exe" KeyPath="no" Checksum="yes" />
+				<File Id="MainApplicationExe" Source="..\taskFLOW\bin\$(var.Configuration)\$(var.ProgramName).exe" Name="$(var.ProgramName).exe" KeyPath="no" Checksum="yes" />
-				<File Id="MainApplicationExeConfig" Source="..\TaskFlow\bin\$(var.Configuration)\$(var.ProgramName).exe.config" Name="$(var.ProgramName).exe.config" KeyPath="no" Checksum="yes" />
+				<File Id="MainApplicationExeConfig" Source="..\taskFLOW\bin\$(var.Configuration)\$(var.ProgramName).exe.config" Name="$(var.ProgramName).exe.config" KeyPath="no" Checksum="yes" />
 				<!--
         <Shortcut Id="DesktopShortcut" Directory="DesktopFolder" Name="$(var.ProductName)" WorkingDirectory="INSTALLDIR" Icon="AppIcon.exe" IconIndex="0" Advertise="no" Target="[#MainApplicationExe]" />
         <Shortcut Id="StartMenuShortcut" Directory="ProgramMenuDir" Name="$(var.ProductName)" WorkingDirectory="INSTALLDIR" Icon="AppIcon.exe" IconIndex="0" Advertise="no" Target="[#MainApplicationExe]" />
@@ -154,10 +154,24 @@
 				<File Id="GdPicture.NET.14.image" Name="GdPicture.NET.14.image.gdimgplug.dll" />
 				<File Id="GdPicture.NET.14.image64" Name="GdPicture.NET.14.image.gdimgplug.64.dll" />
 				<File Id="GdPicture.NET.14.Imaging.Rendering.Skia" Name="GdPicture.NET.14.Imaging.Rendering.Skia.dll" />
-				<File Id="GdPicture.NET.14..Rendering.Skia.64" Name="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" />
+				<File Id="GdPicture.NET.14.Rendering.Skia.64" Name="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" />
         <File Id="GdPicture.NET.14.Imaging" Name="GdPicture.NET.14.Imaging.dll" />
         <File Id="GdPicture.NET.14.Common" Name="GdPicture.NET.14.Common.dll" />
         <File Id="GdPicture.NET.14.Imaging.Rendering" Name="GdPicture.NET.14.Imaging.Rendering.dll" />
+        <File Id="GdPicture.NET.14.Document" Name="GdPicture.NET.14.Document.dll" />
+        <File Id="GdPicture.NET.14.PDF" Name="GdPicture.NET.14.PDF.dll" />
+        <File Id="GdPicture.NET.14.Imaging.Formats" Name="GdPicture.NET.14.Imaging.Formats.dll" />
+        <File Id="GdPicture.NET.14.RTF" Name="GdPicture.NET.14.RTF.dll" />
+        <File Id="GdPicture.NET.14.OpenDocument" Name="GdPicture.NET.14.OpenDocument.dll" />
+        <File Id="GdPicture.NET.14.OpenXML" Name="GdPicture.NET.14.OpenXML.dll" />
+        <File Id="GdPicture.NET.14.Email" Name="GdPicture.NET.14.Email.dll" />
+        <File Id="GdPicture.NET.14.HTML" Name="GdPicture.NET.14.HTML.dll" />
+        <File Id="GdPicture.NET.14.MSOfficeBinary" Name="GdPicture.NET.14.MSOfficeBinary.dll"/>
+        <File Id="GdPicture.NET.14.CAD" Name="GdPicture.NET.14.CAD.dll"/>
+        <File Id="GdPicture.NET.14.CAD.DWG" Name="GdPicture.NET.14.CAD.DWG.dll"/>
+        <File Id="BouncyCastle.Cryptography" Name="BouncyCastle.Cryptography.dll"/>
+        <File Id="System.ValueTuple" Name="System.ValueTuple.dll" />
+        <File Id="System.IO.Packaging" Name="System.IO.Packaging.dll" />
       </Component>
 
 			<Component Id="DevExpressLibs" Guid="CB40DAAE-348E-4BD3-B275-9A526EB8F191">

app/SetupVS19/SetupVS19.wixproj

@@ -13,12 +13,12 @@
     <OutputPath>bin\$(Configuration)\</OutputPath>
     <IntermediateOutputPath>obj\$(Configuration)\</IntermediateOutputPath>
     <DefineConstants>Debug</DefineConstants>
-    <LinkerAdditionalOptions>-b "$(SolutionDir)TaskFlow\bin\$(Configuration)"</LinkerAdditionalOptions>
+    <LinkerAdditionalOptions>-b "$(SolutionDir)taskFLOW\bin\$(Configuration)"</LinkerAdditionalOptions>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
     <OutputPath>bin\$(Configuration)\</OutputPath>
     <IntermediateOutputPath>obj\$(Configuration)\</IntermediateOutputPath>
-    <LinkerAdditionalOptions>-b "$(SolutionDir)TaskFlow\bin\$(Configuration)"</LinkerAdditionalOptions>
+    <LinkerAdditionalOptions>-b "$(SolutionDir)taskFLOW\bin\$(Configuration)"</LinkerAdditionalOptions>
   </PropertyGroup>
   <ItemGroup>
     <Compile Include="Product.wxs" />
@@ -43,7 +43,7 @@
   </Target>
   <Target Name="BeforeBuild">
     <!-- Get the programs assembly version from the .exe file -->
-    <GetAssemblyIdentity AssemblyFiles="..\TaskFlow\bin\$(Configuration)\TaskFlow.exe">
+    <GetAssemblyIdentity AssemblyFiles="..\taskFLOW\bin\$(Configuration)\TaskFlow.exe">
       <Output TaskParameter="Assemblies" ItemName="AsmInfo" />
     </GetAssemblyIdentity>
     <!-- Store the assembly version number in ProductVersion preprocessor variable -->

app/TaskFlow/App.config

@@ -2,18 +2,18 @@
 <configuration>
   <configSections>
     <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System">
-      <section name="DD_ProcessManager.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
+      <section name="taskFLOW.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
       <section name="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection" requirePermission="false" />
     </sectionGroup>
-    <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-      <section name="DD_ProcessManager.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
-    </sectionGroup>
     <!-- For more information on Entity Framework configuration, visit http://go.microsoft.com/fwlink/?LinkID=237468 -->
     <!-- For more information on Entity Framework configuration, visit http://go.microsoft.com/fwlink/?LinkID=237468 -->
     <section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
+    <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+      <section name="taskFLOW.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+    </sectionGroup>
   </configSections>
   <applicationSettings>
-    <DD_ProcessManager.My.MySettings>
+    <taskFLOW.My.MySettings>
       <setting name="UseAppConfigConString" serializeAs="String">
         <value>False</value>
       </setting>
@@ -23,7 +23,7 @@
       <setting name="GDPICTURE_VERSION" serializeAs="String">
         <value>11.2024</value>
       </setting>
-    </DD_ProcessManager.My.MySettings>
+    </taskFLOW.My.MySettings>
     <DevExpress.LookAndFeel.Design.AppSettings>
       <setting name="DefaultAppSkin" serializeAs="String">
         <value>Skin/Office 2019 White</value>
@@ -102,54 +102,12 @@
     </DevExpress.LookAndFeel.Design.AppSettings>
   </applicationSettings>
   <connectionStrings>
-    <add name="DD_ProcessManager.My.MySettings.ConnectionString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False" providerName="System.Data.SqlClient" />
+    <add name="taskFLOW.My.MySettings.ConnectionString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False"
+      providerName="System.Data.SqlClient" />
   </connectionStrings>
   <startup>
     <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2" />
   </startup>
-  <userSettings>
-    <DD_ProcessManager.My.MySettings>
-      <setting name="IntervallReminder" serializeAs="String">
-        <value>5</value>
-      </setting>
-      <setting name="frmMainSize" serializeAs="String">
-        <value>0, 0</value>
-      </setting>
-      <setting name="frmMainPosition" serializeAs="String">
-        <value>0, 0</value>
-      </setting>
-      <setting name="frmValidatorSize" serializeAs="String">
-        <value>0, 0</value>
-      </setting>
-      <setting name="frmValidatorPosition" serializeAs="String">
-        <value>0, 0</value>
-      </setting>
-      <setting name="frmMassValidatorSize" serializeAs="String">
-        <value>0, 0</value>
-      </setting>
-      <setting name="frmMassValidatorposition" serializeAs="String">
-        <value>0, 0</value>
-      </setting>
-      <setting name="frmValidatorSearchPosition" serializeAs="String">
-        <value>0, 0</value>
-      </setting>
-      <setting name="frmValSearchSplitterDistance" serializeAs="String">
-        <value>563</value>
-      </setting>
-      <setting name="frmMainWindowState" serializeAs="String">
-        <value>Normal</value>
-      </setting>
-      <setting name="frmTableColumns_Position" serializeAs="String">
-        <value>0, 0</value>
-      </setting>
-      <setting name="frmValidatorSearchSize" serializeAs="String">
-        <value>0, 0</value>
-      </setting>
-      <setting name="frmValidatorWindowState" serializeAs="String">
-        <value>Normal</value>
-      </setting>
-    </DD_ProcessManager.My.MySettings>
-  </userSettings>
   <runtime>
     <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
       <dependentAssembly>
@@ -186,7 +144,7 @@
       </dependentAssembly>
       <dependentAssembly>
         <assemblyIdentity name="GdPicture.NET.14.Common" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-14.3.1.0" newVersion="14.3.1.0" />
+        <bindingRedirect oldVersion="0.0.0.0-14.3.3.0" newVersion="14.3.3.0" />
       </dependentAssembly>
       <dependentAssembly>
         <assemblyIdentity name="GdPicture.NET.14.Imaging" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
@@ -212,6 +170,30 @@
         <assemblyIdentity name="protobuf-net" publicKeyToken="257b51d87d2e4d67" culture="neutral" />
         <bindingRedirect oldVersion="0.0.0.0-3.0.0.0" newVersion="3.0.0.0" />
       </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.ValueTuple" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.0.3.0" newVersion="4.0.3.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Threading.Tasks.Extensions" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.2.0.1" newVersion="4.2.0.1" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="DocumentFormat.OpenXml.Framework" publicKeyToken="8fb06cb64d019a17" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-3.2.0.0" newVersion="3.2.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="8fb06cb64d019a17" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-3.2.0.0" newVersion="3.2.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Text.Encodings.Web" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-9.0.0.0" newVersion="9.0.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Microsoft.Bcl.AsyncInterfaces" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-9.0.0.0" newVersion="9.0.0.0" />
+      </dependentAssembly>
     </assemblyBinding>
   </runtime>
   <entityFramework>
@@ -221,4 +203,47 @@
     </providers>
     <defaultConnectionFactory type="EntityFramework.Firebird.FbConnectionFactory, EntityFramework.Firebird" />
   </entityFramework>
+  <userSettings>
+    <taskFLOW.My.MySettings>
+      <setting name="IntervallReminder" serializeAs="String">
+        <value>5</value>
+      </setting>
+      <setting name="frmMainSize" serializeAs="String">
+        <value>0, 0</value>
+      </setting>
+      <setting name="frmMainPosition" serializeAs="String">
+        <value>0, 0</value>
+      </setting>
+      <setting name="frmValidatorSize" serializeAs="String">
+        <value>0, 0</value>
+      </setting>
+      <setting name="frmValidatorPosition" serializeAs="String">
+        <value>0, 0</value>
+      </setting>
+      <setting name="frmMassValidatorSize" serializeAs="String">
+        <value>0, 0</value>
+      </setting>
+      <setting name="frmMassValidatorposition" serializeAs="String">
+        <value>0, 0</value>
+      </setting>
+      <setting name="frmValidatorSearchPosition" serializeAs="String">
+        <value>0, 0</value>
+      </setting>
+      <setting name="frmValSearchSplitterDistance" serializeAs="String">
+        <value>513</value>
+      </setting>
+      <setting name="frmMainWindowState" serializeAs="String">
+        <value>Normal</value>
+      </setting>
+      <setting name="frmTableColumns_Position" serializeAs="String">
+        <value>0, 0</value>
+      </setting>
+      <setting name="frmValidatorSearchSize" serializeAs="String">
+        <value>0, 0</value>
+      </setting>
+      <setting name="frmValidatorWindowState" serializeAs="String">
+        <value>Normal</value>
+      </setting>
+    </taskFLOW.My.MySettings>
+  </userSettings>
 </configuration>

app/TaskFlow/ClassAllgemeineFunktionen.vb

@@ -366,4 +366,55 @@ Public Class ClassAllgemeineFunktionen
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error saving log file")
         End Try
     End Sub
+    Public Shared Function NotNull(Of T)(value As Object, defaultValue As T) As T
+        If value Is Nothing OrElse Convert.IsDBNull(value) Then
+            Return defaultValue
+        End If
+
+        ' Versuche den Wert in den gewünschten Typ zu konvertieren
+        Try
+            Return CType(value, T)
+        Catch ex As InvalidCastException
+            ' Falls die Konvertierung fehlschlägt, gib den Default zurück
+            Return defaultValue
+        End Try
+    End Function
+    Public Shared Function NotNullNullable(Of T As Structure)(value As Object, defaultValue As Nullable(Of T)) As Nullable(Of T)
+        If value Is Nothing OrElse Convert.IsDBNull(value) Then
+            Return defaultValue
+        End If
+        Try
+            ' Direkte Casts sind robust, wandeln aber DBNull nicht – das ist bereits oben abgefangen.
+            Return DirectCast(value, Nullable(Of T))
+        Catch
+            Try
+                ' Fallback: in T casten und zu Nullable machen
+                Return New Nullable(Of T)(DirectCast(value, T))
+            Catch
+                Return defaultValue
+            End Try
+        End Try
+    End Function
+    Public Shared Function NotNullString(value As Object, defaultValue As Object) As String
+        If value Is Nothing OrElse Convert.IsDBNull(value) Then Return defaultValue
+        Return CStr(value)
+    End Function
+
+    Public Shared Function NotNullDate(value As Object, defaultValue As DateTime) As DateTime?
+        If value Is Nothing OrElse Convert.IsDBNull(value) Then Return defaultValue
+        Return DirectCast(value, DateTime)
+    End Function
+    Public Shared Function NewShortGuid() As String
+        ' Neue GUID erzeugen
+        Dim g As Guid = Guid.NewGuid()
+
+        ' In Base64 umwandeln
+        Dim b64 As String = Convert.ToBase64String(g.ToByteArray())
+
+        ' Unerwünschte Zeichen ersetzen/entfernen
+        b64 = b64.Replace("=", "").Replace("+", "-").Replace("/", "_")
+
+        ' Ergebnis zurückgeben
+        Return b64
+    End Function
 End Class

app/TaskFlow/ClassControlCreator.vb

@@ -104,23 +104,27 @@ Public Class ClassControlCreator
     Private Function TransformDataRow(row As DataRow) As ControlDBProps
         Dim x As Integer = row.Item("X_LOC")
         Dim y As Integer = row.Item("Y_LOC")
-        Dim style As FontStyle = NotNull(row.Item("FONT_STYLE"), DEFAULT_FONT_STYLE)
+        Dim style As FontStyle = ClassAllgemeineFunktionen.NotNullString(row.Item("FONT_STYLE"), DEFAULT_FONT_STYLE)
-        Dim size As Single = NotNull(row.Item("FONT_SIZE"), DEFAULT_FONT_SIZE)
+        Dim size As Single = ClassAllgemeineFunktionen.NotNullString(row.Item("FONT_SIZE"), DEFAULT_FONT_SIZE)
-        Dim familyString As String = NotNull(row.Item("FONT_FAMILY"), DEFAULT_FONT_FAMILY)
+        Dim familyString As String = ClassAllgemeineFunktionen.NotNullString(row.Item("FONT_FAMILY"), DEFAULT_FONT_FAMILY)
         Dim family As FontFamily = New FontFamily(familyString)
 
         Dim oGuid As Integer = row.Item("GUID")
-        Dim oName As String = NotNull(row.Item("NAME"), "")
+        Dim oControlName As String = ClassAllgemeineFunktionen.NotNullString(row.Item("NAME"), "")
-        Dim oAttribute As String = NotNull(row.Item("INDEX_NAME"), "")
+        Dim oAttribute As String = ClassAllgemeineFunktionen.NotNullString(row.Item("INDEX_NAME"), "")
         Dim oLocation As New Point(x, y)
         Dim oFont As New Font(family, size, style, GraphicsUnit.Point)
-        Dim oColor As Color = IntToColor(NotNull(row.Item("FONT_COLOR"), DEFAULT_COLOR))
+        Dim oColor As Color = IntToColor(ClassAllgemeineFunktionen.NotNullString(row.Item("FONT_COLOR"), DEFAULT_COLOR))
         Dim oReadOnly As Boolean = row.Item("READ_ONLY")
         Dim oAddNewItems As Boolean = row.Item("VKT_ADD_ITEM")
+        If oAttribute = "@@DISPLAY_ONLY" And oReadOnly = False Then
+            Logger.Info($"Override oReadOnly = True for Control [{oControlName}]  as Attribute is @@DISPLAY_ONLY and ReadOnly = False")
+            oReadOnly = True
+        End If
 
         Return New ControlDBProps() With {
             .Guid = oGuid,
-            .Name = oName,
+            .Name = oControlName,
             .Attribute = oAttribute,
             .Location = oLocation,
             .Font = oFont,
@@ -166,7 +170,7 @@ Public Class ClassControlCreator
 
     Public Function CreateNewTextBox(location As Point) As TextEdit
         Dim control As New TextEdit With {
-            .Name = $"{PREFIX_TEXTBOX}_{clsTools.ShortGuid()}",
+            .Name = $"{PREFIX_TEXTBOX}_{ClassAllgemeineFunktionen.NewShortGuid()}",
             .Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT),
             .Location = location,
             .ReadOnly = True,
@@ -179,7 +183,7 @@ Public Class ClassControlCreator
 
     Public Function CreateNewLabel(location As Point) As Label
         Dim control As New Label With {
-            .Name = $"{PREFIX_LABEL}_{clsTools.ShortGuid}",
+            .Name = $"{PREFIX_LABEL}_{ClassAllgemeineFunktionen.NewShortGuid}",
             .Text = DEFAULT_TEXT,
             .AutoSize = True,
             .Location = location,
@@ -191,7 +195,7 @@ Public Class ClassControlCreator
 
     Public Function CreateNewCheckbox(location As Point) As CheckBox
         Dim control As New CheckBox With {
-            .Name = $"{PREFIX_CHECKBOX}_{clsTools.ShortGuid}",
+            .Name = $"{PREFIX_CHECKBOX}_{ClassAllgemeineFunktionen.NewShortGuid}",
             .AutoSize = True,
             .Text = DEFAULT_TEXT,
             .Cursor = Cursors.Hand,
@@ -204,7 +208,7 @@ Public Class ClassControlCreator
 
     Public Function CreateNewCombobox(location As Point) As Windows.Forms.ComboBox
         Dim control As New Windows.Forms.ComboBox With {
-            .Name = $"{PREFIX_COMBOBOX}_{clsTools.ShortGuid}",
+            .Name = $"{PREFIX_COMBOBOX}_{ClassAllgemeineFunktionen.NewShortGuid}",
             .Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT),
             .Cursor = Cursors.Hand,
             .Location = location
@@ -215,7 +219,7 @@ Public Class ClassControlCreator
 
     Public Function CreateNewDatetimepicker(location As Point) As DateTimePicker
         Dim control As New DateTimePicker With {
-            .Name = $"{PREFIX_DATETIMEPICKER}_{clsTools.ShortGuid}",
+            .Name = $"{PREFIX_DATETIMEPICKER}_{ClassAllgemeineFunktionen.NewShortGuid}",
             .Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT),
             .Cursor = Cursors.Hand,
             .Location = location,
@@ -227,7 +231,7 @@ Public Class ClassControlCreator
 
     Public Function CreateNewDatagridview(location As Point) As DataGridView
         Dim control As New DataGridView With {
-            .Name = $"{PREFIX_DATAGRIDVIEW}_{clsTools.ShortGuid}",
+            .Name = $"{PREFIX_DATAGRIDVIEW}_{ClassAllgemeineFunktionen.NewShortGuid}",
             .Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT_TABLE),
             .Cursor = Cursors.Hand,
             .Location = location,
@@ -247,7 +251,7 @@ Public Class ClassControlCreator
 
     Friend Function CreateNewLookupControl(location As Point) As LookupControl3
         Dim control As New LookupControl3 With {
-            .Name = $"{PREFIX_LOOKUP}_{clsTools.ShortGuid}",
+            .Name = $"{PREFIX_LOOKUP}_{ClassAllgemeineFunktionen.NewShortGuid}",
             .Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT),
             .Cursor = Cursors.Hand,
             .Location = location
@@ -257,7 +261,7 @@ Public Class ClassControlCreator
 
     Public Function CreateNewTable(location As Point) As GridControl
         Dim oControl As New GridControl With {
-            .Name = $"{PREFIX_TABLE}_{clsTools.ShortGuid}",
+            .Name = $"{PREFIX_TABLE}_{ClassAllgemeineFunktionen.NewShortGuid}",
             .Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT_TABLE),
             .Cursor = Cursors.Hand,
             .Location = location,
@@ -277,7 +281,7 @@ Public Class ClassControlCreator
 
     Public Function CreateNewLine(location As Point) As LineLabel
         Dim control As New LineLabel With {
-            .Name = $"{PREFIX_LINE}_{clsTools.ShortGuid}",
+            .Name = $"{PREFIX_LINE}_{ClassAllgemeineFunktionen.NewShortGuid}",
             .Text = "---------------------------------",
             .Size = New Size(100, 5),
             .Location = location
@@ -287,7 +291,7 @@ Public Class ClassControlCreator
     End Function
     Public Function CreateNewButton(location As Point) As Button
         Dim control As New Button With {
-            .Name = $"{PREFIX_BUTTON}_{clsTools.ShortGuid}",
+            .Name = $"{PREFIX_BUTTON}_{ClassAllgemeineFunktionen.NewShortGuid}",
             .Size = New Size(108, 28),
             .Cursor = Cursors.Hand,
             .Location = location
@@ -305,10 +309,9 @@ Public Class ClassControlCreator
             Dim oReadOnly = oControlRow.ItemEx("READ_ONLY", False)
             Dim oFormatString = oControlRow.ItemEx("FORMAT_STRING", String.Empty)
             Dim oBackColorIf = oControlRow.ItemEx("CTRL_BACKCOLOR_IF", String.Empty)
-
+            Dim oIndexname = oControlRow.ItemEx("INDEX_NAME", String.Empty)
             Dim oControl As BaseEdit = Nothing
-
+            If oHeight >= 27 Then
-            If oHeight > 27 Then
                 oControl = CreateBaseControl(New MemoEdit(), oControlRow, designMode)
             Else
                 oControl = CreateBaseControl(New TextEdit(), oControlRow, designMode)
@@ -323,7 +326,7 @@ Public Class ClassControlCreator
             oControl.Width = oWidth
 
             If Not designMode Then
-                oControl.ReadOnly = oReadOnly
+                'oControl.ReadOnly = oReadOnly
                 oControl.TabStop = Not oReadOnly
                 oControl.BackColor = IIf(oReadOnly, Color.LightGray, Color.White)
 
@@ -332,12 +335,10 @@ Public Class ClassControlCreator
                 If oFormatString <> String.Empty Then
                     oControl.Properties.DisplayFormat.FormatType = FormatType.Custom
                     oControl.Properties.DisplayFormat.FormatString = ClassFormat.GetFormatString(oFormatString)
-                End If
+                    'ElseIf oReadOnly Then
-
+                    '    ' For read only controls, don't show the raw value when a user clicks into it
-                ' For read only controls, don't show the raw value when a user clicks into it
+                    '    oControl.Properties.EditFormat.FormatType = FormatType.Custom
-                If oReadOnly Then
+                    '    oControl.Properties.EditFormat.FormatString = ClassFormat.GetFormatString(oFormatString)
-                    oControl.Properties.EditFormat.FormatType = FormatType.Custom
-                    oControl.Properties.EditFormat.FormatString = ClassFormat.GetFormatString(oFormatString)
                 End If
             Else
                 oControl.ReadOnly = True
@@ -481,7 +482,7 @@ Public Class ClassControlCreator
         Return control
     End Function
 
-    Public Function CreateExistingGridControl(row As DataRow, DT_MY_COLUMNS As DataTable, designMode As Boolean) As GridControl
+    Public Function CreateExistingGridControl(row As DataRow, DT_MY_COLUMNS As DataTable, designMode As Boolean, pcurrencySymbol As String) As GridControl
         Dim oGridControlCreator = New ControlCreator.GridControl(LogConfig, GridTables)
         Dim oControl As GridControl = CreateBaseControl(New GridControl(), row, designMode)
         Dim oControlId = DirectCast(oControl.Tag, ControlMetadata).Guid
@@ -512,7 +513,7 @@ Public Class ClassControlCreator
             oView.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CellSelect
             oView.OptionsSelection.MultiSelect = True
             oView.OptionsClipboard.CopyColumnHeaders = DefaultBoolean.False
-
+            'oView.OptionsView.ColumnAutoWidth = True
             If oView.OptionsBehavior.ReadOnly = False Then
                 If row.Item("VKT_ADD_ITEM") = True Then
                     oView.OptionsBehavior.AllowAddRows = DefaultBoolean.True
@@ -557,8 +558,8 @@ Public Class ClassControlCreator
 
         Dim oDataTable = oGridControlCreator.CreateGridColumns(DT_MY_COLUMNS)
         GridTables = oGridControlCreator.FillGridTables(DT_MY_COLUMNS, oControlId, oControl.Name)
-        oView.PopulateColumns(oDatatable)
+        oView.PopulateColumns(oDataTable)
-        oControl.DataSource = oDatatable
+        oControl.DataSource = oDataTable
         oControl.RefreshDataSource()
         oControl.ForceInitialize()
 
@@ -585,7 +586,7 @@ Public Class ClassControlCreator
             End Try
         End If
 
-        oGridControlCreator.ConfigureViewColumns(DT_MY_COLUMNS, oView, oControl)
+        oGridControlCreator.ConfigureViewColumns(DT_MY_COLUMNS, oView, oControl, pcurrencySymbol)
         oGridControlCreator.ConfigureViewEvents(DT_MY_COLUMNS, oView, oControl, oControlId)
 
         ' 08.11.2021: Fix editor being empty on first open
@@ -603,7 +604,7 @@ Public Class ClassControlCreator
         control.Text = "------------------------------"
         control.BorderStyle = BorderStyle.None
         control.AutoSize = False
-        control.BackColor = IntToColor(NotNull(row.Item("FONT_COLOR"), DEFAULT_COLOR))
+        control.BackColor = IntToColor(ClassAllgemeineFunktionen.NotNullString(row.Item("FONT_COLOR"), DEFAULT_COLOR))
         control.Size = New Size(row.Item("WIDTH"), row.Item("HEIGHT"))
 
         Return control
@@ -822,7 +823,7 @@ Public Class ClassControlCreator
                                 If oMeta.Guid = oControlId AndAlso TypeOf oControl Is GridControl Then
                                     Dim oGrid As GridControl = DirectCast(oControl, GridControl)
                                     DirectCast(oGrid.FocusedView, GridView).FocusInvalidRow()
-                                    Logger.Info("Force-setting Editor for Grid [{0}]", oGrid.Name)
+                                    Logger.Debug("Force-setting Editor for Grid [{0}]", oGrid.Name)
                                     Exit For
                                 End If
                             Catch ex As Exception

app/TaskFlow/ClassFinalIndex.vb

@@ -114,12 +114,12 @@ Public Class ClassFinalIndex
             props.VectorIndex = isVector
 
             If type = INDEX_TYPE_STRING Or type = INDEX_TYPE_VECTOR_STRING Then
-                value = NotNull(value, "")
+                value = ClassAllgemeineFunktionen.NotNullString(value, "")
 
                 props.StringValue = value
             ElseIf type = INDEX_TYPE_INTEGER Or type = INDEX_TYPE_INTEGER64 Or type = INDEX_TYPE_VECTOR_INTEGER_64 Then
                 Try
-                    value = NotNull(Of Integer)(value, 0)
+                    value = ClassAllgemeineFunktionen.NotNullString(value, 0)
                     If value = String.Empty Then
                         props.IntegerValue = 0
                     Else
@@ -138,7 +138,7 @@ Public Class ClassFinalIndex
                 If value = "SQL-Command" Then
                     props.FloatValue = 0
                 Else
-                    value = NotNull(Of Double)(value, 0)
+                    value = ClassAllgemeineFunktionen.NotNullString(value, 0)
 
                     If value = String.Empty Then
                         props.FloatValue = 0
@@ -148,7 +148,7 @@ Public Class ClassFinalIndex
                 End If
 
             ElseIf type = INDEX_TYPE_BOOLEAN Or type = INDEX_TYPE_VECTOR_BOOLEAN Then
-                value = NotNull(value, "False")
+                value = ClassAllgemeineFunktionen.NotNullString(value, "False")
 
                 If value = "1" Or value.ToLower = "true" Then
                     props.BoolValue = True

app/TaskFlow/ClassFinalizeDoc.vb

@@ -1,4 +1,5 @@
-Imports DigitalData.Modules.EDMI.API.Constants
+Imports DevExpress.DataAccess.Native.Json
+Imports DigitalData.Modules.EDMI.API.Constants
 Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback
 
 Public Class ClassFinalizeDoc
@@ -18,10 +19,11 @@ Public Class ClassFinalizeDoc
                 'Jetzt finale Indexe setzen
                 LOGGER.Debug("working final indices for doc: " & WMObject.aName)
                 For Each dr As DataRow In CURRENT_DT_FINAL_INDEXING.Rows
-                    Dim value As String = dr.Item("VALUE").ToString
+                    Dim ovalueString As String = dr.Item("VALUE").ToString
                     Dim INDEXNAME = dr.Item("INDEXNAME").ToString
                     Dim oContinueOnIndifferentState As Boolean = CBool(dr.Item("CONTINUE_INDETERMINED"))
-                    If value.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ###
+                    Dim VektorBeahaviour = dr.Item("IF_VEKTOR_BEHAVIOUR").ToString
+                    If ovalueString.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ###
                         LOGGER.Debug("indexing with dynamic sql...")
                         'Dim SQL_COMMAND = dr.Item("SQL_COMMAND")
                         '' Regulären Ausdruck zum Auslesen der Indexe definieren
@@ -52,32 +54,32 @@ Public Class ClassFinalizeDoc
                         LOGGER.Debug("sql after ReplaceAllValues: " & sql_Statement)
                         Dim oDynamic_value = DatabaseFallback.GetScalarValueECM(sql_Statement) ', CONNECTION_STRING_ECM, "Write_Final_Metadata/dynamic_value")
                         If Not IsNothing(oDynamic_value) Then
-                            value = oDynamic_value
+                            ovalueString = oDynamic_value
                         Else
                             Continue For
                         End If
                     Else
-                        If value.StartsWith("v") Then
+                        If ovalueString.StartsWith("v") Then
                             Select Case dr.Item("VALUE").ToString
                                 Case "vDate"
-                                    value = Now.ToShortDateString
+                                    ovalueString = Now.ToShortDateString
                                 Case "vUserName"
-                                    value = USER_USERNAME
+                                    ovalueString = USER_USERNAME
                                 Case Else
-                                    value = dr.Item("VALUE")
+                                    ovalueString = dr.Item("VALUE")
                             End Select
                         End If
                     End If
 
                     Dim result() As String
                     ReDim Preserve result(0)
-                    result(0) = value
+                    result(0) = ovalueString
 
                     Dim oIndexType = WINDREAM.GetTypeOfIndex(INDEXNAME)
                     LOGGER.Debug($"oIndexType {oIndexType.ToString}")
                     If oIndexType > 4000 And oIndexType < 5000 Then
                         'Hier muss nun separat als Vektorfeld indexiert werden
-                        If Indexiere_VektorfeldPM(value, INDEXNAME, WMObject) = True Then
+                        If Indexiere_VektorfeldPM(ovalueString, INDEXNAME, WMObject) = True Then
                             LOGGER.Debug("FINALER INDEX '" & INDEXNAME.Replace("[%VKT", "") & "' WURDE ERFOLGREICH GESETZT")
                         Else
 
@@ -87,12 +89,13 @@ Public Class ClassFinalizeDoc
                         End If
                     Else
                         LOGGER.Debug("now indexing..")
-                        If Indexiere_File(INDEXNAME, result, WMObject) = True Then
+
+                        If WINDREAM_MOD.SetFileIndex(CURRENT_DOC_PATH, INDEXNAME, ovalueString, CURRENT_WMObjecttype) = True Then 'Indexiere_File(INDEXNAME, result, WMObject) = True Then
                             LOGGER.Debug("FINALER INDEX '" & INDEXNAME & "' WURDE ERFOLGREICH GESETZT")
                             LOGGER.Debug("")
                             'Nun das Logging
                             If CURRENT_PROFILE_LOG_INDEX <> "" Then
-                                Dim logstr = Return_LOGString(value, "DDFINALINDEX", INDEXNAME)
+                                Dim logstr = Return_LOGString(ovalueString, "DDFINALINDEX", INDEXNAME)
                                 Indexiere_VektorfeldPM(logstr, CURRENT_PROFILE_LOG_INDEX, WMObject)
                             End If
 
@@ -120,39 +123,73 @@ Public Class ClassFinalizeDoc
         End Try
     End Function
 
-    Private Shared Function Indexiere_File(idxxname As String, idxvalue As Object, WMObject As WINDREAMLib.WMObject)
+    Private Shared Function Indexiere_File(pIndexName As String, pIndexValues As Object, WMObject As WINDREAMLib.WMObject) As Boolean
-        Dim File_indexiert As Boolean = False
+        LOGGER.Debug("### Indexiere_File Begin ###")
+        Dim indexierung_erfolgreich As Boolean = False
+        Try
+            Dim oIndexType As Integer = WINDREAM_MOD.GetIndexType(pIndexName)
+            If oIndexType > 4095 Then
+                LOGGER.Debug("Es Handelt sich um einen VektorIndex...")
+                Dim oExistingItems = WINDREAM_MOD.GetIndexValue(CURRENT_DOC_PATH, pIndexName)
+
+                Dim oListofString As New List(Of String)
+                If pIndexValues.Length = 0 Then
+                    LOGGER.Debug("oSplitArray.Length = 0")
+                    oListofString.Add(pIndexValues(0))
+                Else
+                    LOGGER.Debug($"pIndexValues.Length is > 0 [{pIndexValues.length}] ...")
+                    For Each oStr In pIndexValues
+                        LOGGER.Debug("pIndexValues - oString : {0}", oStr)
+                        oListofString.Add(oStr)
+                    Next
+                End If
+
+                If oExistingItems.Count > 0 Then
+                    LOGGER.Debug("oOverwrite = False and WMObject already contains [{0}] values in attribute,Values will be concatted", oExistingItems.Count)
+                    oListofString = oExistingItems.Concat(oListofString).ToList()
+                End If
+                oListofString = oListofString.Distinct().ToList()
+                indexierung_erfolgreich = WINDREAM_MOD.SetFileIndexLoS(CURRENT_DOC_PATH, pIndexName, oListofString, CURRENT_WMObjecttype)
+            Else
+                Dim oStringValue As String = pIndexValues(0).ToString
+                indexierung_erfolgreich = WINDREAM_MOD.SetFileIndex(CURRENT_DOC_PATH, pIndexName, oStringValue, CURRENT_WMObjecttype)
+            End If
+            Return indexierung_erfolgreich
+        Catch ex As Exception
+            LOGGER.Warn("Unvorhergesehener Fehler bei Indexiere_File: " & ex.Message.ToString)
+            Return False
+        End Try
 
         ' Try
-        'Die Arrays vorbereiten
+        ''Die Arrays vorbereiten
-        Dim arrIndex() As String = Nothing
+        'Dim arrIndex() As String = Nothing
-        Dim arrValue() As String = Nothing
+        'Dim arrValue() As String = Nothing
-        arrIndex = Nothing
+        'arrIndex = Nothing
-        arrValue = Nothing
+        'arrValue = Nothing
-        'Den Indexnamen übergeben
+        ''Den Indexnamen übergeben
-        ReDim Preserve arrIndex(0)
+        'ReDim Preserve arrIndex(0)
-        arrIndex(0) = idxxname
+        'arrIndex(0) = idxxname
-        'Das Array der Idnexwerte überprüfen
+        ''Das Array der Idnexwerte überprüfen
-        If idxvalue Is Nothing = False Then
+        'If idxvalue Is Nothing = False Then
-            If idxvalue.Length() > 1 Then
+        '    If idxvalue.Length() > 1 Then
-                LOGGER.Debug("Indexing Index '" & idxxname & "' with Arrayvalue")
+        '        LOGGER.Debug("Indexing Index '" & idxxname & "' with Arrayvalue")
-                Dim anzahl As Integer = 0
+        '        Dim anzahl As Integer = 0
-                For Each indexvalue As String In idxvalue
+        '        For Each indexvalue As String In idxvalue
-                    ReDim Preserve arrValue(anzahl)
+        '            ReDim Preserve arrValue(anzahl)
-                    arrValue(anzahl) = indexvalue
+        '            arrValue(anzahl) = indexvalue
-                    anzahl += 1
+        '            anzahl += 1
-                Next
+        '        Next
-            Else
+        '    Else
-                LOGGER.Debug("Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'")
+        '        LOGGER.Debug("Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'")
-                ReDim Preserve arrValue(0)
+        '        ReDim Preserve arrValue(0)
-                arrValue(0) = idxvalue(0).ToString
+        '        arrValue(0) = idxvalue(0).ToString
-            End If
+        '    End If
-            'Dim _windreamPM As New ClassPMWindream
+        '    'Dim _windreamPM As New ClassPMWindream
-            'Jetzt das eigentliche Indexieren der Datei
+        '    'Jetzt das eigentliche Indexieren der Datei
-            File_indexiert = WINDREAM.RunIndexing(WMObject, arrIndex, arrValue)
+        'File_indexiert = WINDREAM.RunIndexing(WMObject, arrIndex, arrValue)
 
-            Return File_indexiert
+        'Return File_indexiert
-        End If
+        ' End If
 
         'Catch ex As Exception
         '    LOGGER.Info("Unvorhergesehener Fehler bei Indexiere_File: " & ex.Message.ToString, True)

app/TaskFlow/ClassIDBData.vb

@@ -138,6 +138,7 @@
             If IDB_USES_WMFILESTORE Then
                 oID_IS_FOREIGN = 1
             End If
+
             Dim oDELSQL = $"EXEC PRIDB_DELETE_TERM_OBJECT_METADATA {CURRENT_DOC_ID},'{oAttributeName}','{oTerm2Delete}','{USER_USERNAME}','{USER_LANGUAGE}',{oID_IS_FOREIGN}"
             DatabaseFallback.ExecuteNonQueryIDB(oDELSQL)
 
@@ -231,8 +232,9 @@
 
                 For Each oNewValueRow As DataRow In oDTMyNewValues.Rows
                     Dim oSuccess As Boolean = False
-
+                    Dim oVALUE = oNewValueRow.Item(1).ToString
-                    Dim oPRSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {CURRENT_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValueRow.Item(1).ToString}','{USER_LANGUAGE}',0,@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
+                    oVALUE = oVALUE.Replace("'", "''")
+                    Dim oPRSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {CURRENT_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oVALUE}','{USER_LANGUAGE}',0,@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
                     LOGGER.Debug(oPRSQL)
                     oSuccess = DatabaseFallback.ExecuteNonQueryIDB(oPRSQL)
                     If oSuccess = False Then
@@ -241,6 +243,7 @@
                 Next
                 Return True
             Else
+                'oNewValue = oNewValue.Replace("'", "' + NCHAR(39) + '")
                 Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {CURRENT_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValue}','{USER_LANGUAGE}',0,@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
                 LOGGER.Debug(oFNSQL)
                 Return DatabaseFallback.ExecuteNonQueryIDB(oFNSQL)

app/TaskFlow/ClassImageSelector.vb

@@ -1,6 +1,6 @@
 Imports System.ComponentModel
 Imports System.Drawing.Design
-Imports DD_ProcessManager.InputProperties
+Imports taskFLOW.InputProperties
 
 Public Class ClassImageSelector
     Inherits UITypeEditor

app/TaskFlow/ClassInit.vb

@@ -58,7 +58,7 @@ Public Class ClassInit
             End If
 
             CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, oUserAppDataPath, oCommonAppDataPath, oStartupPath)
-            LOGGER.Info("Config loaded")
+            LOGGER.Info("ConfigManager loaded")
             Try
                 If CONFIG.Config.ConnectionStringTest <> String.Empty And CONFIG.Config.TestMode = True Then
                     LOGGER.Debug("Test Connection String loaded")
@@ -208,6 +208,7 @@ Public Class ClassInit
         ' We initialize the Class in anycase.
         ' If there is no client, it will fall back to the db by itself
         DatabaseFallback = New DatabaseWithFallback(LOGCONFIG, _Client, Database_ECM, Database_IDB)
+
         If dbECMInitialized = True And CONNECTION_STRING_IDB = String.Empty Then
             Return True
         ElseIf dbECMInitialized = True And CONNECTION_STRING_IDB <> String.Empty Then
@@ -501,9 +502,7 @@ Public Class ClassInit
             BASEDATA_DT_GUI_LANGUAGE_PHRASES = DatabaseFallback.GetDatatable("TBDD_GUI_LANGUAGE_PHRASE", New GetDatatableOptions(oSql, DatabaseType.ECM))
             oStep = "TBPM_PROFILE_SEARCH"
             oSql = "select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX"
-            'BASEDATA_DT_PROFILES_SEARCHES_DOC = DataASorDB.GetDatatable("DD_ECM", oSql, "TBPM_PROFILE_SEARCH", "TYPE = 'DOC'", "PROFILE_ID,TAB_INDEX")
             BASEDATA_DT_PROFILES_SEARCHES_DOC = DatabaseFallback.GetDatatable("TBPM_PROFILE_SEARCH", New GetDatatableOptions(oSql, DatabaseType.ECM) With {
-                .FilterExpression = "TYPE = 'DOC'",
                 .SortByColumn = "PROFILE_ID,TAB_INDEX"
             })
             DT_FILTERED_PROFILE_SEARCHES_DOC = BASEDATA_DT_PROFILES_SEARCHES_DOC.Clone()
@@ -522,6 +521,10 @@ Public Class ClassInit
             oSql = "SELECT LANG_CODE FROM TBDD_GUI_LANGUAGE WHERE ACTIVE = 1 ORDER BY LANG_CODE"
 
             BASEDATA_DT_LANGUAGE = DatabaseFallback.GetDatatable("TBDD_GUI_LANGUAGE", New GetDatatableOptions(oSql, DatabaseType.ECM))
+
+            oSql = "SELECT * FROM TBDD_COLUMNS_FORMAT WHERE MODULE = 'taskFLOW' AND GRIDVIEW = 'GridViewWorkflows'"
+            BASEDATA_TBDD_COLUMNS_FORMAT = DatabaseFallback.GetDatatable("TBDD_COLUMNS_FORMAT", New GetDatatableOptions(oSql, DatabaseType.ECM))
+
             oStopWatch.Done()
         Catch ex As Exception
             LOGGER.Error(ex)

app/TaskFlow/ClassPMWindream.vb

@@ -152,20 +152,32 @@ Public Class ClassPMWindream
                                 'Den Typ des Index-Feldes auslesen
                                 'MsgBox(value.GetType.ToString)
                                 Select Case vType
-                                'Case WMObjectVariableValueTypeUndefined
                                     Case WMObjectVariableValueTypeString
                                         LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeString")
-                                        convertValue = CStr(value)
+                                        If value = "DeleteWMAttributeValue" Then
+                                            LOGGER.Debug("Indexing simpleAttribute with String.Empty")
+                                            convertValue = CStr(String.Empty)
+                                        Else
+                                            convertValue = CStr(value)
+                                        End If
+
                                     Case WMObjectVariableValueTypeInteger
                                         LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeInteger")
                                         If IsNumeric(value) = False Then
-                                            frmValidator.idxerr_message = "Unerlaubte Eingabe in Numerisches Feld: " & value
+                                            If value = String.Empty Then
-                                            LOGGER.Debug("Achtung: Value " & value & " kann nicht in Zahl konvertiert werden!")
+                                                LOGGER.Debug("Indexing WMObjectVariableValueTypeInteger with vbEmpty")
-                                            oDocument.Save()
+                                                convertValue = vbEmpty
-                                            oDocument.unlock()
+                                            Else
-                                            Return False
+                                                frmValidator.idxerr_message = "Unerlaubte Eingabe in Numerisches Feld: " & value
+                                                LOGGER.Debug("Achtung: Value " & value & " kann nicht in Zahl konvertiert werden!")
+                                                oDocument.Save()
+                                                oDocument.unlock()
+                                                Return False
+                                            End If
+                                        Else
+                                            convertValue = CInt(value)
                                         End If
-                                        convertValue = CInt(value)
+
                                         _int = True
                                     Case WMObjectVariableValueTypeInteger64bit
                                         LOGGER.Debug("Typ des windream-Indexes: Integer64bit")
@@ -181,7 +193,8 @@ Public Class ClassPMWindream
                                     Case WMObjectVariableValueTypeFloat
                                         LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFloat")
                                         Try
-                                            convertValue = CDbl(value)
+                                            value = Replace(value, ".", ",")
+                                            convertValue = Convert.ToDouble(value)
                                         Catch ex As Exception
                                             LOGGER.Error(ex)
                                             frmValidator.idxerr_message = "Could't convert value '" & value & "' to double!"
@@ -282,13 +295,8 @@ Public Class ClassPMWindream
                                             LOGGER.Info(" >> Unexpected Error in Logging SetVariableValue for " & aName & ": " & ex.Message, False)
                                         End Try
 
-                                        'Dim ArrValues()
+
-                                        'ReDim ArrValues(0)
+
-                                        'ArrValues(0) = convertValue
-                                        'Dim ArrName()
-                                        'ReDim ArrName(0)
-                                        'ArrName(0) = "Tournr"
-                                        'oDocument.SetValues(ArrName, ArrValues)
                                         If _int = True Then
                                             oDocument.SetVariableValue(aName, CInt(convertValue))
                                         ElseIf _date = True Then
@@ -307,114 +315,135 @@ Public Class ClassPMWindream
                                 Else
                                     'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST
                                     LOGGER.Debug("VEKTORFELD: Vorbereiten des Arrays", False)
-                                    Dim myArray()
+                                    If aValues(0).ToString.Contains("DeleteWMAttributeValue") Then
-                                    'Dim anz As Integer = 0
+                                        'Variante um Vektorfeld zu leeren
-                                    'For Each obj In aValues
+                                        Dim myArray()
-                                    'ReDim Preserve myArray(anz)
+                                        ReDim myArray(aValues.Length - 1)
-                                    Select Case vType
+                                        myArray(0) = String.Empty
-                                        Case 4100
+                                        LOGGER.Debug("Now Indexing vektor-attribute with String.Empty ...")
-                                            'Vektortyp Boolean
+                                        oDocument.SetVariableValue(aName, myArray)
-                                            'Umwandeln in Boolean
+                                    Else
-                                            'Die Größe des Arrays festlegen
+                                        Dim myArray()
-                                            ReDim myArray(aValues.Length - 1)
+                                        Select Case vType
-                                            Dim i1 As Integer = 0
+                                            Case 4100
-                                            'Das Array durchlaufen und Werte für den Index in Array schreiben
+                                                'Vektortyp Boolean
-                                            For Each obj In aValues
+                                                'Umwandeln in Boolean
-                                                Select Case obj.ToString.ToLower
+                                                'Die Größe des Arrays festlegen
-                                                    Case "falsch"
+                                                ReDim myArray(aValues.Length - 1)
-                                                        obj = False
+                                                Dim i1 As Integer = 0
-                                                    Case "wahr"
+                                                'Das Array durchlaufen und Werte für den Index in Array schreiben
-                                                        obj = True
+                                                For Each obj In aValues
-                                                    Case "nein"
+                                                    Select Case obj.ToString.ToLower
-                                                        obj = False
+                                                        Case "falsch"
-                                                    Case "ja"
+                                                            obj = False
-                                                        obj = True
+                                                        Case "wahr"
-                                                End Select
+                                                            obj = True
-                                                myArray(i1) = CBool(obj)
+                                                        Case "nein"
-                                                i1 = i1 + 1
+                                                            obj = False
-                                            Next
+                                                        Case "ja"
-                                        Case 4101
+                                                            obj = True
-                                            'Vektortyp Date
+                                                        Case "0"
-                                            'Umwandeln in String
+                                                            obj = False
-                                            'Die Größe des Arrays festlegen
+                                                        Case "1"
-                                            ReDim myArray(aValues.Length - 1)
+                                                            obj = True
-                                            Dim i1 As Integer = 0
+                                                    End Select
-                                            'Das Array durchlaufen und Werte für den Index in Array schreiben
+                                                    myArray(i1) = CBool(obj)
-                                            For Each obj In aValues
+                                                    i1 = i1 + 1
-                                                myArray(i1) = CDate(obj)
+                                                Next
-                                                i1 = i1 + 1
+                                            Case 4101
-                                            Next
+                                                'Vektortyp Date
-                                        Case 4104
+                                                'Umwandeln in String
-                                            'Vektortyp Currency
+                                                'Die Größe des Arrays festlegen
-                                            'Die Größe des Arrays festlegen
+                                                ReDim myArray(aValues.Length - 1)
-                                            ReDim myArray(aValues.Length - 1)
+                                                Dim i1 As Integer = 0
-                                            Dim i1 As Integer = 0
+                                                'Das Array durchlaufen und Werte für den Index in Array schreiben
-                                            'Das Array durchlaufen und Werte für den Index in Array schreiben
+                                                For Each obj In aValues
-                                            For Each obj In aValues
+                                                    myArray(i1) = CDate(obj)
-                                                Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(obj))
+                                                    i1 = i1 + 1
-                                                myArray(i1) = aValueWrapper
+                                                Next
-                                                i1 = i1 + 1
+                                            Case 4104
-                                            Next
+                                                'Vektortyp Currency
-                                        Case 4097
+                                                'Die Größe des Arrays festlegen
-                                            'Vektortyp ALPHANUMERISCH
+                                                ReDim myArray(aValues.Length - 1)
-                                            'Umwandeln in String
+                                                Dim i1 As Integer = 0
-                                            'Die Größe des Arrays festlegen
+                                                'Das Array durchlaufen und Werte für den Index in Array schreiben
-                                            ReDim myArray(aValues.Length - 1)
+                                                For Each obj In aValues
-                                            Dim i1 As Integer = 0
+                                                    Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(obj))
-                                            'Das Array durchlaufen und Werte für den Index in Array schreiben
+                                                    myArray(i1) = aValueWrapper
-                                            For Each obj In aValues
+                                                    i1 = i1 + 1
-                                                myArray(i1) = CStr(obj)
+                                                Next
-                                                i1 = i1 + 1
+                                            Case 4097
-                                            Next
+                                                'Vektortyp ALPHANUMERISCH
+                                                'Umwandeln in String
+                                                'Die Größe des Arrays festlegen
+                                                ReDim myArray(aValues.Length - 1)
+                                                Dim i1 As Integer = 0
+                                                'Das Array durchlaufen und Werte für den Index in Array schreiben
+                                                For Each obj In aValues
+                                                    myArray(i1) = CStr(obj)
+                                                    i1 = i1 + 1
+                                                Next
 
-                                        Case 4098
+                                            Case 4098
-                                            'Umwandeln in Integer
+                                                'Umwandeln in Integer
-                                            'Die Größe des Arrays festlegen
+                                                'Die Größe des Arrays festlegen
-                                            ReDim myArray(aValues.Length - 1)
+                                                ReDim myArray(aValues.Length - 1)
-                                            Dim i1 As Integer = 0
+                                                Dim i1 As Integer = 0
-                                            'Das Array durchlaufen und Werte für den Index in Array schreiben
+                                                'Das Array durchlaufen und Werte für den Index in Array schreiben
-                                            For Each obj In aValues
+                                                For Each obj In aValues
-                                                myArray(i1) = CInt(obj)
+                                                    myArray(i1) = CInt(obj)
-                                                i1 = i1 + 1
+                                                    i1 = i1 + 1
-                                            Next
+                                                Next
-                                        Case 4099
+                                            Case 4099
-                                            'Umwandeln in Double
+                                                'Umwandeln in Double
-                                            'Die Größe des Arrays festlegen
+                                                'Die Größe des Arrays festlegen
-                                            ReDim myArray(aValues.Length - 1)
+                                                ReDim myArray(aValues.Length - 1)
-                                            Dim i1 As Integer = 0
+                                                Dim i1 As Integer = 0
-                                            'Das Array durchlaufen und Werte für den Index in Array schreiben
+                                                'Das Array durchlaufen und Werte für den Index in Array schreiben
-                                            For Each obj In aValues
+                                                For Each obj In aValues
-                                                Dim Str As String = obj
+                                                    Dim Str As String = obj
-                                                myArray(i1) = CDbl(Str.Replace(".", ","))
+                                                    myArray(i1) = CDbl(Str.Replace(".", ","))
-                                                i1 = i1 + 1
+                                                    i1 = i1 + 1
-                                            Next
+                                                Next
 
-                                        Case 36865
+                                            Case 36865
-                                            'Umwandeln in String
+                                                'Umwandeln in String
-                                            'Die Größe des Arrays festlegen
+                                                'Die Größe des Arrays festlegen
-                                            ReDim myArray(aValues.Length - 1)
+                                                ReDim myArray(aValues.Length - 1)
-                                            Dim i1 As Integer = 0
+                                                Dim i1 As Integer = 0
-                                            'Das Array durchlaufen und Werte für den Index in Array schreiben
+                                                'Das Array durchlaufen und Werte für den Index in Array schreiben
-                                            For Each obj In aValues
+                                                For Each obj In aValues
-                                                myArray(i1) = CStr(obj)
+                                                    myArray(i1) = CStr(obj)
-                                                i1 = i1 + 1
+                                                    i1 = i1 + 1
-                                            Next
+                                                Next
-                                        Case Else
+                                            Case Else
-                                            'Umwandeln in String
+                                                'Umwandeln in String
-                                            'Die Größe des Arrays festlegen
+                                                'Die Größe des Arrays festlegen
-                                            ReDim myArray(aValues.Length - 1)
+                                                ReDim myArray(aValues.Length - 1)
-                                            Dim i1 As Integer = 0
+                                                Dim i1 As Integer = 0
-                                            'Das Array durchlaufen und Werte für den Index in Array schreiben
+                                                'Das Array durchlaufen und Werte für den Index in Array schreiben
-                                            For Each obj In aValues
+                                                For Each obj In aValues
-                                                myArray(i1) = CStr(obj)
+                                                    myArray(i1) = CStr(obj)
-                                                i1 = i1 + 1
+                                                    i1 = i1 + 1
-                                            Next
+                                                Next
-                                    End Select
+                                        End Select
+                                        'Jetzt die Nachindexierung für Vektor-Felder
+                                        LOGGER.Debug("Wert für Index vor Indexierung: [{0}]", myArray)
+
+                                        'If vType = 4097 Or vType = 36865 Then
+                                        '    If myArray(0) = "DeleteWMAttributeValue" Then
+                                        '        'Variante um Vektorfeld zu leeren
+                                        '        LOGGER.Debug("Now Indexing vektor-attribute with vbEmpty ...")
+                                        '        oDocument.SetVariableValue(aName, vbEmpty)
+                                        '    Else
+                                        '        oDocument.SetVariableValue(aName, myArray)
+                                        '    End If
+                                        'Else
+                                        oDocument.SetVariableValue(aName, myArray)
+                                        'End If
+                                    End If
 
-                                    LOGGER.Debug("Wert für Index vor Indexierung: [{0}]", myArray)
 
-                                    'Jetzt die Nachindexierung für Vektor-Felder
-                                    oDocument.SetVariableValue(aName, myArray)
                                     LOGGER.Debug("'SetVariableValue' für VEKTOR erfolgreich", False)
                                 End If
                             End If

app/TaskFlow/ClassParamRefresh.vb

@@ -62,7 +62,7 @@ Public Class ClassParamRefresh
                     LOGGER.Debug($"FORCE_LAYOUT_OVERVIEW [{FORCE_LAYOUT_OVERVIEW}]")
                 ElseIf oMode = "PM.NO_MASS_VALIDATOR" Then
                     SHOW_MASS_VALIDATOR = False
-                    LOGGER.Debug($"SHOW_MASS_VALIDATOR [{SHOW_MASS_VALIDATOR}]")
+                    LOGGER.Info($"SHOW_MASS_VALIDATOR [{SHOW_MASS_VALIDATOR}]")
                 ElseIf oMode = "PM.NO_CHARTS" Then
                     SHOW_CHARTS = False
                     LOGGER.Debug($"SHOW_CHARTS [{SHOW_CHARTS}]")
@@ -79,7 +79,7 @@ Public Class ClassParamRefresh
                     IDB_USES_WMFILESTORE = True
                 ElseIf oMode = "PM.NO_BASICCONF" Then
                     BASIC_CONF_VISIBLE = False
-                    LOGGER.Debug($"BASIC_CONF_VISIBLE [{BASIC_CONF_VISIBLE}]")
+                    LOGGER.Info($"BASIC_CONF_VISIBLE [{BASIC_CONF_VISIBLE}]")
                 ElseIf oMode = "PM.SYS_LOCKED_MAINTENANCE" Then
                     SYS_LOCKED_MAINTENANCE = True
                 ElseIf oMode.StartsWith("PM.IDB_CONID!") Then
@@ -104,13 +104,13 @@ Public Class ClassParamRefresh
                     End If
                 ElseIf oMode = "PM.EXCEL_OVERVIEW" Then
                     EXCEL_OVERVIEW = True
-                    LOGGER.Debug($"EXCEL_OVERVIEW [{EXCEL_OVERVIEW}]")
+                    LOGGER.Info($"EXCEL_OVERVIEW [{EXCEL_OVERVIEW}]")
                 ElseIf oMode = "PM.MONITORING" Then
                     MONITORING_ACTIVE = True
                     LOGGER.Debug($"MONITORING_ACTIVE [{MONITORING_ACTIVE}]")
                 ElseIf oMode = "PM.GHOSTMODE" Then
                     GHOSTMODE_ACTIVE = True
-                    LOGGER.Debug($"GHOSTMODE_ACTIVE [{GHOSTMODE_ACTIVE}]")
+                    LOGGER.Info($"GHOSTMODE_ACTIVE [{GHOSTMODE_ACTIVE}]")
                 ElseIf oMode.StartsWith("PM.COLORSCHEME") Then
                     Dim oColorScheme = oMode.Replace("PM.COLORSCHEME=", "")
                     RIBBON_COLOR_SCHEME = oColorScheme.ToUpper
@@ -158,6 +158,24 @@ Public Class ClassParamRefresh
                     Catch ex As Exception
                         LAST_ADDED_COLUMN = ""
 
+                    End Try
+                ElseIf oMode.StartsWith("PM.MON_COL_CHANGED_WHEN") Then
+                    Dim oLEDITEDCOL = oMode.Replace("PM.MON_COL_CHANGED_WHEN=", "")
+                    Try
+                        MON_EDITED_COLUMN = oLEDITEDCOL
+                        LOGGER.Debug($"MON_EDITED_COLUMN: {oLEDITEDCOL}")
+                    Catch ex As Exception
+
+
+                    End Try
+                ElseIf oMode.StartsWith("PM.MON_COL_ADDED_WHEN") Then
+                    Dim oLEDITEDCOL = oMode.Replace("PM.MON_COL_ADDED_WHEN=", "")
+                    Try
+                        MON_ADDED_COLUMN = oLEDITEDCOL
+                        LOGGER.Debug($"MON_COL_ADDED_WHEN: {oLEDITEDCOL}")
+                    Catch ex As Exception
+
+
                     End Try
                 ElseIf oMode.StartsWith("PM.USE_APPSERVER") Then
                     Dim oUSE_APPSERVER = oMode.Replace("PM.USE_APPSERVER=", "")

app/TaskFlow/ClassRegexEditor.vb

@@ -12,7 +12,7 @@ Public Class ClassRegexEditor
 
     Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object
         Dim oService As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService)
-        Dim oRegexString As String = NotNull(value, String.Empty)
+        Dim oRegexString As String = ClassAllgemeineFunktionen.NotNullString(value, String.Empty)
 
         If oService IsNot Nothing Then
             Using oform As New frmRegexEditor()

app/TaskFlow/ClassSQLEditor.vb

@@ -1,7 +1,7 @@
 Imports System.ComponentModel
 Imports System.Drawing.Design
 Imports System.Windows.Forms.Design
-Imports DD_ProcessManager.InputProperties
+Imports taskFLOW.InputProperties
 Imports DigitalData.GUIs.Common
 
 Public Class ClassSQLEditor
@@ -16,26 +16,34 @@ Public Class ClassSQLEditor
 
         Dim oValueObject = DirectCast(value, SQLValue)
         Dim oSQLString As String = oValueObject.Value
-        Dim oSQLConnection As Integer = oValueObject.ConnectionId
+        'Dim oSQLConnection As Integer = oValueObject.ConnectionId
 
         If oService IsNot Nothing AndAlso oSQLString IsNot Nothing Then
             'CURRENT_DESIGN_TYPE = "INPUT_INDEX"
             Using oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM)
                 oForm.SQLCommand = oSQLString
-                oForm.SQLConnection = oSQLConnection
+                oForm.SQLConnection = 0 'oSQLConnection
 
                 oForm.PlaceholdersManualPrefix = "CTRL"
                 oForm.PlaceholdersManualTitle = "Controls"
                 oForm.PlaceholdersManual = CURRENT_CONTROL_NAME_LIST.
                     ToDictionary(Function(name) name, Function(name) name)
 
+                If IDB_ACTIVE = False Then
+                    oForm.ATTRIBUTE_STORE = "WM"
+                    oForm.PlaceholdersWindream = MVSource_AllIndicies
+                Else
+                    oForm.ATTRIBUTE_STORE = "IDB"
+                End If
                 If oService.ShowDialog(oForm) = DialogResult.OK Then
-                    Dim sql As New SQLValue(oForm.SQLCommand, oForm.SQLConnection)
+                    Dim sql As New SQLValue(oForm.SQLCommand) ', oForm.SQLConnection
                     ' CURRENT_CONN_ID_FINAL_INDEX = oForm.SQLConnection
                     ' CURRENT_CONN_ID = oForm.SQLConnection
                     value = sql
                 End If
+
             End Using
+
         End If
 
         Return value

app/TaskFlow/ClassSQLValue.vb

@@ -7,18 +7,18 @@ Imports System.Drawing.Design
 <TypeConverter(GetType(SQLTypeConverter))>
 Public Class SQLValue
     Public Property Value As String
-    Public Property ConnectionId As Integer
+    'Public Property ConnectionId As Integer
 
     Public Sub New()
         Value = ""
     End Sub
 
-    Public Sub New(value As String)
+    'Public Sub New(value As String)
-        Me.Value = value
+    '    Me.Value = value
-    End Sub
+    'End Sub
 
-    Public Sub New(pValue As String, pConnectionId As Integer)
+    Public Sub New(pValue As String) ', pConnectionId As Integer)
         Value = pValue
-        ConnectionId = pConnectionId
+        ' ConnectionId = pConnectionId
     End Sub
 End Class

app/TaskFlow/ClassWindream_allgemein.vb

@@ -359,13 +359,14 @@ LOGGER.Error(ex)
             Dim indexnamen() As String = Me.GetIndicesByObjecttype(objekttyp)
 
             If indexnamen Is Nothing Then Return False
+            MVSource_AllIndicies = MyIndicies
 
             For Each index As String In indexnamen
                 If index = indexname Then Return True
             Next
 
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
             MsgBox("Beim Prüfen ob ein Index für einen Objekttypen existiert, ist ein Fehler aufgetreten." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Prüfen auf Existenz eines Index in einem Objekttyp")
         End Try
 

app/TaskFlow/ControlCreator/GridControl.vb

@@ -144,8 +144,16 @@ Namespace ControlCreator
                 Return oEditor
             End If
         End Function
+        ' Hilfsroutine: passt NUR das Summary-Item an (ohne FormatInfo)
+        Private Sub ApplyCurrencySummaryFormat(oCol As GridColumn, currencySymbol As String)
+            oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Sum
+            ' Variante A: Standard-Währungsformat aus aktueller Kultur
+            ' oCol.SummaryItem.DisplayFormat = "SUM: {0:C2}"
 
-        Public Sub ConfigureViewColumns(pColumnTable As DataTable, pGridView As GridView, pGrid As DevExpress.XtraGrid.GridControl)
+            ' Variante B: Kulturunabhängig, Symbol explizit anhängen
+            oCol.SummaryItem.DisplayFormat = $"SUM: {{0:N2}} {currencySymbol}"
+        End Sub
+        Public Sub ConfigureViewColumns(pColumnTable As DataTable, pGridView As GridView, pGrid As DevExpress.XtraGrid.GridControl, pcurrencySymbol As String)
             Dim oShouldDisplayFooter As Boolean = False
 
 
@@ -192,8 +200,7 @@ Namespace ControlCreator
                         oShouldDisplayFooter = True
 
                     Case Constants.AGGREGATE_TOTAL_CURRENCY
-                        oCol.SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Sum
+                        ApplyCurrencySummaryFormat(oCol, pcurrencySymbol)
-                        oCol.SummaryItem.DisplayFormat = "SUM: {0:C2}"
                         oShouldDisplayFooter = True
 
                     Case Constants.AGGREGATE_TOTAL_AVG

app/TaskFlow/DD_DMSLiteDataSet.Designer.vb

@@ -16518,7 +16518,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -17054,7 +17054,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -17609,7 +17609,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -18114,7 +18114,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -18516,7 +18516,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -18937,7 +18937,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -19414,7 +19414,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -19707,7 +19707,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -20072,7 +20072,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -20413,7 +20413,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -21484,7 +21484,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -22148,7 +22148,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -22339,7 +22339,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -22622,7 +22622,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -22846,7 +22846,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -23236,7 +23236,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -23620,7 +23620,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -23797,7 +23797,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -23974,7 +23974,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -24327,7 +24327,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

app/TaskFlow/DD_DMSLiteDataSet.xsd

@@ -4,7 +4,7 @@
     <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="MySettings" AppSettingsPropertyName="ConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="ConnectionString (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DD_ProcessManager.My.MySettings.GlobalReference.Default.ConnectionString" Provider="System.Data.SqlClient" />
+          <Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="ConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="ConnectionString (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.taskFLOW.My.MySettings.GlobalReference.Default.ConnectionString" Provider="System.Data.SqlClient" />
         </Connections>
         <Tables>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBPM_PROFILE_FINAL_INDEXINGTableAdapter" GeneratorDataComponentClassName="TBPM_PROFILE_FINAL_INDEXINGTableAdapter" Name="TBPM_PROFILE_FINAL_INDEXING" UserDataComponentName="TBPM_PROFILE_FINAL_INDEXINGTableAdapter">
@@ -3355,9 +3355,9 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME
   </xs:element>
   <xs:annotation>
     <xs:appinfo>
-      <msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL1" msdata:parent="TBPM_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserParentTable="TBPM_PROFILE_CONTROLS" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_ParentPropName="TBPM_PROFILE_CONTROLSRow" />
+      <msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL1" msdata:parent="TBPM_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserParentTable="TBPM_PROFILE_CONTROLS" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_ParentPropName="TBPM_PROFILE_CONTROLSRow" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL1" />
-      <msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL" msdata:parent="TBWH_CHECK_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserParentTable="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_ParentPropName="TBWH_CHECK_PROFILE_CONTROLSRow" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL" />
+      <msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL" msdata:parent="TBWH_CHECK_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserParentTable="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_ParentPropName="TBWH_CHECK_PROFILE_CONTROLSRow" />
-      <msdata:Relationship name="FK_TBPM_PROFILE_CONTROLS_PROFILE" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_PROFILE_CONTROLS" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserParentTable="TBPM_PROFILE" msprop:Generator_UserChildTable="TBPM_PROFILE_CONTROLS" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_CONTROLS_PROFILE" msprop:Generator_ChildPropName="GetTBPM_PROFILE_CONTROLSRows" msprop:Generator_ParentPropName="TBPM_PROFILERow" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_CONTROLS_PROFILE" />
+      <msdata:Relationship name="FK_TBPM_PROFILE_CONTROLS_PROFILE" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_PROFILE_CONTROLS" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserParentTable="TBPM_PROFILE" msprop:Generator_UserChildTable="TBPM_PROFILE_CONTROLS" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_CONTROLS_PROFILE" msprop:Generator_ChildPropName="GetTBPM_PROFILE_CONTROLSRows" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_CONTROLS_PROFILE" msprop:Generator_ParentPropName="TBPM_PROFILERow" />
     </xs:appinfo>
   </xs:annotation>
 </xs:schema>

app/TaskFlow/FinalIndexDataSet.Designer.vb

@@ -1213,7 +1213,7 @@ Namespace FinalIndexDataSetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString
+            Me._connection.ConnectionString = Global.taskFLOW.My.MySettings.Default.ConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

app/TaskFlow/FinalIndexDataSet.xsd

@@ -4,7 +4,7 @@
     <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="MySettings" AppSettingsPropertyName="ConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="ConnectionString (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DD_ProcessManager.My.MySettings.GlobalReference.Default.ConnectionString" Provider="System.Data.SqlClient" />
+          <Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="ConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="ConnectionString (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.taskFLOW.My.MySettings.GlobalReference.Default.ConnectionString" Provider="System.Data.SqlClient" />
         </Connections>
         <Tables>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBPM_PROFILE_FINAL_INDEXINGTableAdapter" GeneratorDataComponentClassName="TBPM_PROFILE_FINAL_INDEXINGTableAdapter" Name="TBPM_PROFILE_FINAL_INDEXING" UserDataComponentName="TBPM_PROFILE_FINAL_INDEXINGTableAdapter">
@@ -66,71 +66,71 @@ WHERE        (GUID = @guid)</CommandText>
       </DataSource>
     </xs:appinfo>
   </xs:annotation>
-  <xs:element name="FinalIndexDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="FinalIndexDataSet" msprop:Generator_UserDSName="FinalIndexDataSet">
+  <xs:element name="FinalIndexDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_UserDSName="FinalIndexDataSet" msprop:Generator_DataSetName="FinalIndexDataSet">
     <xs:complexType>
       <xs:choice minOccurs="0" maxOccurs="unbounded">
-        <xs:element name="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_TableClassName="TBPM_PROFILE_FINAL_INDEXINGDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowChangedName="TBPM_PROFILE_FINAL_INDEXINGRowChanged" msprop:Generator_TablePropName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowDeletingName="TBPM_PROFILE_FINAL_INDEXINGRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_FINAL_INDEXINGRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_FINAL_INDEXINGRowDeleted" msprop:Generator_RowClassName="TBPM_PROFILE_FINAL_INDEXINGRow" msprop:Generator_UserTableName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowEvArgName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent">
+        <xs:element name="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_FINAL_INDEXINGRowDeleted" msprop:Generator_RowDeletingName="TBPM_PROFILE_FINAL_INDEXINGRowDeleting" msprop:Generator_RowEvArgName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent" msprop:Generator_TablePropName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowChangedName="TBPM_PROFILE_FINAL_INDEXINGRowChanged" msprop:Generator_RowChangingName="TBPM_PROFILE_FINAL_INDEXINGRowChanging" msprop:Generator_TableClassName="TBPM_PROFILE_FINAL_INDEXINGDataTable" msprop:Generator_RowClassName="TBPM_PROFILE_FINAL_INDEXINGRow" msprop:Generator_TableVarName="tableTBPM_PROFILE_FINAL_INDEXING" msprop:Generator_UserTableName="TBPM_PROFILE_FINAL_INDEXING">
           <xs:complexType>
             <xs:sequence>
-              <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
+              <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_UserColumnName="GUID" type="xs:int" />
-              <xs:element name="PROFIL_ID" msprop:Generator_ColumnVarNameInTable="columnPROFIL_ID" msprop:Generator_ColumnPropNameInRow="PROFIL_ID" msprop:Generator_ColumnPropNameInTable="PROFIL_IDColumn" msprop:Generator_UserColumnName="PROFIL_ID" type="xs:int" />
+              <xs:element name="PROFIL_ID" msprop:Generator_ColumnPropNameInRow="PROFIL_ID" msprop:Generator_ColumnPropNameInTable="PROFIL_IDColumn" msprop:Generator_ColumnVarNameInTable="columnPROFIL_ID" msprop:Generator_UserColumnName="PROFIL_ID" type="xs:int" />
-              <xs:element name="CONNECTION_ID" msprop:Generator_ColumnVarNameInTable="columnCONNECTION_ID" msprop:Generator_ColumnPropNameInRow="CONNECTION_ID" msprop:Generator_ColumnPropNameInTable="CONNECTION_IDColumn" msprop:Generator_UserColumnName="CONNECTION_ID" type="xs:short" />
+              <xs:element name="CONNECTION_ID" msprop:Generator_ColumnPropNameInRow="CONNECTION_ID" msprop:Generator_ColumnPropNameInTable="CONNECTION_IDColumn" msprop:Generator_ColumnVarNameInTable="columnCONNECTION_ID" msprop:Generator_UserColumnName="CONNECTION_ID" type="xs:short" />
-              <xs:element name="SQL_COMMAND" msprop:Generator_ColumnVarNameInTable="columnSQL_COMMAND" msprop:Generator_ColumnPropNameInRow="SQL_COMMAND" msprop:Generator_ColumnPropNameInTable="SQL_COMMANDColumn" msprop:Generator_UserColumnName="SQL_COMMAND">
+              <xs:element name="SQL_COMMAND" msprop:Generator_ColumnPropNameInRow="SQL_COMMAND" msprop:Generator_ColumnPropNameInTable="SQL_COMMANDColumn" msprop:Generator_ColumnVarNameInTable="columnSQL_COMMAND" msprop:Generator_UserColumnName="SQL_COMMAND">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
                     <xs:maxLength value="2147483647" />
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
-              <xs:element name="INDEXNAME" msprop:Generator_ColumnVarNameInTable="columnINDEXNAME" msprop:Generator_ColumnPropNameInRow="INDEXNAME" msprop:Generator_ColumnPropNameInTable="INDEXNAMEColumn" msprop:Generator_UserColumnName="INDEXNAME">
+              <xs:element name="INDEXNAME" msprop:Generator_ColumnPropNameInRow="INDEXNAME" msprop:Generator_ColumnPropNameInTable="INDEXNAMEColumn" msprop:Generator_ColumnVarNameInTable="columnINDEXNAME" msprop:Generator_UserColumnName="INDEXNAME">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
                     <xs:maxLength value="100" />
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
-              <xs:element name="VALUE" msprop:Generator_ColumnVarNameInTable="columnVALUE" msprop:Generator_ColumnPropNameInRow="VALUE" msprop:Generator_ColumnPropNameInTable="VALUEColumn" msprop:Generator_UserColumnName="VALUE">
+              <xs:element name="VALUE" msprop:Generator_ColumnPropNameInRow="VALUE" msprop:Generator_ColumnPropNameInTable="VALUEColumn" msprop:Generator_ColumnVarNameInTable="columnVALUE" msprop:Generator_UserColumnName="VALUE">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
                     <xs:maxLength value="100" />
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
-              <xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO">
+              <xs:element name="ADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_UserColumnName="ADDED_WHO">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
                     <xs:maxLength value="30" />
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
-              <xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" />
+              <xs:element name="ADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" />
-              <xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
+              <xs:element name="CHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
                     <xs:maxLength value="30" />
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
-              <xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
+              <xs:element name="CHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
-              <xs:element name="DESCRIPTION" msprop:Generator_ColumnVarNameInTable="columnDESCRIPTION" msprop:Generator_ColumnPropNameInRow="DESCRIPTION" msprop:Generator_ColumnPropNameInTable="DESCRIPTIONColumn" msprop:Generator_UserColumnName="DESCRIPTION">
+              <xs:element name="DESCRIPTION" msprop:Generator_ColumnPropNameInRow="DESCRIPTION" msprop:Generator_ColumnPropNameInTable="DESCRIPTIONColumn" msprop:Generator_ColumnVarNameInTable="columnDESCRIPTION" msprop:Generator_UserColumnName="DESCRIPTION">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
                     <xs:maxLength value="2147483647" />
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
-              <xs:element name="ACTIVE" msprop:Generator_ColumnVarNameInTable="columnACTIVE" msprop:Generator_ColumnPropNameInRow="ACTIVE" msprop:Generator_ColumnPropNameInTable="ACTIVEColumn" msprop:Generator_UserColumnName="ACTIVE" type="xs:boolean" />
+              <xs:element name="ACTIVE" msprop:Generator_ColumnPropNameInRow="ACTIVE" msprop:Generator_ColumnPropNameInTable="ACTIVEColumn" msprop:Generator_ColumnVarNameInTable="columnACTIVE" msprop:Generator_UserColumnName="ACTIVE" type="xs:boolean" />
-              <xs:element name="PREVENT_DUPLICATES" msprop:Generator_ColumnVarNameInTable="columnPREVENT_DUPLICATES" msprop:Generator_ColumnPropNameInRow="PREVENT_DUPLICATES" msprop:Generator_ColumnPropNameInTable="PREVENT_DUPLICATESColumn" msprop:Generator_UserColumnName="PREVENT_DUPLICATES" type="xs:boolean" />
+              <xs:element name="PREVENT_DUPLICATES" msprop:Generator_ColumnPropNameInRow="PREVENT_DUPLICATES" msprop:Generator_ColumnPropNameInTable="PREVENT_DUPLICATESColumn" msprop:Generator_ColumnVarNameInTable="columnPREVENT_DUPLICATES" msprop:Generator_UserColumnName="PREVENT_DUPLICATES" type="xs:boolean" />
-              <xs:element name="ALLOW_NEW_VALUES" msprop:Generator_ColumnVarNameInTable="columnALLOW_NEW_VALUES" msprop:Generator_ColumnPropNameInRow="ALLOW_NEW_VALUES" msprop:Generator_ColumnPropNameInTable="ALLOW_NEW_VALUESColumn" msprop:Generator_UserColumnName="ALLOW_NEW_VALUES" type="xs:boolean" />
+              <xs:element name="ALLOW_NEW_VALUES" msprop:Generator_ColumnPropNameInRow="ALLOW_NEW_VALUES" msprop:Generator_ColumnPropNameInTable="ALLOW_NEW_VALUESColumn" msprop:Generator_ColumnVarNameInTable="columnALLOW_NEW_VALUES" msprop:Generator_UserColumnName="ALLOW_NEW_VALUES" type="xs:boolean" />
-              <xs:element name="IF_VEKTOR_BEHAVIOUR" msprop:Generator_ColumnVarNameInTable="columnIF_VEKTOR_BEHAVIOUR" msprop:Generator_ColumnPropNameInRow="IF_VEKTOR_BEHAVIOUR" msprop:Generator_ColumnPropNameInTable="IF_VEKTOR_BEHAVIOURColumn" msprop:Generator_UserColumnName="IF_VEKTOR_BEHAVIOUR">
+              <xs:element name="IF_VEKTOR_BEHAVIOUR" msprop:Generator_ColumnPropNameInRow="IF_VEKTOR_BEHAVIOUR" msprop:Generator_ColumnPropNameInTable="IF_VEKTOR_BEHAVIOURColumn" msprop:Generator_ColumnVarNameInTable="columnIF_VEKTOR_BEHAVIOUR" msprop:Generator_UserColumnName="IF_VEKTOR_BEHAVIOUR">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
                     <xs:maxLength value="25" />
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
-              <xs:element name="SEQUENCE" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_UserColumnName="SEQUENCE" type="xs:unsignedByte" default="0" />
+              <xs:element name="SEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_UserColumnName="SEQUENCE" type="xs:unsignedByte" default="0" />
-              <xs:element name="CONTINUE_INDETERMINED" msprop:Generator_ColumnVarNameInTable="columnCONTINUE_INDETERMINED" msprop:Generator_ColumnPropNameInRow="CONTINUE_INDETERMINED" msprop:Generator_ColumnPropNameInTable="CONTINUE_INDETERMINEDColumn" msprop:Generator_UserColumnName="CONTINUE_INDETERMINED" type="xs:boolean" />
+              <xs:element name="CONTINUE_INDETERMINED" msprop:Generator_ColumnPropNameInRow="CONTINUE_INDETERMINED" msprop:Generator_ColumnPropNameInTable="CONTINUE_INDETERMINEDColumn" msprop:Generator_ColumnVarNameInTable="columnCONTINUE_INDETERMINED" msprop:Generator_UserColumnName="CONTINUE_INDETERMINED" type="xs:boolean" />
             </xs:sequence>
           </xs:complexType>
         </xs:element>

app/TaskFlow/FinalIndexDataSet.xss

@@ -4,7 +4,7 @@
      Changes to this file may cause incorrect behavior and will be lost if
      the code is regenerated.
 </autogenerated>-->
-<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="0" ViewPortY="0" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+<DiagramLayout xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ex:showrelationlabel="False" ViewPortX="0" ViewPortY="0" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
   <Shapes>
     <Shape ID="DesignTable:TBPM_PROFILE_FINAL_INDEXING" ZOrder="1" X="93" Y="35" Height="362" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
   </Shapes>

app/TaskFlow/ModuleControlProperties.vb

@@ -84,7 +84,7 @@ Public Module ModuleControlProperties
 
         Private _index_type As String
         Private _sql_command As String
-        Friend _sql_connection As Integer = 0
+        'Friend _sql_connection As Integer = 0
         Private _Enable_SQL As String
         Private _Enable_SQL_ONLOAD As String
         Private _default_value
@@ -124,36 +124,37 @@ Public Module ModuleControlProperties
         <Category(ClassConstants.CAT_DATA)>
         Public Property SQLCommand() As SQLValue
             Get
-                Return New SQLValue(NotNull(_sql_command, ""), _sql_connection)
+                Return New SQLValue(ClassAllgemeineFunktionen.NotNullString(_sql_command, "")) ', _sql_connection
             End Get
             Set(ByVal value As SQLValue)
                 _sql_command = value.Value
-                SQLConnection = value.ConnectionId
+                'SQLConnection = value.ConnectionId
+
             End Set
         End Property
 
-        <DisplayName("SQL Connection")>
+        '<DisplayName("SQL Connection")>
-        <Category(ClassConstants.CAT_INFORMATION)>
+        '<Category(ClassConstants.CAT_INFORMATION)>
-        <[ReadOnly](True)>
+        '<[ReadOnly](True)>
-        Public Property SQLConnection() As Integer
+        'Public Property SQLConnection() As Integer
-            Get
+        '    Get
-                Return _sql_connection
+        '        Return _sql_connection
-            End Get
+        '    End Get
-            Set(value As Integer)
+        '    Set(value As Integer)
-                _sql_connection = value
+        '        _sql_connection = value
-            End Set
+        '    End Set
-        End Property
+        'End Property
 
         <DisplayName("Enable On Change SQL")>
         <Description("SQL Command that determines if a control should be enabled/disabled when another, referenced control changes. Should return 0 or 1. Can include a Control-Placeholder.")>
         <Category(ClassConstants.CAT_BEHAVIOUR)>
         Public Property Enable_SQL() As SQLValue
             Get
-                Return New SQLValue(NotNull(_Enable_SQL, ""), _sql_connection)
+                Return New SQLValue(ClassAllgemeineFunktionen.NotNullString(_Enable_SQL, "")) ', _sql_connection
             End Get
             Set(ByVal value As SQLValue)
                 _Enable_SQL = value.Value
-                SQLConnection = value.ConnectionId
+                'SQLConnection = value.ConnectionId
             End Set
         End Property
 
@@ -162,11 +163,11 @@ Public Module ModuleControlProperties
         <Category(ClassConstants.CAT_BEHAVIOUR)>
         Public Property Enable_SQL_OnLoad() As SQLValue
             Get
-                Return New SQLValue(NotNull(_Enable_SQL_ONLOAD, ""), _sql_connection)
+                Return New SQLValue(ClassAllgemeineFunktionen.NotNullString(_Enable_SQL_ONLOAD, "")) ', _sql_connection
             End Get
             Set(ByVal value As SQLValue)
                 _Enable_SQL_ONLOAD = value.Value
-                SQLConnection = value.ConnectionId
+                'SQLConnection = value.ConnectionId
             End Set
         End Property
 
@@ -189,11 +190,11 @@ Public Module ModuleControlProperties
         <Category(ClassConstants.CAT_BEHAVIOUR)>
         Public Property SetControlData As SQLValue
             Get
-                Return New SQLValue(_set_control_data, _sql_connection)
+                Return New SQLValue(_set_control_data) ', _sql_connection
             End Get
             Set(value As SQLValue)
                 _set_control_data = value.Value
-                SQLConnection = value.ConnectionId
+                'SQLConnection = value.ConnectionId
             End Set
         End Property
     End Class
@@ -334,7 +335,7 @@ Public Module ModuleControlProperties
         <Category(ClassConstants.CAT_DISPLAY)>
         Public Property CtrlImage() As ImageValue
             Get
-                Return New ImageValue(NotNull(_image_Value, ""))
+                Return New ImageValue(ClassAllgemeineFunktionen.NotNullString(_image_Value, ""))
             End Get
             Set(ByVal value As ImageValue)
                 _image_Value = value.Value
@@ -345,11 +346,11 @@ Public Module ModuleControlProperties
         <Category(ClassConstants.CAT_VALIDATION)>
         Public Property Override_SQL() As SQLValue
             Get
-                Return New SQLValue(NotNull(_Override_SQL, ""), _sql_connection)
+                Return New SQLValue(ClassAllgemeineFunktionen.NotNullString(_Override_SQL, "")) ', _sql_connection
             End Get
             Set(ByVal value As SQLValue)
                 _Override_SQL = value.Value
-                SQLConnection = value.ConnectionId
+                'SQLConnection = value.ConnectionId
             End Set
         End Property
     End Class

app/TaskFlow/ModuleFinalIndexProperties.vb

@@ -11,10 +11,10 @@ Module ModuleFinalIndexProperties
         <[ReadOnly](True)>
         Public Property GUID As Integer
 
-        <DisplayName("Connection ID")>
+        '<DisplayName("Connection ID")>
-        <Category(ClassConstants.CAT_INFORMATION)>
+        '<Category(ClassConstants.CAT_INFORMATION)>
-        <[ReadOnly](True)>
+        '<[ReadOnly](True)>
-        Public Property ConnectionId As Integer
+        'Public Property ConnectionId As Integer
 
         <Category(ClassConstants.CAT_GENERAL)>
         Public Property Description As String
@@ -97,6 +97,7 @@ Module ModuleFinalIndexProperties
         Public Property VectorBehaviourType As List(Of String)
 
         Public Sub VectorIndexBooleanProvider(attrs As PropertyAttributes)
+            'Sd
             MaybeSetReadOnlyIfNotVectorIndex(attrs)
         End Sub
 
@@ -182,7 +183,12 @@ Module ModuleFinalIndexProperties
             If indexType.Contains(type) Then
                 attrs.IsBrowsable = True
             Else
-                attrs.IsBrowsable = False
+                If attrs.DisplayName = "Index Behaviour" Then
+                    attrs.IsBrowsable = True
+                Else
+                    attrs.IsBrowsable = False
+                End If
+
             End If
         End Sub
 

app/TaskFlow/ModuleRuntimeVariables.vb

@@ -32,10 +32,15 @@ Module ModuleRuntimeVariables
     Public Property BASEDATA_DT_PROFILE_SEARCHES_SQL As DataTable
     Public Property BASEDATA_DT_VW_PROFILE_USER As DataTable
 
+    Public Property BASEDATA_TBDD_COLUMNS_FORMAT As DataTable
+
+
+
     Public Property CURRENT_ProfilGUID As Integer
     Public Property CURRENT_ProfilName As String
     Public Property CURRENT_PROFILE_LOG_INDEX As String
     Public Property PROFILE_SHOW_DOCUMENT As Boolean = True
+    Public Property PROFILE_NOT_RESP_COMMENT As Boolean = True
 
     Public Property CURRENT_DOC_GUID As Int64
     Public Property CURRENT_DOC_ID As Int64
@@ -91,6 +96,8 @@ Module ModuleRuntimeVariables
     Public Property INACTIVITYRecognized As Boolean = False
     Public Property LAST_EDITED_COLUMN As String = "NONE"
     Public Property LAST_ADDED_COLUMN As String = "NONE"
+    Public Property MON_EDITED_COLUMN As String = "NONE"
+    Public Property MON_ADDED_COLUMN As String = "NONE"
     Public Property USE_APPSERVER As Boolean = False
     Public Property SEARCH1 As String = ""
     Public Property SEARCH2 As String = ""
@@ -181,4 +188,6 @@ Module ModuleRuntimeVariables
 
     Public LIC_MODULES As String = "NONE"
     Public oSQLLoginAttempt As String
+
+    Public MVSource_AllIndicies As List(Of String)
 End Module

app/TaskFlow/My Project/Application.Designer.vb

@@ -32,7 +32,7 @@ Namespace My
         
         <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
         Protected Overrides Sub OnCreateMainForm()
-            Me.MainForm = Global.DD_ProcessManager.frmMain
+            Me.MainForm = Global.taskFLOW.frmMain
         End Sub
         
         <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _

app/TaskFlow/My Project/Application.myapp

@@ -8,5 +8,5 @@
   <AuthenticationMode>0</AuthenticationMode>
   <MinimumSplashScreenDisplayTime>0</MinimumSplashScreenDisplayTime>
   <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
-  <HighDpiMpde>false</HighDpiMpde>
+  <HighDpiMode>0</HighDpiMode>
 </MyApplicationData>

app/TaskFlow/My Project/AssemblyInfo.vb

@@ -14,7 +14,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("taskFLOW")>
 <Assembly: AssemblyCopyright("Copyright © Digital Data 2025")>
-<Assembly: AssemblyTrademark("2.5.0.0")>
+<Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>
 
@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.5.3.0")>
+<Assembly: AssemblyVersion("2.7.4.0")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
 <Assembly: NeutralResourcesLanguage("")>

app/TaskFlow/My Project/Resources.Designer.vb

@@ -39,7 +39,7 @@ Namespace My.Resources
         Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
             Get
                 If Object.ReferenceEquals(resourceMan, Nothing) Then
-                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_ProcessManager.Resources", GetType(Resources).Assembly)
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("taskFLOW.Resources", GetType(Resources).Assembly)
                     resourceMan = temp
                 End If
                 Return resourceMan

app/TaskFlow/My Project/Settings.Designer.vb

@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.9.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.14.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -156,7 +156,7 @@ Namespace My
         
         <Global.System.Configuration.UserScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("563")>  _
+         Global.System.Configuration.DefaultSettingValueAttribute("513")>  _
         Public Property frmValSearchSplitterDistance() As Integer
             Get
                 Return CType(Me("frmValSearchSplitterDistance"),Integer)
@@ -263,9 +263,9 @@ Namespace My
     Friend Module MySettingsProperty
         
         <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
-        Friend ReadOnly Property Settings() As Global.DD_ProcessManager.My.MySettings
+        Friend ReadOnly Property Settings() As Global.taskFLOW.My.MySettings
             Get
-                Return Global.DD_ProcessManager.My.MySettings.Default
+                Return Global.taskFLOW.My.MySettings.Default
             End Get
         End Property
     End Module

app/TaskFlow/My Project/Settings.settings

@@ -27,7 +27,7 @@
       <Value Profile="(Default)">0, 0</Value>
     </Setting>
     <Setting Name="frmValSearchSplitterDistance" Type="System.Int32" Scope="User">
-      <Value Profile="(Default)">563</Value>
+      <Value Profile="(Default)">513</Value>
     </Setting>
     <Setting Name="frmMainWindowState" Type="System.String" Scope="User">
       <Value Profile="(Default)">Normal</Value>

app/TaskFlow/TaskFlow.vbproj

@@ -1,5 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="..\packages\EntityFramework.6.4.4\build\EntityFramework.props" Condition="Exists('..\packages\EntityFramework.6.4.4\build\EntityFramework.props')" />
   <PropertyGroup>
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
     <Platform Condition=" '$(Platform)' == '' ">x86</Platform>
@@ -8,8 +9,8 @@
     <SchemaVersion>2.0</SchemaVersion>
     <ProjectGuid>{6ACA1432-09A2-47EF-A704-C0AA73905756}</ProjectGuid>
     <OutputType>WinExe</OutputType>
-    <StartupObject>DD_ProcessManager.My.MyApplication</StartupObject>
+    <StartupObject>taskFLOW.My.MyApplication</StartupObject>
-    <RootNamespace>DD_ProcessManager</RootNamespace>
+    <RootNamespace>taskFLOW</RootNamespace>
     <AssemblyName>taskFLOW</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
@@ -76,13 +77,15 @@
   <PropertyGroup>
     <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
   </PropertyGroup>
+  <ItemGroup> 
+      <GdPictureAssemblies Include="$(SolutionDir)lib\GdPicture14*.dll" /> 
+  </ItemGroup> 
+    <Target Name="CopyGdPictureDlls" AfterTargets="Build"> 
+      <Copy SourceFiles="@(GdPictureAssemblies)" DestinationFolder="$(TargetDir)" SkipUnchangedFiles="true" /> 
+    </Target>
   <ItemGroup>
     <Reference Include="BouncyCastle.Cryptography, Version=2.0.0.0, Culture=neutral, PublicKeyToken=072edcf4a5328938, processorArchitecture=MSIL">
-      <HintPath>..\packages\BouncyCastle.Cryptography.2.6.1\lib\net461\BouncyCastle.Cryptography.dll</HintPath>
+      <HintPath>..\packages\BouncyCastle.Cryptography.2.5.0\lib\net461\BouncyCastle.Cryptography.dll</HintPath>
-    </Reference>
-    <Reference Include="DD_LIB_Standards, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\DD_LIB_Standards.dll</HintPath>
     </Reference>
     <Reference Include="DevExpress.Charts.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
@@ -148,7 +151,7 @@
       <SpecificVersion>False</SpecificVersion>
     </Reference>
     <Reference Include="DevExpress.XtraVerticalGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DigitalData.Controls.DocumentViewer, Version=1.9.4.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Controls.DocumentViewer, Version=2.4.0.0, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
     </Reference>
@@ -156,47 +159,48 @@
       <HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath>
     </Reference>
     <Reference Include="DigitalData.Controls.SnapPanel">
-      <HintPath>..\..\..\..\2_DLL Projekte\DDMonoRepo\Controls.SnapPanel\bin\Debug\DigitalData.Controls.SnapPanel.dll</HintPath>
+      <HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\Controls.SnapPanel\bin\Debug\DigitalData.Controls.SnapPanel.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.GUIs.Common, Version=2.5.8.1, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.GUIs.Common, Version=2.7.0.0, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Base">
+    <Reference Include="DigitalData.Modules.Base, Version=1.3.9.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Config, Version=1.2.2.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.Config, Version=1.3.0.0, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Database, Version=2.3.5.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.Database, Version=2.3.6.0, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
     </Reference>
     <Reference Include="DigitalData.Modules.EDMI.API">
       <HintPath>..\..\..\..\2_DLL Projekte\DDModules\EDMIAPI\bin\Debug\DigitalData.Modules.EDMI.API.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Encryption, Version=1.3.0.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.Encryption, Version=1.3.1.0, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Encryption\bin\Debug\DigitalData.Modules.Encryption.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Interfaces">
+    <Reference Include="DigitalData.Modules.Interfaces, Version=2.3.7.0, Culture=neutral, processorArchitecture=MSIL">
-      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Interfaces\bin\Debug\DigitalData.Modules.Interfaces.dll</HintPath>
+      <SpecificVersion>False</SpecificVersion>
-    </Reference>
+      <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Digital Data\DD_Modules\DigitalData.Modules.Interfaces.dll</HintPath>
-    <Reference Include="DigitalData.Modules.Language">
-      <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Digital Data\DigitalData.Modules.Language.dll</HintPath>
     </Reference>
     <Reference Include="DigitalData.Modules.License">
       <HintPath>..\..\..\..\2_DLL Projekte\DDModules\License\bin\Debug\DigitalData.Modules.License.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Logging, Version=2.6.3.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.Logging, Version=2.6.5.0, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Patterns">
+    <Reference Include="DigitalData.Modules.Patterns, Version=1.3.1.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Patterns\bin\Debug\DigitalData.Modules.Patterns.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Windream">
+    <Reference Include="DigitalData.Modules.Windream, Version=1.9.6.2, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Windream\bin\Debug\DigitalData.Modules.Windream.dll</HintPath>
     </Reference>
     <Reference Include="DigitalData.Modules.ZooFlow">
@@ -205,77 +209,90 @@
     <Reference Include="DLLLicenseManager">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>
     </Reference>
-    <Reference Include="DocumentFormat.OpenXml, Version=3.3.0.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
+    <Reference Include="DocumentFormat.OpenXml, Version=3.2.0.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
-      <HintPath>..\packages\DocumentFormat.OpenXml.3.3.0\lib\net46\DocumentFormat.OpenXml.dll</HintPath>
+      <HintPath>..\packages\DocumentFormat.OpenXml.3.2.0\lib\net46\DocumentFormat.OpenXml.dll</HintPath>
     </Reference>
-    <Reference Include="DocumentFormat.OpenXml.Framework, Version=3.3.0.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
+    <Reference Include="DocumentFormat.OpenXml.Framework, Version=3.2.0.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
-      <HintPath>..\packages\DocumentFormat.OpenXml.Framework.3.3.0\lib\net46\DocumentFormat.OpenXml.Framework.dll</HintPath>
+      <HintPath>..\packages\DocumentFormat.OpenXml.Framework.3.2.0\lib\net46\DocumentFormat.OpenXml.Framework.dll</HintPath>
+    </Reference>
+    <Reference Include="EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
+      <HintPath>..\packages\EntityFramework.6.4.4\lib\net45\EntityFramework.dll</HintPath>
+    </Reference>
+    <Reference Include="EntityFramework.Firebird, Version=6.4.0.0, Culture=neutral, PublicKeyToken=42d22d092898e5f8, processorArchitecture=MSIL">
+      <HintPath>..\packages\EntityFramework.Firebird.6.4.0\lib\net452\EntityFramework.Firebird.dll</HintPath>
+    </Reference>
+    <Reference Include="EntityFramework.SqlServer, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
+      <HintPath>..\packages\EntityFramework.6.4.4\lib\net45\EntityFramework.SqlServer.dll</HintPath>
+    </Reference>
+    <Reference Include="FirebirdSql.Data.FirebirdClient, Version=7.5.0.0, Culture=neutral, PublicKeyToken=3750abcc3150b00c, processorArchitecture=MSIL">
+      <HintPath>..\packages\FirebirdSql.Data.FirebirdClient.7.5.0\lib\net452\FirebirdSql.Data.FirebirdClient.dll</HintPath>
     </Reference>
     <Reference Include="FormsUtils">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\FormsUtils.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.barcode.1d.writer, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.barcode.1d.writer, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.barcode.1d.writer.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.barcode.1d.writer.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.barcode.2d.writer, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.barcode.2d.writer, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.barcode.2d.writer.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.barcode.2d.writer.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.CAD, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.CAD, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.CAD.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.CAD.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.CAD.DWG, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.CAD.DWG, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.CAD.DWG.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.CAD.DWG.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.Common, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.Common, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.Common.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Common.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.Document, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.Document, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.Document.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Document.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.Email, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.Email, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.Email.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Email.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.HTML, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.HTML, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.HTML.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.HTML.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.Imaging, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.Imaging, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.Imaging.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.Imaging.Formats, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.Imaging.Formats, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.Imaging.Formats.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Formats.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.Imaging.Formats.Conversion, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.Imaging.Formats.Conversion, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.Imaging.Formats.Conversion.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Formats.Conversion.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.Imaging.Rendering, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.Imaging.Rendering, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.Imaging.Rendering.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Rendering.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.MSOfficeBinary, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.MSOfficeBinary, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.MSOfficeBinary.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.MSOfficeBinary.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.OpenDocument, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.OpenDocument, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.OpenDocument.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenDocument.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.OpenXML, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.OpenXML, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.OpenXML.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenXML.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.OpenXML.Templating, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.OpenXML.Templating, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.OpenXML.Templating.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenXML.Templating.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.PDF, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.PDF, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.PDF.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.PDF.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.RTF, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.RTF, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.RTF.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.RTF.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14.SVG, Version=14.3.1.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.SVG, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\GdPicture.NET.14.SVG.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.SVG.dll</HintPath>
     </Reference>
-    <Reference Include="IndexRange, Version=1.0.3.0, Culture=neutral, PublicKeyToken=35e6a3c4212514c6, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14.wia.gateway, Version=1.0.0.0, Culture=neutral, PublicKeyToken=6973b5c22dcf45f7, processorArchitecture=MSIL">
-      <HintPath>..\packages\IndexRange.1.0.3\lib\net45\IndexRange.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.wia.gateway.dll</HintPath>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
     <Reference Include="Interop.WINDREAMLib">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
@@ -293,30 +310,33 @@
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
-    <Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=9.0.0.6, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+    <Reference Include="Mail">
-      <HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.9.0.6\lib\net462\Microsoft.Bcl.AsyncInterfaces.dll</HintPath>
+      <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Limilabs\Mail.dll</HintPath>
     </Reference>
-    <Reference Include="Microsoft.Bcl.Cryptography, Version=9.0.0.6, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+    <Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=9.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
-      <HintPath>..\packages\Microsoft.Bcl.Cryptography.9.0.6\lib\net462\Microsoft.Bcl.Cryptography.dll</HintPath>
+      <HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.9.0.0\lib\net462\Microsoft.Bcl.AsyncInterfaces.dll</HintPath>
     </Reference>
-    <Reference Include="Microsoft.Bcl.HashCode, Version=6.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+    <Reference Include="Microsoft.Bcl.Cryptography, Version=9.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
-      <HintPath>..\packages\Microsoft.Bcl.HashCode.6.0.0\lib\net462\Microsoft.Bcl.HashCode.dll</HintPath>
+      <HintPath>..\packages\Microsoft.Bcl.Cryptography.9.0.0\lib\net462\Microsoft.Bcl.Cryptography.dll</HintPath>
     </Reference>
     <Reference Include="Microsoft.CSharp" />
-    <Reference Include="Microsoft.Win32.Registry, Version=5.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+    <Reference Include="Microsoft.Identity.Client, Version=4.55.0.0, Culture=neutral, PublicKeyToken=0a613f4dd989e8ae, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\Microsoft.Win32.Registry.dll</HintPath>
+      <HintPath>..\packages\Microsoft.Identity.Client.4.55.0\lib\net461\Microsoft.Identity.Client.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.IdentityModel.Abstractions, Version=6.22.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.IdentityModel.Abstractions.6.22.0\lib\net461\Microsoft.IdentityModel.Abstractions.dll</HintPath>
     </Reference>
     <Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
       <HintPath>..\packages\Newtonsoft.Json.13.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
     </Reference>
     <Reference Include="Newtonsoft.Json.Bson, Version=1.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
-      <HintPath>..\packages\Newtonsoft.Json.Bson.1.0.3\lib\net45\Newtonsoft.Json.Bson.dll</HintPath>
+      <HintPath>..\packages\Newtonsoft.Json.Bson.1.0.2\lib\net45\Newtonsoft.Json.Bson.dll</HintPath>
     </Reference>
     <Reference Include="NLog, Version=5.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
       <HintPath>..\packages\NLog.5.0.5\lib\net46\NLog.dll</HintPath>
     </Reference>
-    <Reference Include="OpenMcdf, Version=3.0.0.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="OpenMcdf, Version=2.4.1.0, Culture=neutral, PublicKeyToken=fdbb1629d7c00800, processorArchitecture=MSIL">
-      <HintPath>..\packages\OpenMcdf.3.0.0\lib\netstandard2.0\OpenMcdf.dll</HintPath>
+      <HintPath>..\packages\OpenMcdf.2.4.1\lib\net40\OpenMcdf.dll</HintPath>
     </Reference>
     <Reference Include="Oracle.ManagedDataAccess">
       <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
@@ -325,80 +345,84 @@
       <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\PdfSharp-gdi.dll</HintPath>
     </Reference>
     <Reference Include="protobuf-net, Version=3.0.0.0, Culture=neutral, PublicKeyToken=257b51d87d2e4d67, processorArchitecture=MSIL">
-      <HintPath>..\packages\protobuf-net.3.2.52\lib\net462\protobuf-net.dll</HintPath>
+      <HintPath>..\packages\protobuf-net.3.2.46\lib\net462\protobuf-net.dll</HintPath>
     </Reference>
     <Reference Include="protobuf-net.Core, Version=3.0.0.0, Culture=neutral, PublicKeyToken=257b51d87d2e4d67, processorArchitecture=MSIL">
-      <HintPath>..\packages\protobuf-net.Core.3.2.52\lib\net462\protobuf-net.Core.dll</HintPath>
+      <HintPath>..\packages\protobuf-net.Core.3.2.46\lib\net462\protobuf-net.Core.dll</HintPath>
     </Reference>
     <Reference Include="RtfPipe, Version=2.0.7677.4303, Culture=neutral, PublicKeyToken=5f6ab4ce530296d2, processorArchitecture=MSIL">
       <HintPath>..\packages\RtfPipe.2.0.7677.4303\lib\net45\RtfPipe.dll</HintPath>
     </Reference>
+    <Reference Include="S22.Imap, Version=3.6.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\S22.Imap.3.6.0.0\lib\net40\S22.Imap.dll</HintPath>
+    </Reference>
     <Reference Include="System" />
-    <Reference Include="System.Buffers, Version=4.0.5.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+    <Reference Include="System.Buffers, Version=4.0.4.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Buffers.4.6.1\lib\net462\System.Buffers.dll</HintPath>
+      <HintPath>..\packages\System.Buffers.4.6.0\lib\net462\System.Buffers.dll</HintPath>
     </Reference>
-    <Reference Include="System.CodeDom, Version=9.0.0.6, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+    <Reference Include="System.CodeDom, Version=9.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.CodeDom.9.0.6\lib\net462\System.CodeDom.dll</HintPath>
+      <HintPath>..\packages\System.CodeDom.9.0.0\lib\net462\System.CodeDom.dll</HintPath>
     </Reference>
-    <Reference Include="System.Collections.Immutable, Version=9.0.0.6, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+    <Reference Include="System.Collections.Immutable, Version=9.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Collections.Immutable.9.0.6\lib\net462\System.Collections.Immutable.dll</HintPath>
+      <HintPath>..\packages\System.Collections.Immutable.9.0.0\lib\net462\System.Collections.Immutable.dll</HintPath>
     </Reference>
     <Reference Include="System.ComponentModel.DataAnnotations" />
     <Reference Include="System.Configuration" />
     <Reference Include="System.Data" />
     <Reference Include="System.Data.Linq" />
+    <Reference Include="System.Data.Odbc, Version=6.0.0.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Data.Odbc.6.0.1\lib\net461\System.Data.Odbc.dll</HintPath>
+    </Reference>
     <Reference Include="System.Data.OracleClient" />
     <Reference Include="System.Deployment" />
     <Reference Include="System.Design" />
     <Reference Include="System.DirectoryServices" />
     <Reference Include="System.DirectoryServices.AccountManagement" />
     <Reference Include="System.Drawing" />
-    <Reference Include="System.Formats.Asn1, Version=9.0.0.6, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+    <Reference Include="System.Formats.Asn1, Version=9.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Formats.Asn1.9.0.6\lib\net462\System.Formats.Asn1.dll</HintPath>
+      <HintPath>..\packages\System.Formats.Asn1.9.0.0\lib\net462\System.Formats.Asn1.dll</HintPath>
     </Reference>
+    <Reference Include="System.IdentityModel" />
     <Reference Include="System.IO.Compression" />
-    <Reference Include="System.IO.Packaging, Version=9.0.0.6, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+    <Reference Include="System.IO.Packaging, Version=9.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.IO.Packaging.9.0.6\lib\net462\System.IO.Packaging.dll</HintPath>
+      <HintPath>..\packages\System.IO.Packaging.9.0.0\lib\net462\System.IO.Packaging.dll</HintPath>
     </Reference>
-    <Reference Include="System.IO.Pipelines, Version=9.0.0.6, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+    <Reference Include="System.IO.Pipelines, Version=9.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.IO.Pipelines.9.0.6\lib\net462\System.IO.Pipelines.dll</HintPath>
+      <HintPath>..\packages\System.IO.Pipelines.9.0.0\lib\net462\System.IO.Pipelines.dll</HintPath>
     </Reference>
     <Reference Include="System.Management" />
-    <Reference Include="System.Memory, Version=4.0.5.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+    <Reference Include="System.Memory, Version=4.0.2.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Memory.4.6.3\lib\net462\System.Memory.dll</HintPath>
+      <HintPath>..\packages\System.Memory.4.6.0\lib\net462\System.Memory.dll</HintPath>
     </Reference>
     <Reference Include="System.Net.Http" />
     <Reference Include="System.Net.Http.Formatting, Version=6.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
       <HintPath>..\packages\Microsoft.AspNet.WebApi.Client.6.0.0\lib\net45\System.Net.Http.Formatting.dll</HintPath>
     </Reference>
     <Reference Include="System.Numerics" />
-    <Reference Include="System.Numerics.Vectors, Version=4.1.6.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+    <Reference Include="System.Numerics.Vectors, Version=4.1.5.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Numerics.Vectors.4.6.1\lib\net462\System.Numerics.Vectors.dll</HintPath>
+      <HintPath>..\packages\System.Numerics.Vectors.4.6.0\lib\net462\System.Numerics.Vectors.dll</HintPath>
     </Reference>
-    <Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.3.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+    <Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.6.1.2\lib\net462\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
+      <HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.6.1.0\lib\net462\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
     </Reference>
     <Reference Include="System.Runtime.Serialization" />
     <Reference Include="System.Security" />
-    <Reference Include="System.Security.Cryptography.Pkcs, Version=9.0.0.6, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+    <Reference Include="System.Security.Cryptography.Pkcs, Version=9.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Security.Cryptography.Pkcs.9.0.6\lib\net462\System.Security.Cryptography.Pkcs.dll</HintPath>
+      <HintPath>..\packages\System.Security.Cryptography.Pkcs.9.0.0\lib\net462\System.Security.Cryptography.Pkcs.dll</HintPath>
-    </Reference>
-    <Reference Include="System.Security.Principal.Windows, Version=5.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.3.1\lib\net462\System.Security.Principal.Windows.dll</HintPath>
     </Reference>
     <Reference Include="System.ServiceModel" />
-    <Reference Include="System.Text.Encodings.Web, Version=9.0.0.6, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+    <Reference Include="System.Text.Encodings.Web, Version=9.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Text.Encodings.Web.9.0.6\lib\net462\System.Text.Encodings.Web.dll</HintPath>
+      <HintPath>..\packages\System.Text.Encodings.Web.9.0.0\lib\net462\System.Text.Encodings.Web.dll</HintPath>
     </Reference>
-    <Reference Include="System.Text.Json, Version=9.0.0.6, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+    <Reference Include="System.Text.Json, Version=9.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Text.Json.9.0.6\lib\net462\System.Text.Json.dll</HintPath>
+      <HintPath>..\packages\System.Text.Json.9.0.0\lib\net462\System.Text.Json.dll</HintPath>
     </Reference>
-    <Reference Include="System.Threading.Tasks.Extensions, Version=4.2.4.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+    <Reference Include="System.Threading.Tasks.Extensions, Version=4.2.0.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Threading.Tasks.Extensions.4.6.3\lib\net462\System.Threading.Tasks.Extensions.dll</HintPath>
+      <HintPath>..\packages\System.Threading.Tasks.Extensions.4.5.4\lib\net461\System.Threading.Tasks.Extensions.dll</HintPath>
     </Reference>
     <Reference Include="System.Transactions" />
-    <Reference Include="System.ValueTuple, Version=4.0.5.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+    <Reference Include="System.ValueTuple, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.ValueTuple.4.6.1\lib\net462\System.ValueTuple.dll</HintPath>
+      <HintPath>..\packages\System.ValueTuple.4.5.0\lib\net461\System.ValueTuple.dll</HintPath>
     </Reference>
     <Reference Include="System.Web.Services" />
     <Reference Include="System.Windows.Forms" />
@@ -521,12 +545,6 @@
     <Compile Include="frmColumn_Detail.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmDashboard1.Designer.vb">
-      <DependentUpon>frmDashboard1.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmDashboard1.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmDesignerLayout.Designer.vb">
       <DependentUpon>frmDesignerLayout.vb</DependentUpon>
     </Compile>
@@ -784,10 +802,6 @@
       <DependentUpon>frmColumn_Detail.vb</DependentUpon>
       <SubType>Designer</SubType>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmDashboard1.resx">
-      <DependentUpon>frmDashboard1.vb</DependentUpon>
-      <SubType>Designer</SubType>
-    </EmbeddedResource>
     <EmbeddedResource Include="frmDesignerLayout.resx">
       <DependentUpon>frmDesignerLayout.vb</DependentUpon>
       <SubType>Designer</SubType>
@@ -931,6 +945,9 @@
       <DependentUpon>frmValidatorSearch.vb</DependentUpon>
       <SubType>Designer</SubType>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmValidatorSearch.fr-FR.resx">
+      <DependentUpon>frmValidatorSearch.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmValidatorSearch.fr.resx">
       <DependentUpon>frmValidatorSearch.vb</DependentUpon>
       <SubType>Designer</SubType>
@@ -1314,13 +1331,16 @@
     </BootstrapperPackage>
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
-  <Import Project="..\packages\GdPicture.runtimes.windows.14.3.1\build\net462\GdPicture.runtimes.windows.targets" Condition="Exists('..\packages\GdPicture.runtimes.windows.14.3.1\build\net462\GdPicture.runtimes.windows.targets')" />
   <Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
     <PropertyGroup>
       <ErrorText>Dieses Projekt verweist auf mindestens ein NuGet-Paket, das auf diesem Computer fehlt. Verwenden Sie die Wiederherstellung von NuGet-Paketen, um die fehlenden Dateien herunterzuladen. Weitere Informationen finden Sie unter "http://go.microsoft.com/fwlink/?LinkID=322105". Die fehlende Datei ist "{0}".</ErrorText>
     </PropertyGroup>
-    <Error Condition="!Exists('..\packages\GdPicture.runtimes.windows.14.3.1\build\net462\GdPicture.runtimes.windows.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\GdPicture.runtimes.windows.14.3.1\build\net462\GdPicture.runtimes.windows.targets'))" />
+    <Error Condition="!Exists('..\packages\EntityFramework.6.4.4\build\EntityFramework.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\EntityFramework.6.4.4\build\EntityFramework.props'))" />
+    <Error Condition="!Exists('..\packages\EntityFramework.6.4.4\build\EntityFramework.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\EntityFramework.6.4.4\build\EntityFramework.targets'))" />
+    <Error Condition="!Exists('..\packages\GdPicture.runtimes.windows.14.3.3\build\net462\GdPicture.runtimes.windows.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\GdPicture.runtimes.windows.14.3.3\build\net462\GdPicture.runtimes.windows.targets'))" />
   </Target>
+  <Import Project="..\packages\EntityFramework.6.4.4\build\EntityFramework.targets" Condition="Exists('..\packages\EntityFramework.6.4.4\build\EntityFramework.targets')" />
+  <Import Project="..\packages\GdPicture.runtimes.windows.14.3.3\build\net462\GdPicture.runtimes.windows.targets" Condition="Exists('..\packages\GdPicture.runtimes.windows.14.3.3\build\net462\GdPicture.runtimes.windows.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.
   <Target Name="BeforeBuild">

app/TaskFlow/Translations/frmMain_Strings.Designer.vb

@@ -43,7 +43,7 @@ Namespace My.Resources
         Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
             Get
                 If Object.ReferenceEquals(resourceMan, Nothing) Then
-                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_ProcessManager.frmMain_Strings", GetType(frmMain_Strings).Assembly)
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("taskFLOW.frmMain_Strings", GetType(frmMain_Strings).Assembly)
                     resourceMan = temp
                 End If
                 Return resourceMan

app/TaskFlow/Translations/frmValidator_Strings.Designer.vb

@@ -43,7 +43,7 @@ Namespace My.Resources
         Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
             Get
                 If Object.ReferenceEquals(resourceMan, Nothing) Then
-                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_ProcessManager.frmValidator_Strings", GetType(frmValidator_Strings).Assembly)
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("taskFLOW.frmValidator_Strings", GetType(frmValidator_Strings).Assembly)
                     resourceMan = temp
                 End If
                 Return resourceMan

app/TaskFlow/XtraReport1.Designer.vb

@@ -68,7 +68,7 @@ Partial Public Class XtraReport1
         '
         'SqlDataSource1
         '
-        Me.SqlDataSource1.ConnectionName = "DD_ProcessManager.My.MySettings.ConnectionString"
+        Me.SqlDataSource1.ConnectionName = "taskFLOW.My.MySettings.ConnectionString"
         Me.SqlDataSource1.Name = "SqlDataSource1"
         ColumnExpression1.ColumnName = "Anzahl"
         Table4.Name = "VWPM_CHART_INVOICE_MONITOR"

app/TaskFlow/clsPatterns.vb

@@ -48,6 +48,8 @@ Public Class clsPatterns
     Public Const INT_VALUE_MACHINE = "MACHINE"
     Public Const INT_VALUE_DOMAIN = "DOMAIN"
     Public Const INT_VALUE_DATE = "DATE"
+    Public Const INT_VALUE_WMDocID = "WMDocID"
+    Public Const INT_VALUE_IDBID = "IDBObjID"
 
     Public Const MAX_TRY_COUNT = 20
 
@@ -125,6 +127,12 @@ Public Class clsPatterns
             While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_DATE)
                 oResult = ReplacePattern(oResult, PATTERN_INT, Now.ToShortDateString)
             End While
+            While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_WMDocID)
+                oResult = ReplacePattern(oResult, PATTERN_INT, CURRENT_DOC_ID)
+            End While
+            While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_IDBID)
+                oResult = ReplacePattern(oResult, PATTERN_INT, CURRENT_DOC_ID)
+            End While
 
             Return oResult
         Catch ex As Exception
@@ -190,9 +198,10 @@ Public Class clsPatterns
 
             While ContainsPattern(oResult, PATTERN_CTRL)
                 If oTryCounter > MAX_TRY_COUNT Then
-                    LOGGER.Warn($"Max tries in ReplaceControlValues exceeded - Replacing with [0]")
+                    LOGGER.Info($"Max tries in ReplaceControlValues exceeded - Replacing PATTERN_CTRL [{PATTERN_CTRL}] with [0]")
+                    LOGGER.Info($"oResult so far is:{oResult}")
                     oResult = ReplacePattern(oResult, PATTERN_CTRL, 0)
-                    Throw New Exception($"Max tries in ReplaceControlValues exceeded - Result so far [{oResult}].")
+                    Exit While
                 End If
 
                 Dim oControlName As String = GetNextPattern(oResult, PATTERN_CTRL).Value
@@ -216,25 +225,42 @@ Public Class clsPatterns
 
                         Case GetType(TextEdit)
                             Try
-                                oReplaceValue = Utils.NotNull(DirectCast(oControl, TextEdit).EditValue, String.Empty)
+                                oReplaceValue = ClassAllgemeineFunktionen.NotNullString(DirectCast(oControl, TextEdit).EditValue, String.Empty)
                             Catch ex As Exception
                                 LOGGER.Warn($"Error in ReplaceValue MemoEdit: {ex.Message}")
                                 oReplaceValue = ""
                             End Try
                         Case GetType(MemoEdit)
                             Try
-                                oReplaceValue = Utils.NotNull(DirectCast(oControl, MemoEdit).EditValue, String.Empty)
+                                oReplaceValue = ClassAllgemeineFunktionen.NotNullString(DirectCast(oControl, MemoEdit).EditValue, String.Empty)
                             Catch ex As Exception
                                 LOGGER.Warn($"Error in ReplaceValue MemoEdit: {ex.Message}")
                                 oReplaceValue = ""
                             End Try
                         Case GetType(LookupControl3)
                             Dim oLookupControl3 As LookupControl3 = oControl
-                            If oLookupControl3.Properties.SelectedValues.Count = 1 Then
+
-                                oReplaceValue = oLookupControl3.Properties.SelectedValues.Item(0)
+                            If oLookupControl3.Properties.SelectedValues.Count > 1 Then
+                                LOGGER.Debug($"LookupControl3 mit mehr als 1 Value")
+                                Dim oIndex As Integer = 0
+                                For Each oString As String In oLookupControl3.Properties.SelectedValues
+                                    If oIndex = 0 Then
+
+                                        oReplaceValue = oString
+                                    Else
+                                        oReplaceValue += "', '" + oString
+                                    End If
+                                    oIndex += 1
+                                Next
+                                oIsSQL = False
+                            ElseIf oLookupControl3.Properties.SelectedValues.Count = 1 Then
+                                LOGGER.Debug($"LookupControl3 mit genau einem Value")
+                                oReplaceValue = oLookupControl3.Properties.SelectedValues(0)
                             Else
+                                '    LOGGER.Warn($"SelectedValues of LookUpControl scheint empty oder leer zu sein! Ersetzen mit ErrorReplaceValue!")
                                 oReplaceValue = ERROR_REPLACE_VALUE
                             End If
+                            LOGGER.Debug($"oReplaceValue nach Durchlaufen selectedValues: {oReplaceValue}")
 
                         Case GetType(Windows.Forms.ComboBox)
                             oReplaceValue = oControl.Text

app/TaskFlow/frmAbout.designer.vb

@@ -114,7 +114,7 @@ Partial Class frmAbout
         Me.PictureBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.PictureBox1.Image = Global.DD_ProcessManager.My.Resources.Resources.taskflow_boot
+        Me.PictureBox1.Image = Global.taskFLOW.My.Resources.Resources.taskflow_boot
         Me.PictureBox1.Location = New System.Drawing.Point(12, 5)
         Me.PictureBox1.Name = "PictureBox1"
         Me.PictureBox1.Size = New System.Drawing.Size(496, 141)

app/TaskFlow/frmAdmin2.Designer.vb

@@ -63,7 +63,7 @@ Partial Class frmAdmin2
         Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
         Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components)
         Me.TBDD_EMAIL_TEMPLATEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
+        Me.DD_DMSLiteDataSet = New taskFLOW.DD_DMSLiteDataSet()
         Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
         Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
         Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
@@ -156,9 +156,9 @@ Partial Class frmAdmin2
         Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage()
-        Me.TBDD_EMAIL_TEMPLATETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter()
+        Me.TBDD_EMAIL_TEMPLATETableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter()
-        Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
+        Me.TableAdapterManager = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
-        Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter()
+        Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter()
         Me.LayoutConverter1 = New DevExpress.XtraLayout.Converter.LayoutConverter(Me.components)
         Me.XtraSaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
         CType(Me.spcontwKonfMain, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1465,7 +1465,7 @@ Partial Class frmAdmin2
         Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing
         Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing
         Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
-        Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        Me.TableAdapterManager.UpdateOrder = taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'TBDD_GUI_LANGUAGE_PHRASETableAdapter
         '

app/TaskFlow/frmAdmin2.resx

@@ -2360,7 +2360,7 @@
     <value>DD_DMSLiteDataSet</value>
   </data>
   <data name="&gt;&gt;DD_DMSLiteDataSet.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;BindingNavigatorCountItem.Name" xml:space="preserve">
     <value>BindingNavigatorCountItem</value>
@@ -2714,19 +2714,19 @@
     <value>TBDD_EMAIL_TEMPLATETableAdapter</value>
   </data>
   <data name="&gt;&gt;TBDD_EMAIL_TEMPLATETableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
     <value>TableAdapterManager</value>
   </data>
   <data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TBDD_GUI_LANGUAGE_PHRASETableAdapter.Name" xml:space="preserve">
     <value>TBDD_GUI_LANGUAGE_PHRASETableAdapter</value>
   </data>
   <data name="&gt;&gt;TBDD_GUI_LANGUAGE_PHRASETableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;LayoutConverter1.Name" xml:space="preserve">
     <value>LayoutConverter1</value>

app/TaskFlow/frmAdminPasswort.Designer.vb

@@ -25,10 +25,10 @@ Partial Class frmAdminPasswort
         Me.components = New System.ComponentModel.Container()
         Me.txtOld = New System.Windows.Forms.TextBox()
         Me.txtNew = New System.Windows.Forms.TextBox()
-        Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
+        Me.DD_DMSLiteDataSet = New taskFLOW.DD_DMSLiteDataSet()
         Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.TBPM_KONFIGURATIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter()
+        Me.TBPM_KONFIGURATIONTableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter()
-        Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
+        Me.TableAdapterManager = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
         Me.btnSetNew = New System.Windows.Forms.Button()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
@@ -81,11 +81,11 @@ Partial Class frmAdminPasswort
         Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing
         Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
         Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
-        Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        Me.TableAdapterManager.UpdateOrder = taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'btnSetNew
         '
-        Me.btnSetNew.Image = Global.DD_ProcessManager.My.Resources.Resources.add
+        Me.btnSetNew.Image = Global.taskFLOW.My.Resources.Resources.add
         Me.btnSetNew.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btnSetNew.Location = New System.Drawing.Point(12, 60)
         Me.btnSetNew.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
@@ -138,10 +138,10 @@ Partial Class frmAdminPasswort
     End Sub
     Friend WithEvents txtOld As System.Windows.Forms.TextBox
     Friend WithEvents txtNew As System.Windows.Forms.TextBox
-    Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet
+    Friend WithEvents DD_DMSLiteDataSet As taskFLOW.DD_DMSLiteDataSet
     Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter
+    Friend WithEvents TBPM_KONFIGURATIONTableAdapter As taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter
-    Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
+    Friend WithEvents TableAdapterManager As taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
     Friend WithEvents btnSetNew As System.Windows.Forms.Button
     Friend WithEvents Label1 As System.Windows.Forms.Label
     Friend WithEvents Label2 As System.Windows.Forms.Label

app/TaskFlow/frmAdmin_notResponsibleConfig.Designer.vb

@@ -40,6 +40,7 @@ Partial Class frmAdmin_notResponsibleConfig
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Label9 = New System.Windows.Forms.Label()
         Me.cmbAttrComment = New System.Windows.Forms.ComboBox()
+        Me.checkCommentMuss = New System.Windows.Forms.CheckBox()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -193,11 +194,22 @@ Partial Class frmAdmin_notResponsibleConfig
         Me.cmbAttrComment.Size = New System.Drawing.Size(295, 24)
         Me.cmbAttrComment.TabIndex = 106
         '
+        'checkCommentMuss
+        '
+        Me.checkCommentMuss.AutoSize = True
+        Me.checkCommentMuss.Location = New System.Drawing.Point(548, 259)
+        Me.checkCommentMuss.Name = "checkCommentMuss"
+        Me.checkCommentMuss.Size = New System.Drawing.Size(208, 17)
+        Me.checkCommentMuss.TabIndex = 110
+        Me.checkCommentMuss.Text = "Begründung muss eingetragen werden"
+        Me.checkCommentMuss.UseVisualStyleBackColor = True
+        '
         'frmAdmin_notResponsibleConfig
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(778, 340)
+        Me.Controls.Add(Me.checkCommentMuss)
         Me.Controls.Add(Me.Label9)
         Me.Controls.Add(Me.cmbAttrComment)
         Me.Controls.Add(Me.txtPROFILE_NOT_RESPONSIBLE_QUEST)
@@ -236,4 +248,5 @@ Partial Class frmAdmin_notResponsibleConfig
     Friend WithEvents Label2 As Label
     Friend WithEvents Label9 As Label
     Friend WithEvents cmbAttrComment As ComboBox
+    Friend WithEvents checkCommentMuss As CheckBox
 End Class

app/TaskFlow/frmAdmin_notResponsibleConfig.resx

@@ -165,52 +165,53 @@
   <data name="SimpleButton1.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABV0RVh0VGl0
-        bGUATmV4dDtBcnJvdztEb3duKXvBAwAACnFJREFUWEeVVgdUlUcWHnfTdlNxk3WTmD0REXDFBoIUYekP
+        bGUATmV4dDtBcnJvdztEb3duKXvBAwAACqBJREFUWEeNlwdYVFcWx4+buptsEtxk3SRmv4gIKCoCihRh
-        sGIBUaOoFHvDREMRERQQEOmIYDdqYqICFoogKErUJJIISi8qqKEpSs9+uXceDzWb3T0753xn5p+5937f
+        GdogKoIFRI2iUuwNEw2ogKCAgEhHpIglamIHpA0gKEjUJJgI6sDQixCa9GL2n+/eeUMmbp3v+3/3vfvu
-        vVPeE/7JViJgr7UIPGAjgg/bitAjtiLsS4WI+FohIk8qRFSqQsSk24m403Yi/py9oDbgvyHmjI3YmW4l
+        Ped3zj33znvkk2hBfimW5H/aigLPWVPweWsK+VpMYZfFFH5NTBE3xBSVbkMxGTYUmzWfiGjcf1PUTSs6
-        Ik9ZivBvLETIV+Zi21EzseWwqfDfbyJ8U0zE57uMxGfxhmRObVOypbj3dK+of7pPNLTvF/c7Dkg86DhI
+        nm5B4dfNKfSKiIK+MaMjF0zp0DkT8kk1pv1JxvTlCUP6ItaA2SI6mGhOTf0p1Nx/iloGUunZ4Gmu1sEz
-        OCQedh5iMxXBHwh/JLxEePk34DkGr7PdgHtPD4q7Tw+IO0/2i9q2faLm8R5R/ShFVLbuFuvjx5MJNd/d
+        1Dp4ltqGzio7/QMRvUJErxLRay+J9TGx52zcuKb+M9TYf5oa+lKprvcU1fYkU83zJJJ1n6Q9sXPlAPtP
-        FmS0Rwqob1eKaJAiDvKyiliSBh+20I1KtdkSl2FbkJBl+31itqI3KUfRG59h/UPcOevLO05YBPnvMRlH
+        iqixP5kDNA/IIVo4xBllx9xp4DmRbsQNq0Mx2dbFcbnW38dLxC8S8sUvYrMtf4jJsiw5dlUU4JNsPJuI
-        tq+wPUEKudNGAh7vE9UqAS3JYn2cAS1R800yJ4XJ4u6TFKoECWmnahCoqTJ+OeSIuVNUunXZnlxHnC/x
+        XhdgOEhDbyrV9ZyiGgVAVyLtidEXABLMqKEvkRr7kqiJgQykcClF/FrQeTPHiHRLaXKBA/IqPPHoWSik
-        ws374ShrjMaDjsMSZY0xNBeGrOK1SD4/FRGnzMsCDhjPJd9XCVJIbR95VWuyqGhJEl6xfQK8E81EXVsi
+        7ZFoHTzHJW2PwqNnIcgt34XEvMUIu24m9TtttIqI3lCA1AnOq7sTqaorgTyjBQCveFOq742nhr4T1NiX
-        idhFIpJIxG6elllvjDUcGnbcovBgnjN+qg9FfftuVD7ajpImfxQ3+eDGw3X44eFa/NToTfBFeUso7jzZ
+        QE39JxXOX9kXbTA55JKo9EyhE35qDkbzwEnInh9FRYcPyju8Uda2Gz+07cJP7V74qX0/KruC0dB3Eg+b
-        jSKy3X9hFrYeM7nq5q+jTbG4IrIalS27REVzolgXq0+f1DYmmNDexNEexZOQBJ5i8pe8k4xttn9l0Zx7
+        g5F6azkOXzS+5+ozXVPICM+GrOsEVXXG0+7oOXKAfXHGVNsTQ3W9sVTfG6dw/qpXgpHV0W9EnQWPP0dt
-        61PUtEWh6OeNuHZ/Ba4/YKyU+O4hj5fj2oNl+LZhKa7UL8Hlex643rAO5a07kXXTC1uPTmheFTHWgWJy
+        bwQe/rwP959txYNWpm1c37Wx6y2437oZ37Zswt3mjShpcseDlt2o7D6O3EeeOHxhXuf2MB1bIRscQtoZ
-        NaSIsuZ4sTZaj4bUPoszElWPo0hENH9K8g0x423Dj1t1Xa/djJuNPrhCQQvrCQ2eROSJq/eVvQqFDR5E
+        S7si9eQAX8QYUnVPBNX2RI453xs11zr0ksXwgzpfPGr3xt0md5Q2u6O0xQPftnjg3jN5q1BpizvuNruh
-        7o6Ce4tx8c5C5NctQG7NfHzfsAGFVZux7YhZ97KQUf0iSptixeooXeYTYm2Uvqh8FMFDWXbPwNHagYdM
+        uGkDbjesQ1H9WhTUrsH3LXtRWu2LI+dNRzYHzRyDeNoRTTsidOUAuyLmkOx52FjaPfy1Nf3PmrTfr/PG
-        G6/V+uDb+hW4dMdVouDuQiJYhMv1C58Dfd/jebIh5N+Zjwt185BTOxfnq1yQWemMvBoSV7kJfnsNm5zX
+        t81bcafBhau4cR2Km9ajpHmdktajpIn1u+BOkwuKGtbgVv1q5NetQl61M3JkTiisdcdd2UEcSDHocNqp
-        aI4kDrkdqyLHMqcQ7sE6oqw1hIdcnle8kwwun73B5fRETo0LLtTOQR4FzKubi4t35xE+wfwtw2C0YCCM
+        PkOxHNvDdeQAboHTSdodxC5Zel73StAvySxj6fRAfq0zbtWtRGHdKhTWr8LtxtW43fgZ1hyaAsO142G0
-        FzLehomrGlyDNJFb54Lz5JNd7YyMylk4Vz4Tp8sckVO9CKe+W451MWMLieMNAh9MTliIT/yHcydLvzp8
+        juldGLuowCVAHQX1zsirdYakxgnZsuXIqlyGDKkD8mvW4/p3W7A7SqeUiN4WCpMFTPSZz9Sx1O8InbUq
-        zNzwr2xwtWE1MqtmIItwvnqWRE6NE2XmRCTOMFn0DqrrHqDmzkPZV9Y8gOlCNSKeRVnPJPLpOFvuiPSy
+        9Bsr3GvZgZzqpcitXoq8muVc+bWOyK9zREG9E4zXv4ea+lbUNrTxVlbbCpN1KpDULEeObBmyZUuQWemA
-        KUi7PQUnSibhUu1KBH9hDVf/4QuJ6zUCJyzEvE1a3PHHq16xemXZJUtxrmI6zpRPwdmKKRRsGgmZhsxq
+        dKkd0p7Y4WrFQtyp24bAryzh4jN1HRG9KQRMtPqghiL6Nzyj9aSSik3IqlqCm5V2yKyyQ7bMHrnV9sip
-        R+qnE8l0mLqrobunBz29vbLv6OqRc+cqHclnKk6Tb1rpZKTenkjk9jh+U4FviifiTNFyrIgYVUFcbxH6
+        cUBu9RJIapbAxE0FI6OjGH3xgreDw6O8L0vmgMyqxciotEPa00W48WQBrlbMx6VHYlwpX4CbD7dga9jM
-        qyCzd/LSsAvYZ0bldkXqLTukldlRBg5UwokUcBKJIlROljD3UEMnEXf19KKruxedJOCfNMd26WSfWuqA
+        KiJ6RzkLPHpHTzUbv1OmKKxzwY3HNkiT2iBdaosM6QJkVC5EVtVCZMkWcZm5q2BodBTDoy8wPPICQ8Oj
-        U7fs8XWxgshtcexHaxy5YYWM8gXw22OGacvUpxCn6lZIAa+4fK4ZGZvmRIa25GhFyq1x8rYNThHSymwJ
+        +Ie7Ch+XLl2AG09tcf3xfFwuF+PSI2tc/NES58sskF25FgeSTWG/WdVOaVdwgNedv1QPj05zxPkya1wu
-        CiKwI0EOsFxKAoi0s1uZfXtnj5xLvW2Hk7co2xIiLrbFlzetcfRHS3xRZIlD35nj4HUbxKc7YfYGzVji
+        t8DVCktce2KF60+skCa1RppUjIxKG2RIbWG+SYU7HRqRRz8wNMr7bjyxwbXHYlypEONSuTW+fmSJCz+a
-        fJ3AL6xU8docH62ClFwnxF40RkKBEQkxJyEWcN40GBaearBapgbr5X1YMRBPO7rxtJNA/RMCz1sxSIgF
+        46uH5jj7nRnOPLBCbLojVuxVjyait4QTllO8udJbozipwBHRt40QV2yI82VmuFwugtPBiRB5qMBiswos
-        wZx8Zvp8iMMUZ/81MyRcoriXJmBv3mwQFx9G3oZ+AX928dFq3FswHdEXDLAzTx8xeeORdNkY+wsmY+ba
+        twjaOh79gyPoHxrhbd/gCO+3YNqkAtEmFZh5qGCZ98c4V2aG1PumiLtjhLg785BSuAIrvTVYMbJlGAP4
-        MSivqkVpVQNuVdTjdmUD2tq7JB4/VaKkogEl5co1tp2xTg8p+ZNkjLh8I8TkjycYYt+VGZjnp91EnGoE
+        k7O3RntK8RJE3tLH8cI5iCqci4QSI6QWL8KyXbNQWV2Hp9UteFzVjCeyFvQODHP19MtVUdWCikr5MzZ2
-        PgdSxeuzvbW6k6/YIyJXF5G54/pFJBaYIuALU2yKd0fvL/9C65MutLR1orWti8bUE/i75XEnmh51SZuA
+        6W49JBUt5DZiigwRVTQXUUUGOHV3KVYf0OwgIhWhDjjFWyu8NEYS785HWIEuwgtmj0HEF5vA7ysTHIx1
-        hCXYfMiUyM0Qd9FQkkdd0MeOXH3sKZyIub7a3cQ5kMC/olLAG84btbrjL5oj/LwuduToSRFRVI3oPAMk
+        w4tf/onuvmF09Q6hu3cY3X1DXOy+q2cIHc+H+Ri/uI3wPWuChBJTxNw24M4jbs3BsYI5SC5dgFX7NUeI
-        F1phQZA2MgqO08H7BT+3dqCZCJsfd6DxERN34OeWDnkgs66cwPxALSKylhlHkT/H4XgRObq0DRZwoWSJ
+        aLzwL8oB3nbapzESe9sMoXm6OJavxyEibukjslAfiaUWWBugieziSxge/QU/dw+is2cInT2DaH/OHA/i
-        8y8vCJj5qWbjjiwTEjAWEdl9IhgXxilFXLbDNC913L1fjSftPXjY0k7owIPmDtm3tXej/mEd2WggpcBe
+        565BXpC5d69ijb8GkkstecQRhfrcDrMXlq+LuDsiOHtpMIC//A5g2efq7cdyjRGap4MwiQDBdGu2HKLE
-        +nDW7M9xmJwRmT0BThs0eQv6BfAZeN1x1bDL274xRniWLsIyxyAse4zSgZx35OrJLCLSLeEWaC3vPmfe
+        Bvaeqmh8VoO+gVG0dQ2grWsQrZ2DvO0dGEFzWz3sPdWQVDyfz2FRs/nMDnPOFC6ZB8e96mwJxgBYDbzl
-        0NSOhsZ2OeY5zyAFwtMs5dbtpIxVWTM43g5KLPiECRxXaVwlzv4zwAL+5LBEPXpjyngy1EVo5miEZo+W
+        sH1KyZErRgjN1UVIziyESGbJJ+Tr4ViBHo8iLN0crv6WfO+zyFs6BtDSPsCvWZ9HgBihaeZ86Y4XzB6L
-        TrIifdsSm2+MtYm62H1iGxH+gnoirycRPE45GYI1CWNpzycoRTPIj/3Ds8dSUqNprIfP9xjCwX1IInG+
+        monZOybRReBVYzhsV7unXAMM4I+2G1Uj9yXNRYhEF8E52giWaPNJPCPCskQXGWFXvC5OXj2CkdFf0Nw+
-        cAtetXD5aMrCLaPIeBxCzo1ESMZIhGaM6q+GDERILLDAHH91XL+VT1ewR+L70gI4+w3BLlpT2THYjxMJ
+        gOaOAX6ddC0IO+N0EHN7nhyaKU+Xzw+V6CAkRxuheXr4MtkAtm6T4l/eBW+InD+xW3doJkIlsxGUNQNB
-        zRwlY0VQ7EWBo2A6a7AzcfI7wNzKl5Dw9uRlQyv9jo6WAoLP6cieHTnAdspge19VYs7TQfIdjUdPWiXm
+        2TMQnD1zLBvcUJ4O4otFWOmjigePi9A/OMr1/dNiOB2YhBPForFxTGweCyQ4Zya3FSaZjfX+M2GyfKKT
-        +ekiOtOC1p6Rsn1IBpGTvyqO37ExmLJCo5q4/krgl3CAcFgylHrlW0BVcJ/nPwLbM8Zi65kR2HZ2hBQS
+        cA6MHUQsFe8u2jxZduCCNgcIzJrOWzaRGTiao42jQlai8kRw3q+N533dXKsP6CIyR4QQFqnglI0Pytbm
-        rBLSJyYsWw+BXxrBN2EuNu36BAHHjKhyenJ9u8qOk6AqBp/VkXHCKOb8zSNg5jR4OXGpyj9A2HuqUy+r
+        8xV2DlycBbutajVE9FfhJBxHthsnj50FIudP3Fb7aOFotg4O39TCkUwtDhKoABFgQiR68P/aEPvjVuHg
-        wCfyHQdP9Wtrdo0gASOliK3k/EyIsiosaGfOeHju1IZnpBbtuaEkk1sn15WkzzASa5NGgGLfII5n2XNT
+        ic/gd9EQoRI9/vyoYhwLInsGAjOnczsh2TpY46sFU8eJW5TSP47me6gqssAq8j1bD9X7O09o4fDNGRzi
-        uKuLs7eW8FAexjHWgwwnrxzW7H1kBIJIQNDpf8heVuQ5QYz4PDPE55thmyR8Rsq2Kp+gMzrwPqqDqSuG
+        cKYyiDwrDOh4/lx4HNeER7gGwvMNuDO+dEL22JzfNAO7ErRg66Fa9rvo2U/spkqZjzeOFeMsywkGi7ZN
-        tuiYvWtGHPx/QJk9N4Wbukgv9hBpxW78yWfhDcOpH86Ytlqje/1+LWxJH04gEaeHK8UQAk+zsBeJGHK+
+        6fQ6r4WAm1oIyJjGW54RJSCm2EJTxBaZ4gh3+JtTNlYxJ+DmdHhdmI7FWyd3TTd931R4H5BHzwFcVSm9
-        by6Q7NiPYziu0ejWn/S+C8V+h8CVHqDwkJX/NwGqrXjLYPIHsyYuHdq6PF6zT4QSgSTkRbAgAq/T9/O2
+        3J3Syl3ZLauFtw0Wf7zUfofayJ5UDRxKn4pD6dMQkDFVDpMxDf4ZDOz3jph4v9DnnzGNz2M2HHaqjcxZ
-        KxI0MWmpxiN9+/fnUEx+evnv2IA04lO4ybOnEuD2vACViDeHG71rYLv44x+cvDWw/qAWNlPQgHRtBKRR
+        +KEzy7CQ6XFid575fwFQLMU7+os+Wr5g0+TuLbHqAoRc/hkviwFNgz97nvHbOKatcepYuEnt+Zz5H64U
-        T+BvJuJ+83NzbOvsMwy2i4YUaRoMNKZYnLkkZzAX88rGA55gsBBqKhG8HXxX3zOc9uFyxeIhtY5eQ7E4
+        jl72OjYurdydxK689hQArsoACog/TzV8X996w6c/OHqpYc8ZDfimT4Vfuib80qZysXvmiLW+Sn1srJP3
-        TAPr9mpiwyEt+KdpY3OqNjYc1sK6fVpwozVHeooVi9XrDKcOXkm+fyO8SZBlZ6h4fiPAo68KvBUePK0S
+        FFivn/RQXX+8kRA5dy4HcOV+xwBYBxMDUYJgy8H26gcG9h9vEW+YVOfgORkbQtSwO0Ude89qwCdNE743
-        wYeFTyxfm0FjrAZNNp399zgr1yFF1q4fl9IBBsPGdUiplevHRaazP4ofbTloKtm+T+Cs+b8fJ9JP/rsC
+        NLH3nAZ2n9KAa4gaHDzVIN6gWm+weOI2IvobC0SRdoVz5uclAHchC2wp3JUhWLGwimXbZsIsiwmLTFb8
-        /hOoPS+ES8gV4cDvETi7D/rAY75e/L7zKWfR/cS/F5vx/zSVEL6qHJhLyoKYiMFjnuM1tlHZ/48mxK89
+        PcbCZdJDS5dPn4rdVMFk5TLpqYXLpw9NVnwSq20+YTERfShEzd79FK9e3Pm/BfhPegmEpZBlhBn+QIju
-        +oEotzUUCQAAAABJRU5ErkJggg==
+        I0Hsmm0vdr6zKld8kvH5L9tVsv9//xQgbKsqvowZEHPExK4VX8j860fQ//z9Cj36gSjD0TzyAAAAAElF
+        TkSuQmCC
 </value>
   </data>
   <data name="frmAdmin_notResponsibleConfig.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">

app/TaskFlow/frmAdmin_notResponsibleConfig.vb

@@ -21,12 +21,18 @@ Public Class frmAdmin_notResponsibleConfig
     End Sub
 
     Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
-        Dim oUpd = $"UPDATE TBPM_PROFILE SET NOT_RESP_SQL = '{oNotResponsible_SQL.Replace("'", "''")}',NOT_RESP_COMMENT_ATTRIBUTE = '{cmbAttrComment.Text}', CHANGED_WHO = '{User.UserName}' WHERE GUID = {oProfilID}"
+        Dim oUpd = $"UPDATE TBPM_PROFILE SET NOT_RESP_COMMENT = '{checkCommentMuss.Checked}', NOT_RESP_SQL = '{oNotResponsible_SQL.Replace("'", "''")}',NOT_RESP_COMMENT_ATTRIBUTE = '{cmbAttrComment.Text}', CHANGED_WHO = '{User.UserName}' WHERE GUID = {oProfilID}"
         If DatabaseECM.ExecuteNonQuery(oUpd) = True Then
             oUpd = $"EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM','PROFILE_NOT_RESPONSIBLE_QUEST{oProfilID}','{USER_LANGUAGE}','PROFILE_NOT_RESPONSIBLE_QUEST','{txtPROFILE_NOT_RESPONSIBLE_QUEST.Text}','','{USER_USERNAME}','{oProfilID}',0"
+            LOGGER.Debug($"oUpd: {oUpd}")
             If DatabaseECM.ExecuteNonQuery(oUpd) Then
-                oUpd = $"EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM','PROFILE_REJECTION_CAPT{oProfilID}','{USER_LANGUAGE}','PROFILE_REJECTION_CAPT','{txtCaption_NotResponsible.Text}','','{USER_USERNAME}','{oProfilID}',0"
+
-                bstitmInfo.Caption = "Data saved successfully - " + Now.ToString
+                oUpd = $"EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM','PROFILE_NOT_RESPONSIBLE_CAPT{oProfilID}','{USER_LANGUAGE}','PROFILE_NOT_RESPONSIBLE_CAPT','{txtCaption_NotResponsible.Text}','','{USER_USERNAME}','{oProfilID}',0"
+                If DatabaseECM.ExecuteNonQuery(oUpd) Then
+                    bstitmInfo.Caption = "Data saved successfully - " + Now.ToString
+                    LOGGER.Debug($"oUpd: {oUpd}")
+                End If
+
 
 
             End If
@@ -38,10 +44,11 @@ Public Class frmAdmin_notResponsibleConfig
     Private Sub frmAdmin_notResponsibleConfig_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
             Dim oNR_Act_Attr As String
-            Dim oSQL = $"SELECT NOT_RESP_SQL, NOT_RESP_COMMENT_ATTRIBUTE FROM TBPM_PROFILE WHERE GUID = {oProfilID}"
+            Dim oSQL = $"SELECT NOT_RESP_SQL, NOT_RESP_COMMENT_ATTRIBUTE,NOT_RESP_COMMENT FROM TBPM_PROFILE WHERE GUID = {oProfilID}"
             Dim oDT = DatabaseECM.GetDatatable(oSQL)
             oNotResponsible_SQL = oDT.Rows(0).Item("NOT_RESP_SQL")
             oNR_Act_Attr = oDT.Rows(0).Item("NOT_RESP_COMMENT_ATTRIBUTE")
+            checkCommentMuss.Checked = oDT.Rows(0).Item("NOT_RESP_COMMENT")
             LOGGER.Debug($"oNR_Act_Attr: {oNR_Act_Attr}")
 
 
@@ -109,7 +116,7 @@ Public Class frmAdmin_notResponsibleConfig
             Dim oldSQL = oNotResponsible_SQL
             Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {
                 .SQLCommand = oNotResponsible_SQL,
-                .SQLConnection = 1,
+                .SQLConnection = 0,
                 .PlaceholdersManualPrefix = "CTRL",
                 .PlaceholdersManualTitle = "Controls",
                 .PlaceholdersManual = CURRENT_CONTROL_NAME_LIST.ToDictionary(Function(name) name, Function(name) name)

app/TaskFlow/frmAdmin_rejectionConfig.vb

@@ -38,7 +38,7 @@ Public Class frmAdmin_rejectionConfig
             Dim oldSQL = oRej_SQL
             Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {
                 .SQLCommand = oldSQL,
-                .SQLConnection = 1,
+                .SQLConnection = 0,
                 .PlaceholdersManualPrefix = "CTRL",
                 .PlaceholdersManualTitle = "Controls",
                 .PlaceholdersManual = CURRENT_CONTROL_NAME_LIST.ToDictionary(Function(name) name, Function(name) name)
@@ -71,7 +71,7 @@ Public Class frmAdmin_rejectionConfig
             Dim oldSQL = oRej_SQL_Reasons
             Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {
                 .SQLCommand = oRej_SQL_Reasons,
-                .SQLConnection = 1,
+                .SQLConnection = 0,
                 .PlaceholdersManualPrefix = "CTRL",
                 .PlaceholdersManualTitle = "Controls",
                 .PlaceholdersManual = CURRENT_CONTROL_NAME_LIST.ToDictionary(Function(name) name, Function(name) name)

app/TaskFlow/frmAdministration.Designer.vb

@@ -37,7 +37,7 @@ Partial Class frmAdministration
         Me.SplitContainer_Profilzuordnung2 = New System.Windows.Forms.SplitContainer()
         Me.gridAssignedUsers = New DevExpress.XtraGrid.GridControl()
         Me.TBPROFILE_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
+        Me.DD_DMSLiteDataSet = New taskFLOW.DD_DMSLiteDataSet()
         Me.viewAssignedUsers = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.colPRENAME1 = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.colNAME3 = New DevExpress.XtraGrid.Columns.GridColumn()
@@ -76,7 +76,7 @@ Partial Class frmAdministration
         Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
         Me.gridFinalIndex = New DevExpress.XtraGrid.GridControl()
         Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.FinalIndexDataSet = New DD_ProcessManager.FinalIndexDataSet()
+        Me.FinalIndexDataSet = New taskFLOW.FinalIndexDataSet()
         Me.viewFinalIndex = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.colPROFIL_ID = New DevExpress.XtraGrid.Columns.GridColumn()
@@ -130,9 +130,9 @@ Partial Class frmAdministration
         Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
+        Me.TableAdapterManager = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
         Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.TBPM_PROFILETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter()
+        Me.TBPM_PROFILETableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.cmbObjekttypen = New System.Windows.Forms.ComboBox()
         Me.FINAL_PROFILECheckBox = New System.Windows.Forms.CheckBox()
@@ -152,7 +152,7 @@ Partial Class frmAdministration
         Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
         Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
         Me.dlgWindreamsuche = New System.Windows.Forms.OpenFileDialog()
-        Me.TBPM_TYPETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_TYPETableAdapter()
+        Me.TBPM_TYPETableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_TYPETableAdapter()
         Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
@@ -242,19 +242,19 @@ Partial Class frmAdministration
         Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.TBPROFILE_USERTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter()
+        Me.TBPROFILE_USERTableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter()
-        Me.TBDD_USERTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter()
+        Me.TBDD_USERTableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter()
-        Me.TBPM_KONFIGURATIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter()
+        Me.TBPM_KONFIGURATIONTableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter()
         Me.pnlMain = New System.Windows.Forms.Panel()
-        Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter()
+        Me.TBPM_PROFILE_CONTROLSTableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter()
         Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.TBPM_PROFILE_FILESTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter()
+        Me.TBPM_PROFILE_FILESTableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter()
-        Me.TBDD_CONNECTIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter()
+        Me.TBDD_CONNECTIONTableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter()
-        Me.TBDD_GROUPSTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_GROUPSTableAdapter()
+        Me.TBDD_GROUPSTableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBDD_GROUPSTableAdapter()
-        Me.TBPROFILE_GROUPTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPROFILE_GROUPTableAdapter()
+        Me.TBPROFILE_GROUPTableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPROFILE_GROUPTableAdapter()
         Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
-        Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter()
+        Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter()
-        Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_ProcessManager.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter()
+        Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New taskFLOW.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter()
         Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.FolderBrowserDialog2 = New System.Windows.Forms.FolderBrowserDialog()
@@ -685,6 +685,7 @@ Partial Class frmAdministration
         Me.viewFinalIndex.Name = "viewFinalIndex"
         Me.viewFinalIndex.OptionsBehavior.Editable = False
         Me.viewFinalIndex.OptionsBehavior.ReadOnly = True
+        Me.viewFinalIndex.OptionsSelection.EnableAppearanceFocusedRow = False
         Me.viewFinalIndex.OptionsView.EnableAppearanceEvenRow = True
         Me.viewFinalIndex.OptionsView.ShowGroupPanel = False
         '
@@ -757,7 +758,7 @@ Partial Class frmAdministration
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
         Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItemRefreshProfileData, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.tsbStaticInfo, Me.BarButtonItem20, Me.BarButtonItem21, Me.bbtnItemFinishSQL, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.BarButtonItem26, Me.BarToggleSwitchItemEdit, Me.bbtnitmReject, Me.bbtnitmNotResponsible})
         resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
-        Me.RibbonControl1.MaxItemId = 32
+        Me.RibbonControl1.MaxItemId = 33
         Me.RibbonControl1.Name = "RibbonControl1"
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3})
         Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
@@ -777,7 +778,7 @@ Partial Class frmAdministration
         '
         resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
         Me.BarButtonItem2.Id = 2
-        Me.BarButtonItem2.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.chartdesigner2
+        Me.BarButtonItem2.ImageOptions.SvgImage = Global.taskFLOW.My.Resources.Resources.chartdesigner2
         Me.BarButtonItem2.Name = "BarButtonItem2"
         '
         'BarButtonItem3
@@ -909,7 +910,7 @@ Partial Class frmAdministration
         '
         resources.ApplyResources(Me.BarButtonItem19, "BarButtonItem19")
         Me.BarButtonItem19.Id = 19
-        Me.BarButtonItem19.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.cancel1
+        Me.BarButtonItem19.ImageOptions.SvgImage = Global.taskFLOW.My.Resources.Resources.cancel1
         Me.BarButtonItem19.Name = "BarButtonItem19"
         '
         'tsbStaticInfo
@@ -975,7 +976,7 @@ Partial Class frmAdministration
         '
         resources.ApplyResources(Me.BarButtonItem26, "BarButtonItem26")
         Me.BarButtonItem26.Id = 28
-        Me.BarButtonItem26.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.Security_Lock
+        Me.BarButtonItem26.ImageOptions.SvgImage = Global.taskFLOW.My.Resources.Resources.Security_Lock
         Me.BarButtonItem26.Name = "BarButtonItem26"
         Me.BarButtonItem26.Tag = "Unlock"
         Me.BarButtonItem26.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
@@ -1143,7 +1144,7 @@ Partial Class frmAdministration
         Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing
         Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing
         Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
-        Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        Me.TableAdapterManager.UpdateOrder = taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'TBPM_PROFILEBindingSource
         '
@@ -1193,7 +1194,7 @@ Partial Class frmAdministration
         'btnWMopenSuche
         '
         resources.ApplyResources(Me.btnWMopenSuche, "btnWMopenSuche")
-        Me.btnWMopenSuche.Image = Global.DD_ProcessManager.My.Resources.Resources.flag_green
+        Me.btnWMopenSuche.Image = Global.taskFLOW.My.Resources.Resources.flag_green
         Me.btnWMopenSuche.Name = "btnWMopenSuche"
         Me.btnWMopenSuche.UseVisualStyleBackColor = True
         '
@@ -1628,28 +1629,28 @@ Partial Class frmAdministration
         '
         'Button4
         '
-        Me.Button4.Image = Global.DD_ProcessManager.My.Resources.Resources.DeleteFilter_5563
+        Me.Button4.Image = Global.taskFLOW.My.Resources.Resources.DeleteFilter_5563
         resources.ApplyResources(Me.Button4, "Button4")
         Me.Button4.Name = "Button4"
         Me.Button4.UseVisualStyleBackColor = True
         '
         'Button3
         '
-        Me.Button3.Image = Global.DD_ProcessManager.My.Resources.Resources.DeleteFilter_5563
+        Me.Button3.Image = Global.taskFLOW.My.Resources.Resources.DeleteFilter_5563
         resources.ApplyResources(Me.Button3, "Button3")
         Me.Button3.Name = "Button3"
         Me.Button3.UseVisualStyleBackColor = True
         '
         'Button2
         '
-        Me.Button2.Image = Global.DD_ProcessManager.My.Resources.Resources.DeleteFilter_5563
+        Me.Button2.Image = Global.taskFLOW.My.Resources.Resources.DeleteFilter_5563
         resources.ApplyResources(Me.Button2, "Button2")
         Me.Button2.Name = "Button2"
         Me.Button2.UseVisualStyleBackColor = True
         '
         'Button1
         '
-        Me.Button1.Image = Global.DD_ProcessManager.My.Resources.Resources.DeleteFilter_5563
+        Me.Button1.Image = Global.taskFLOW.My.Resources.Resources.DeleteFilter_5563
         resources.ApplyResources(Me.Button1, "Button1")
         Me.Button1.Name = "Button1"
         Me.Button1.UseVisualStyleBackColor = True
@@ -1693,7 +1694,7 @@ Partial Class frmAdministration
         '
         'Series4SQL
         '
-        Me.Series4SQL.Image = Global.DD_ProcessManager.My.Resources.Resources.database_go
+        Me.Series4SQL.Image = Global.taskFLOW.My.Resources.Resources.database_go
         resources.ApplyResources(Me.Series4SQL, "Series4SQL")
         Me.Series4SQL.Name = "Series4SQL"
         Me.Series4SQL.UseVisualStyleBackColor = True
@@ -1727,7 +1728,7 @@ Partial Class frmAdministration
         '
         'Series3SQL
         '
-        Me.Series3SQL.Image = Global.DD_ProcessManager.My.Resources.Resources.database_go
+        Me.Series3SQL.Image = Global.taskFLOW.My.Resources.Resources.database_go
         resources.ApplyResources(Me.Series3SQL, "Series3SQL")
         Me.Series3SQL.Name = "Series3SQL"
         Me.Series3SQL.UseVisualStyleBackColor = True
@@ -1761,7 +1762,7 @@ Partial Class frmAdministration
         '
         'Series2SQL
         '
-        Me.Series2SQL.Image = Global.DD_ProcessManager.My.Resources.Resources.database_go
+        Me.Series2SQL.Image = Global.taskFLOW.My.Resources.Resources.database_go
         resources.ApplyResources(Me.Series2SQL, "Series2SQL")
         Me.Series2SQL.Name = "Series2SQL"
         Me.Series2SQL.UseVisualStyleBackColor = True
@@ -1800,7 +1801,7 @@ Partial Class frmAdministration
         '
         'Series1SQL
         '
-        Me.Series1SQL.Image = Global.DD_ProcessManager.My.Resources.Resources.database_go
+        Me.Series1SQL.Image = Global.taskFLOW.My.Resources.Resources.database_go
         resources.ApplyResources(Me.Series1SQL, "Series1SQL")
         Me.Series1SQL.Name = "Series1SQL"
         Me.Series1SQL.UseVisualStyleBackColor = True
@@ -2004,7 +2005,7 @@ Partial Class frmAdministration
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.RibbonControl1)
         Me.IconOptions.Icon = CType(resources.GetObject("frmAdministration.IconOptions.Icon"), System.Drawing.Icon)
-        Me.IconOptions.LargeImage = Global.DD_ProcessManager.My.Resources.Resources.publicfix_32x32
+        Me.IconOptions.LargeImage = Global.taskFLOW.My.Resources.Resources.publicfix_32x32
         Me.Name = "frmAdministration"
         Me.Ribbon = Me.RibbonControl1
         Me.StatusBar = Me.RibbonStatusBar1
@@ -2088,10 +2089,10 @@ Partial Class frmAdministration
         Me.PerformLayout()
 
     End Sub
-    Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet
+    Friend WithEvents DD_DMSLiteDataSet As taskFLOW.DD_DMSLiteDataSet
-    Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
+    Friend WithEvents TableAdapterManager As taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
     Friend WithEvents TBPM_PROFILEBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBPM_PROFILETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter
+    Friend WithEvents TBPM_PROFILETableAdapter As taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter
     Friend WithEvents btnWMSuche As System.Windows.Forms.Button
     Friend WithEvents TITLETextBox As System.Windows.Forms.TextBox
     Friend WithEvents PROFILGUIDTextBox As System.Windows.Forms.TextBox
@@ -2109,7 +2110,7 @@ Partial Class frmAdministration
     Friend WithEvents btnWMopenSuche As System.Windows.Forms.Button
     Friend WithEvents PRIORITYNumericUpDown As System.Windows.Forms.NumericUpDown
     Friend WithEvents TBPM_TYPEBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBPM_TYPETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_TYPETableAdapter
+    Friend WithEvents TBPM_TYPETableAdapter As taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_TYPETableAdapter
     Friend WithEvents FolderBrowserDialog1 As System.Windows.Forms.FolderBrowserDialog
     Friend WithEvents cmbObjekttypen As System.Windows.Forms.ComboBox
     Friend WithEvents Label2 As System.Windows.Forms.Label
@@ -2118,11 +2119,11 @@ Partial Class frmAdministration
     Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
     Friend WithEvents SplitContainer_Profilzuordnung2 As System.Windows.Forms.SplitContainer
     Friend WithEvents TBPROFILE_USERBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBPROFILE_USERTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter
+    Friend WithEvents TBPROFILE_USERTableAdapter As taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter
     Friend WithEvents TBDD_USERBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBDD_USERTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter
+    Friend WithEvents TBDD_USERTableAdapter As taskFLOW.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter
     Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter
+    Friend WithEvents TBPM_KONFIGURATIONTableAdapter As taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter
     Friend WithEvents pnlMain As System.Windows.Forms.Panel
     Friend WithEvents SORT_BY_LATESTCheckBox As System.Windows.Forms.CheckBox
     Friend WithEvents tabctrl_Profilkonfig As System.Windows.Forms.TabControl
@@ -2130,17 +2131,17 @@ Partial Class frmAdministration
     Friend WithEvents TabPageAfterIndex As System.Windows.Forms.TabPage
     Friend WithEvents Label6 As System.Windows.Forms.Label
     Friend WithEvents TBPM_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBPM_PROFILE_CONTROLSTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter
+    Friend WithEvents TBPM_PROFILE_CONTROLSTableAdapter As taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter
     Friend WithEvents PM_VEKTOR_INDEXComboBox As System.Windows.Forms.ComboBox
     Friend WithEvents TBPM_PROFILE_FILESBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter
+    Friend WithEvents TBPM_PROFILE_FILESTableAdapter As taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter
     Friend WithEvents cmbLOGIndex As System.Windows.Forms.ComboBox
     Friend WithEvents DataGridViewCheckBoxColumn2 As System.Windows.Forms.DataGridViewCheckBoxColumn
     Friend WithEvents GridControlNavigation As DevExpress.XtraGrid.GridControl
     Friend WithEvents GridViewProfile As DevExpress.XtraGrid.Views.Grid.GridView
     Friend WithEvents colNAME As DevExpress.XtraGrid.Columns.GridColumn
     Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter
+    Friend WithEvents TBDD_CONNECTIONTableAdapter As taskFLOW.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter
     Friend WithEvents TabControl2 As TabControl
     Friend WithEvents TabPage11 As TabPage
     Friend WithEvents TabPage12 As TabPage

app/TaskFlow/frmAdministration.resx

@@ -565,7 +565,7 @@
     <value>58</value>
   </data>
   <data name="gridAssignedGroups.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1002, 202</value>
+    <value>1002, 203</value>
   </data>
   <data name="gridAssignedGroups.TabIndex" type="System.Int32, mscorlib">
     <value>3</value>
@@ -688,7 +688,7 @@
     <value>58</value>
   </data>
   <data name="gridAvailableGroups.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1002, 237</value>
+    <value>1002, 236</value>
   </data>
   <data name="gridAvailableGroups.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -778,7 +778,7 @@
     <value>1002, 493</value>
   </data>
   <data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
-    <value>227</value>
+    <value>228</value>
   </data>
   <data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -4630,7 +4630,7 @@
     <value>6, 89</value>
   </data>
   <data name="GroupBox2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1, 0</value>
+    <value>0, 0</value>
   </data>
   <data name="GroupBox2.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -4938,7 +4938,7 @@ Top Kreditoren: </value>
     <value>True</value>
   </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>180</value>
+    <value>91</value>
   </metadata>
   <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
     <value>7, 16</value>
@@ -5048,7 +5048,7 @@ Top Kreditoren: </value>
     <value>DD_DMSLiteDataSet</value>
   </data>
   <data name="&gt;&gt;DD_DMSLiteDataSet.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;viewAssignedUsers.Name" xml:space="preserve">
     <value>viewAssignedUsers</value>
@@ -5198,7 +5198,7 @@ Top Kreditoren: </value>
     <value>FinalIndexDataSet</value>
   </data>
   <data name="&gt;&gt;FinalIndexDataSet.Type" xml:space="preserve">
-    <value>DD_ProcessManager.FinalIndexDataSet, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.FinalIndexDataSet, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;viewFinalIndex.Name" xml:space="preserve">
     <value>viewFinalIndex</value>
@@ -5504,7 +5504,7 @@ Top Kreditoren: </value>
     <value>TableAdapterManager</value>
   </data>
   <data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TBPM_PROFILEBindingSource.Name" xml:space="preserve">
     <value>TBPM_PROFILEBindingSource</value>
@@ -5516,7 +5516,7 @@ Top Kreditoren: </value>
     <value>TBPM_PROFILETableAdapter</value>
   </data>
   <data name="&gt;&gt;TBPM_PROFILETableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TBPM_TYPEBindingSource.Name" xml:space="preserve">
     <value>TBPM_TYPEBindingSource</value>
@@ -5534,7 +5534,7 @@ Top Kreditoren: </value>
     <value>TBPM_TYPETableAdapter</value>
   </data>
   <data name="&gt;&gt;TBPM_TYPETableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_TYPETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_TYPETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;FolderBrowserDialog1.Name" xml:space="preserve">
     <value>FolderBrowserDialog1</value>
@@ -5582,25 +5582,25 @@ Top Kreditoren: </value>
     <value>TBPROFILE_USERTableAdapter</value>
   </data>
   <data name="&gt;&gt;TBPROFILE_USERTableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TBDD_USERTableAdapter.Name" xml:space="preserve">
     <value>TBDD_USERTableAdapter</value>
   </data>
   <data name="&gt;&gt;TBDD_USERTableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TBPM_KONFIGURATIONTableAdapter.Name" xml:space="preserve">
     <value>TBPM_KONFIGURATIONTableAdapter</value>
   </data>
   <data name="&gt;&gt;TBPM_KONFIGURATIONTableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TBPM_PROFILE_CONTROLSTableAdapter.Name" xml:space="preserve">
     <value>TBPM_PROFILE_CONTROLSTableAdapter</value>
   </data>
   <data name="&gt;&gt;TBPM_PROFILE_CONTROLSTableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TBPM_PROFILE_FILESBindingSource.Name" xml:space="preserve">
     <value>TBPM_PROFILE_FILESBindingSource</value>
@@ -5612,25 +5612,25 @@ Top Kreditoren: </value>
     <value>TBPM_PROFILE_FILESTableAdapter</value>
   </data>
   <data name="&gt;&gt;TBPM_PROFILE_FILESTableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TBDD_CONNECTIONTableAdapter.Name" xml:space="preserve">
     <value>TBDD_CONNECTIONTableAdapter</value>
   </data>
   <data name="&gt;&gt;TBDD_CONNECTIONTableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TBDD_GROUPSTableAdapter.Name" xml:space="preserve">
     <value>TBDD_GROUPSTableAdapter</value>
   </data>
   <data name="&gt;&gt;TBDD_GROUPSTableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_GROUPSTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBDD_GROUPSTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TBPROFILE_GROUPTableAdapter.Name" xml:space="preserve">
     <value>TBPROFILE_GROUPTableAdapter</value>
   </data>
   <data name="&gt;&gt;TBPROFILE_GROUPTableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPROFILE_GROUPTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPROFILE_GROUPTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;OpenFileDialog1.Name" xml:space="preserve">
     <value>OpenFileDialog1</value>
@@ -5642,13 +5642,13 @@ Top Kreditoren: </value>
     <value>FNPM_GET_FREE_USER_FOR_PROFILETableAdapter</value>
   </data>
   <data name="&gt;&gt;FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Name" xml:space="preserve">
     <value>TBPM_PROFILE_FINAL_INDEXINGTableAdapter</value>
   </data>
   <data name="&gt;&gt;TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;ToolTip1.Name" xml:space="preserve">
     <value>ToolTip1</value>

app/TaskFlow/frmAdministration.vb

@@ -25,6 +25,7 @@ Public Class frmAdministration
     Private Property profile_guid As Integer = 0
     Private Property DT_CHART_CONFIG As DataTable
     Private Property PROF_ORIGIN As DataTable
+    Private focusedRowHandle As Integer = 199
 
     Private Sub frmAdministration_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         _Logger.Debug("Loading Administration")
@@ -112,7 +113,7 @@ Public Class frmAdministration
                     MyIndicies_Types = New List(Of Integer)
                     MyIndicies = New List(Of String)
                     MyIndicies = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList()
-
+                    MVSource_AllIndicies = MyIndicies
 
                     If MyIndicies IsNot Nothing Then
                         Dim i As Integer = 0
@@ -429,6 +430,7 @@ Public Class frmAdministration
                 pgFinalIndexes.SelectedObject = Nothing
             End If
 
+            tsbStaticInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Refresh_Final_indexe:")
         Finally
@@ -658,36 +660,37 @@ Public Class frmAdministration
             Dim view As GridView = sender
             Dim focusedRow As DataRow = view.GetFocusedDataRow()
 
+
             If IsNothing(focusedRow) Then
                 Exit Sub
+            ElseIf INSERT_ACTIVE = True Then
+                'Exit Sub
             End If
 
             Dim oShouldRefreshGrid = False
             If UNSAVED_CHANGES_FI = True Then
                 oShouldRefreshGrid = CHECK_QUESTION_CHANGES()
             End If
-
+            pgFinalIndexes.SelectedObject = Nothing
-
 
             Dim guid As Integer = focusedRow.Item("GUID")
-            Dim index As String = NotNull(focusedRow.Item("INDEXNAME"), Nothing)
+            Dim index As String = ClassAllgemeineFunktionen.NotNullString(focusedRow.Item("INDEXNAME"), Nothing)
-            Dim sqlCommand As String = NotNull(focusedRow.Item("SQL_COMMAND"), "")
+            Dim sqlCommand As String = ClassAllgemeineFunktionen.NotNullString(focusedRow.Item("SQL_COMMAND"), "")
-            Dim connectionId As Integer = NotNull(focusedRow.Item("CONNECTION_ID"), 0)
+            ' Dim connectionId As Integer = ClassAllgemeineFunktionen.NotNullString(focusedRow.Item("CONNECTION_ID"), 0)
-            Dim value As String = NotNull(focusedRow.Item("VALUE"), "")
+            Dim value As String = ClassAllgemeineFunktionen.NotNullString(focusedRow.Item("VALUE"), "")
-            Dim active As Boolean = NotNull(focusedRow.Item("ACTIVE"), True)
+            Dim active As Boolean = ClassAllgemeineFunktionen.NotNullString(focusedRow.Item("ACTIVE"), True)
-            Dim description As String = NotNull(focusedRow.Item("DESCRIPTION"), "")
+            Dim description As String = ClassAllgemeineFunktionen.NotNullString(focusedRow.Item("DESCRIPTION"), "")
-            Dim preventDuplicates As Boolean = NotNull(focusedRow.Item("PREVENT_DUPLICATES"), False)
+            Dim preventDuplicates As Boolean = ClassAllgemeineFunktionen.NotNullString(focusedRow.Item("PREVENT_DUPLICATES"), False)
-            Dim allowNewValues As Boolean = NotNull(focusedRow.Item("ALLOW_NEW_VALUES"), False)
+            Dim allowNewValues As Boolean = ClassAllgemeineFunktionen.NotNullString(focusedRow.Item("ALLOW_NEW_VALUES"), False)
-            Dim VectorBehaviour As String = NotNull(focusedRow.Item("IF_VEKTOR_BEHAVIOUR"), "Add")
+            Dim VectorBehaviour As String = ClassAllgemeineFunktionen.NotNullString(focusedRow.Item("IF_VEKTOR_BEHAVIOUR"), "Add")
-            Dim oSequence As Int16 = NotNull(focusedRow.Item("SEQUENCE"), 0)
+            Dim oSequence As Int16 = ClassAllgemeineFunktionen.NotNullString(focusedRow.Item("SEQUENCE"), 0)
-            Dim oIndetermined As Boolean = NotNull(focusedRow.Item("CONTINUE_INDETERMINED"), False)
+            Dim oIndetermined As Boolean = ClassAllgemeineFunktionen.NotNullString(focusedRow.Item("CONTINUE_INDETERMINED"), False)
             CURRENT_INDEX_ID = guid
 
             Dim obj As New FinalIndexProperties With {
                 .GUID = guid,
                 .IndexName = index,
-                .SQLCommand = New SQLValue(sqlCommand, connectionId),
+                .SQLCommand = New SQLValue(sqlCommand),
-                .ConnectionId = connectionId,
                 .Description = description,
                 .Active = active,
                 .AllowAddNewValues = allowNewValues,
@@ -711,7 +714,8 @@ Public Class frmAdministration
             obj.IndexName = index
             obj.VectorBehaviourType = New List(Of String) From {
                 "Add",
-                "Overwrite"
+                "Overwrite",
+                "Delete"
             }
 
             If index IsNot Nothing Then
@@ -725,9 +729,9 @@ Public Class frmAdministration
             pgFinalIndexes.SelectedObject = obj
             pgFinalIndexes.Refresh()
 
-            If oShouldRefreshGrid Then
+            'If oShouldRefreshGrid Then
-                Refresh_Final_Indexes()
+            '    Refresh_Final_Indexes()
-            End If
+            'End If
         Catch ex As Exception
             _Logger.Error(ex)
             MsgBox($"Error while loading Final Index properties: {ex.Message}", MsgBoxStyle.Critical)
@@ -755,12 +759,8 @@ Public Class frmAdministration
                 Dim value As SQLValue = oValue
 
                 If value.Value <> String.Empty Then
-                    'obj.ConnectionId = CURRENT_CONN_ID_FINAL_INDEX
                     obj.StringValue = "SQL-Command"
-                    obj.ConnectionId = value.ConnectionId
+                    'obj.ConnectionId = value.ConnectionId
-
-                    'obj.FloatValue = 0
-                    ' obj.IntegerValue = 0
                 End If
 
                 pgFinalIndexes.Refresh()
@@ -775,6 +775,17 @@ Public Class frmAdministration
                     obj.Sequence = oValue
                 ElseIf oName = "ContinueOnIndifferentState" Then
                     obj.ContinueOnIndifferentState = oValue
+                ElseIf oName = "VectorBehaviour" Then
+                    If Not IsNothing(oValue) Then
+                        If oValue = "Delete" Then
+                            obj.StringValue = "DeleteWMAttributeValue"
+                            obj.SQLCommand.Value = ""
+
+                        ElseIf oValue = "Add" And obj.StringValue = "" Then
+                            obj.StringValue = "Your value to set"
+                        End If
+                    End If
+
                 End If
                 pgFinalIndexes.Refresh()
             End If
@@ -799,12 +810,8 @@ Public Class frmAdministration
                 Dim value As SQLValue = e.ChangedItem.Value
 
                 If value.Value <> String.Empty Then
-                    'obj.ConnectionId = CURRENT_CONN_ID_FINAL_INDEX
                     obj.StringValue = "SQL-Command"
-                    obj.ConnectionId = value.ConnectionId
+                    'obj.ConnectionId = value.ConnectionId
-
-                    'obj.FloatValue = 0
-                    ' obj.IntegerValue = 0
                 End If
 
                 propertyGrid.Refresh()
@@ -1006,7 +1013,7 @@ Public Class frmAdministration
             Dim oSQL = BASEDATA_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW")
             Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {
             .SQLCommand = oSQL,
-            .SQLConnection = 1
+            .SQLConnection = 0
          }
             oForm.ShowDialog()
 
@@ -1048,10 +1055,14 @@ Public Class frmAdministration
     Private Sub BarButtonItem18_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem18.ItemClick
         Save_Final_Indexes()
         Refresh_Final_Indexes()
+        If focusedRowHandle <> 199 Then
+            viewFinalIndex.FocusedRowHandle = focusedRowHandle
+        End If
     End Sub
     Private Sub Save_Final_Indexes()
         Try
             'Dim obj As FinalIndexProperties = PropertyGrid1.SelectedObject
+            pgFinalIndexes.EndUpdate()
             Dim obj As FinalIndexProperties = pgFinalIndexes.SelectedObject
 
             If Not IsNothing(obj) Then
@@ -1063,24 +1074,25 @@ Public Class frmAdministration
                 Else
                     value = FINALINDICES.GetValue(obj, obj.IndexName, MyIndicies, MyIndicies_Types, obj.VectorIndex)
                 End If
-                value = NotNull(value, String.Empty)
+                value = ClassAllgemeineFunktionen.NotNullString(value, String.Empty)
 
                 Dim guid = obj.GUID
                 Dim oProfileId As Integer = PROFILGUIDTextBox.Text
-
+                focusedRowHandle = 199
+                focusedRowHandle = viewFinalIndex.FocusedRowHandle
                 'Dim connectionId As Integer = obj.ConnectionId
-                Dim connectionId As Integer = NotNull(obj.SQLCommand.ConnectionId, 1)
+                ' Dim connectionId As Integer = ClassAllgemeineFunktionen.NotNullString(obj.SQLCommand.ConnectionId, 1)
-                Dim sqlCommand As String = NotNull(obj.SQLCommand.Value, String.Empty).Replace("'", "''")
+                Dim sqlCommand As String = ClassAllgemeineFunktionen.NotNullString(obj.SQLCommand.Value, String.Empty).Replace("'", "''")
 
-                Dim indexName As String = NotNull(obj.IndexName, String.Empty)
+                Dim indexName As String = ClassAllgemeineFunktionen.NotNullString(obj.IndexName, String.Empty)
                 Dim isVectorIndex As Boolean = obj.VectorIndex
                 Dim addedWho As String = USER_USERNAME
                 Dim description As String = obj.Description
                 Dim active As Integer = IIf(obj.Active, 1, 0)
                 Dim preventDuplicates As Integer = IIf(obj.PreventDuplicates, 1, 0)
                 Dim AllowAddNewValues As Integer = IIf(obj.AllowAddNewValues, 1, 0)
-                Dim IF_VEKTOR_BEHAVIOUR As String = NotNull(obj.VectorBehaviour, String.Empty)
+                Dim IF_VEKTOR_BEHAVIOUR As String = ClassAllgemeineFunktionen.NotNullString(obj.VectorBehaviour, String.Empty)
-                Dim oDescription As String = NotNull(obj.Description, String.Empty)
+                Dim oDescription As String = ClassAllgemeineFunktionen.NotNullString(obj.Description, String.Empty)
                 Dim oSequence As Integer = obj.Sequence
                 Dim oContinueOIdS As Integer = obj.ContinueOnIndifferentState
                 If indexName = String.Empty Then
@@ -1108,20 +1120,26 @@ Public Class frmAdministration
                     End If
 
                     Dim sql As String = $"INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ACTIVE, PREVENT_DUPLICATES, ALLOW_NEW_VALUES, ADDED_WHO,IF_VEKTOR_BEHAVIOUR,DESCRIPTION,SEQUENCE,CONTINUE_INDETERMINED)
-                                     VALUES ({oProfileId}, {connectionId}, '{sqlCommand}', '{indexName}', '{value}', {active}, {preventDuplicates}, {AllowAddNewValues}, '{addedWho}','{IF_VEKTOR_BEHAVIOUR}','{oDescription}',{pSequence},{oContinueOIdS})"
+                                     VALUES ({oProfileId}, 0, '{sqlCommand}', '{indexName}', '{value}', {active}, {preventDuplicates}, {AllowAddNewValues}, '{addedWho}','{IF_VEKTOR_BEHAVIOUR}','{oDescription}',{pSequence},{oContinueOIdS})"
 
                     If DatabaseFallback.ExecuteNonQueryECM(sql) Then
                         tsbStaticInfo.Caption = $"Final index added - {Now.ToLongTimeString}"
                         INSERT_ACTIVE = False
+                        'Refresh_Final_Indexes()
                     End If
                 Else
                     Dim sql As String = $"UPDATE TBPM_PROFILE_FINAL_INDEXING 
-                                      SET CONNECTION_ID = {connectionId}, SQL_COMMAND = '{sqlCommand}', INDEXNAME = '{indexName}', CHANGED_WHO = '{addedWho}', DESCRIPTION = '{oDescription}',
+                                      SET CONNECTION_ID = 0, SQL_COMMAND = '{sqlCommand}', INDEXNAME = '{indexName}', CHANGED_WHO = '{addedWho}', DESCRIPTION = '{oDescription}',
-                                      VALUE = '{value}', ACTIVE = {active}, ALLOW_NEW_VALUES = {AllowAddNewValues}, PREVENT_DUPLICATES = {preventDuplicates},IF_VEKTOR_BEHAVIOUR = '{IF_VEKTOR_BEHAVIOUR}', [SEQUENCE] = {oSequence}, CONTINUE_INDETERMINED = {oContinueOIdS}
+                                      VALUE = '{value}', ACTIVE = {active}, ALLOW_NEW_VALUES = {AllowAddNewValues}, PREVENT_DUPLICATES = {preventDuplicates},
+                                      IF_VEKTOR_BEHAVIOUR = '{IF_VEKTOR_BEHAVIOUR}', 
+                                      [SEQUENCE] = {oSequence}, CONTINUE_INDETERMINED = {oContinueOIdS}
                                       WHERE GUID = {guid}"
 
                     If DatabaseFallback.ExecuteNonQueryECM(sql) Then
-                        tsbStaticInfo.Caption = $"Final index saved - {Now.ToLongTimeString} - RESTART NECESSARY"
+                        tsbStaticInfo.Caption = $"Final index saved - {Now.ToLongTimeString} - RESTART/REFRESH NECESSARY"
+                        tsbStaticInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                    Else
+
                     End If
                 End If
 
@@ -1136,7 +1154,10 @@ Public Class frmAdministration
         Finally
             BarButtonItem19.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
             BarButtonItem16.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
-            INSERT_ACTIVE = False
+            If INSERT_ACTIVE Then
+                INSERT_ACTIVE = False
+            End If
+
             UNSAVED_CHANGES_FI = False
         End Try
     End Sub
@@ -1156,7 +1177,7 @@ Public Class frmAdministration
         Try
             Dim oSQL = BASEDATA_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW")
             CURRENT_DESIGN_TYPE = "SQL_OVERVIEW"
-            Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {.SQLCommand = oSQL, .SQLConnection = 1}
+            Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {.SQLCommand = oSQL, .SQLConnection = 0}
             oForm.ShowDialog()
 
             If oForm.DialogResult = DialogResult.OK Then
@@ -1178,7 +1199,7 @@ Public Class frmAdministration
             Dim oldSQL = DatabaseFallback.GetScalarValueECM(oSQL)
             Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {
                 .SQLCommand = oldSQL,
-                .SQLConnection = 1,
+                .SQLConnection = 0,
                 .PlaceholdersManualPrefix = "CTRL",
                 .PlaceholdersManualTitle = "Controls",
                 .PlaceholdersManual = CURRENT_CONTROL_NAME_LIST.ToDictionary(Function(name) name, Function(name) name)
@@ -1214,6 +1235,13 @@ Public Class frmAdministration
                 .PlaceholdersManualTitle = "Controls",
                 .PlaceholdersManual = CURRENT_CONTROL_NAME_LIST.ToDictionary(Function(name) name, Function(name) name)
             }
+
+            If IDB_ACTIVE = False Then
+                oForm.ATTRIBUTE_STORE = "WM"
+                oForm.PlaceholdersWindream = MVSource_AllIndicies
+            Else
+                oForm.ATTRIBUTE_STORE = "IDB"
+            End If
             oForm.ShowDialog()
 
             If oForm.DialogResult = DialogResult.OK Then
@@ -1253,6 +1281,7 @@ Public Class frmAdministration
 
                 If UNSAVED_CHANGES_FI Then
                     Save_Final_Indexes()
+                    'Refresh_Final_Indexes()
                 End If
 
                 Return True
@@ -1587,4 +1616,8 @@ Public Class frmAdministration
         Dim ofrm As New frmAdmin_notResponsibleConfig(PROFILGUIDTextBox.Text)
         ofrm.ShowDialog()
     End Sub
+
+    Private Sub BarButtonItem1_ItemClick_2(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs)
+        viewFinalIndex.FocusedRowHandle() = 2
+    End Sub
 End Class

app/TaskFlow/frmAnnotations.Designer.vb

@@ -35,7 +35,7 @@ Partial Class frmAnnotations
         'Button1
         '
         Me.Button1.Cursor = System.Windows.Forms.Cursors.Default
-        Me.Button1.Image = Global.DD_ProcessManager.My.Resources.Resources.add
+        Me.Button1.Image = Global.taskFLOW.My.Resources.Resources.add
         resources.ApplyResources(Me.Button1, "Button1")
         Me.Button1.Name = "Button1"
         Me.Button1.UseVisualStyleBackColor = True

app/TaskFlow/frmColumn_Detail.Designer.vb

@@ -25,9 +25,9 @@ Partial Class frmColumn_Detail
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmColumn_Detail))
         Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
+        Me.DD_DMSLiteDataSet = New taskFLOW.DD_DMSLiteDataSet()
-        Me.TBPM_CONTROL_TABLETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter()
+        Me.TBPM_CONTROL_TABLETableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter()
-        Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
+        Me.TableAdapterManager = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
         Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
         Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
@@ -162,7 +162,7 @@ Partial Class frmColumn_Detail
         Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing
         Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing
         Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
-        Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        Me.TableAdapterManager.UpdateOrder = taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'RibbonControl1
         '
@@ -183,14 +183,14 @@ Partial Class frmColumn_Detail
         '
         resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
         Me.BarButtonItem1.Id = 1
-        Me.BarButtonItem1.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.markcomplete
+        Me.BarButtonItem1.ImageOptions.SvgImage = Global.taskFLOW.My.Resources.Resources.markcomplete
         Me.BarButtonItem1.Name = "BarButtonItem1"
         '
         'BarButtonItem2
         '
         resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
         Me.BarButtonItem2.Id = 2
-        Me.BarButtonItem2.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.delete
+        Me.BarButtonItem2.ImageOptions.SvgImage = Global.taskFLOW.My.Resources.Resources.delete
         Me.BarButtonItem2.Name = "BarButtonItem2"
         '
         'tslblAenderungen
@@ -736,10 +736,10 @@ Partial Class frmColumn_Detail
         Me.PerformLayout
 
 End Sub
-    Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet
+    Friend WithEvents DD_DMSLiteDataSet As taskFLOW.DD_DMSLiteDataSet
     Friend WithEvents TBPM_CONTROL_TABLEBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBPM_CONTROL_TABLETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter
+    Friend WithEvents TBPM_CONTROL_TABLETableAdapter As taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter
-    Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
+    Friend WithEvents TableAdapterManager As taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
     Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
     Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
     Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup

app/TaskFlow/frmColumn_Detail.resx

@@ -758,7 +758,7 @@
     <value>Caption Auswahldialog:</value>
   </data>
   <data name="LayoutControlItem21.Text" xml:space="preserve">
-    <value>Datentyp:</value>
+    <value>Formatierung:</value>
   </data>
   <data name="LayoutControl1.Size" type="System.Drawing.Size, System.Drawing">
     <value>573, 668</value>
@@ -806,19 +806,19 @@
     <value>DD_DMSLiteDataSet</value>
   </data>
   <data name="&gt;&gt;DD_DMSLiteDataSet.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TBPM_CONTROL_TABLETableAdapter.Name" xml:space="preserve">
     <value>TBPM_CONTROL_TABLETableAdapter</value>
   </data>
   <data name="&gt;&gt;TBPM_CONTROL_TABLETableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
     <value>TableAdapterManager</value>
   </data>
   <data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;BarButtonItem1.Name" xml:space="preserve">
     <value>BarButtonItem1</value>

app/TaskFlow/frmColumn_Detail.vb

@@ -123,7 +123,7 @@ Public Class frmColumn_Detail
         CURRENT_INDEX_ID = GUIDTextBox.Text
         Dim oForm2 As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {
             .SQLCommand = SQL_COMMANDTextBox.Text,
-            .SQLConnection = 1
+            .SQLConnection = 0
          }
         oForm2.ShowDialog()
 
@@ -172,7 +172,7 @@ Public Class frmColumn_Detail
         CURRENT_INDEX_ID = GUIDTextBox.Text
         Dim oForm2 As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {
             .SQLCommand = SQL_COMMANDTextBox.Text,
-            .SQLConnection = 1
+            .SQLConnection = 0
          }
         oForm2.ShowDialog()
 

app/TaskFlow/frmConnection.Designer.vb

@@ -33,7 +33,7 @@ Partial Class frmConnection
         Me.Chckwin_aut = New System.Windows.Forms.CheckBox()
         Me.txtBezeichnung = New System.Windows.Forms.TextBox()
         Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
+        Me.DD_DMSLiteDataSet = New taskFLOW.DD_DMSLiteDataSet()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.btnCheck_Con = New System.Windows.Forms.Button()
         Me.lblDatasource2 = New System.Windows.Forms.Label()
@@ -75,8 +75,8 @@ Partial Class frmConnection
         Me.GUIDTextBox = New System.Windows.Forms.TextBox()
         Me.DATENBANKComboBox = New System.Windows.Forms.ComboBox()
         Me.BEMERKUNGTextBox = New System.Windows.Forms.TextBox()
-        Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
+        Me.TableAdapterManager = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
-        Me.TBDD_CONNECTIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter()
+        Me.TBDD_CONNECTIONTableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter()
         Me.SYS_CONNECTIONCheckBox = New System.Windows.Forms.CheckBox()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
         GEANDERTWERLabel = New System.Windows.Forms.Label()
@@ -183,7 +183,7 @@ Partial Class frmConnection
         'btnCheck_Con
         '
         Me.btnCheck_Con.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnCheck_Con.Image = Global.DD_ProcessManager.My.Resources.Resources.world_link
+        Me.btnCheck_Con.Image = Global.taskFLOW.My.Resources.Resources.world_link
         Me.btnCheck_Con.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btnCheck_Con.Location = New System.Drawing.Point(368, 133)
         Me.btnCheck_Con.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
@@ -400,7 +400,7 @@ Partial Class frmConnection
         '
         'ToolStripButton3
         '
-        Me.ToolStripButton3.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG
+        Me.ToolStripButton3.Image = Global.taskFLOW.My.Resources.Resources.refresh_16xLG
         Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton3.Name = "ToolStripButton3"
         Me.ToolStripButton3.Size = New System.Drawing.Size(95, 22)
@@ -408,7 +408,7 @@ Partial Class frmConnection
         '
         'ToolStripButton1
         '
-        Me.ToolStripButton1.Image = Global.DD_ProcessManager.My.Resources.Resources.add
+        Me.ToolStripButton1.Image = Global.taskFLOW.My.Resources.Resources.add
         Me.ToolStripButton1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton1.Name = "ToolStripButton1"
@@ -425,7 +425,7 @@ Partial Class frmConnection
         '
         'ToolStripButton2
         '
-        Me.ToolStripButton2.Image = Global.DD_ProcessManager.My.Resources.Resources.delete_12x12
+        Me.ToolStripButton2.Image = Global.taskFLOW.My.Resources.Resources.delete_12x12
         Me.ToolStripButton2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton2.Name = "ToolStripButton2"
@@ -568,7 +568,7 @@ Partial Class frmConnection
         Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing
         Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing
         Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
-        Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        Me.TableAdapterManager.UpdateOrder = taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'TBDD_CONNECTIONTableAdapter
         '
@@ -653,9 +653,9 @@ Partial Class frmConnection
     Friend WithEvents lblDataSource As System.Windows.Forms.Label
     Friend WithEvents cmbDbArt As System.Windows.Forms.ComboBox
     Friend WithEvents lblDatenbanktyp As System.Windows.Forms.Label
-    Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet
+    Friend WithEvents DD_DMSLiteDataSet As taskFLOW.DD_DMSLiteDataSet
     Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
+    Friend WithEvents TableAdapterManager As taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
     Friend WithEvents TBDD_CONNECTIONBindingNavigator As System.Windows.Forms.BindingNavigator
     Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel
     Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton

app/TaskFlow/frmConnection.vb

@@ -330,7 +330,6 @@ Public Class frmConnection
         Catch ex As Exception
             LOGGER.Error(ex)
             MsgBox("Error while loading Databases. Default Database will be set!" & vbCrLf & ex.Message, MsgBoxStyle.Critical)
-            DD_LIB_Standards.clsLogger.Add("Error while loading Databases:" & ex.Message)
         Finally
             Me.Cursor = Cursors.Default
         End Try

app/TaskFlow/frmDashboard1.Designer.vb

@@ -1,231 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmDashboard1
-    Inherits DevExpress.XtraEditors.XtraForm
-
-    'Form overrides dispose to clean up the component list.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        If disposing AndAlso components IsNot Nothing Then
-            components.Dispose()
-        End If
-        MyBase.Dispose(disposing)
-    End Sub
-
-    'Required by the Windows Form Designer
-    Private components As System.ComponentModel.IContainer
-
-    'NOTE: The following procedure is required by the Windows Form Designer
-    'It can be modified using the Windows Form Designer.  
-    'Do not modify it using the code editor.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Dim TileItemElement1 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemElement2 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemElement3 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Me.TileBar1 = New DevExpress.XtraBars.Navigation.TileBar()
-        Me.TileBarGroup2 = New DevExpress.XtraBars.Navigation.TileBarGroup()
-        Me.TileBarItem1 = New DevExpress.XtraBars.Navigation.TileBarItem()
-        Me.TileBarItem2 = New DevExpress.XtraBars.Navigation.TileBarItem()
-        Me.TileBarGroup3 = New DevExpress.XtraBars.Navigation.TileBarGroup()
-        Me.TileBarItem3 = New DevExpress.XtraBars.Navigation.TileBarItem()
-        Me.NavigationPane1 = New DevExpress.XtraBars.Navigation.NavigationPane()
-        Me.NavigationPage1 = New DevExpress.XtraBars.Navigation.NavigationPage()
-        Me.NavigationPage2 = New DevExpress.XtraBars.Navigation.NavigationPage()
-        Me.RadialMenu1 = New DevExpress.XtraBars.Ribbon.RadialMenu(Me.components)
-        Me.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components)
-        Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl()
-        Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl()
-        Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl()
-        Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl()
-        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
-        CType(Me.NavigationPane1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.NavigationPane1.SuspendLayout()
-        CType(Me.RadialMenu1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'TileBar1
-        '
-        Me.TileBar1.Dock = System.Windows.Forms.DockStyle.Top
-        Me.TileBar1.DropDownOptions.BeakColor = System.Drawing.Color.Empty
-        Me.TileBar1.Groups.Add(Me.TileBarGroup2)
-        Me.TileBar1.Groups.Add(Me.TileBarGroup3)
-        Me.TileBar1.Location = New System.Drawing.Point(0, 0)
-        Me.TileBar1.MaxId = 3
-        Me.TileBar1.Name = "TileBar1"
-        Me.TileBar1.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollButtons
-        Me.TileBar1.Size = New System.Drawing.Size(796, 133)
-        Me.TileBar1.TabIndex = 0
-        Me.TileBar1.Text = "TileBar1"
-        '
-        'TileBarGroup2
-        '
-        Me.TileBarGroup2.Items.Add(Me.TileBarItem1)
-        Me.TileBarGroup2.Items.Add(Me.TileBarItem2)
-        Me.TileBarGroup2.Name = "TileBarGroup2"
-        Me.TileBarGroup2.Text = "Gruppe 1"
-        '
-        'TileBarItem1
-        '
-        Me.TileBarItem1.DropDownOptions.BeakColor = System.Drawing.Color.Empty
-        TileItemElement1.Text = "TileBarItem1"
-        Me.TileBarItem1.Elements.Add(TileItemElement1)
-        Me.TileBarItem1.Id = 0
-        Me.TileBarItem1.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.Medium
-        Me.TileBarItem1.Name = "TileBarItem1"
-        '
-        'TileBarItem2
-        '
-        Me.TileBarItem2.DropDownOptions.BeakColor = System.Drawing.Color.Empty
-        TileItemElement2.Text = "TileBarItem2"
-        Me.TileBarItem2.Elements.Add(TileItemElement2)
-        Me.TileBarItem2.Id = 1
-        Me.TileBarItem2.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.Wide
-        Me.TileBarItem2.Name = "TileBarItem2"
-        '
-        'TileBarGroup3
-        '
-        Me.TileBarGroup3.Items.Add(Me.TileBarItem3)
-        Me.TileBarGroup3.Name = "TileBarGroup3"
-        Me.TileBarGroup3.Text = "Gruppe 2"
-        '
-        'TileBarItem3
-        '
-        Me.TileBarItem3.AppearanceItem.Normal.BackColor = System.Drawing.Color.DarkTurquoise
-        Me.TileBarItem3.AppearanceItem.Normal.Options.UseBackColor = True
-        Me.TileBarItem3.DropDownOptions.BeakColor = System.Drawing.Color.Empty
-        TileItemElement3.Text = "TileBarItem3"
-        Me.TileBarItem3.Elements.Add(TileItemElement3)
-        Me.TileBarItem3.Id = 2
-        Me.TileBarItem3.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.Medium
-        Me.TileBarItem3.Name = "TileBarItem3"
-        '
-        'NavigationPane1
-        '
-        Me.NavigationPane1.Controls.Add(Me.NavigationPage1)
-        Me.NavigationPane1.Controls.Add(Me.NavigationPage2)
-        Me.NavigationPane1.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.NavigationPane1.Location = New System.Drawing.Point(0, 343)
-        Me.NavigationPane1.Name = "NavigationPane1"
-        Me.NavigationPane1.Pages.AddRange(New DevExpress.XtraBars.Navigation.NavigationPageBase() {Me.NavigationPage1, Me.NavigationPage2})
-        Me.NavigationPane1.RegularSize = New System.Drawing.Size(796, 150)
-        Me.NavigationPane1.SelectedPage = Me.NavigationPage1
-        Me.NavigationPane1.Size = New System.Drawing.Size(796, 150)
-        Me.NavigationPane1.TabIndex = 1
-        Me.NavigationPane1.Text = "NavigationPane1"
-        '
-        'NavigationPage1
-        '
-        Me.NavigationPage1.Caption = "NavigationPage1"
-        Me.NavigationPage1.Name = "NavigationPage1"
-        Me.NavigationPage1.Size = New System.Drawing.Size(660, 77)
-        '
-        'NavigationPage2
-        '
-        Me.NavigationPage2.Caption = "NavigationPage2"
-        Me.NavigationPage2.Name = "NavigationPage2"
-        Me.NavigationPage2.PageText = "sdsdsd"
-        Me.NavigationPage2.Size = New System.Drawing.Size(660, 77)
-        '
-        'RadialMenu1
-        '
-        Me.RadialMenu1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem2)})
-        Me.RadialMenu1.Manager = Me.BarManager1
-        Me.RadialMenu1.Name = "RadialMenu1"
-        '
-        'BarManager1
-        '
-        Me.BarManager1.DockControls.Add(Me.barDockControlTop)
-        Me.BarManager1.DockControls.Add(Me.barDockControlBottom)
-        Me.BarManager1.DockControls.Add(Me.barDockControlLeft)
-        Me.BarManager1.DockControls.Add(Me.barDockControlRight)
-        Me.BarManager1.Form = Me
-        Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.BarButtonItem1, Me.BarButtonItem2})
-        Me.BarManager1.MaxItemId = 2
-        '
-        'barDockControlTop
-        '
-        Me.barDockControlTop.CausesValidation = False
-        Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top
-        Me.barDockControlTop.Location = New System.Drawing.Point(0, 0)
-        Me.barDockControlTop.Manager = Me.BarManager1
-        Me.barDockControlTop.Size = New System.Drawing.Size(796, 0)
-        '
-        'barDockControlBottom
-        '
-        Me.barDockControlBottom.CausesValidation = False
-        Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.barDockControlBottom.Location = New System.Drawing.Point(0, 493)
-        Me.barDockControlBottom.Manager = Me.BarManager1
-        Me.barDockControlBottom.Size = New System.Drawing.Size(796, 0)
-        '
-        'barDockControlLeft
-        '
-        Me.barDockControlLeft.CausesValidation = False
-        Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left
-        Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0)
-        Me.barDockControlLeft.Manager = Me.BarManager1
-        Me.barDockControlLeft.Size = New System.Drawing.Size(0, 493)
-        '
-        'barDockControlRight
-        '
-        Me.barDockControlRight.CausesValidation = False
-        Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right
-        Me.barDockControlRight.Location = New System.Drawing.Point(796, 0)
-        Me.barDockControlRight.Manager = Me.BarManager1
-        Me.barDockControlRight.Size = New System.Drawing.Size(0, 493)
-        '
-        'BarButtonItem1
-        '
-        Me.BarButtonItem1.Caption = "BarButtonItem1"
-        Me.BarButtonItem1.Id = 0
-        Me.BarButtonItem1.Name = "BarButtonItem1"
-        '
-        'BarButtonItem2
-        '
-        Me.BarButtonItem2.Caption = "BarButtonItem2"
-        Me.BarButtonItem2.Id = 1
-        Me.BarButtonItem2.Name = "BarButtonItem2"
-        '
-        'frmDashboard1
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(796, 493)
-        Me.Controls.Add(Me.NavigationPane1)
-        Me.Controls.Add(Me.TileBar1)
-        Me.Controls.Add(Me.barDockControlLeft)
-        Me.Controls.Add(Me.barDockControlRight)
-        Me.Controls.Add(Me.barDockControlBottom)
-        Me.Controls.Add(Me.barDockControlTop)
-        Me.Name = "frmDashboard1"
-        Me.Text = "frmDashboard1"
-        CType(Me.NavigationPane1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.NavigationPane1.ResumeLayout(False)
-        CType(Me.RadialMenu1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents TileBar1 As DevExpress.XtraBars.Navigation.TileBar
-    Friend WithEvents TileBarGroup2 As DevExpress.XtraBars.Navigation.TileBarGroup
-    Friend WithEvents TileBarItem1 As DevExpress.XtraBars.Navigation.TileBarItem
-    Friend WithEvents TileBarItem2 As DevExpress.XtraBars.Navigation.TileBarItem
-    Friend WithEvents TileBarGroup3 As DevExpress.XtraBars.Navigation.TileBarGroup
-    Friend WithEvents TileBarItem3 As DevExpress.XtraBars.Navigation.TileBarItem
-    Friend WithEvents NavigationPane1 As DevExpress.XtraBars.Navigation.NavigationPane
-    Friend WithEvents NavigationPage1 As DevExpress.XtraBars.Navigation.NavigationPage
-    Friend WithEvents NavigationPage2 As DevExpress.XtraBars.Navigation.NavigationPage
-    Friend WithEvents RadialMenu1 As DevExpress.XtraBars.Ribbon.RadialMenu
-    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager
-    Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl
-    Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl
-    Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl
-    Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl
-End Class

app/TaskFlow/frmDashboard1.resx

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

app/TaskFlow/frmDashboard1.vb

@@ -1,3 +0,0 @@
-Public Class frmDashboard1
-
-End Class

app/TaskFlow/frmDesignerLayout.Designer.vb

@@ -227,28 +227,28 @@ Partial Class frmDesignerLayout
         'ToolboxItemTextbox
         '
         Me.ToolboxItemTextbox.Caption = "Textbox"
-        Me.ToolboxItemTextbox.ImageOptions.Image = Global.DD_ProcessManager.My.Resources.Resources.TextBox
+        Me.ToolboxItemTextbox.ImageOptions.Image = Global.taskFLOW.My.Resources.Resources.TextBox
         Me.ToolboxItemTextbox.Name = "ToolboxItemTextbox"
         Me.ToolboxItemTextbox.Tag = "TextBox"
         '
         'ToolboxItemMemoedit
         '
         Me.ToolboxItemMemoedit.Caption = "Multiline Textbox"
-        Me.ToolboxItemMemoedit.ImageOptions.Image = Global.DD_ProcessManager.My.Resources.Resources.TextBox
+        Me.ToolboxItemMemoedit.ImageOptions.Image = Global.taskFLOW.My.Resources.Resources.TextBox
         Me.ToolboxItemMemoedit.Name = "ToolboxItemMemoedit"
         Me.ToolboxItemMemoedit.Tag = "Memoedit"
         '
         'ToolboxItemDatepicker
         '
         Me.ToolboxItemDatepicker.Caption = "Datepicker"
-        Me.ToolboxItemDatepicker.ImageOptions.Image = Global.DD_ProcessManager.My.Resources.Resources.DateOrTimePicker_675
+        Me.ToolboxItemDatepicker.ImageOptions.Image = Global.taskFLOW.My.Resources.Resources.DateOrTimePicker_675
         Me.ToolboxItemDatepicker.Name = "ToolboxItemDatepicker"
         Me.ToolboxItemDatepicker.Tag = "Datepicker"
         '
         'ToolboxItemCheckbox
         '
         Me.ToolboxItemCheckbox.Caption = "Checkbox"
-        Me.ToolboxItemCheckbox.ImageOptions.Image = Global.DD_ProcessManager.My.Resources.Resources.checkbox_16xLG
+        Me.ToolboxItemCheckbox.ImageOptions.Image = Global.taskFLOW.My.Resources.Resources.checkbox_16xLG
         Me.ToolboxItemCheckbox.Name = "ToolboxItemCheckbox"
         Me.ToolboxItemCheckbox.Tag = "Checkbox"
         '

app/TaskFlow/frmDesignerLayout.vb

@@ -1,6 +1,6 @@
 Imports System.IO
 Imports System.Text.Encoding
-Imports DD_ProcessManager.Controls
+Imports taskFLOW.Controls
 Imports DevExpress.XtraBars
 Imports DevExpress.XtraEditors
 Imports DevExpress.XtraLayout

app/TaskFlow/frmDesignerLayout/Editors/frmDatasourceEditor.vb

@@ -1,4 +1,4 @@
-Imports DD_ProcessManager.Controls.Editors
+Imports taskFLOW.Controls.Editors
 'Imports ScintillaNET
 
 Public Class frmDatasourceEditor

app/TaskFlow/frmDesignerLayout/Properties/BaseProperties.vb

@@ -1,5 +1,5 @@
 Imports System.ComponentModel
-Imports DD_ProcessManager.Controls.Localization
+Imports taskFLOW.Controls.Localization
 
 Namespace Controls.Properties
     Public MustInherit Class BaseProperties

app/TaskFlow/frmDesignerLayout/Properties/ComboboxProperties.vb

@@ -1,6 +1,6 @@
 Imports System.ComponentModel
-Imports DD_ProcessManager.Controls.Editors
+Imports taskFLOW.Controls.Editors
-Imports DD_ProcessManager.Controls.Localization
+Imports taskFLOW.Controls.Localization
 
 Namespace Controls.Properties
     Public Class ComboboxProperties

app/TaskFlow/frmError.resx

@@ -117,101 +117,29 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>15, 9</value>
-  </data>
-  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>495, 203</value>
-  </data>
-  <data name="&gt;&gt;Label1.Name" xml:space="preserve">
-    <value>Label1</value>
-  </data>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+  <data name="OK_Button.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>None</value>
+  </data>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="OK_Button.Location" type="System.Drawing.Point, System.Drawing">
+    <value>355, 150</value>
+  </data>
+  <data name="OK_Button.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
     <value>6, 5, 6, 5</value>
   </data>
-  <data name="&gt;&gt;Timer1.Name" xml:space="preserve">
-    <value>Timer1</value>
-  </data>
-  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="txterror.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="Label1.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="txterror.Enabled" type="System.Boolean, mscorlib">
-    <value>False</value>
-  </data>
-  <data name="Label1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>6, 0, 6, 0</value>
-  </data>
-  <data name="&gt;&gt;txterror.Type" xml:space="preserve">
-    <value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Label1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;txterror.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
   <data name="OK_Button.Size" type="System.Drawing.Size, System.Drawing">
     <value>134, 41</value>
   </data>
-  <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
+  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-    <value>Verdana, 14.25pt</value>
+  <data name="OK_Button.TabIndex" type="System.Int32, mscorlib">
-  </data>
+    <value>0</value>
-  <data name="&gt;&gt;Label1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="$this.Text" xml:space="preserve">
-    <value>Fehlermeldung:</value>
-  </data>
-  <data name="OK_Button.Location" type="System.Drawing.Point, System.Drawing">
-    <value>355, 150</value>
-  </data>
-  <data name="&gt;&gt;$this.Name" xml:space="preserve">
-    <value>frmError</value>
-  </data>
-  <data name="txterror.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Verdana, 9.75pt</value>
-  </data>
-  <data name="&gt;&gt;Timer1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="txterror.Location" type="System.Drawing.Point, System.Drawing">
-    <value>19, 35</value>
-  </data>
-  <data name="&gt;&gt;$this.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;OK_Button.ZOrder" xml:space="preserve">
-    <value>2</value>
-  </data>
-  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
-    <value>12, 23</value>
   </data>
   <data name="OK_Button.Text" xml:space="preserve">
     <value>OK</value>
   </data>
-  <data name="&gt;&gt;txterror.ZOrder" xml:space="preserve">
+  <data name="&gt;&gt;OK_Button.Name" xml:space="preserve">
-    <value>0</value>
+    <value>OK_Button</value>
-  </data>
-  <data name="&gt;&gt;txterror.Name" xml:space="preserve">
-    <value>txterror</value>
-  </data>
-  <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>358, 23</value>
-  </data>
-  <data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
-    <value>CenterScreen</value>
-  </data>
-  <data name="Label1.AutoSize" type="System.Boolean, mscorlib">
-    <value>True</value>
   </data>
   <data name="&gt;&gt;OK_Button.Type" xml:space="preserve">
     <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
@@ -219,31 +147,103 @@
   <data name="&gt;&gt;OK_Button.Parent" xml:space="preserve">
     <value>$this</value>
   </data>
+  <data name="&gt;&gt;OK_Button.ZOrder" xml:space="preserve">
+    <value>2</value>
+  </data>
+  <data name="Label1.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>15, 9</value>
+  </data>
+  <data name="Label1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>6, 0, 6, 0</value>
+  </data>
+  <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>358, 23</value>
+  </data>
+  <data name="Label1.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
   <data name="Label1.Text" xml:space="preserve">
     <value>Folgender Fehler wurde festgestellt:</value>
   </data>
-  <data name="OK_Button.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+  <data name="&gt;&gt;Label1.Name" xml:space="preserve">
-    <value>6, 5, 6, 5</value>
+    <value>Label1</value>
   </data>
-  <data name="OK_Button.TabIndex" type="System.Int32, mscorlib">
+  <data name="&gt;&gt;Label1.Type" xml:space="preserve">
-    <value>0</value>
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="OK_Button.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+  <data name="&gt;&gt;Label1.Parent" xml:space="preserve">
-    <value>None</value>
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="txterror.Enabled" type="System.Boolean, mscorlib">
+    <value>False</value>
+  </data>
+  <data name="txterror.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Verdana, 9.75pt</value>
+  </data>
+  <data name="txterror.Location" type="System.Drawing.Point, System.Drawing">
+    <value>19, 35</value>
   </data>
   <data name="txterror.Multiline" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
-  <data name="&gt;&gt;OK_Button.Name" xml:space="preserve">
-    <value>OK_Button</value>
-  </data>
   <data name="txterror.Size" type="System.Drawing.Size, System.Drawing">
     <value>470, 107</value>
   </data>
+  <data name="txterror.TabIndex" type="System.Int32, mscorlib">
+    <value>1</value>
+  </data>
+  <data name="&gt;&gt;txterror.Name" xml:space="preserve">
+    <value>txterror</value>
+  </data>
+  <data name="&gt;&gt;txterror.Type" xml:space="preserve">
+    <value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;txterror.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;txterror.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
   <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
   <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
+  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
+    <value>12, 23</value>
+  </data>
+  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
+    <value>495, 203</value>
+  </data>
+  <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Verdana, 14.25pt</value>
+  </data>
+  <data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>6, 5, 6, 5</value>
+  </data>
+  <data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
+    <value>CenterScreen</value>
+  </data>
+  <data name="$this.Text" xml:space="preserve">
+    <value>Fehlermeldung:</value>
+  </data>
+  <data name="&gt;&gt;Timer1.Name" xml:space="preserve">
+    <value>Timer1</value>
+  </data>
+  <data name="&gt;&gt;Timer1.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;$this.Name" xml:space="preserve">
+    <value>frmError</value>
+  </data>
+  <data name="&gt;&gt;$this.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
 </root>

app/TaskFlow/frmError.vb

@@ -1,15 +1,24 @@
 Imports System.Windows.Forms
 
 Public Class frmError
-
+    Public ValidatorError As String = ""
     Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
         Me.Close()
     End Sub
 
     Private Sub frmError_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        Me.txterror.Text = errormessage
+        If ValidatorError <> String.Empty Or errormessage <> String.Empty Then
-        Me.Label1.Focus()
+            If ValidatorError <> String.Empty Then
-        Me.Timer1.Start()
+                Me.txterror.Text = ValidatorError
+            Else
+                Me.txterror.Text = errormessage
+            End If
+            Me.Label1.Focus()
+            Me.Timer1.Start()
+        Else
+            Me.Close()
+        End If
+
     End Sub
 
     Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick

app/TaskFlow/frmFormDesigner.Designer.vb

@@ -49,6 +49,8 @@ Partial Class frmFormDesigner
         Me.bbtniheight_plus = New DevExpress.XtraBars.BarButtonItem()
         Me.bbtniheight_min = New DevExpress.XtraBars.BarButtonItem()
         Me.tslblAenderungen = New DevExpress.XtraBars.BarStaticItem()
+        Me.BarStaticItem2 = New DevExpress.XtraBars.BarStaticItem()
+        Me.bsitmProfilID = New DevExpress.XtraBars.BarStaticItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonGroupControlFunctions = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -57,18 +59,18 @@ Partial Class frmFormDesigner
         Me.RibPGCtrlheight = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
+        Me.DD_DMSLiteDataSet = New taskFLOW.DD_DMSLiteDataSet()
         Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
         Me.GridControlContextMenu = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.MenuItemAddColumn = New System.Windows.Forms.ToolStripMenuItem()
-        Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter()
+        Me.TBPM_PROFILE_CONTROLSTableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter()
-        Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
+        Me.TableAdapterManager = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
-        Me.TBDD_CONNECTIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter()
+        Me.TBDD_CONNECTIONTableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter()
         Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.TBWH_CHECK_PROFILE_CONTROLSTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBWH_CHECK_PROFILE_CONTROLSTableAdapter()
+        Me.TBWH_CHECK_PROFILE_CONTROLSTableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBWH_CHECK_PROFILE_CONTROLSTableAdapter()
         Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.TBPM_CONTROL_TABLETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter()
+        Me.TBPM_CONTROL_TABLETableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter()
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RPGControlFunction = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
@@ -125,9 +127,9 @@ Partial Class frmFormDesigner
         'RibbonControl1
         '
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnItemFinishSQL, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarStaticItem1, Me.BarButtonItem4, Me.BarButtonItem5, Me.bbtnitLabel, Me.bbtnitTextBox, Me.bbtnitLU, Me.bbtnitTable, Me.bbtnitDatePicker, Me.bbtnitCheckBox, Me.bbtnitButton, Me.bbtnitLine, Me.bbtniwidth_plus, Me.bbtniwidth_min, Me.bbtniheight_plus, Me.bbtniheight_min, Me.tslblAenderungen})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnItemFinishSQL, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarStaticItem1, Me.BarButtonItem4, Me.BarButtonItem5, Me.bbtnitLabel, Me.bbtnitTextBox, Me.bbtnitLU, Me.bbtnitTable, Me.bbtnitDatePicker, Me.bbtnitCheckBox, Me.bbtnitButton, Me.bbtnitLine, Me.bbtniwidth_plus, Me.bbtniwidth_min, Me.bbtniheight_plus, Me.bbtniheight_min, Me.tslblAenderungen, Me.BarStaticItem2, Me.bsitmProfilID})
         resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
-        Me.RibbonControl1.MaxItemId = 21
+        Me.RibbonControl1.MaxItemId = 23
         Me.RibbonControl1.Name = "RibbonControl1"
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
         Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
@@ -195,56 +197,56 @@ Partial Class frmFormDesigner
         '
         resources.ApplyResources(Me.bbtnitLabel, "bbtnitLabel")
         Me.bbtnitLabel.Id = 8
-        Me.bbtnitLabel.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.color
+        Me.bbtnitLabel.ImageOptions.SvgImage = Global.taskFLOW.My.Resources.Resources.color
         Me.bbtnitLabel.Name = "bbtnitLabel"
         '
         'bbtnitTextBox
         '
         resources.ApplyResources(Me.bbtnitTextBox, "bbtnitTextBox")
         Me.bbtnitTextBox.Id = 9
-        Me.bbtnitTextBox.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.textthatcontains
+        Me.bbtnitTextBox.ImageOptions.SvgImage = Global.taskFLOW.My.Resources.Resources.textthatcontains
         Me.bbtnitTextBox.Name = "bbtnitTextBox"
         '
         'bbtnitLU
         '
         resources.ApplyResources(Me.bbtnitLU, "bbtnitLU")
         Me.bbtnitLU.Id = 10
-        Me.bbtnitLU.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.insertcombobox
+        Me.bbtnitLU.ImageOptions.SvgImage = Global.taskFLOW.My.Resources.Resources.insertcombobox
         Me.bbtnitLU.Name = "bbtnitLU"
         '
         'bbtnitTable
         '
         resources.ApplyResources(Me.bbtnitTable, "bbtnitTable")
         Me.bbtnitTable.Id = 11
-        Me.bbtnitTable.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.actions_table
+        Me.bbtnitTable.ImageOptions.SvgImage = Global.taskFLOW.My.Resources.Resources.actions_table
         Me.bbtnitTable.Name = "bbtnitTable"
         '
         'bbtnitDatePicker
         '
         resources.ApplyResources(Me.bbtnitDatePicker, "bbtnitDatePicker")
         Me.bbtnitDatePicker.Id = 12
-        Me.bbtnitDatePicker.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.adateoccuring
+        Me.bbtnitDatePicker.ImageOptions.SvgImage = Global.taskFLOW.My.Resources.Resources.adateoccuring
         Me.bbtnitDatePicker.Name = "bbtnitDatePicker"
         '
         'bbtnitCheckBox
         '
         resources.ApplyResources(Me.bbtnitCheckBox, "bbtnitCheckBox")
         Me.bbtnitCheckBox.Id = 13
-        Me.bbtnitCheckBox.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.itemtypechecked
+        Me.bbtnitCheckBox.ImageOptions.SvgImage = Global.taskFLOW.My.Resources.Resources.itemtypechecked
         Me.bbtnitCheckBox.Name = "bbtnitCheckBox"
         '
         'bbtnitButton
         '
         resources.ApplyResources(Me.bbtnitButton, "bbtnitButton")
         Me.bbtnitButton.Id = 14
-        Me.bbtnitButton.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.groupby
+        Me.bbtnitButton.ImageOptions.SvgImage = Global.taskFLOW.My.Resources.Resources.groupby
         Me.bbtnitButton.Name = "bbtnitButton"
         '
         'bbtnitLine
         '
         resources.ApplyResources(Me.bbtnitLine, "bbtnitLine")
         Me.bbtnitLine.Id = 15
-        Me.bbtnitLine.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.pencolor
+        Me.bbtnitLine.ImageOptions.SvgImage = Global.taskFLOW.My.Resources.Resources.pencolor
         Me.bbtnitLine.Name = "bbtnitLine"
         '
         'bbtniwidth_plus
@@ -279,10 +281,24 @@ Partial Class frmFormDesigner
         '
         resources.ApplyResources(Me.tslblAenderungen, "tslblAenderungen")
         Me.tslblAenderungen.Id = 20
-        Me.tslblAenderungen.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.save1
+        Me.tslblAenderungen.ImageOptions.SvgImage = Global.taskFLOW.My.Resources.Resources.save1
         Me.tslblAenderungen.Name = "tslblAenderungen"
         Me.tslblAenderungen.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
         '
+        'BarStaticItem2
+        '
+        resources.ApplyResources(Me.BarStaticItem2, "BarStaticItem2")
+        Me.BarStaticItem2.Id = 21
+        Me.BarStaticItem2.Name = "BarStaticItem2"
+        '
+        'bsitmProfilID
+        '
+        resources.ApplyResources(Me.bsitmProfilID, "bsitmProfilID")
+        Me.bsitmProfilID.Id = 22
+        Me.bsitmProfilID.ItemAppearance.Normal.Font = CType(resources.GetObject("bsitmProfilID.ItemAppearance.Normal.Font"), System.Drawing.Font)
+        Me.bsitmProfilID.ItemAppearance.Normal.Options.UseFont = True
+        Me.bsitmProfilID.Name = "bsitmProfilID"
+        '
         'RibbonPage1
         '
         Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonGroupControlFunctions, Me.RibbonGroupControls, Me.RibPGCtrlWidth, Me.RibPGCtrlheight})
@@ -332,6 +348,7 @@ Partial Class frmFormDesigner
         '
         'RibbonStatusBar1
         '
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmProfilID)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.tslblAenderungen)
         resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
@@ -382,7 +399,7 @@ Partial Class frmFormDesigner
         Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing
         Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing
         Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
-        Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        Me.TableAdapterManager.UpdateOrder = taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'TBDD_CONNECTIONTableAdapter
         '
@@ -435,7 +452,8 @@ Partial Class frmFormDesigner
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.RibbonControl1)
         Me.IconOptions.Icon = CType(resources.GetObject("frmFormDesigner.IconOptions.Icon"), System.Drawing.Icon)
-        Me.IconOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.chartdesigner1
+        Me.IconOptions.SvgImage = Global.taskFLOW.My.Resources.Resources.chartdesigner1
+        Me.KeyPreview = True
         Me.MinimizeBox = False
         Me.Name = "frmFormDesigner"
         Me.Ribbon = Me.RibbonControl1
@@ -458,17 +476,17 @@ Partial Class frmFormDesigner
         Me.PerformLayout()
 
     End Sub
-    Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet
+    Friend WithEvents DD_DMSLiteDataSet As taskFLOW.DD_DMSLiteDataSet
     Friend WithEvents TBPM_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBPM_PROFILE_CONTROLSTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter
+    Friend WithEvents TBPM_PROFILE_CONTROLSTableAdapter As taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter
-    Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
+    Friend WithEvents TableAdapterManager As taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
     Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter
+    Friend WithEvents TBDD_CONNECTIONTableAdapter As taskFLOW.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter
     Friend WithEvents TBWH_CHECK_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBWH_CHECK_PROFILE_CONTROLSTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBWH_CHECK_PROFILE_CONTROLSTableAdapter
+    Friend WithEvents TBWH_CHECK_PROFILE_CONTROLSTableAdapter As taskFLOW.DD_DMSLiteDataSetTableAdapters.TBWH_CHECK_PROFILE_CONTROLSTableAdapter
     Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
     Friend WithEvents TBPM_CONTROL_TABLEBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBPM_CONTROL_TABLETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter
+    Friend WithEvents TBPM_CONTROL_TABLETableAdapter As taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter
     Friend WithEvents GridControlContextMenu As ContextMenuStrip
     Friend WithEvents MenuItemAddColumn As ToolStripMenuItem
     Friend WithEvents SplitContainerDesigner As SplitContainer
@@ -507,4 +525,6 @@ Partial Class frmFormDesigner
     Friend WithEvents pnldesigner As DigitalData.Controls.SnapPanel.ClassSnapPanel
     Friend WithEvents tslblAenderungen As DevExpress.XtraBars.BarStaticItem
     Friend WithEvents pgControlsNew As DevExpress.XtraVerticalGrid.PropertyGridControl
+    Friend WithEvents BarStaticItem2 As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents bsitmProfilID As DevExpress.XtraBars.BarStaticItem
 End Class

app/TaskFlow/frmFormDesigner.resx

@@ -125,6 +125,10 @@
   <data name="SplitContainerDesigner.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 132</value>
   </data>
+  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="pnldesigner.AutoScroll" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
   <data name="pnldesigner.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Fill</value>
   </data>
@@ -134,7 +138,6 @@
   <data name="pnldesigner.Size" type="System.Drawing.Size, System.Drawing">
     <value>820, 455</value>
   </data>
-  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="pnldesigner.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
   </data>
@@ -142,7 +145,7 @@
     <value>pnldesigner</value>
   </data>
   <data name="&gt;&gt;pnldesigner.Type" xml:space="preserve">
-    <value>DigitalData.Controls.SnapPanel.ClassSnapPanel, DigitalData.Controls.SnapPanel, Version=1.0.1.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>DigitalData.Controls.SnapPanel.ClassSnapPanel, DigitalData.Controls.SnapPanel, Version=2.0.1.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;pnldesigner.Parent" xml:space="preserve">
     <value>SplitContainerDesigner.Panel1</value>
@@ -197,7 +200,7 @@
 </value>
   </data>
   <data name="BarButtonItem1.Caption" xml:space="preserve">
-    <value>Control löschen</value>
+    <value>Control löschen (del)</value>
   </data>
   <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -221,7 +224,7 @@
 </value>
   </data>
   <data name="BarButtonItem2.Caption" xml:space="preserve">
-    <value>Aktualisieren</value>
+    <value>Aktualisieren (F5)</value>
   </data>
   <data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -333,7 +336,7 @@
     <value>Linie</value>
   </data>
   <data name="bbtniwidth_plus.Caption" xml:space="preserve">
-    <value>Breiter</value>
+    <value>Breiter (+)</value>
   </data>
   <data name="bbtniwidth_plus.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -355,7 +358,7 @@
 </value>
   </data>
   <data name="bbtniwidth_min.Caption" xml:space="preserve">
-    <value>Schmaler</value>
+    <value>Schmaler (-)</value>
   </data>
   <data name="bbtniwidth_min.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -377,7 +380,7 @@
 </value>
   </data>
   <data name="bbtniheight_plus.Caption" xml:space="preserve">
-    <value>Größer</value>
+    <value>Größer (Strg und +)</value>
   </data>
   <data name="bbtniheight_plus.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -396,7 +399,7 @@
 </value>
   </data>
   <data name="bbtniheight_min.Caption" xml:space="preserve">
-    <value>Kleiner</value>
+    <value>Kleiner (Strg und -)</value>
   </data>
   <data name="bbtniheight_min.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -418,6 +421,15 @@
   <data name="tslblAenderungen.Caption" xml:space="preserve">
     <value>Noch keine Änderungen</value>
   </data>
+  <data name="BarStaticItem2.Caption" xml:space="preserve">
+    <value>BarStaticItem2</value>
+  </data>
+  <data name="bsitmProfilID.Caption" xml:space="preserve">
+    <value>ProfilID: </value>
+  </data>
+  <data name="bsitmProfilID.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Microsoft Sans Serif, 8.25pt, style=Bold</value>
+  </data>
   <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
@@ -1176,6 +1188,18 @@
   <data name="&gt;&gt;tslblAenderungen.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;BarStaticItem2.Name" xml:space="preserve">
+    <value>BarStaticItem2</value>
+  </data>
+  <data name="&gt;&gt;BarStaticItem2.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;bsitmProfilID.Name" xml:space="preserve">
+    <value>bsitmProfilID</value>
+  </data>
+  <data name="&gt;&gt;bsitmProfilID.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
     <value>RibbonPage1</value>
   </data>
@@ -1222,7 +1246,7 @@
     <value>DD_DMSLiteDataSet</value>
   </data>
   <data name="&gt;&gt;DD_DMSLiteDataSet.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TBDD_CONNECTIONBindingSource.Name" xml:space="preserve">
     <value>TBDD_CONNECTIONBindingSource</value>
@@ -1246,19 +1270,19 @@
     <value>TBPM_PROFILE_CONTROLSTableAdapter</value>
   </data>
   <data name="&gt;&gt;TBPM_PROFILE_CONTROLSTableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
     <value>TableAdapterManager</value>
   </data>
   <data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TBDD_CONNECTIONTableAdapter.Name" xml:space="preserve">
     <value>TBDD_CONNECTIONTableAdapter</value>
   </data>
   <data name="&gt;&gt;TBDD_CONNECTIONTableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TBWH_CHECK_PROFILE_CONTROLSBindingSource.Name" xml:space="preserve">
     <value>TBWH_CHECK_PROFILE_CONTROLSBindingSource</value>
@@ -1270,7 +1294,7 @@
     <value>TBWH_CHECK_PROFILE_CONTROLSTableAdapter</value>
   </data>
   <data name="&gt;&gt;TBWH_CHECK_PROFILE_CONTROLSTableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBWH_CHECK_PROFILE_CONTROLSTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBWH_CHECK_PROFILE_CONTROLSTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TBPM_CONTROL_TABLEBindingSource.Name" xml:space="preserve">
     <value>TBPM_CONTROL_TABLEBindingSource</value>
@@ -1282,7 +1306,7 @@
     <value>TBPM_CONTROL_TABLETableAdapter</value>
   </data>
   <data name="&gt;&gt;TBPM_CONTROL_TABLETableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;RibbonPage2.Name" xml:space="preserve">
     <value>RibbonPage2</value>
@@ -1314,10 +1338,4 @@
   <data name="&gt;&gt;$this.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Ribbon.RibbonForm, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="RibbonPageGroup3.Text">
-    <value>Steuerelement</value>
-  </data>
-  <data name="rpggrp_controls.Text">
-    <value>Steuerelement hinzufügen</value>
-  </data>
 </root>

app/TaskFlow/frmFormDesigner.vb

@@ -1,12 +1,10 @@
 Imports System.ComponentModel
-Imports DD_LIB_Standards
+
 Imports DevExpress.XtraGrid
 Imports DevExpress.XtraGrid.Columns
 Imports DevExpress.XtraGrid.Views.Grid
 Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
 Imports DigitalData.Controls.LookupGrid
-Imports DigitalData.Modules.Language.Utils
-Imports DigitalData.Modules.Language
 Imports System.Drawing
 Imports DigitalData.GUIs.Common
 Imports DevExpress.Utils.Filtering.Internal
@@ -39,6 +37,7 @@ Public Class frmFormDesigner
     Private Source_LookupIndicies As List(Of String)
 
     Private CurrentColumnId As Integer = 0
+    Private pgControls_Focused As Boolean = False
 
     Public Sub Reload_ControlNameList()
         _Logger.debug("Reloading control name list")
@@ -51,7 +50,7 @@ Public Class frmFormDesigner
             ORDER BY NAME"
         )
         CURRENT_CONTROL_NAME_LIST = oControlNameList.AsEnumerable().
-            Select(Function(row) row.ItemEx("NAME", String.Empty)).
+            Select(Function(row) ClassAllgemeineFunktionen.NotNullString(row.Item("NAME"), String.Empty)).
             ToList()
         _Logger.debug("Reloading control name list done!")
     End Sub
@@ -74,11 +73,11 @@ Public Class frmFormDesigner
 
             ' Profil Name in Fenstertitel setzen
             Text = $"Validation Designer - Profil: {ProfileName}"
-
+            bsitmProfilID.Caption = $"ProfilID: {ProfileId}"
             '  Try
             ' Windream initialisieren
             If IDB_ACTIVE = False Then
-                clsWindream.Create_Session()
+                'clsWindream.Create_Session()
                 bbtnitButton.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
             Else
                 bbtnitButton.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
@@ -89,7 +88,7 @@ Public Class frmFormDesigner
             Dim unsortedIndicies
             Dim sortedIndicies As List(Of String)
             If IDB_ACTIVE = False Then
-                unsortedIndicies = clsWD_GET.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList()
+                unsortedIndicies = WINDREAM_MOD.GetIndiciesByObjecttype(CURRENT_OBJECTTYPE).ToList()
                 sortedIndicies = unsortedIndicies '.OrderBy(Function(index As String) index).ToList()
                 sortedIndicies = sortedIndicies.OrderBy(Function(index As String) index).ToList
             Else
@@ -111,7 +110,7 @@ Public Class frmFormDesigner
             If IDB_ACTIVE = False Then
                 Windream_ChoiceLists = New List(Of String)
                 Windream_ChoiceLists.Add(String.Empty)
-                Windream_ChoiceLists.AddRange(clsWD_GET.GetChoiceLists())
+                Windream_ChoiceLists.AddRange(WINDREAM_MOD.GetChoiceLists())
             End If
 
             'Catch ex As Exception
@@ -145,7 +144,7 @@ Public Class frmFormDesigner
             Dim missingIndexControls As New List(Of String)
 
             For Each row As DataRow In dt.Rows
-                If NotNull(row.Item("INDEX_NAME"), String.Empty) = String.Empty Then
+                If ClassAllgemeineFunktionen.NotNullString(row.Item("INDEX_NAME"), String.Empty) = String.Empty Then
                     missingIndexControls.Add(row.Item("NAME"))
                 End If
             Next
@@ -175,7 +174,7 @@ Public Class frmFormDesigner
     Private Function IsVectorIndex(IndexName As String) As Boolean
         Dim oType As Integer
         If IDB_ACTIVE = False Then
-            oType = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
+            oType = WINDREAM_MOD.GetIndexType(IndexName)
         Else
             oType = IDBData.GetTypeOfIndex(IndexName)
         End If
@@ -184,9 +183,9 @@ Public Class frmFormDesigner
     End Function
 
     Private Function IsNotBooleanIndex(IndexName As String) As Boolean
-        Dim oType As Integer '= clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
+        Dim oType As Integer '= WINDREAM_MOD.GetIndexType(IndexName)
         If IDB_ACTIVE = False Then
-            oType = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
+            oType = WINDREAM_MOD.GetIndexType(IndexName)
         Else
             oType = IDBData.GetTypeOfIndex(IndexName)
         End If
@@ -194,9 +193,9 @@ Public Class frmFormDesigner
     End Function
 
     Private Function IsNotDateIndex(IndexName As String) As Boolean
-        Dim oType As Integer '= clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
+        Dim oType As Integer '= WINDREAM_MOD.GetIndexType(IndexName)
         If IDB_ACTIVE = False Then
-            oType = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
+            oType = WINDREAM_MOD.GetIndexType(IndexName)
         Else
             oType = IDBData.GetTypeOfIndex(IndexName)
         End If
@@ -204,9 +203,9 @@ Public Class frmFormDesigner
     End Function
 
     Private Function IsNotVectorBooleanIndex(IndexName As String) As Boolean
-        Dim oType As Integer '= clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
+        Dim oType As Integer '= WINDREAM_MOD.GetIndexType(IndexName)
         If IDB_ACTIVE = False Then
-            oType = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
+            oType = WINDREAM_MOD.GetIndexType(IndexName)
         Else
             oType = IDBData.GetTypeOfIndex(IndexName)
         End If
@@ -214,9 +213,9 @@ Public Class frmFormDesigner
     End Function
 
     Private Function IsNotVectorDateIndex(IndexName As String) As Boolean
-        Dim oType As Integer '= clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
+        Dim oType As Integer '= WINDREAM_MOD.GetIndexType(IndexName)
         If IDB_ACTIVE = False Then
-            oType = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
+            oType = WINDREAM_MOD.GetIndexType(IndexName)
         Else
             oType = IDBData.GetTypeOfIndex(IndexName)
         End If
@@ -224,9 +223,9 @@ Public Class frmFormDesigner
     End Function
 
     Private Function IsNotVectorDatetimeIndex(IndexName As String) As Boolean
-        Dim oType As Integer '= clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
+        Dim oType As Integer '= WINDREAM_MOD.GetIndexType(IndexName)
         If IDB_ACTIVE = False Then
-            oType = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
+            oType = WINDREAM_MOD.GetIndexType(IndexName)
         Else
             oType = IDBData.GetTypeOfIndex(IndexName)
         End If
@@ -247,12 +246,12 @@ Public Class frmFormDesigner
                 Dim name As String = row.Item("NAME")
                 Dim x As Integer = row.Item("X_LOC")
                 Dim y As Integer = row.Item("Y_LOC")
-                Dim style As FontStyle = NotNull(row.Item("FONT_STYLE"), FontStyle.Regular)
+                Dim style As FontStyle = ClassAllgemeineFunktionen.NotNullString(row.Item("FONT_STYLE"), FontStyle.Regular)
-                Dim size As Single = NotNull(row.Item("FONT_SIZE"), 10)
+                Dim size As Single = ClassAllgemeineFunktionen.NotNullString(row.Item("FONT_SIZE"), 10)
-                Dim familyString As String = NotNull(row.Item("FONT_FAMILY"), "Arial")
+                Dim familyString As String = ClassAllgemeineFunktionen.NotNullString(row.Item("FONT_FAMILY"), "Arial")
                 Dim family As FontFamily = New FontFamily(familyString)
                 Dim font As New Font(family, size, style, GraphicsUnit.Point)
-                Dim color As Color = IntToColor(NotNull(row.Item("FONT_COLOR"), 0))
+                Dim color As Color = IntToColor(ClassAllgemeineFunktionen.NotNullString(row.Item("FONT_COLOR"), 0))
 
 
                 ' Jetzt die Control spezifischen Eigenschaften zuweisen
@@ -296,7 +295,7 @@ Public Class frmFormDesigner
                         Dim oDTColumnsPerDevExGrid As DataTable = DatabaseFallback.GetDatatableECM(oSQL) ', "FDesignLaodControls")
 
 
-                        Dim table = ControlCreator.CreateExistingGridControl(row, oDTColumnsPerDevExGrid, True)
+                        Dim table = ControlCreator.CreateExistingGridControl(row, oDTColumnsPerDevExGrid, True, "EUR")
 
                         AddHandler table.MouseClick, AddressOf gridControl_MouseClick
                         ' AddHandler table.ColumnHeaderMouseClick, AddressOf table_ColumnHeaderMouseClick
@@ -352,7 +351,7 @@ Public Class frmFormDesigner
                             oControl.BackColor = Color.Transparent
                         Case GetType(System.Windows.Forms.CheckBox)
                             oControl.BackColor = Color.Transparent
-                        Case GetType(DD_ProcessManager.ClassControlCreator.LineLabel)
+                        Case GetType(taskFLOW.ClassControlCreator.LineLabel)
                             oControl.BackColor = oControl.ForeColor
                         Case GetType(DigitalData.Controls.LookupGrid.LookupControl3)
                             oControl.BackColor = Color.White
@@ -403,25 +402,40 @@ Public Class frmFormDesigner
             MsgBox("Error while loading Column Configuration: " & vbCrLf & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
-
+    Sub Control_Delete()
-
+        If CurrentControl Is Nothing = False Then
-    Sub DeleteControl(controlName As String)
+            Dim result As MsgBoxResult = MsgBox("Wollen Sie das Control: " & CurrentControl.Name & " wirklich löschen?", MsgBoxStyle.YesNo, "Bestätigung:")
-        Try
-            Dim result As MsgBoxResult = MsgBox("Wollen Sie das Control: " & controlName & " wirklich löschen?", MsgBoxStyle.YesNo, "Bestätigung:")
             ' wenn Speichern ja
             If result = MsgBoxResult.Yes Then
-                Dim controlId As Integer = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetGUID(ProfileId, controlName)
+                DeleteControl(CurrentControl.Name)
-                If controlId > 0 Then
+                'pgControls.Enabled = False
-                    TBPM_CONTROL_TABLETableAdapter.DeleteColumnsByControlId(controlId)
+                pgControlsNew.Enabled = False
-                    TBPM_PROFILE_CONTROLSTableAdapter.Delete(controlId)
+                tslblAenderungen.Caption = $"Control {CurrentControl.Name} deleted - " + Now.ToString
-                    LoadControls()
+                CurrentControl = Nothing
-                End If
+                RibPGCtrlheight.Enabled = False
+                RibPGCtrlWidth.Enabled = False
+
+                Reload_ControlNameList()
+
+            End If
+
+        End If
+    End Sub
+    Sub DeleteControl(controlName As String)
+        Try
+            Dim controlId As Integer = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetGUID(ProfileId, controlName)
+            If controlId > 0 Then
+                TBPM_CONTROL_TABLETableAdapter.DeleteColumnsByControlId(controlId)
+                TBPM_PROFILE_CONTROLSTableAdapter.Delete(controlId)
+                LoadControls()
             End If
         Catch ex As Exception
             _Logger.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "DeleteControl:")
         End Try
     End Sub
+
+
     ' +++ Public Helper Methods +++
     Public Function GetCursorPosition() As Point
         Return pnldesigner.PointToClient(Cursor.Position)
@@ -459,7 +473,11 @@ Public Class frmFormDesigner
                 Exit Sub
             End If
             Mouse_IsPressed = False
-
+            If (TypeOf sender Is LookupControl3 Or TypeOf sender Is Windows.Forms.ComboBox) Then
+                RibPGCtrlheight.Enabled = False
+            Else
+                RibPGCtrlheight.Enabled = True
+            End If
             ' Control Eigenschaften laden
             LoadControlProperties(sender)
 
@@ -561,17 +579,17 @@ Public Class frmFormDesigner
         obj.Location = New Point(row.Item("X_LOC"), row.Item("Y_LOC"))
         obj.Name = row.Item("NAME")
         obj.Size = New Size(row.Item("WIDTH"), row.Item("HEIGHT"))
-        obj.ChangedAt = NotNull(row.Item("CHANGED_WHEN"), Nothing)
+        obj.ChangedAt = ClassAllgemeineFunktionen.NotNullDate(row.Item("CHANGED_WHEN"), Nothing)
-        obj.ChangedWho = NotNull(row.Item("CHANGED_WHO"), "")
+        obj.ChangedWho = ClassAllgemeineFunktionen.NotNullString(row.Item("CHANGED_WHO"), "")
 
-        Dim style As FontStyle = NotNull(row.Item("FONT_STYLE"), FontStyle.Regular)
+        Dim style As FontStyle = ClassAllgemeineFunktionen.NotNullString(row.Item("FONT_STYLE"), FontStyle.Regular)
-        Dim size As Single = NotNull(row.Item("FONT_SIZE"), 10)
+        Dim size As Single = ClassAllgemeineFunktionen.NotNullString(row.Item("FONT_SIZE"), 10)
-        Dim familyString As String = NotNull(row.Item("FONT_FAMILY"), "Arial")
+        Dim familyString As String = ClassAllgemeineFunktionen.NotNullString(row.Item("FONT_FAMILY"), "Arial")
         Dim family As FontFamily = New FontFamily(familyString)
 
         obj.Font = New Font(family, size, style)
 
-        Dim color As Integer = NotNull(row.Item("FONT_COLOR"), 0)
+        Dim color As Integer = ClassAllgemeineFunktionen.NotNullString(row.Item("FONT_COLOR"), 0)
 
         obj.TextColor = IntToColor(color)
 
@@ -594,13 +612,12 @@ Public Class frmFormDesigner
         obj.SaveChangeOnReadOnly = StrToBool(row.Item("SAVE_CHANGE_ON_ENABLED"))
         obj.Required = StrToBool(row.Item("VALIDATION"))
         obj.Active = StrToBool(row.Item("CONTROL_ACTIVE"))
-        obj.Index = NotNull(row.Item("INDEX_NAME"), "")
+        obj.Index = ClassAllgemeineFunktionen.NotNullString(row.Item("INDEX_NAME"), "")
-        obj.DefaultValue = NotNull(row.Item("DEFAULT_VALUE"), Nothing)
+        obj.DefaultValue = ClassAllgemeineFunktionen.NotNullString(row.Item("DEFAULT_VALUE"), Nothing)
 
         ' Default value for ConnectionID
-        Dim oConnectionId = row.ItemEx("CONNECTION_ID", 0)
+        Dim oConnectionId = ClassAllgemeineFunktionen.NotNullString(row.Item("CONNECTION_ID"), 0)
-        obj.SQLCommand = New SQLValue(row.Item("SQL_UEBERPRUEFUNG"), oConnectionId)
+        obj.SQLCommand = New SQLValue(row.Item("SQL_UEBERPRUEFUNG"))
-        obj.SQLConnection = oConnectionId
         Return obj
     End Function
 
@@ -660,9 +677,9 @@ Public Class frmFormDesigner
                 Dim check As CheckBox = sender
                 Dim checkProps As CheckboxProperties = CreatePropsObjectWithIndicies(New CheckboxProperties, oRow, Source_AllIndicies)
                 checkProps.Text = check.Text
-                checkProps.Enable_SQL = New SQLValue(NotNull(oRow.Item("SQL_ENABLE"), ""))
+                checkProps.Enable_SQL = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SQL_ENABLE"), ""))
-                checkProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
+                checkProps.Enable_SQL_OnLoad = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
-                checkProps.SetControlData = New SQLValue(NotNull(oRow.Item("SET_CONTROL_DATA"), ""))
+                checkProps.SetControlData = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SET_CONTROL_DATA"), ""))
                 props = checkProps
             ElseIf TypeOf sender Is LookupControl3 Then
                 Dim oLookup As LookupControl3 = sender
@@ -671,20 +688,20 @@ Public Class frmFormDesigner
                 lookupProps.PreventDuplicates = StrToBool(oRow.Item("VKT_PREVENT_MULTIPLE_VALUES"))
                 lookupProps.AllowAddNewValues = StrToBool(oRow.Item("VKT_ADD_ITEM"))
                 lookupProps.DisplayAsComboBox = False
-                lookupProps.Enable_SQL = New SQLValue(NotNull(oRow.Item("SQL_ENABLE"), ""))
+                lookupProps.Enable_SQL = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SQL_ENABLE"), ""))
-                lookupProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
+                lookupProps.Enable_SQL_OnLoad = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
-                lookupProps.SetControlData = New SQLValue(NotNull(oRow.Item("SET_CONTROL_DATA"), ""))
+                lookupProps.SetControlData = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SET_CONTROL_DATA"), ""))
 
                 props = lookupProps
             ElseIf TypeOf sender Is TextEdit Then
                 'Dim txt As TextEdit = sender
                 Dim txtProps As TextboxProperties = CreatePropsObjectWithIndicies(New TextboxProperties, oRow, Source_AllIndicies)
-                txtProps.Regex = NotNull(oRow.Item("REGEX_MATCH"), String.Empty)
+                txtProps.Regex = ClassAllgemeineFunktionen.NotNullString(oRow.Item("REGEX_MATCH"), String.Empty)
-                txtProps.RegexMessage = NotNull(oRow.Item("REGEX_MESSAGE_DE"), String.Empty)
+                txtProps.RegexMessage = ClassAllgemeineFunktionen.NotNullString(oRow.Item("REGEX_MESSAGE_DE"), String.Empty)
-                txtProps.Enable_SQL = New SQLValue(NotNull(oRow.Item("SQL_ENABLE"), ""))
+                txtProps.Enable_SQL = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SQL_ENABLE"), ""))
-                txtProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
+                txtProps.Enable_SQL_OnLoad = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
-                txtProps.SetControlData = New SQLValue(NotNull(oRow.Item("SET_CONTROL_DATA"), ""))
+                txtProps.SetControlData = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SET_CONTROL_DATA"), ""))
-                txtProps.DisplayFormat = oRow.ItemEx("FORMAT_STRING", ClassControlCreator.CONTROL_TYPE_TEXT)
+                txtProps.DisplayFormat = ClassAllgemeineFunktionen.NotNullString(oRow.Item("FORMAT_STRING"), ClassControlCreator.CONTROL_TYPE_TEXT)
 
                 props = txtProps
 
@@ -692,18 +709,18 @@ Public Class frmFormDesigner
                 Dim cmb As Windows.Forms.ComboBox = sender
                 Dim cmbProps As ComboboxProperties = CreatePropsObjectWithIndicies(New ComboboxProperties, oRow, Source_AllIndicies)
                 cmbProps.ChoiceLists = Windream_ChoiceLists
-                cmbProps.ChoiceList = NotNull(oRow.Item("CHOICE_LIST"), String.Empty)
+                cmbProps.ChoiceList = ClassAllgemeineFunktionen.NotNullString(oRow.Item("CHOICE_LIST"), String.Empty)
-                cmbProps.Enable_SQL = New SQLValue(NotNull(oRow.Item("SQL_ENABLE"), ""))
+                cmbProps.Enable_SQL = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SQL_ENABLE"), ""))
-                cmbProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
+                cmbProps.Enable_SQL_OnLoad = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
-                cmbProps.SetControlData = New SQLValue(NotNull(oRow.Item("SET_CONTROL_DATA"), ""))
+                cmbProps.SetControlData = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SET_CONTROL_DATA"), ""))
                 props = cmbProps
                 cmbProps.DisplayAsLookUpControl = False
 
             ElseIf TypeOf sender Is DateTimePicker Then
                 Dim dtp As DateTimePicker = sender
                 Dim dtpProps As DatepickerProperties = CreatePropsObjectWithIndicies(New DatepickerProperties, oRow, Source_AllIndicies)
-                dtpProps.Enable_SQL = New SQLValue(NotNull(oRow.Item("SQL_ENABLE"), ""))
+                dtpProps.Enable_SQL = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SQL_ENABLE"), ""))
-                dtpProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
+                dtpProps.Enable_SQL_OnLoad = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
                 props = dtpProps
 
             ElseIf TypeOf sender Is DataGridView Then
@@ -718,17 +735,17 @@ Public Class frmFormDesigner
                 Dim oGridControl As GridControl = sender
                 Dim oGridProps As GridControlProperties = CreatePropsObjectWithIndicies(New GridControlProperties, oRow, Source_VectorIndicies)
                 oGridProps.AllowAddNewValues = StrToBool(oRow.Item("VKT_ADD_ITEM"))
-                oGridProps.Enable_SQL = New SQLValue(NotNull(oRow.Item("SQL_ENABLE"), ""))
+                oGridProps.Enable_SQL = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SQL_ENABLE"), ""))
-                oGridProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
+                oGridProps.Enable_SQL_OnLoad = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
                 props = oGridProps
             ElseIf TypeOf sender Is Button Then
                 Dim oButton As Button = sender
                 Dim oButtonProps As ButtonProperties = CreatePropsObject(New ButtonProperties, oRow, Source_VectorIndicies)
                 oButtonProps.Text = oButton.Text
                 oButtonProps.SQLCommand = New SQLValue(oRow.Item("SQL_UEBERPRUEFUNG"))
-                oButtonProps.Override_SQL = New SQLValue(NotNull(oRow.Item("SQL2"), ""))
+                oButtonProps.Override_SQL = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SQL2"), ""))
-                oButtonProps.Enable_SQL = New SQLValue(NotNull(oRow.Item("SQL_ENABLE"), ""))
+                oButtonProps.Enable_SQL = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SQL_ENABLE"), ""))
-                oButtonProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
+                oButtonProps.Enable_SQL_OnLoad = New SQLValue(ClassAllgemeineFunktionen.NotNullString(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
                 If Not IsDBNull(oRow.Item("IMAGE_CONTROL")) Then
                     Dim obimg() As Byte = oRow.Item("IMAGE_CONTROL")
                     Dim oBitmap As Bitmap = ByteArrayToBitmap(obimg)
@@ -755,7 +772,7 @@ Public Class frmFormDesigner
         If e.ChangeType <> DevExpress.XtraVerticalGrid.RowChangeTypeEnum.Value Then
             Exit Sub
         End If
-
+        pgControls_Focused = True
         Dim prop = e.Properties.FieldName
         Dim newValue = e.Properties.Value
 
@@ -933,7 +950,7 @@ Public Class frmFormDesigner
             Dim v As SQLValue = value
             escapedValue = $"'{v.Value.Replace("'", "''")}'"
 
-            UpdateSingleValue("CONNECTION_ID", v.ConnectionId)
+            'UpdateSingleValue("CONNECTION_ID", v.ConnectionId)
         End If
 
         Try
@@ -961,7 +978,7 @@ Public Class frmFormDesigner
 
     Private Sub MenuItemAddColumn_Click(sender As Object, e As EventArgs) Handles MenuItemAddColumn.Click
         Try
-            Dim oGuid = clsTools.ShortGuid()
+            Dim oGuid = ClassAllgemeineFunktionen.NewShortGuid()
             Dim oColumnName As String = "colNew" & oGuid
             Dim oColumnCaption As String = "New Column " & oGuid
             If DatabaseFallback.ExecuteNonQueryECM($"INSERT INTO TBPM_CONTROL_TABLE (CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE) VALUES({CURRENT_CONTROL_ID}, '{oColumnName}', '{oColumnCaption}', 95)") = True Then
@@ -1261,6 +1278,52 @@ Public Class frmFormDesigner
     End Sub
 
     Private Sub bbtniwidth_plus_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniwidth_plus.ItemClick
+        Width_Plus()
+    End Sub
+
+    Private Sub bbtniwidth_min_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniwidth_min.ItemClick
+        Width_Min()
+    End Sub
+
+    Private Sub bbtniheight_min_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniheight_min.ItemClick
+        Height_minus()
+    End Sub
+
+    Private Sub bbtniheight_plus_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniheight_plus.ItemClick
+        Height_plus()
+    End Sub
+
+
+    Private Sub frmFormDesigner_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
+
+        If e.Control AndAlso (e.KeyCode = e.KeyCode.Add Or e.KeyCode = e.KeyCode.Oemplus) Then
+            Height_plus()
+
+        ElseIf e.Control AndAlso (e.KeyCode = e.KeyCode.Subtract Or e.KeyCode = e.KeyCode.Oemplus) Then
+            Height_minus()
+        Else
+            Console.WriteLine("e.keycode: " + e.KeyCode.ToString)
+            If e.KeyCode = e.KeyCode.Delete And pgControls_Focused = False Then
+
+                Control_Delete()
+            ElseIf e.KeyCode = e.KeyCode.F5 Then
+                LoadControls()
+                tslblAenderungen.Caption = "Controls loaded - " + Now.ToString
+            ElseIf e.KeyCode = Keys.Escape Then
+                If Me.Cursor = Cursors.Cross Then
+                    Mouse_IsPressed = False
+                    Me.Cursor = Cursors.Default
+                End If
+            ElseIf (e.KeyCode = e.KeyCode.Add Or e.KeyCode = e.KeyCode.Oemplus) Then
+                Width_Plus()
+            ElseIf (e.KeyCode = e.KeyCode.Subtract Or e.KeyCode = e.KeyCode.Oemplus) Then
+                Width_Min()
+            End If
+        End If
+
+
+    End Sub
+    Sub Width_Plus()
         If CurrentControl Is Nothing = False Then
             CurrentControl.Size = New Size(CurrentControl.Width + 5, CurrentControl.Height)
             DirectCast(pgControlsNew.SelectedObject, BaseProperties).Size = CurrentControl.Size
@@ -1269,8 +1332,7 @@ Public Class frmFormDesigner
             UpdateSingleValue("WIDTH", CurrentControl.Size.Width)
         End If
     End Sub
-
+    Sub Width_Min()
-    Private Sub bbtniwidth_min_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniwidth_min.ItemClick
         If CurrentControl Is Nothing = False Then
             Dim newWidth = CurrentControl.Width - 5
             ' Verhindert, dass das Control unsichtbar wird
@@ -1285,44 +1347,72 @@ Public Class frmFormDesigner
         End If
     End Sub
 
-    Private Sub bbtniheight_min_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniheight_min.ItemClick
+    Sub Height_minus()
         If CurrentControl Is Nothing = False Then
             Dim newHeight As Integer = CurrentControl.Height - 5
+            Dim oReloadNeeded As Boolean = False
+            If newHeight <= 22 And TypeOf CurrentControl Is DevExpress.XtraEditors.MemoEdit Then
 
-            ' TODO: Implement Multiline TextBox
+                oReloadNeeded = True
-            'If newHeight < 22 And TypeOf CurrentControl Is TextBox Then
+                '    DirectCast(CurrentControl, TextBox).Multiline = True
-            '    DirectCast(CurrentControl, TextBox).Multiline = True
+            ElseIf newHeight <= 20 Then
-            'End If
-
-            ' Verhindert, dass das Control unsichtbar wird
-            If newHeight < 1 Then
                 Exit Sub
             End If
+            CurrentControl.Size = New Size(CurrentControl.Width, newHeight)
+            DirectCast(pgControlsNew.SelectedObject, BaseProperties).Size = CurrentControl.Size
+            pgControlsNew.UpdateData()
+
+            If UpdateSingleValue("HEIGHT", newHeight) And oReloadNeeded Then
+                LoadControls()
+                LoadControlProperties(CurrentControl)
+            End If
+        End If
+    End Sub
+
+    Sub Height_plus()
+        If CurrentControl Is Nothing = False Then
+            Dim newHeight As Integer = CurrentControl.Height + 5
+            Dim oReloadNeeded As Boolean = False
+            ' TODO: Implement Multiline Textbox
+            If newHeight > 21 And TypeOf CurrentControl Is DevExpress.XtraEditors.TextEdit Then
+                Console.WriteLine("Multiline directcast")
+                oReloadNeeded = True
+                '    DirectCast(CurrentControl, TextBox).Multiline = True
+            End If
 
             CurrentControl.Size = New Size(CurrentControl.Width, newHeight)
             DirectCast(pgControlsNew.SelectedObject, BaseProperties).Size = CurrentControl.Size
             pgControlsNew.UpdateData()
 
-            UpdateSingleValue("HEIGHT", newHeight)
+            If UpdateSingleValue("HEIGHT", newHeight) And oReloadNeeded Then
+                LoadControls()
+                CurrentControl.Select()
+                CurrentControl.BackColor = Color.Orange
+            End If
         End If
     End Sub
 
-    Private Sub bbtniheight_plus_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniheight_plus.ItemClick
+    Private Sub pgControlsNew_KeyPress(sender As Object, e As KeyPressEventArgs) Handles pgControlsNew.KeyPress
-        If CurrentControl Is Nothing = False Then
+        pgControls_Focused = True
-            Dim newHeight As Integer = CurrentControl.Height + 5
-
-            ' TODO: Implement Multiline Textbox
-            'If newHeight > 21 And TypeOf CurrentControl Is TextBox Then
-            '    DirectCast(CurrentControl, TextBox).Multiline = True
-            'End If
-
-            CurrentControl.Size = New Size(CurrentControl.Width, newHeight)
-            DirectCast(pgControlsNew.SelectedObject, BaseProperties).Size = CurrentControl.Size
-            pgControlsNew.UpdateData()
-
-            UpdateSingleValue("HEIGHT", newHeight)
-        End If
     End Sub
 
+    Private Sub pgControlsNew_Leave(sender As Object, e As EventArgs) Handles pgControlsNew.Leave
+        pgControls_Focused = False
+    End Sub
 
+    Private Sub pgControlsNew_KeyUp(sender As Object, e As KeyEventArgs) Handles pgControlsNew.KeyUp
+        pgControls_Focused = True
+    End Sub
+
+    Private Sub pgControlsNew_Click(sender As Object, e As EventArgs) Handles pgControlsNew.Click
+        pgControls_Focused = True
+    End Sub
+
+    Private Sub pgControlsNew_GotFocus(sender As Object, e As EventArgs) Handles pgControlsNew.GotFocus
+        pgControls_Focused = True
+    End Sub
+
+    Private Sub pgControlsNew_Enter(sender As Object, e As EventArgs) Handles pgControlsNew.Enter
+        pgControls_Focused = True
+    End Sub
 End Class

app/TaskFlow/frmInvDashboard.Designer.vb

@@ -193,10 +193,10 @@ Partial Class frmInvDashboard
         Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
+        Me.DD_DMSLiteDataSet = New taskFLOW.DD_DMSLiteDataSet()
         Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter()
+        Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter()
-        Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
+        Me.TableAdapterManager = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
         Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
         Me.TileView1 = New DevExpress.XtraGrid.Views.Tile.TileView()
         Me.Label1 = New System.Windows.Forms.Label()
@@ -210,7 +210,7 @@ Partial Class frmInvDashboard
         Me.SplitContainerDashboard = New System.Windows.Forms.SplitContainer()
         Me.SplitContainerTop = New System.Windows.Forms.SplitContainer()
         Me.ChartTopLeft = New DevExpress.XtraCharts.ChartControl()
-        Me.VWPM_CHART_TOP5TableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.VWPM_CHART_TOP5TableAdapter()
+        Me.VWPM_CHART_TOP5TableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.VWPM_CHART_TOP5TableAdapter()
         Me.ChartTopRight = New DevExpress.XtraCharts.ChartControl()
         Me.SplitContainerBottom = New System.Windows.Forms.SplitContainer()
         Me.ChartBottomLeft = New DevExpress.XtraCharts.ChartControl()
@@ -1140,7 +1140,7 @@ Partial Class frmInvDashboard
         Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing
         Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing
         Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
-        Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        Me.TableAdapterManager.UpdateOrder = taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'GridControl1
         '

app/TaskFlow/frmKonfig.Designer.vb

@@ -60,10 +60,10 @@ Partial Class frmKonfig
         Me.LogNachrichtenLeerenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.SpeichereLogAlsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.gvLogs = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
+        Me.DD_DMSLiteDataSet = New taskFLOW.DD_DMSLiteDataSet()
         Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.TBPM_KONFIGURATIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter()
+        Me.TBPM_KONFIGURATIONTableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter()
-        Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
+        Me.TableAdapterManager = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
         Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
         Me.TabControl1.SuspendLayout()
         Me.TabPage2.SuspendLayout()
@@ -176,7 +176,7 @@ Partial Class frmKonfig
         '
         'BtnConnect
         '
-        Me.BtnConnect.Image = Global.DD_ProcessManager.My.Resources.Resources.database_go
+        Me.BtnConnect.Image = Global.taskFLOW.My.Resources.Resources.database_go
         resources.ApplyResources(Me.BtnConnect, "BtnConnect")
         Me.BtnConnect.Name = "BtnConnect"
         Me.BtnConnect.UseVisualStyleBackColor = True
@@ -227,7 +227,7 @@ Partial Class frmKonfig
         '
         'BtnCreateLogfiles
         '
-        Me.BtnCreateLogfiles.Image = Global.DD_ProcessManager.My.Resources.Resources.AttachFileHS
+        Me.BtnCreateLogfiles.Image = Global.taskFLOW.My.Resources.Resources.AttachFileHS
         resources.ApplyResources(Me.BtnCreateLogfiles, "BtnCreateLogfiles")
         Me.BtnCreateLogfiles.Name = "BtnCreateLogfiles"
         Me.BtnCreateLogfiles.UseVisualStyleBackColor = True
@@ -245,10 +245,10 @@ Partial Class frmKonfig
         '
         'txtIntervall
         '
-        Me.txtIntervall.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_ProcessManager.My.MySettings.Default, "IntervallReminder", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
+        Me.txtIntervall.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.taskFLOW.My.MySettings.Default, "IntervallReminder", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
         resources.ApplyResources(Me.txtIntervall, "txtIntervall")
         Me.txtIntervall.Name = "txtIntervall"
-        Me.txtIntervall.Text = Global.DD_ProcessManager.My.MySettings.Default.IntervallReminder
+        Me.txtIntervall.Text = Global.taskFLOW.My.MySettings.Default.IntervallReminder
         '
         'Label6
         '
@@ -356,7 +356,7 @@ Partial Class frmKonfig
         Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing
         Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing
         Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
-        Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        Me.TableAdapterManager.UpdateOrder = taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'frmKonfig
         '
@@ -397,10 +397,10 @@ Partial Class frmKonfig
     Friend WithEvents txtActualConnection As System.Windows.Forms.TextBox
     Friend WithEvents chkbxUserAut As System.Windows.Forms.CheckBox
     Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
-    Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet
+    Friend WithEvents DD_DMSLiteDataSet As taskFLOW.DD_DMSLiteDataSet
     Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter
+    Friend WithEvents TBPM_KONFIGURATIONTableAdapter As taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter
-    Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
+    Friend WithEvents TableAdapterManager As taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
     Friend WithEvents Button1 As System.Windows.Forms.Button
     Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
     Friend WithEvents btnOpenAppDataFolder As System.Windows.Forms.Button

app/TaskFlow/frmKonfig.resx

@@ -442,7 +442,7 @@
     <value>8, 156</value>
   </data>
   <data name="txtActualConnection.Size" type="System.Drawing.Size, System.Drawing">
-    <value>624, 25</value>
+    <value>744, 25</value>
   </data>
   <data name="txtActualConnection.TabIndex" type="System.Int32, mscorlib">
     <value>33</value>
@@ -487,7 +487,7 @@
     <value>3, 3, 3, 3</value>
   </data>
   <data name="TabPage2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>712, 318</value>
+    <value>832, 318</value>
   </data>
   <data name="TabPage2.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -511,7 +511,7 @@
     <value>236, 162</value>
   </data>
   <data name="NumericUpDown1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>120, 25</value>
+    <value>42, 25</value>
   </data>
   <data name="NumericUpDown1.TabIndex" type="System.Int32, mscorlib">
     <value>49</value>
@@ -693,7 +693,7 @@
   <data name="btnOpenLogFolder.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAR5JREFUWEfF1LENwjAQBVBGYRSULdIhGCBDgFImI1CmIxukIjVNGmAIoElrfBZG
+        vQAADr0BR/uQrQAAAR5JREFUWEfF1LENwjAQBVBGYRSULdIhGCBDgFImI1CmIxukIjVNGmAIoElrfBZG
         h/1NomAOS0+RPuLfRcjMlFJ/BUNJMJQEQ0kwlARDSTCUBEMy9vR9v9PUJ243B0My5ujyweHE7eZgSPhB
         pVye5ypJEo/93O3mYEj44cNcNHyz2arb9f7mJwu4b0j4cJv9dAE7bMjXC+gv1rbAkl5gaQss6QXmfPBY
         0RZ4/vZHKsiyzBsU0h7aqAuUVFBVlTcopCjKqAssqKDrOm9QyHq1jrcAHV1wpZI0Tb1hIefTxTxjLWCu
@@ -758,7 +758,7 @@
   <data name="btnOpenAppDataFolder.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAR5JREFUWEfF1LENwjAQBVBGYRSULdIhGCBDgFImI1CmIxukIjVNGmAIoElrfBZG
+        vQAADr0BR/uQrQAAAR5JREFUWEfF1LENwjAQBVBGYRSULdIhGCBDgFImI1CmIxukIjVNGmAIoElrfBZG
         h/1NomAOS0+RPuLfRcjMlFJ/BUNJMJQEQ0kwlARDSTCUBEMy9vR9v9PUJ243B0My5ujyweHE7eZgSPhB
         pVye5ypJEo/93O3mYEj44cNcNHyz2arb9f7mJwu4b0j4cJv9dAE7bMjXC+gv1rbAkl5gaQss6QXmfPBY
         0RZ4/vZHKsiyzBsU0h7aqAuUVFBVlTcopCjKqAssqKDrOm9QyHq1jrcAHV1wpZI0Tb1hIefTxTxjLWCu
@@ -851,7 +851,7 @@
     <value>3, 3, 3, 3</value>
   </data>
   <data name="TabPage3.Size" type="System.Drawing.Size, System.Drawing">
-    <value>712, 318</value>
+    <value>832, 318</value>
   </data>
   <data name="TabPage3.TabIndex" type="System.Int32, mscorlib">
     <value>2</value>
@@ -905,7 +905,7 @@
     <value>3, 3</value>
   </data>
   <data name="GridControlLogs.Size" type="System.Drawing.Size, System.Drawing">
-    <value>706, 312</value>
+    <value>826, 312</value>
   </data>
   <data name="GridControlLogs.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -929,7 +929,7 @@
     <value>3, 3, 3, 3</value>
   </data>
   <data name="TabPage4.Size" type="System.Drawing.Size, System.Drawing">
-    <value>712, 318</value>
+    <value>832, 318</value>
   </data>
   <data name="TabPage4.TabIndex" type="System.Int32, mscorlib">
     <value>3</value>
@@ -956,7 +956,7 @@
     <value>0, 0</value>
   </data>
   <data name="TabControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>720, 348</value>
+    <value>840, 348</value>
   </data>
   <data name="TabControl1.TabIndex" type="System.Int32, mscorlib">
     <value>21</value>
@@ -998,7 +998,7 @@
     <value>7, 17</value>
   </data>
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>720, 348</value>
+    <value>840, 348</value>
   </data>
   <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 9.75pt</value>

app/TaskFlow/frmKonfig.vb

@@ -168,9 +168,9 @@ Public Class frmKonfig
     End Function
 
     Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
+        ' Specify that the link was visited.
+        Me.LinkLabel1.LinkVisited = True
         Try
-            Me.LinkLabel1.LinkVisited = True
-
             Using connection As New SqlClient.SqlConnection(CONNECTION_STRING_ECM)
                 connection.Open()
 

app/TaskFlow/frmLicense.Designer.vb

@@ -39,10 +39,10 @@ Partial Class frmLicense
         Me.txtlicenseCount = New System.Windows.Forms.TextBox()
         Me.lblnewlicenses = New System.Windows.Forms.Label()
         Me.lblAktuelleLizenzen = New System.Windows.Forms.Label()
-        Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
+        Me.DD_DMSLiteDataSet = New taskFLOW.DD_DMSLiteDataSet()
         Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.TBPM_KONFIGURATIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter()
+        Me.TBPM_KONFIGURATIONTableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter()
-        Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
+        Me.TableAdapterManager = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.txtModules = New System.Windows.Forms.TextBox()
         Me.grbBoxlicense.SuspendLayout()
@@ -125,7 +125,7 @@ Partial Class frmLicense
         '
         'btnnewLicenses
         '
-        Me.btnnewLicenses.Image = Global.DD_ProcessManager.My.Resources.Resources.key_go
+        Me.btnnewLicenses.Image = Global.taskFLOW.My.Resources.Resources.key_go
         resources.ApplyResources(Me.btnnewLicenses, "btnnewLicenses")
         Me.btnnewLicenses.Name = "btnnewLicenses"
         Me.btnnewLicenses.UseVisualStyleBackColor = True
@@ -175,7 +175,7 @@ Partial Class frmLicense
         Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing
         Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing
         Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
-        Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        Me.TableAdapterManager.UpdateOrder = taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'Label4
         '
@@ -217,10 +217,10 @@ Partial Class frmLicense
     Friend WithEvents txtlicenseCount As System.Windows.Forms.TextBox
     Friend WithEvents lblnewlicenses As System.Windows.Forms.Label
     Friend WithEvents lblAktuelleLizenzen As System.Windows.Forms.Label
-    Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet
+    Friend WithEvents DD_DMSLiteDataSet As taskFLOW.DD_DMSLiteDataSet
     Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter
+    Friend WithEvents TBPM_KONFIGURATIONTableAdapter As taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter
-    Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
+    Friend WithEvents TableAdapterManager As taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
     Friend WithEvents Label1 As System.Windows.Forms.Label
     Friend WithEvents dtp_Gültigkeit As System.Windows.Forms.DateTimePicker
     Friend WithEvents Label3 As System.Windows.Forms.Label

app/TaskFlow/frmLicense.resx

@@ -781,7 +781,7 @@
     <value>DD_DMSLiteDataSet</value>
   </data>
   <data name="&gt;&gt;DD_DMSLiteDataSet.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TBPM_KONFIGURATIONBindingSource.Name" xml:space="preserve">
     <value>TBPM_KONFIGURATIONBindingSource</value>
@@ -793,13 +793,13 @@
     <value>TBPM_KONFIGURATIONTableAdapter</value>
   </data>
   <data name="&gt;&gt;TBPM_KONFIGURATIONTableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
     <value>TableAdapterManager</value>
   </data>
   <data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmLicense</value>

app/TaskFlow/frmLoginAdmin.Designer.vb

@@ -28,10 +28,10 @@ Partial Class frmLoginAdmin
         Me.Label1 = New System.Windows.Forms.Label()
         Me.btnAbbruch = New System.Windows.Forms.Button()
         Me.btnok = New System.Windows.Forms.Button()
-        Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
+        Me.DD_DMSLiteDataSet = New taskFLOW.DD_DMSLiteDataSet()
         Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.TBPM_KONFIGURATIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter()
+        Me.TBPM_KONFIGURATIONTableAdapter = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter()
-        Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
+        Me.TableAdapterManager = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
         Me.Button1 = New System.Windows.Forms.Button()
         CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -88,11 +88,11 @@ Partial Class frmLoginAdmin
         Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing
         Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing
         Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
-        Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        Me.TableAdapterManager.UpdateOrder = taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'Button1
         '
-        Me.Button1.Image = Global.DD_ProcessManager.My.Resources.Resources.asterisk_yellow
+        Me.Button1.Image = Global.taskFLOW.My.Resources.Resources.asterisk_yellow
         resources.ApplyResources(Me.Button1, "Button1")
         Me.Button1.Name = "Button1"
         Me.Button1.UseVisualStyleBackColor = True
@@ -120,9 +120,9 @@ Partial Class frmLoginAdmin
     Friend WithEvents Label1 As System.Windows.Forms.Label
     Friend WithEvents btnAbbruch As System.Windows.Forms.Button
     Friend WithEvents btnok As System.Windows.Forms.Button
-    Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet
+    Friend WithEvents DD_DMSLiteDataSet As taskFLOW.DD_DMSLiteDataSet
     Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter
+    Friend WithEvents TBPM_KONFIGURATIONTableAdapter As taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter
-    Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
+    Friend WithEvents TableAdapterManager As taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
     Friend WithEvents Button1 As System.Windows.Forms.Button
 End Class

app/TaskFlow/frmLoginAdmin.resx

@@ -280,7 +280,7 @@
     <value>DD_DMSLiteDataSet</value>
   </data>
   <data name="&gt;&gt;DD_DMSLiteDataSet.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TBPM_KONFIGURATIONBindingSource.Name" xml:space="preserve">
     <value>TBPM_KONFIGURATIONBindingSource</value>
@@ -292,13 +292,13 @@
     <value>TBPM_KONFIGURATIONTableAdapter</value>
   </data>
   <data name="&gt;&gt;TBPM_KONFIGURATIONTableAdapter.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
     <value>TableAdapterManager</value>
   </data>
   <data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
-    <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmLoginAdmin</value>

app/TaskFlow/frmMain.Designer.vb

@@ -25,8 +25,8 @@ Partial Class frmMain
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
         Me.ImageListProfile = New System.Windows.Forms.ImageList(Me.components)
-        Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
+        Me.DD_DMSLiteDataSet = New taskFLOW.DD_DMSLiteDataSet()
-        Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
+        Me.TableAdapterManager = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.GridControlWorkflows = New DevExpress.XtraGrid.GridControl()
         Me.GridViewWorkflows = New DevExpress.XtraGrid.Views.Grid.GridView()
@@ -83,6 +83,7 @@ Partial Class frmMain
         Me.BBtnItmNotfications = New DevExpress.XtraBars.BarButtonItem()
         Me.BSIVERSION1 = New DevExpress.XtraBars.BarStaticItem()
         Me.barbtnitmsaveLogfiles = New DevExpress.XtraBars.BarButtonItem()
+        Me.bsitmCount = New DevExpress.XtraBars.BarStaticItem()
         Me.RibbonPageStart = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -241,7 +242,7 @@ Partial Class frmMain
         Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing
         Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing
         Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
-        Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        Me.TableAdapterManager.UpdateOrder = taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'Panel1
         '
@@ -289,9 +290,9 @@ Partial Class frmMain
         'RibbonControl1
         '
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv, Me.bsiGeneralInfo, Me.bbtnitmGhostMode, Me.bsi_GhostMode, Me.BarButtonItemGhostMode, Me.SearchItem1, Me.SearchItem2, Me.BarStaticItemAppServer, Me.bbtniCW, Me.bsiInactivityCheck, Me.BarButtonItem2, Me.BarCheckItemAutofilter, Me.BarCheckItem2, Me.BarButtonItemResetLayout, Me.BarButtonItem4, Me.BarButtonItemExportExcel, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItemWFSingle, Me.BarButtonItemWFGroup, Me.BarButtonItemFileLink, Me.BarButtonItemMassValidation, Me.BarCheckItemShowSearch, Me.barItemGridFontSize, Me.BarButtonItem8, Me.BbtnitmAHWF1, Me.BbtnitmAHWF2, Me.BbtnitmAHWF3, Me.BbtnitmAHWF4, Me.bbtnitmLanguage_Change, Me.BarButtonItem10, Me.BBtnItmNotfications, Me.BSIVERSION1, Me.barbtnitmsaveLogfiles})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv, Me.bsiGeneralInfo, Me.bbtnitmGhostMode, Me.bsi_GhostMode, Me.BarButtonItemGhostMode, Me.SearchItem1, Me.SearchItem2, Me.BarStaticItemAppServer, Me.bbtniCW, Me.bsiInactivityCheck, Me.BarButtonItem2, Me.BarCheckItemAutofilter, Me.BarCheckItem2, Me.BarButtonItemResetLayout, Me.BarButtonItem4, Me.BarButtonItemExportExcel, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItemWFSingle, Me.BarButtonItemWFGroup, Me.BarButtonItemFileLink, Me.BarButtonItemMassValidation, Me.BarCheckItemShowSearch, Me.barItemGridFontSize, Me.BarButtonItem8, Me.BbtnitmAHWF1, Me.BbtnitmAHWF2, Me.BbtnitmAHWF3, Me.BbtnitmAHWF4, Me.bbtnitmLanguage_Change, Me.BarButtonItem10, Me.BBtnItmNotfications, Me.BSIVERSION1, Me.barbtnitmsaveLogfiles, Me.bsitmCount})
         resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
-        Me.RibbonControl1.MaxItemId = 56
+        Me.RibbonControl1.MaxItemId = 57
         Me.RibbonControl1.Name = "RibbonControl1"
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageStart, Me.RibbonPageTabelle, Me.RibbonPageAktionen})
         Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar1, Me.RepositoryItemTrackBar1, Me.cmbGridFontSize})
@@ -362,7 +363,7 @@ Partial Class frmMain
         '
         resources.ApplyResources(Me.bsiUser, "bsiUser")
         Me.bsiUser.Id = 8
-        Me.bsiUser.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.actions_user
+        Me.bsiUser.ImageOptions.SvgImage = Global.taskFLOW.My.Resources.Resources.actions_user
         Me.bsiUser.Name = "bsiUser"
         Me.bsiUser.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
         '
@@ -370,14 +371,14 @@ Partial Class frmMain
         '
         resources.ApplyResources(Me.bsiLicenses, "bsiLicenses")
         Me.bsiLicenses.Id = 9
-        Me.bsiLicenses.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.security_key
+        Me.bsiLicenses.ImageOptions.SvgImage = Global.taskFLOW.My.Resources.Resources.security_key
         Me.bsiLicenses.Name = "bsiLicenses"
         Me.bsiLicenses.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
         '
         'bsiUserLoggedIn
         '
         Me.bsiUserLoggedIn.Id = 10
-        Me.bsiUserLoggedIn.ImageOptions.Image = Global.DD_ProcessManager.My.Resources.Resources.group_key
+        Me.bsiUserLoggedIn.ImageOptions.Image = Global.taskFLOW.My.Resources.Resources.group_key
         Me.bsiUserLoggedIn.Name = "bsiUserLoggedIn"
         Me.bsiUserLoggedIn.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
         '
@@ -511,7 +512,7 @@ Partial Class frmMain
         '
         resources.ApplyResources(Me.bbtniCW, "bbtniCW")
         Me.bbtniCW.Id = 25
-        Me.bbtniCW.ImageOptions.Image = Global.DD_ProcessManager.My.Resources.Resources.search
+        Me.bbtniCW.ImageOptions.Image = Global.taskFLOW.My.Resources.Resources.search
         Me.bbtniCW.Name = "bbtniCW"
         Me.bbtniCW.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
         Me.bbtniCW.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
@@ -685,6 +686,7 @@ Partial Class frmMain
         '
         resources.ApplyResources(Me.bbtnitmLanguage_Change, "bbtnitmLanguage_Change")
         Me.bbtnitmLanguage_Change.Id = 51
+        Me.bbtnitmLanguage_Change.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmLanguage_Change.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.bbtnitmLanguage_Change.Name = "bbtnitmLanguage_Change"
         '
         'BarButtonItem10
@@ -720,6 +722,13 @@ Partial Class frmMain
         Me.barbtnitmsaveLogfiles.Name = "barbtnitmsaveLogfiles"
         Me.barbtnitmsaveLogfiles.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
         '
+        'bsitmCount
+        '
+        resources.ApplyResources(Me.bsitmCount, "bsitmCount")
+        Me.bsitmCount.Id = 56
+        Me.bsitmCount.Name = "bsitmCount"
+        Me.bsitmCount.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
+        '
         'RibbonPageStart
         '
         Me.RibbonPageStart.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroupBasicConf, Me.RibbonPageGroup7, Me.RibbonPageGroup4, Me.RibbonPageGroupAHW})
@@ -846,6 +855,7 @@ Partial Class frmMain
         Me.RibbonStatusBar1.ItemLinks.Add(Me.BSIVERSION1)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.bsilastsync)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDebug)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmCount)
         resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
@@ -891,7 +901,7 @@ Partial Class frmMain
         '
         'tsmiValidationProfil
         '
-        Me.tsmiValidationProfil.Image = Global.DD_ProcessManager.My.Resources.Resources.database_go1
+        Me.tsmiValidationProfil.Image = Global.taskFLOW.My.Resources.Resources.database_go1
         Me.tsmiValidationProfil.Name = "tsmiValidationProfil"
         resources.ApplyResources(Me.tsmiValidationProfil, "tsmiValidationProfil")
         '
@@ -929,7 +939,7 @@ Partial Class frmMain
         '
         'PopupErinnerungInaktivierenToolStripMenuItem
         '
-        Me.PopupErinnerungInaktivierenToolStripMenuItem.Image = Global.DD_ProcessManager.My.Resources.Resources.user_red
+        Me.PopupErinnerungInaktivierenToolStripMenuItem.Image = Global.taskFLOW.My.Resources.Resources.user_red
         Me.PopupErinnerungInaktivierenToolStripMenuItem.Name = "PopupErinnerungInaktivierenToolStripMenuItem"
         resources.ApplyResources(Me.PopupErinnerungInaktivierenToolStripMenuItem, "PopupErinnerungInaktivierenToolStripMenuItem")
         '
@@ -940,7 +950,7 @@ Partial Class frmMain
         '
         'AnzeigenToolStripMenuItem
         '
-        Me.AnzeigenToolStripMenuItem.Image = Global.DD_ProcessManager.My.Resources.Resources.Files_7954
+        Me.AnzeigenToolStripMenuItem.Image = Global.taskFLOW.My.Resources.Resources.Files_7954
         Me.AnzeigenToolStripMenuItem.Name = "AnzeigenToolStripMenuItem"
         resources.ApplyResources(Me.AnzeigenToolStripMenuItem, "AnzeigenToolStripMenuItem")
         '
@@ -973,6 +983,7 @@ Partial Class frmMain
         Me.DocumentViewerBarManager1.DockControls.Add(Me.barDockControlBottom)
         Me.DocumentViewerBarManager1.DockControls.Add(Me.barDockControlLeft)
         Me.DocumentViewerBarManager1.DockControls.Add(Me.barDockControlRight)
+        Me.DocumentViewerBarManager1.DockWindowTabFont = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.DocumentViewerBarManager1.Form = Me
         Me.DocumentViewerBarManager1.ImageStream = CType(resources.GetObject("DocumentViewerBarManager1.ImageStream"), DevExpress.Utils.ImageCollectionStreamer)
         Me.DocumentViewerBarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.PrintPreviewStaticItem1, Me.ProgressBarEditItem1, Me.PrintPreviewBarItem1, Me.PrintPreviewStaticItem2, Me.ZoomTrackBarEditItem1, Me.bbiDocumentMap, Me.bbiParameters, Me.bbiThumbnails, Me.bbiFind, Me.bbiHighlightEditingFields, Me.bbiCustomize, Me.bbiOpen, Me.bbiSave, Me.bbiPrint, Me.bbiPrintDirect, Me.bbiPageSetup, Me.bbiEditPageHF, Me.bbiScale, Me.bbiHandTool, Me.bbiMagnifier, Me.bbiZoomOut, Me.bbiZoom, Me.bbiZoomIn, Me.bbiShowFirstPage, Me.bbiShowPrevPage, Me.bbiShowNextPage, Me.bbiShowLastPage, Me.bbiMultiplePages, Me.bbiFillBackground, Me.bbiWatermark, Me.bbiExportFile, Me.bbiSendFile, Me.bbiClosePreview, Me.miFile, Me.miView, Me.miBackground, Me.miPageLayout, Me.miPageLayoutFacing, Me.miPageLayoutContinuous, Me.miToolbars, Me.PrintPreviewBarCheckItem1, Me.PrintPreviewBarCheckItem2, Me.PrintPreviewBarCheckItem3, Me.PrintPreviewBarCheckItem4, Me.PrintPreviewBarCheckItem5, Me.PrintPreviewBarCheckItem6, Me.PrintPreviewBarCheckItem7, Me.PrintPreviewBarCheckItem8, Me.PrintPreviewBarCheckItem9, Me.PrintPreviewBarCheckItem10, Me.PrintPreviewBarCheckItem11, Me.PrintPreviewBarCheckItem12, Me.PrintPreviewBarCheckItem13, Me.PrintPreviewBarCheckItem14, Me.PrintPreviewBarCheckItem15, Me.PrintPreviewBarCheckItem16, Me.PrintPreviewBarCheckItem17, Me.PrintPreviewBarCheckItem18, Me.PrintPreviewBarCheckItem19})
@@ -1601,7 +1612,7 @@ Partial Class frmMain
         Me.Controls.Add(Me.barDockControlBottom)
         Me.Controls.Add(Me.barDockControlTop)
         Me.IconOptions.Icon = CType(resources.GetObject("frmMain.IconOptions.Icon"), System.Drawing.Icon)
-        Me.IconOptions.Image = Global.DD_ProcessManager.My.Resources.Resources.DD_taskFLOW_ICON
+        Me.IconOptions.Image = Global.taskFLOW.My.Resources.Resources.DD_taskFLOW_ICON
         Me.KeyPreview = True
         Me.Name = "frmMain"
         Me.Ribbon = Me.RibbonControl1
@@ -1629,8 +1640,8 @@ Partial Class frmMain
         Me.PerformLayout()
 
     End Sub
-    Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet
+    Friend WithEvents DD_DMSLiteDataSet As taskFLOW.DD_DMSLiteDataSet
-    Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
+    Friend WithEvents TableAdapterManager As taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
     Friend WithEvents ImageListProfile As System.Windows.Forms.ImageList
     Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
     Friend WithEvents TimerRefresh As System.Windows.Forms.Timer
@@ -1798,4 +1809,5 @@ Partial Class frmMain
     Friend WithEvents GridViewWorkflows As DevExpress.XtraGrid.Views.Grid.GridView
     Friend WithEvents BSIVERSION1 As DevExpress.XtraBars.BarStaticItem
     Friend WithEvents barbtnitmsaveLogfiles As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents bsitmCount As DevExpress.XtraBars.BarStaticItem
 End Class

app/TaskFlow/frmMain.vb

@@ -1,24 +1,25 @@
-Imports System.Globalization
+Imports System.ComponentModel
-Imports DevExpress.Utils
+Imports System.Globalization
-Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
-Imports DevExpress.XtraGrid.Views.Grid
-Imports DevExpress.XtraGrid
-Imports DevExpress.XtraNavBar
-Imports DevExpress.XtraGrid.Columns
-Imports System.Threading
-Imports System.ComponentModel
 Imports System.IO
-Imports DevExpress.XtraPrinting
+Imports System.Threading
-Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback
-Imports DigitalData.Modules.EDMI.API.Constants
-Imports DigitalData.Modules.Windream
-Imports DigitalData.GUIs.Common
-Imports DevExpress.XtraGrid.Views.BandedGrid
-Imports DevExpress.XtraBars.Ribbon
-Imports DigitalData.Modules.ZooFlow
 Imports DevExpress.LookAndFeel
-Imports DigitalData.Modules.Base
+Imports DevExpress.Utils
+Imports DevExpress.XtraBars.Ribbon
+Imports DevExpress.XtraExport.Helpers
+Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Columns
+Imports DevExpress.XtraGrid.Views.BandedGrid
 Imports DevExpress.XtraGrid.Views.Base
+Imports DevExpress.XtraGrid.Views.Grid
+Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
+Imports DevExpress.XtraNavBar
+Imports DevExpress.XtraPrinting
+Imports DigitalData.GUIs.Common
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.EDMI.API.Constants
+Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback
+Imports DigitalData.Modules.Windream
+Imports DigitalData.Modules.ZooFlow
 
 Public Class frmMain
     Private Property FormHelper As FormHelper
@@ -135,7 +136,7 @@ Public Class frmMain
         End If
         Try
             ClassAllgemeineFunktionen.LoginOut("LOGOUT")
-            LOGGER.Info("TaskFlow closed - " & Now, False)
+            LOGGER.Info("taskFLOW closed - " & Now, False)
         Catch ex As Exception
             LOGGER.Error(ex)
         End Try
@@ -2159,12 +2160,10 @@ Public Class frmMain
             RestoreLayout()
 
             Try
-                Dim oSQLFormat = "SELECT * FROM TBDD_COLUMNS_FORMAT WHERE MODULE = 'taskFLOW' AND GRIDVIEW = 'GridViewWorkflows'"
-                Dim dtColFormat As DataTable = Await DatabaseFallback.GetDatatableECMAsync(oSQLFormat)
 
                 For Each oColumn As DevExpress.XtraGrid.Columns.GridColumn In GridViewWorkflows.Columns
 
-                    For Each oRow As DataRow In dtColFormat.Rows
+                    For Each oRow As DataRow In BASEDATA_TBDD_COLUMNS_FORMAT.Rows
                         Dim colName = oRow("COLUMN_TITLE").ToString()
 
                         If oColumn.FieldName = colName Then
@@ -2179,7 +2178,10 @@ Public Class frmMain
                                 If oColumn.ColumnType = GetType(DateTime) And oColumn.DisplayFormat.FormatString <> "dd.MM.yyyy HH:mm:ss" Then
                                     oColumn.DisplayFormat.FormatString = "dd.MM.yyyy HH:mm:ss"
                                 End If
-
+                            ElseIf oSollFormatType = "Numeric" Then
+                                If oColumn.ColumnType <> GetType(Int32) Then
+                                    oColumn.DisplayFormat.FormatType = DevExpress.Utils.FormatType.Numeric
+                                End If
                             End If
                         End If
                     Next
@@ -2242,50 +2244,84 @@ Public Class frmMain
         Item_Scope("DOUBLECLICK")
     End Sub
 
+    'Private Sub GridViewWorkflows_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridViewWorkflows.CustomDrawGroupRow
+    '    Try
+    '        ' Added
+    '        If FormOpenClose = True And GridIsLoaded = False Then
+    '            Exit Sub
+    '        End If
+
+    '        Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
+    '        Dim view As GridView = sender
+
+    '        If info.Column.FieldName = "GROUP_TEXT" Then
+    '            info.GroupText = info.GroupValueText
+
+    '            Dim oColorString As String = "LightGray"
+    '            Dim oFontColorString As String = "Black"
+    '            Dim oFoundConfig As Boolean = False
+    '            Dim oGROUP_TEXT_COL As String
+    '            If USER_LANGUAGE = "de-DE" Then
+    '                oGROUP_TEXT_COL = "GROUP_TEXT"
+    '            Else
+    '                oGROUP_TEXT_COL = "GROUP_TEXT_LANG"
+    '            End If
+
+
+    '            For Each oProfileRow As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
+    '                If oProfileRow.Item(oGROUP_TEXT_COL) = info.GroupValueText Then
+    '                    oFoundConfig = True
+    '                    oColorString = oProfileRow.Item("GROUP_COLOR")
+    '                    oFontColorString = oProfileRow.Item("GROUP_FONT_COLOR")
+    '                    ' Added
+    '                    Exit For
+    '                End If
+    '            Next
+    '            If oFoundConfig = False Then
+    '                LOGGER.Info($"CustomDrawGroupRow: Could not find a ColorConfig for ProfileGroupValueText [{info.GroupValueText}]...")
+    '                ' Added
+    '                Exit Sub
+    '            End If
+
+    '            Dim oColor As Color = ParseColorString(oColorString, Color.LightGray, "Background Color")
+    '            Dim oFontColor As Color = ParseColorString(oFontColorString, Color.Black, "Font Color")
+
+    '            info.Appearance.BackColor = oColor
+    '            info.Appearance.ForeColor = oFontColor
+    '        End If
+    '    Catch ex As Exception
+    '        LOGGER.Error(ex)
+    '    End Try
+    'End Sub
+
     Private Sub GridViewWorkflows_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridViewWorkflows.CustomDrawGroupRow
         Try
-            ' Added
+
             If FormOpenClose = True And GridIsLoaded = False Then
                 Exit Sub
             End If
 
-            Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
+            Dim oInfo As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
-            Dim view As GridView = sender
+            If oInfo Is Nothing OrElse oInfo.Column Is Nothing Then
+                Exit Sub
+            End If
 
-            If info.Column.FieldName = "GROUP_TEXT" Then
+            Dim oView As GridView = sender
-                info.GroupText = info.GroupValueText
+
+            If oInfo.Column.FieldName = "GROUP_TEXT" Then
+                oInfo.GroupText = oInfo.GroupValueText
 
                 Dim oColorString As String = "LightGray"
                 Dim oFontColorString As String = "Black"
-                Dim oFoundConfig As Boolean = False
+                Dim oChildRowHandle As Integer = oView.GetChildRowHandle(oInfo.RowHandle, 0)
-                Dim oGROUP_TEXT_COL As String
-                If USER_LANGUAGE = "de-DE" Then
-                    oGROUP_TEXT_COL = "GROUP_TEXT"
-                Else
-                    oGROUP_TEXT_COL = "GROUP_TEXT_LANG"
-                End If
 
-
+                oColorString = oView.GetRowCellValue(oChildRowHandle, "GROUP_COLOR")
-                For Each oProfileRow As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
-                    If oProfileRow.Item(oGROUP_TEXT_COL) = info.GroupValueText Then
-                        oFoundConfig = True
-                        oColorString = oProfileRow.Item("GROUP_COLOR")
-                        oFontColorString = oProfileRow.Item("GROUP_FONT_COLOR")
-                        ' Added
-                        Exit For
-                    End If
-                Next
-                If oFoundConfig = False Then
-                    LOGGER.Info($"CustomDrawGroupRow: Could not find a ColorConfig for ProfileGroupValueText [{info.GroupValueText}]...")
-                    ' Added
-                    Exit Sub
-                End If
 
                 Dim oColor As Color = ParseColorString(oColorString, Color.LightGray, "Background Color")
                 Dim oFontColor As Color = ParseColorString(oFontColorString, Color.Black, "Font Color")
 
-                info.Appearance.BackColor = oColor
+                oInfo.Appearance.BackColor = oColor
-                info.Appearance.ForeColor = oFontColor
+                oInfo.Appearance.ForeColor = oFontColor
             End If
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -2444,12 +2480,9 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G
                 SQL_VALIDATOR_SEARCHES = SQL_VALIDATOR_SEARCHES.Replace("@USR_LANG_CODE", User.Language)
                 oSQL = SQL_VALIDATOR_SEARCHES
             End If
-            'BASEDATA_DT_PROFILES_SEARCHES_DOC = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBPM_PROFILE_SEARCH", "TYPE = 'DOC'", "PROFILE_ID,TAB_INDEX")
+
             BASEDATA_DT_PROFILES_SEARCHES_DOC = DatabaseECM.GetDatatable(oSQL)
-            '.GetDatatable("TBPM_PROFILE_SEARCH", New GetDatatableOptions(oSQL, DatabaseType.ECM) With {
+
-            '    .FilterExpression = "TYPE = 'DOC'",
-            '    .SortByColumn = "PROFILE_ID,TAB_INDEX"
-            '})
             If pMode = "Load" Then
                 DT_FILTERED_PROFILE_SEARCHES_DOC = BASEDATA_DT_PROFILES_SEARCHES_DOC.Clone()
             End If
@@ -2481,10 +2514,6 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G
         oStopWatch.Done()
     End Sub
     Private Async Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        If USER_USERNAME = "SchreiberM" Then
-            frmDashboard1.Show()
-        End If ' 
-
         If RIBBON_COLOR_SCHEME <> "" Then
             Me.LookAndFeel.UseDefaultLookAndFeel = False
             If RIBBON_COLOR_SCHEME = "Blue".ToUpper Then
@@ -2861,13 +2890,16 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G
 
             End If
             If Ev_Filter_Panel_Closed = False Then
-                Dim oTermFilterActive As String = S.Filter_aktiv
+                Dim oTermFilterActive As String = String.Format("{0} ({1})", S.Filter_aktiv, GridViewWorkflows.RowCount)
                 If GridViewWorkflows.ActiveFilterString <> String.Empty Then
-                    If Not lblCaptionMainGrid.Text.Contains(oTermFilterActive) Then
+                    If lblCaptionMainGrid.Text.Contains(oTermFilterActive) Then
-                        lblCaptionMainGrid.Text += $"|{oTermFilterActive}"
-                    Else
                         Ev_Filter_Panel_Closed = False
                     End If
+                    lblCaptionMainGrid.Text = String.Format("{0} - {1}", S.Gesamtübersicht, oTermFilterActive)
+                    bsitmCount.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                    bsitmCount.Caption = oTermFilterActive
+                Else
+                    bsitmCount.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
                 End If
 
             End If
@@ -2944,7 +2976,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G
             Timer5Mins.Stop()
             TimerRefresh.Stop()
             TimerReminder.Stop()
-            LOGGER.Info("Inactivity recognized. Automatic Logout in process!")
+            LOGGER.Info("Inactivity recognized. Automatic Logout In process!")
             Hide()
             ClassAllgemeineFunktionen.LoginOut("LOGOUT")
             TimerInactivity.Stop()
@@ -2979,8 +3011,8 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G
                 MyProcess.StartInfo.FileName = bbtniCW.Tag
                 MyProcess.Start()
             Else
-                LOGGER.Warn($"easyFLOW-Exe not found [{bbtniCW.Tag}]")
+                LOGGER.Warn($"easyFLOW-Exe Not found [{bbtniCW.Tag}]")
-                FormHelper.ShowInfoMessage("Clipboard Watcher could not be started!", omsgTitleWarning)
+                FormHelper.ShowInfoMessage("Clipboard Watcher could Not be started!", omsgTitleWarning)
             End If
 
         Catch ex As Exception
@@ -3065,13 +3097,13 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G
     Private Sub BarButtonItemFileLink_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemFileLink.ItemClick
         Dim oReceipiant = ""
         Dim oFocusedDocGUID = GridViewWorkflows.GetFocusedRowCellValue(GridViewWorkflows.Columns("GUID"))
-        Dim oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({oFocusedDocGUID},1)"
+        Dim oSQL = $"Select [dbo].[FNPM_GET_FILEPATH] ({oFocusedDocGUID}, 1)"
         Dim oFilePath = DatabaseFallback.GetScalarValueECM(oSQL)
         If File.Exists(oFilePath) Then
             Dim oLink = "<HTML><body><p><a href=" + "file:///" + oFilePath + ">Link zur Datei</a></p></body></HTML>"
             Dim oLink2 = "<a href=" + "file:///" + oFilePath + ">Link zur Datei</a>"
             If Not IsNothing(oFilePath) Then
-                Process.Start($"mailto:{oReceipiant}?subject=Link aus TaskFlow Manager&body={oLink}")
+                Process.Start($"mailto:{oReceipiant}?subject=Link aus taskFLOW Manager&body={oLink}")
             End If
         End If
 
@@ -3119,6 +3151,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G
                 If CURRENT_DT_PROFILE.Rows.Count = 1 Then
                     CURRENT_ProfilName = CURRENT_DT_PROFILE.Rows(0).Item("NAME")
                     PROFILE_SHOW_DOCUMENT = CURRENT_DT_PROFILE.Rows(0).Item("SHOW_DOCUMENT")
+                    PROFILE_NOT_RESP_COMMENT = CURRENT_DT_PROFILE.Rows(0).Item("NOT_RESP_COMMENT")
                     ActiveWorkflowType = 1
                 Else
                     Exit Sub
@@ -3233,6 +3266,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G
 
     Private Sub GridViewWFItems_SubstituteFilter(sender As Object, e As DevExpress.Data.SubstituteFilterEventArgs) Handles GridViewWorkflows.SubstituteFilter
         GridLayout_Changed("GridViewWFItems_SubstituteFilter")
+
     End Sub
 
     Private Sub BbtnitmAHWF1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbtnitmAHWF1.ItemClick, BbtnitmAHWF2.ItemClick, BbtnitmAHWF3.ItemClick, BbtnitmAHWF4.ItemClick
@@ -3257,6 +3291,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G
                     LOGGER.Debug($"oTargetPath: {oTargetPath}")
                     LOGGER.Debug($"oSourcePath: {oSourcePath}")
                     If oTargetPath = String.Empty Or oSourcePath = String.Empty Then
+                        LOGGER.Warn($"oTargetPath is nothing - PRofile can not be startet . Check TARGET_PATH_BLIND_FILE Column in Profile")
                         Exit Sub
                     End If
                     oTargetPath = $"{oTargetPath}\{Now.Year}\{Now.Month}\{Now.Day}"

app/TaskFlow/frmMassValidator.Designer.vb

@@ -31,8 +31,8 @@ Partial Class frmMassValidator
         Me.TITLELabel1 = New System.Windows.Forms.Label()
         Me.btnSave = New System.Windows.Forms.Button()
         Me.DESCRIPTIONLabel = New System.Windows.Forms.Label()
-        Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
+        Me.DD_DMSLiteDataSet = New taskFLOW.DD_DMSLiteDataSet()
-        Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
+        Me.TableAdapterManager = New taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
         Me.pnldesigner = New DevExpress.XtraEditors.PanelControl()
         Me.StatusStrip1.SuspendLayout()
         CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -81,7 +81,7 @@ Partial Class frmMassValidator
         Me.btnSave.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnSave.Font = New System.Drawing.Font("Tahoma", 9.75!)
-        Me.btnSave.Image = Global.DD_ProcessManager.My.Resources.Resources.flag_pink
+        Me.btnSave.Image = Global.taskFLOW.My.Resources.Resources.flag_pink
         Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btnSave.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.btnSave.Location = New System.Drawing.Point(12, 464)
@@ -125,7 +125,7 @@ Partial Class frmMassValidator
         Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing
         Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing
         Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
-        Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        Me.TableAdapterManager.UpdateOrder = taskFLOW.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'pnldesigner
         '

app/TaskFlow/frmMassValidator.vb

@@ -323,7 +323,7 @@ Public Class frmMassValidator
                             lookup.Properties.AllowAddNewValues = oControlRow.Item("VKT_ADD_ITEM")
                             lookup.Properties.MultiSelect = oMultiselect
 
-                            If NotNull(oControlRow.Item("DEFAULT_VALUE"), "") <> "" Then
+                            If ClassAllgemeineFunktionen.NotNullString(oControlRow.Item("DEFAULT_VALUE"), "") <> "" Then
                                 lookup.Properties.SelectedValues = New List(Of String) From {oControlRow.Item("DEFAULT_VALUE")}
                             End If
 
@@ -355,7 +355,7 @@ Public Class frmMassValidator
                         LOGGER.Debug("Versuch Tabelle zu laden")
                         Dim oDTMyColumns As DataTable = DatabaseFallback.GetDatatableECM($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlRow.Item("GUID")} ORDER BY SEQUENCE") ', "MV_LoadControls1")
 
-                        oControl = ControlCreator.CreateExistingGridControl(oControlRow, oDTMyColumns, False)
+                        oControl = ControlCreator.CreateExistingGridControl(oControlRow, oDTMyColumns, False, CURRENT_DOC_CURRENCY)
                 End Select
 
                 If oControl IsNot Nothing AndAlso TypeOf oControl IsNot Label Then
@@ -449,7 +449,7 @@ Public Class frmMassValidator
                 End If
                 Dim idxname As String = controlRow.Item("INDEX_NAME")
                 ' Wenn kein defaultValue existiert, leeren String setzen
-                Dim defaultValue As String = NotNull(controlRow.Item("DEFAULT_VALUE"), String.Empty)
+                Dim defaultValue As String = ClassAllgemeineFunktionen.NotNullString(controlRow.Item("DEFAULT_VALUE"), String.Empty)
                 indexname = idxname
                 Dim LoadIDX As Boolean = controlRow.Item("LOAD_IDX_VALUE")
                 LOGGER.Debug("INDEX: " & idxname & " - CONTROLNAME: " & oControl.Name & " - LOAD IDXVALUES: " & LoadIDX.ToString)
@@ -474,7 +474,7 @@ Public Class frmMassValidator
                                 If wertWD = "" And defaultValue <> "" Then
                                     oControl.Text = defaultValue
                                 Else
-                                    oControl.Text = NotNull(wertWD, defaultValue)
+                                    oControl.Text = ClassAllgemeineFunktionen.NotNullString(wertWD, defaultValue)
                                 End If
 
                             End If
@@ -1339,15 +1339,14 @@ Public Class frmMassValidator
         Dim oSQL = $"SELECT [dbo].[FNPM_GET_WM_FILE_PATH] ({CURRENT_DOC_GUID},{_CheckStandard})"
         oResult = DatabaseFallback.GetScalarValueECM(oSQL)
         LOGGER.Debug($"Checking file 0 GDP [{oResult}] exists?...")
+        LOGGER.Debug($"GetWMDocPathWindows returned false - trying with standard again...")
+        oSQL = $"SELECT [dbo].[FNPM_GET_WM_FILE_PATH] ({CURRENT_DOC_GUID},1)"
+        oResult = DatabaseFallback.GetScalarValueECM(oSQL)
+        LOGGER.Debug($"Checking file 1 GDP [{oResult}] exists?...")
         If File.Exists(oResult) = False Then
-            LOGGER.Debug($"GetWMDocPathWindows returned false - trying with standard again...")
+            Return False
-            oSQL = $"SELECT [dbo].[FNPM_GET_WM_FILE_PATH] ({CURRENT_DOC_GUID},1)"
-            oResult = DatabaseFallback.GetScalarValueECM(oSQL)
-            LOGGER.Debug($"Checking file 1 GDP [{oResult}] exists?...")
-            If File.Exists(oResult) = False Then
-                Return False
-            End If
         End If
+
         WMDocPathWindows = oResult
 
         CURRENT_DOC_PATH = WMDocPathWindows

app/TaskFlow/frmMonitor.vb

@@ -64,13 +64,7 @@ Public Class frmMonitor
                     LOGGER.Debug($"Found {oDT2.Rows.Count} rows for GridView2")
                     GridView2.Columns.Clear()
                     GridControl2.DataSource = oDT2
-                    Try
+                    Format_Datetime_Columns(GridView2, "Grid 2")
-                        GridView2.Columns("Wann").DisplayFormat.FormatType = FormatType.DateTime
-                        GridView2.Columns("Wann").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
-                    Catch ex As Exception
-                        GridView2.Columns("When").DisplayFormat.FormatType = FormatType.DateTime
-                        GridView2.Columns("When").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
-                    End Try
 
                 End If
                 If DT_MONITOR_KONFIG.Rows.Count > 2 Then
@@ -86,6 +80,7 @@ Public Class frmMonitor
                         LOGGER.Debug($"Found {oDT3.Rows.Count} rows for GridView3")
                         GridView3.Columns.Clear()
                         GridControl3.DataSource = oDT3
+                        Format_Datetime_Columns(GridView3, "Grid 3")
                     End If
                     If DT_MONITOR_KONFIG.Rows.Count = 4 Then
                         LOGGER.Debug($"DT_MONITOR_KONFIG.Rows.Count = 4")
@@ -100,13 +95,14 @@ Public Class frmMonitor
                             LOGGER.Debug($"Found {oDT4.Rows.Count} rows for GridView4")
                             GridView4.Columns.Clear()
                             GridControl4.DataSource = oDT4
-                            Try
+                            Format_Datetime_Columns(GridView4, "Grid 4")
-                                GridView4.Columns("Geändert wann").DisplayFormat.FormatType = FormatType.DateTime
+                            'Try
-                                GridView4.Columns("Geändert wann").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                            '    GridView4.Columns("Geändert wann").DisplayFormat.FormatType = FormatType.DateTime
-                            Catch ex As Exception
+                            '    GridView4.Columns("Geändert wann").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
-                                GridView4.Columns("Changed when").DisplayFormat.FormatType = FormatType.DateTime
+                            'Catch ex As Exception
-                                GridView4.Columns("Changed when").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                            '    GridView4.Columns("Changed when").DisplayFormat.FormatType = FormatType.DateTime
-                            End Try
+                            '    GridView4.Columns("Changed when").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                            'End Try
                         End If
                     End If
                 End If
@@ -125,6 +121,49 @@ Public Class frmMonitor
         End Try
 
     End Sub
+    Sub Format_Datetime_Columns(pGridView As GridView, pWhichGridView As String)
+        Dim oColExists As Boolean = False
+        Try
+
+            If MON_ADDED_COLUMN <> "None" Then
+                MON_ADDED_COLUMN = MON_ADDED_COLUMN.Replace("[", "")
+                MON_ADDED_COLUMN = MON_ADDED_COLUMN.Replace("]", "")
+                For Each ocol As Columns.GridColumn In pGridView.Columns
+                    If ocol.ToString = MON_ADDED_COLUMN Then
+                        oColExists = True
+                        Exit For
+                    End If
+                Next
+                If oColExists Then
+                    pGridView.Columns(MON_ADDED_COLUMN).DisplayFormat.FormatType = FormatType.DateTime
+                    pGridView.Columns(MON_ADDED_COLUMN).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                End If
+
+            End If
+
+        Catch ex As Exception
+            LOGGER.Warn($"Error formatting column [{MON_ADDED_COLUMN}] {ex.Message} - Check wether it exists in columns of GridView [{pWhichGridView}]!")
+        End Try
+        Try
+            If MON_EDITED_COLUMN <> "None" Then
+                oColExists = False
+                For Each ocol As Columns.GridColumn In pGridView.Columns
+                    If ocol.ToString = MON_EDITED_COLUMN Then
+                        oColExists = True
+                        Exit For
+                    End If
+                Next
+                If oColExists Then
+                    pGridView.Columns(MON_EDITED_COLUMN).DisplayFormat.FormatType = FormatType.DateTime
+                    pGridView.Columns(MON_EDITED_COLUMN).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                End If
+
+            End If
+
+        Catch ex As Exception
+            LOGGER.Warn($"Error formatting column [{MON_EDITED_COLUMN}] {ex.Message} - Check wether it exists in columns of GridView [{pWhichGridView}]!")
+        End Try
+    End Sub
     Sub Load_Doc(oDocPath As String)
         Try
             If SplitContainerControlMain.Collapsed = False And oDocPath <> String.Empty Then
@@ -191,7 +230,12 @@ Public Class frmMonitor
                 SplitContainerControl3.SplitterPosition = CONFIG.Config.MonitorSplitter3_Distance
         End Select
         Try
-            DocumentViewerMonitor.Init(LOGCONFIG, GDPICTURE_LICENSE)
+            DocumentViewerMonitor.Init(LOGCONFIG, GDPICTURE_LICENSE, New DigitalData.Controls.DocumentViewer.DocumentViewer.ToolbarSettings() With {
+            .ShowPrintButton = True,
+            .ShowRotateButton = True,
+            .ShowFlipButton = True,
+            .ShowSettingButton = True
+        })
         Catch ex As Exception
             LOGGER.Error(ex)
         End Try
@@ -210,6 +254,7 @@ Public Class frmMonitor
 
                     GRID1_TITLE = DT_MONITOR_KONFIG.Rows(0).Item("GRID_TITLE")
                     GridView1.ViewCaption = GRID1_TITLE
+                    Format_Datetime_Columns(GridView1, "Grid 1")
                     Try
                         'GridView1.Columns.Item("FULL_FILE_PATH").Visible = False
                     Catch ex As Exception

app/TaskFlow/frmRejectionCommit.Designer.vb

@@ -89,6 +89,8 @@ Partial Class frmRejectionCommit
         '
         'txtComment
         '
+        Me.txtComment.AcceptsReturn = True
+        Me.txtComment.AcceptsTab = True
         resources.ApplyResources(Me.txtComment, "txtComment")
         Me.txtComment.Name = "txtComment"
         '

app/TaskFlow/frmRejectionCommit.resx

@@ -339,7 +339,7 @@
     <value>586, 24</value>
   </data>
   <data name="cmbReason.TabIndex" type="System.Int32, mscorlib">
-    <value>5</value>
+    <value>0</value>
   </data>
   <data name="&gt;&gt;cmbReason.Name" xml:space="preserve">
     <value>cmbReason</value>
@@ -390,7 +390,7 @@
     <value>586, 158</value>
   </data>
   <data name="txtComment.TabIndex" type="System.Int32, mscorlib">
-    <value>8</value>
+    <value>1</value>
   </data>
   <data name="&gt;&gt;txtComment.Name" xml:space="preserve">
     <value>txtComment</value>

app/TaskFlow/frmSQL_Admin.Designer.vb

@@ -77,14 +77,14 @@ Partial Class frmSQL_Admin
         'Button1
         '
         resources.ApplyResources(Me.Button1, "Button1")
-        Me.Button1.Image = Global.DD_ProcessManager.My.Resources.Resources.book_open
+        Me.Button1.Image = Global.taskFLOW.My.Resources.Resources.book_open
         Me.Button1.Name = "Button1"
         Me.Button1.UseVisualStyleBackColor = True
         '
         'btnrunSQL
         '
         resources.ApplyResources(Me.btnrunSQL, "btnrunSQL")
-        Me.btnrunSQL.Image = Global.DD_ProcessManager.My.Resources.Resources.database_go
+        Me.btnrunSQL.Image = Global.taskFLOW.My.Resources.Resources.database_go
         Me.btnrunSQL.Name = "btnrunSQL"
         Me.btnrunSQL.UseVisualStyleBackColor = True
         '

app/TaskFlow/frmSplash.designer.vb

@@ -76,7 +76,7 @@ Partial Class frmSplash
         'PictureBox1
         '
         Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox1.Image = Global.DD_ProcessManager.My.Resources.Resources.DD_taskFLOW_BOOT
+        Me.PictureBox1.Image = Global.taskFLOW.My.Resources.Resources.DD_taskFLOW_BOOT
         Me.PictureBox1.Location = New System.Drawing.Point(0, -1)
         Me.PictureBox1.Name = "PictureBox1"
         Me.PictureBox1.Size = New System.Drawing.Size(800, 200)

app/TaskFlow/frmValidator.Designer.vb

@@ -30,12 +30,11 @@ Partial Class frmValidator
         Me.btnNotResponsible = New DevExpress.XtraEditors.SimpleButton()
         Me.btnSave = New DevExpress.XtraEditors.SimpleButton()
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
-        Me.PanelControl1 = New DevExpress.XtraEditors.PanelControl()
+        Me.pnlMain = New DevExpress.XtraEditors.PanelControl()
-        Me.PanelValidatorControlBorder = New DevExpress.XtraEditors.PanelControl()
         Me.PanelValidatorControl = New DevExpress.XtraEditors.XtraScrollableControl()
         Me.DESCRIPTIONLabel = New DevExpress.XtraEditors.LabelControl()
         Me.TITLELabel1 = New DevExpress.XtraEditors.LabelControl()
-        Me.DocumentViewerValidator = New DigitalData.Controls.DocumentViewer.DocumentViewer()
+        Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
         Me.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components)
         Me.BarAndDockingController3 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
         Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl()
@@ -91,7 +90,6 @@ Partial Class frmValidator
         Me.barbtnitmExport = New DevExpress.XtraBars.BarButtonItem()
         Me.ToggleSwitchItemLoadonClick = New DevExpress.XtraBars.BarToggleSwitchItem()
         Me.Attmnt_bbtnitm_LoadonClick = New DevExpress.XtraBars.BarCheckItem()
-        Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
         Me.bbtnitmInfoWorkflow = New DevExpress.XtraBars.BarButtonItem()
         Me.bchkitmNotes = New DevExpress.XtraBars.BarCheckItem()
         Me.BarButtonGroup1 = New DevExpress.XtraBars.BarButtonGroup()
@@ -125,10 +123,8 @@ Partial Class frmValidator
         Me.SplitContainer1.Panel1.SuspendLayout()
         Me.SplitContainer1.Panel2.SuspendLayout()
         Me.SplitContainer1.SuspendLayout()
-        CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.pnlMain, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.PanelControl1.SuspendLayout()
+        Me.pnlMain.SuspendLayout()
-        CType(Me.PanelValidatorControlBorder, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.PanelValidatorControlBorder.SuspendLayout()
         CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -143,8 +139,8 @@ Partial Class frmValidator
         '
         'SplitContainerButtons
         '
-        resources.ApplyResources(Me.SplitContainerButtons, "SplitContainerButtons")
         Me.SplitContainerButtons.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1
+        resources.ApplyResources(Me.SplitContainerButtons, "SplitContainerButtons")
         Me.SplitContainerButtons.Name = "SplitContainerButtons"
         '
         'SplitContainerButtons.Panel1
@@ -156,7 +152,7 @@ Partial Class frmValidator
         '
         Me.SplitContainerButtons.Panel2.Controls.Add(Me.btnSave)
         resources.ApplyResources(Me.SplitContainerButtons.Panel2, "SplitContainerButtons.Panel2")
-        Me.SplitContainerButtons.SplitterPosition = 391
+        Me.SplitContainerButtons.SplitterPosition = 389
         '
         'SplitContainerReject_NotResp
         '
@@ -218,36 +214,27 @@ Partial Class frmValidator
         '
         'SplitContainer1.Panel1
         '
-        Me.SplitContainer1.Panel1.Controls.Add(Me.PanelControl1)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.pnlMain)
         '
         'SplitContainer1.Panel2
         '
-        Me.SplitContainer1.Panel2.Controls.Add(Me.DocumentViewerValidator)
+        Me.SplitContainer1.Panel2.Controls.Add(Me.DocumentViewer1)
         Me.SplitContainer1.TabStop = False
         '
-        'PanelControl1
+        'pnlMain
         '
-        Me.PanelControl1.Controls.Add(Me.SplitContainerButtons)
+        Me.pnlMain.Controls.Add(Me.PanelValidatorControl)
-        Me.PanelControl1.Controls.Add(Me.PanelValidatorControlBorder)
+        Me.pnlMain.Controls.Add(Me.SplitContainerButtons)
-        Me.PanelControl1.Controls.Add(Me.DESCRIPTIONLabel)
+        Me.pnlMain.Controls.Add(Me.DESCRIPTIONLabel)
-        Me.PanelControl1.Controls.Add(Me.TITLELabel1)
+        Me.pnlMain.Controls.Add(Me.TITLELabel1)
-        resources.ApplyResources(Me.PanelControl1, "PanelControl1")
+        resources.ApplyResources(Me.pnlMain, "pnlMain")
-        Me.PanelControl1.Name = "PanelControl1"
+        Me.pnlMain.Name = "pnlMain"
-        '
-        'PanelValidatorControlBorder
-        '
-        resources.ApplyResources(Me.PanelValidatorControlBorder, "PanelValidatorControlBorder")
-        Me.PanelValidatorControlBorder.Appearance.BorderColor = System.Drawing.Color.Black
-        Me.PanelValidatorControlBorder.Appearance.Options.UseBorderColor = True
-        Me.PanelValidatorControlBorder.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Simple
-        Me.PanelValidatorControlBorder.Controls.Add(Me.PanelValidatorControl)
-        Me.PanelValidatorControlBorder.Name = "PanelValidatorControlBorder"
         '
         'PanelValidatorControl
         '
-        Me.PanelValidatorControl.Appearance.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.PanelValidatorControl.Appearance.Options.UseBackColor = True
         resources.ApplyResources(Me.PanelValidatorControl, "PanelValidatorControl")
+        Me.PanelValidatorControl.Appearance.BackColor = System.Drawing.Color.Transparent
+        Me.PanelValidatorControl.Appearance.Options.UseBackColor = True
         Me.PanelValidatorControl.Name = "PanelValidatorControl"
         '
         'DESCRIPTIONLabel
@@ -269,11 +256,11 @@ Partial Class frmValidator
         Me.TITLELabel1.Appearance.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
         Me.TITLELabel1.Name = "TITLELabel1"
         '
-        'DocumentViewerValidator
+        'DocumentViewer1
         '
-        resources.ApplyResources(Me.DocumentViewerValidator, "DocumentViewerValidator")
+        resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1")
-        Me.DocumentViewerValidator.FileLoaded = False
+        Me.DocumentViewer1.FileLoaded = False
-        Me.DocumentViewerValidator.Name = "DocumentViewerValidator"
+        Me.DocumentViewer1.Name = "DocumentViewer1"
         '
         'BarManager1
         '
@@ -527,7 +514,7 @@ Partial Class frmValidator
         'RibbonControl1
         '
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnitmSave, Me.BarButtonItem5, Me.Attmt_bbtnitmShow, Me.barbtnitmExport, Me.ToggleSwitchItemLoadonClick, Me.Attmnt_bbtnitm_LoadonClick, Me.BarButtonItem6, Me.bbtnitmInfoWorkflow, Me.bchkitmNotes, Me.BarButtonGroup1})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnitmSave, Me.BarButtonItem5, Me.Attmt_bbtnitmShow, Me.barbtnitmExport, Me.ToggleSwitchItemLoadonClick, Me.Attmnt_bbtnitm_LoadonClick, Me.bbtnitmInfoWorkflow, Me.bchkitmNotes, Me.BarButtonGroup1})
         resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
         Me.RibbonControl1.MaxItemId = 38
         Me.RibbonControl1.Name = "RibbonControl1"
@@ -704,16 +691,6 @@ Partial Class frmValidator
         Me.Attmnt_bbtnitm_LoadonClick.ItemInMenuAppearance.Pressed.Options.UseForeColor = True
         Me.Attmnt_bbtnitm_LoadonClick.Name = "Attmnt_bbtnitm_LoadonClick"
         '
-        'BarButtonItem6
-        '
-        resources.ApplyResources(Me.BarButtonItem6, "BarButtonItem6")
-        Me.BarButtonItem6.Id = 32
-        Me.BarButtonItem6.ImageOptions.Image = CType(resources.GetObject("BarButtonItem6.ImageOptions.Image"), System.Drawing.Image)
-        Me.BarButtonItem6.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.LargeImage"), System.Drawing.Image)
-        Me.BarButtonItem6.Name = "BarButtonItem6"
-        Me.BarButtonItem6.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
-        Me.BarButtonItem6.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
-        '
         'bbtnitmInfoWorkflow
         '
         resources.ApplyResources(Me.bbtnitmInfoWorkflow, "bbtnitmInfoWorkflow")
@@ -758,10 +735,10 @@ Partial Class frmValidator
         '
         'RbnPgGrpActions
         '
+        Me.RbnPgGrpActions.AllowTextClipping = False
         Me.RbnPgGrpActions.ItemLinks.Add(Me.bbtniNext)
         Me.RbnPgGrpActions.ItemLinks.Add(Me.bbtniDelete)
         Me.RbnPgGrpActions.ItemLinks.Add(Me.bbtniAnnotation)
-        Me.RbnPgGrpActions.ItemLinks.Add(Me.BarButtonItem6)
         Me.RbnPgGrpActions.Name = "RbnPgGrpActions"
         resources.ApplyResources(Me.RbnPgGrpActions, "RbnPgGrpActions")
         Me.RbnPgGrpActions.Visible = False
@@ -867,10 +844,8 @@ Partial Class frmValidator
         Me.SplitContainer1.Panel2.ResumeLayout(False)
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer1.ResumeLayout(False)
-        CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.pnlMain, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.PanelControl1.ResumeLayout(False)
+        Me.pnlMain.ResumeLayout(False)
-        CType(Me.PanelValidatorControlBorder, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.PanelValidatorControlBorder.ResumeLayout(False)
         CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).EndInit()
@@ -941,7 +916,7 @@ Partial Class frmValidator
     Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents bsiInfo1 As DevExpress.XtraBars.BarStaticItem
     Friend WithEvents bsiInfo2 As DevExpress.XtraBars.BarStaticItem
-    Friend WithEvents DocumentViewerValidator As DigitalData.Controls.DocumentViewer.DocumentViewer
+    Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer
     Friend WithEvents BbtnitmSave As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents RepositoryItemComboBox1 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox
     Friend WithEvents RepositoryItemComboBox2 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox
@@ -953,13 +928,11 @@ Partial Class frmValidator
     Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
     Friend WithEvents ToggleSwitchItemLoadonClick As DevExpress.XtraBars.BarToggleSwitchItem
     Friend WithEvents Attmnt_bbtnitm_LoadonClick As DevExpress.XtraBars.BarCheckItem
-    Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents pnlMain As DevExpress.XtraEditors.PanelControl
-    Friend WithEvents PanelControl1 As DevExpress.XtraEditors.PanelControl
     Friend WithEvents btnSave As DevExpress.XtraEditors.SimpleButton
     Friend WithEvents DESCRIPTIONLabel As DevExpress.XtraEditors.LabelControl
     Friend WithEvents TITLELabel1 As DevExpress.XtraEditors.LabelControl
     Friend WithEvents PanelValidatorControl As DevExpress.XtraEditors.XtraScrollableControl
-    Friend WithEvents PanelValidatorControlBorder As DevExpress.XtraEditors.PanelControl
     Friend WithEvents btnReject As DevExpress.XtraEditors.SimpleButton
     Friend WithEvents SplitContainerButtons As DevExpress.XtraEditors.SplitContainerControl
     Friend WithEvents SplitContainerReject_NotResp As DevExpress.XtraEditors.SplitContainerControl

app/TaskFlow/frmValidatorSearch.Designer.vb

@@ -143,14 +143,14 @@ Partial Class frmValidatorSearch
         '
         'SplitContainerControlDoc.Panel1
         '
-        resources.ApplyResources(Me.SplitContainerControlDoc.Panel1, "SplitContainerControlDoc.Panel1")
         Me.SplitContainerControlDoc.Panel1.Controls.Add(Me.XtraTabControlDocs)
+        resources.ApplyResources(Me.SplitContainerControlDoc.Panel1, "SplitContainerControlDoc.Panel1")
         '
         'SplitContainerControlDoc.Panel2
         '
-        resources.ApplyResources(Me.SplitContainerControlDoc.Panel2, "SplitContainerControlDoc.Panel2")
         Me.SplitContainerControlDoc.Panel2.Controls.Add(Me.DocumentViewer1)
-        Me.SplitContainerControlDoc.SplitterPosition = 351
+        resources.ApplyResources(Me.SplitContainerControlDoc.Panel2, "SplitContainerControlDoc.Panel2")
+        Me.SplitContainerControlDoc.SplitterPosition = 468
         '
         'XtraTabControlDocs
         '
@@ -161,25 +161,14 @@ Partial Class frmValidatorSearch
         '
         'XtraTabPageDoc1
         '
-        resources.ApplyResources(Me.XtraTabPageDoc1, "XtraTabPageDoc1")
         Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1)
+        resources.ApplyResources(Me.XtraTabPageDoc1, "XtraTabPageDoc1")
         Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1"
         '
         'GridControlDocSearch1
         '
         resources.ApplyResources(Me.GridControlDocSearch1, "GridControlDocSearch1")
-        Me.GridControlDocSearch1.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch1.EmbeddedNavigator.AccessibleDescription")
+        Me.GridControlDocSearch1.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
-        Me.GridControlDocSearch1.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch1.EmbeddedNavigator.AccessibleName")
-        Me.GridControlDocSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
-        Me.GridControlDocSearch1.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
-        Me.GridControlDocSearch1.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
-        Me.GridControlDocSearch1.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
-        Me.GridControlDocSearch1.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
-        Me.GridControlDocSearch1.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
-        Me.GridControlDocSearch1.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
-        Me.GridControlDocSearch1.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch1.EmbeddedNavigator.ToolTip")
-        Me.GridControlDocSearch1.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
-        Me.GridControlDocSearch1.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch1.EmbeddedNavigator.ToolTipTitle")
         GridLevelNode1.RelationName = "Level1"
         Me.GridControlDocSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
         Me.GridControlDocSearch1.MainView = Me.GridViewDocSearch1
@@ -192,7 +181,7 @@ Partial Class frmValidatorSearch
         Me.GridViewDocSearch1.Appearance.EvenRow.Options.UseBackColor = True
         Me.GridViewDocSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
         Me.GridViewDocSearch1.Appearance.SelectedRow.Options.UseBackColor = True
-        resources.ApplyResources(Me.GridViewDocSearch1, "GridViewDocSearch1")
+        Me.GridViewDocSearch1.DetailHeight = 458
         Me.GridViewDocSearch1.GridControl = Me.GridControlDocSearch1
         Me.GridViewDocSearch1.Name = "GridViewDocSearch1"
         Me.GridViewDocSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -206,25 +195,14 @@ Partial Class frmValidatorSearch
         '
         'XtraTabPageDoc2
         '
-        resources.ApplyResources(Me.XtraTabPageDoc2, "XtraTabPageDoc2")
         Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2)
+        resources.ApplyResources(Me.XtraTabPageDoc2, "XtraTabPageDoc2")
         Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2"
         '
         'GridControlDocSearch2
         '
         resources.ApplyResources(Me.GridControlDocSearch2, "GridControlDocSearch2")
-        Me.GridControlDocSearch2.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch2.EmbeddedNavigator.AccessibleDescription")
+        Me.GridControlDocSearch2.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
-        Me.GridControlDocSearch2.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch2.EmbeddedNavigator.AccessibleName")
-        Me.GridControlDocSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
-        Me.GridControlDocSearch2.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
-        Me.GridControlDocSearch2.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
-        Me.GridControlDocSearch2.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
-        Me.GridControlDocSearch2.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
-        Me.GridControlDocSearch2.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
-        Me.GridControlDocSearch2.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
-        Me.GridControlDocSearch2.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch2.EmbeddedNavigator.ToolTip")
-        Me.GridControlDocSearch2.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
-        Me.GridControlDocSearch2.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch2.EmbeddedNavigator.ToolTipTitle")
         Me.GridControlDocSearch2.MainView = Me.GridViewDocSearch2
         Me.GridControlDocSearch2.Name = "GridControlDocSearch2"
         Me.GridControlDocSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch2})
@@ -235,7 +213,7 @@ Partial Class frmValidatorSearch
         Me.GridViewDocSearch2.Appearance.EvenRow.Options.UseBackColor = True
         Me.GridViewDocSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
         Me.GridViewDocSearch2.Appearance.SelectedRow.Options.UseBackColor = True
-        resources.ApplyResources(Me.GridViewDocSearch2, "GridViewDocSearch2")
+        Me.GridViewDocSearch2.DetailHeight = 458
         Me.GridViewDocSearch2.GridControl = Me.GridControlDocSearch2
         Me.GridViewDocSearch2.Name = "GridViewDocSearch2"
         Me.GridViewDocSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -249,25 +227,14 @@ Partial Class frmValidatorSearch
         '
         'XtraTabPageDoc3
         '
-        resources.ApplyResources(Me.XtraTabPageDoc3, "XtraTabPageDoc3")
         Me.XtraTabPageDoc3.Controls.Add(Me.GridControlDocSearch3)
+        resources.ApplyResources(Me.XtraTabPageDoc3, "XtraTabPageDoc3")
         Me.XtraTabPageDoc3.Name = "XtraTabPageDoc3"
         '
         'GridControlDocSearch3
         '
         resources.ApplyResources(Me.GridControlDocSearch3, "GridControlDocSearch3")
-        Me.GridControlDocSearch3.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch3.EmbeddedNavigator.AccessibleDescription")
+        Me.GridControlDocSearch3.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
-        Me.GridControlDocSearch3.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch3.EmbeddedNavigator.AccessibleName")
-        Me.GridControlDocSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
-        Me.GridControlDocSearch3.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
-        Me.GridControlDocSearch3.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
-        Me.GridControlDocSearch3.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
-        Me.GridControlDocSearch3.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
-        Me.GridControlDocSearch3.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
-        Me.GridControlDocSearch3.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
-        Me.GridControlDocSearch3.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch3.EmbeddedNavigator.ToolTip")
-        Me.GridControlDocSearch3.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
-        Me.GridControlDocSearch3.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch3.EmbeddedNavigator.ToolTipTitle")
         Me.GridControlDocSearch3.MainView = Me.GridViewDocSearch3
         Me.GridControlDocSearch3.Name = "GridControlDocSearch3"
         Me.GridControlDocSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch3})
@@ -278,7 +245,7 @@ Partial Class frmValidatorSearch
         Me.GridViewDocSearch3.Appearance.EvenRow.Options.UseBackColor = True
         Me.GridViewDocSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
         Me.GridViewDocSearch3.Appearance.SelectedRow.Options.UseBackColor = True
-        resources.ApplyResources(Me.GridViewDocSearch3, "GridViewDocSearch3")
+        Me.GridViewDocSearch3.DetailHeight = 458
         Me.GridViewDocSearch3.GridControl = Me.GridControlDocSearch3
         Me.GridViewDocSearch3.Name = "GridViewDocSearch3"
         Me.GridViewDocSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -292,25 +259,14 @@ Partial Class frmValidatorSearch
         '
         'XtraTabPageDoc4
         '
-        resources.ApplyResources(Me.XtraTabPageDoc4, "XtraTabPageDoc4")
         Me.XtraTabPageDoc4.Controls.Add(Me.GridControlDocSearch4)
+        resources.ApplyResources(Me.XtraTabPageDoc4, "XtraTabPageDoc4")
         Me.XtraTabPageDoc4.Name = "XtraTabPageDoc4"
         '
         'GridControlDocSearch4
         '
         resources.ApplyResources(Me.GridControlDocSearch4, "GridControlDocSearch4")
-        Me.GridControlDocSearch4.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch4.EmbeddedNavigator.AccessibleDescription")
+        Me.GridControlDocSearch4.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
-        Me.GridControlDocSearch4.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch4.EmbeddedNavigator.AccessibleName")
-        Me.GridControlDocSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
-        Me.GridControlDocSearch4.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
-        Me.GridControlDocSearch4.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
-        Me.GridControlDocSearch4.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
-        Me.GridControlDocSearch4.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
-        Me.GridControlDocSearch4.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
-        Me.GridControlDocSearch4.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
-        Me.GridControlDocSearch4.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch4.EmbeddedNavigator.ToolTip")
-        Me.GridControlDocSearch4.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
-        Me.GridControlDocSearch4.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch4.EmbeddedNavigator.ToolTipTitle")
         Me.GridControlDocSearch4.MainView = Me.GridViewDocSearch4
         Me.GridControlDocSearch4.Name = "GridControlDocSearch4"
         Me.GridControlDocSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch4})
@@ -321,7 +277,7 @@ Partial Class frmValidatorSearch
         Me.GridViewDocSearch4.Appearance.EvenRow.Options.UseBackColor = True
         Me.GridViewDocSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
         Me.GridViewDocSearch4.Appearance.SelectedRow.Options.UseBackColor = True
-        resources.ApplyResources(Me.GridViewDocSearch4, "GridViewDocSearch4")
+        Me.GridViewDocSearch4.DetailHeight = 458
         Me.GridViewDocSearch4.GridControl = Me.GridControlDocSearch4
         Me.GridViewDocSearch4.Name = "GridViewDocSearch4"
         Me.GridViewDocSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -335,25 +291,14 @@ Partial Class frmValidatorSearch
         '
         'XtraTabPageDoc5
         '
-        resources.ApplyResources(Me.XtraTabPageDoc5, "XtraTabPageDoc5")
         Me.XtraTabPageDoc5.Controls.Add(Me.GridControlDocSearch5)
+        resources.ApplyResources(Me.XtraTabPageDoc5, "XtraTabPageDoc5")
         Me.XtraTabPageDoc5.Name = "XtraTabPageDoc5"
         '
         'GridControlDocSearch5
         '
         resources.ApplyResources(Me.GridControlDocSearch5, "GridControlDocSearch5")
-        Me.GridControlDocSearch5.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch5.EmbeddedNavigator.AccessibleDescription")
+        Me.GridControlDocSearch5.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
-        Me.GridControlDocSearch5.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch5.EmbeddedNavigator.AccessibleName")
-        Me.GridControlDocSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
-        Me.GridControlDocSearch5.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
-        Me.GridControlDocSearch5.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
-        Me.GridControlDocSearch5.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
-        Me.GridControlDocSearch5.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
-        Me.GridControlDocSearch5.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
-        Me.GridControlDocSearch5.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
-        Me.GridControlDocSearch5.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch5.EmbeddedNavigator.ToolTip")
-        Me.GridControlDocSearch5.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
-        Me.GridControlDocSearch5.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch5.EmbeddedNavigator.ToolTipTitle")
         Me.GridControlDocSearch5.MainView = Me.GridViewDocSearch5
         Me.GridControlDocSearch5.Name = "GridControlDocSearch5"
         Me.GridControlDocSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch5})
@@ -364,7 +309,7 @@ Partial Class frmValidatorSearch
         Me.GridViewDocSearch5.Appearance.EvenRow.Options.UseBackColor = True
         Me.GridViewDocSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
         Me.GridViewDocSearch5.Appearance.SelectedRow.Options.UseBackColor = True
-        resources.ApplyResources(Me.GridViewDocSearch5, "GridViewDocSearch5")
+        Me.GridViewDocSearch5.DetailHeight = 458
         Me.GridViewDocSearch5.GridControl = Me.GridControlDocSearch5
         Me.GridViewDocSearch5.Name = "GridViewDocSearch5"
         Me.GridViewDocSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -378,28 +323,28 @@ Partial Class frmValidatorSearch
         '
         'DocumentViewer1
         '
+        Me.DocumentViewer1.BackColor = System.Drawing.SystemColors.ControlLightLight
         resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1")
         Me.DocumentViewer1.FileLoaded = False
         Me.DocumentViewer1.Name = "DocumentViewer1"
+        Me.DocumentViewer1.Viewer_ForceTemporaryMode = False
         '
         'SplitContainerSearches
         '
+        Me.SplitContainerSearches.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.taskFLOW.My.MySettings.Default, "frmValSearchSplitterDistance", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
         resources.ApplyResources(Me.SplitContainerSearches, "SplitContainerSearches")
-        Me.SplitContainerSearches.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.DD_ProcessManager.My.MySettings.Default, "frmValSearchSplitterDistance", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
         Me.SplitContainerSearches.Name = "SplitContainerSearches"
         '
         'SplitContainerSearches.Panel1
         '
-        resources.ApplyResources(Me.SplitContainerSearches.Panel1, "SplitContainerSearches.Panel1")
         Me.SplitContainerSearches.Panel1.Controls.Add(Me.XtraTabControlSQL)
         Me.SplitContainerSearches.Panel1.Controls.Add(Me.StatusStrip1)
         '
         'SplitContainerSearches.Panel2
         '
-        resources.ApplyResources(Me.SplitContainerSearches.Panel2, "SplitContainerSearches.Panel2")
         Me.SplitContainerSearches.Panel2.Controls.Add(Me.SplitContainerControlDoc)
         Me.SplitContainerSearches.Panel2.Controls.Add(Me.ToolStrip2)
-        Me.SplitContainerSearches.SplitterDistance = Global.DD_ProcessManager.My.MySettings.Default.frmValSearchSplitterDistance
+        Me.SplitContainerSearches.SplitterDistance = Global.taskFLOW.My.MySettings.Default.frmValSearchSplitterDistance
         '
         'XtraTabControlSQL
         '
@@ -410,25 +355,14 @@ Partial Class frmValidatorSearch
         '
         'XtraTabPageSearch1
         '
-        resources.ApplyResources(Me.XtraTabPageSearch1, "XtraTabPageSearch1")
         Me.XtraTabPageSearch1.Controls.Add(Me.GridControlSearch1)
+        resources.ApplyResources(Me.XtraTabPageSearch1, "XtraTabPageSearch1")
         Me.XtraTabPageSearch1.Name = "XtraTabPageSearch1"
         '
         'GridControlSearch1
         '
         resources.ApplyResources(Me.GridControlSearch1, "GridControlSearch1")
-        Me.GridControlSearch1.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch1.EmbeddedNavigator.AccessibleDescription")
+        Me.GridControlSearch1.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
-        Me.GridControlSearch1.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch1.EmbeddedNavigator.AccessibleName")
-        Me.GridControlSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
-        Me.GridControlSearch1.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
-        Me.GridControlSearch1.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
-        Me.GridControlSearch1.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
-        Me.GridControlSearch1.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
-        Me.GridControlSearch1.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
-        Me.GridControlSearch1.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
-        Me.GridControlSearch1.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch1.EmbeddedNavigator.ToolTip")
-        Me.GridControlSearch1.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
-        Me.GridControlSearch1.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch1.EmbeddedNavigator.ToolTipTitle")
         GridLevelNode2.RelationName = "Level1"
         Me.GridControlSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
         Me.GridControlSearch1.MainView = Me.GridViewSearch1
@@ -441,7 +375,7 @@ Partial Class frmValidatorSearch
         Me.GridViewSearch1.Appearance.EvenRow.Options.UseBackColor = True
         Me.GridViewSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
         Me.GridViewSearch1.Appearance.SelectedRow.Options.UseBackColor = True
-        resources.ApplyResources(Me.GridViewSearch1, "GridViewSearch1")
+        Me.GridViewSearch1.DetailHeight = 458
         Me.GridViewSearch1.GridControl = Me.GridControlSearch1
         Me.GridViewSearch1.Name = "GridViewSearch1"
         Me.GridViewSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -455,25 +389,14 @@ Partial Class frmValidatorSearch
         '
         'XtraTabPageSearch2
         '
-        resources.ApplyResources(Me.XtraTabPageSearch2, "XtraTabPageSearch2")
         Me.XtraTabPageSearch2.Controls.Add(Me.GridControlSearch2)
+        resources.ApplyResources(Me.XtraTabPageSearch2, "XtraTabPageSearch2")
         Me.XtraTabPageSearch2.Name = "XtraTabPageSearch2"
         '
         'GridControlSearch2
         '
         resources.ApplyResources(Me.GridControlSearch2, "GridControlSearch2")
-        Me.GridControlSearch2.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch2.EmbeddedNavigator.AccessibleDescription")
+        Me.GridControlSearch2.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
-        Me.GridControlSearch2.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch2.EmbeddedNavigator.AccessibleName")
-        Me.GridControlSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
-        Me.GridControlSearch2.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
-        Me.GridControlSearch2.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
-        Me.GridControlSearch2.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
-        Me.GridControlSearch2.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
-        Me.GridControlSearch2.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
-        Me.GridControlSearch2.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
-        Me.GridControlSearch2.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch2.EmbeddedNavigator.ToolTip")
-        Me.GridControlSearch2.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
-        Me.GridControlSearch2.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch2.EmbeddedNavigator.ToolTipTitle")
         GridLevelNode3.RelationName = "Level1"
         Me.GridControlSearch2.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3})
         Me.GridControlSearch2.MainView = Me.GridViewSearch2
@@ -486,7 +409,7 @@ Partial Class frmValidatorSearch
         Me.GridViewSearch2.Appearance.EvenRow.Options.UseBackColor = True
         Me.GridViewSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
         Me.GridViewSearch2.Appearance.SelectedRow.Options.UseBackColor = True
-        resources.ApplyResources(Me.GridViewSearch2, "GridViewSearch2")
+        Me.GridViewSearch2.DetailHeight = 458
         Me.GridViewSearch2.GridControl = Me.GridControlSearch2
         Me.GridViewSearch2.Name = "GridViewSearch2"
         Me.GridViewSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -500,25 +423,14 @@ Partial Class frmValidatorSearch
         '
         'XtraTabPageSearch3
         '
-        resources.ApplyResources(Me.XtraTabPageSearch3, "XtraTabPageSearch3")
         Me.XtraTabPageSearch3.Controls.Add(Me.GridControlSearch3)
+        resources.ApplyResources(Me.XtraTabPageSearch3, "XtraTabPageSearch3")
         Me.XtraTabPageSearch3.Name = "XtraTabPageSearch3"
         '
         'GridControlSearch3
         '
         resources.ApplyResources(Me.GridControlSearch3, "GridControlSearch3")
-        Me.GridControlSearch3.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch3.EmbeddedNavigator.AccessibleDescription")
+        Me.GridControlSearch3.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
-        Me.GridControlSearch3.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch3.EmbeddedNavigator.AccessibleName")
-        Me.GridControlSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
-        Me.GridControlSearch3.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
-        Me.GridControlSearch3.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
-        Me.GridControlSearch3.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
-        Me.GridControlSearch3.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
-        Me.GridControlSearch3.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
-        Me.GridControlSearch3.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
-        Me.GridControlSearch3.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch3.EmbeddedNavigator.ToolTip")
-        Me.GridControlSearch3.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
-        Me.GridControlSearch3.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch3.EmbeddedNavigator.ToolTipTitle")
         GridLevelNode4.RelationName = "Level1"
         Me.GridControlSearch3.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4})
         Me.GridControlSearch3.MainView = Me.GridViewSearch3
@@ -531,7 +443,7 @@ Partial Class frmValidatorSearch
         Me.GridViewSearch3.Appearance.EvenRow.Options.UseBackColor = True
         Me.GridViewSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
         Me.GridViewSearch3.Appearance.SelectedRow.Options.UseBackColor = True
-        resources.ApplyResources(Me.GridViewSearch3, "GridViewSearch3")
+        Me.GridViewSearch3.DetailHeight = 458
         Me.GridViewSearch3.GridControl = Me.GridControlSearch3
         Me.GridViewSearch3.Name = "GridViewSearch3"
         Me.GridViewSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -545,25 +457,14 @@ Partial Class frmValidatorSearch
         '
         'XtraTabPageSearch4
         '
-        resources.ApplyResources(Me.XtraTabPageSearch4, "XtraTabPageSearch4")
         Me.XtraTabPageSearch4.Controls.Add(Me.GridControlSearch4)
+        resources.ApplyResources(Me.XtraTabPageSearch4, "XtraTabPageSearch4")
         Me.XtraTabPageSearch4.Name = "XtraTabPageSearch4"
         '
         'GridControlSearch4
         '
         resources.ApplyResources(Me.GridControlSearch4, "GridControlSearch4")
-        Me.GridControlSearch4.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch4.EmbeddedNavigator.AccessibleDescription")
+        Me.GridControlSearch4.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
-        Me.GridControlSearch4.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch4.EmbeddedNavigator.AccessibleName")
-        Me.GridControlSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
-        Me.GridControlSearch4.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
-        Me.GridControlSearch4.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
-        Me.GridControlSearch4.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
-        Me.GridControlSearch4.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
-        Me.GridControlSearch4.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
-        Me.GridControlSearch4.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
-        Me.GridControlSearch4.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch4.EmbeddedNavigator.ToolTip")
-        Me.GridControlSearch4.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
-        Me.GridControlSearch4.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch4.EmbeddedNavigator.ToolTipTitle")
         GridLevelNode5.RelationName = "Level1"
         Me.GridControlSearch4.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode5})
         Me.GridControlSearch4.MainView = Me.GridViewSearch4
@@ -576,7 +477,7 @@ Partial Class frmValidatorSearch
         Me.GridViewSearch4.Appearance.EvenRow.Options.UseBackColor = True
         Me.GridViewSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
         Me.GridViewSearch4.Appearance.SelectedRow.Options.UseBackColor = True
-        resources.ApplyResources(Me.GridViewSearch4, "GridViewSearch4")
+        Me.GridViewSearch4.DetailHeight = 458
         Me.GridViewSearch4.GridControl = Me.GridControlSearch4
         Me.GridViewSearch4.Name = "GridViewSearch4"
         Me.GridViewSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -590,25 +491,14 @@ Partial Class frmValidatorSearch
         '
         'XtraTabPageSearch5
         '
-        resources.ApplyResources(Me.XtraTabPageSearch5, "XtraTabPageSearch5")
         Me.XtraTabPageSearch5.Controls.Add(Me.GridControlSearch5)
+        resources.ApplyResources(Me.XtraTabPageSearch5, "XtraTabPageSearch5")
         Me.XtraTabPageSearch5.Name = "XtraTabPageSearch5"
         '
         'GridControlSearch5
         '
         resources.ApplyResources(Me.GridControlSearch5, "GridControlSearch5")
-        Me.GridControlSearch5.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch5.EmbeddedNavigator.AccessibleDescription")
+        Me.GridControlSearch5.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
-        Me.GridControlSearch5.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch5.EmbeddedNavigator.AccessibleName")
-        Me.GridControlSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
-        Me.GridControlSearch5.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
-        Me.GridControlSearch5.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
-        Me.GridControlSearch5.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
-        Me.GridControlSearch5.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
-        Me.GridControlSearch5.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
-        Me.GridControlSearch5.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
-        Me.GridControlSearch5.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch5.EmbeddedNavigator.ToolTip")
-        Me.GridControlSearch5.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
-        Me.GridControlSearch5.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch5.EmbeddedNavigator.ToolTipTitle")
         GridLevelNode6.RelationName = "Level1"
         Me.GridControlSearch5.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode6})
         Me.GridControlSearch5.MainView = Me.GridViewSearch5
@@ -621,7 +511,7 @@ Partial Class frmValidatorSearch
         Me.GridViewSearch5.Appearance.EvenRow.Options.UseBackColor = True
         Me.GridViewSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
         Me.GridViewSearch5.Appearance.SelectedRow.Options.UseBackColor = True
-        resources.ApplyResources(Me.GridViewSearch5, "GridViewSearch5")
+        Me.GridViewSearch5.DetailHeight = 458
         Me.GridViewSearch5.GridControl = Me.GridControlSearch5
         Me.GridViewSearch5.Name = "GridViewSearch5"
         Me.GridViewSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -635,75 +525,79 @@ Partial Class frmValidatorSearch
         '
         'StatusStrip1
         '
-        resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
+        Me.StatusStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsslblSQL, Me.statlbl})
+        resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
         Me.StatusStrip1.Name = "StatusStrip1"
         '
         'tsslblSQL
         '
-        resources.ApplyResources(Me.tsslblSQL, "tsslblSQL")
         Me.tsslblSQL.Name = "tsslblSQL"
+        resources.ApplyResources(Me.tsslblSQL, "tsslblSQL")
         '
         'statlbl
         '
-        resources.ApplyResources(Me.statlbl, "statlbl")
         Me.statlbl.BackColor = System.Drawing.Color.Red
         Me.statlbl.Name = "statlbl"
+        resources.ApplyResources(Me.statlbl, "statlbl")
         '
         'ToolStrip2
         '
         resources.ApplyResources(Me.ToolStrip2, "ToolStrip2")
+        Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblDocID, Me.tslblState})
         Me.ToolStrip2.Name = "ToolStrip2"
         '
         'tslblDocID
         '
-        resources.ApplyResources(Me.tslblDocID, "tslblDocID")
         Me.tslblDocID.Name = "tslblDocID"
+        resources.ApplyResources(Me.tslblDocID, "tslblDocID")
         '
         'tslblState
         '
-        resources.ApplyResources(Me.tslblState, "tslblState")
         Me.tslblState.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
         Me.tslblState.Name = "tslblState"
+        resources.ApplyResources(Me.tslblState, "tslblState")
         '
         'ToolStrip1
         '
-        resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
+        Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButtonFile, Me.ToolStripButtonRefreshSearches})
+        resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
         Me.ToolStrip1.Name = "ToolStrip1"
         '
         'ToolStripDropDownButtonFile
         '
-        resources.ApplyResources(Me.ToolStripDropDownButtonFile, "ToolStripDropDownButtonFile")
         Me.ToolStripDropDownButtonFile.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
         Me.ToolStripDropDownButtonFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem1, Me.EigenschaftenToolStripMenuItem})
-        Me.ToolStripDropDownButtonFile.Image = Global.DD_ProcessManager.My.Resources.Resources.ID_FILE_PAGE_SETUP
+        Me.ToolStripDropDownButtonFile.Image = Global.taskFLOW.My.Resources.Resources.ID_FILE_PAGE_SETUP
+        resources.ApplyResources(Me.ToolStripDropDownButtonFile, "ToolStripDropDownButtonFile")
         Me.ToolStripDropDownButtonFile.Name = "ToolStripDropDownButtonFile"
         '
         'DateiÖffnenToolStripMenuItem1
         '
-        resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem1, "DateiÖffnenToolStripMenuItem1")
+        Me.DateiÖffnenToolStripMenuItem1.Image = Global.taskFLOW.My.Resources.Resources.OpenFileDialog_692
-        Me.DateiÖffnenToolStripMenuItem1.Image = Global.DD_ProcessManager.My.Resources.Resources.OpenFileDialog_692
         Me.DateiÖffnenToolStripMenuItem1.Name = "DateiÖffnenToolStripMenuItem1"
+        resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem1, "DateiÖffnenToolStripMenuItem1")
         '
         'EigenschaftenToolStripMenuItem
         '
-        resources.ApplyResources(Me.EigenschaftenToolStripMenuItem, "EigenschaftenToolStripMenuItem")
+        Me.EigenschaftenToolStripMenuItem.Image = Global.taskFLOW.My.Resources.Resources.Properties
-        Me.EigenschaftenToolStripMenuItem.Image = Global.DD_ProcessManager.My.Resources.Resources.Properties
         Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem"
+        resources.ApplyResources(Me.EigenschaftenToolStripMenuItem, "EigenschaftenToolStripMenuItem")
         '
         'ToolStripButtonRefreshSearches
         '
+        Me.ToolStripButtonRefreshSearches.Image = Global.taskFLOW.My.Resources.Resources.refresh_16xLG
         resources.ApplyResources(Me.ToolStripButtonRefreshSearches, "ToolStripButtonRefreshSearches")
-        Me.ToolStripButtonRefreshSearches.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG
         Me.ToolStripButtonRefreshSearches.Name = "ToolStripButtonRefreshSearches"
         '
         'ContextMenuStripWMFile
         '
-        resources.ApplyResources(Me.ContextMenuStripWMFile, "ContextMenuStripWMFile")
+        Me.ContextMenuStripWMFile.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.ContextMenuStripWMFile.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EigenschaftenDateiToolStripMenuItem, Me.DateiÖffnenToolStripMenuItem, Me.ToolStripSeparator1, Me.ToolStripMenuItem1, Me.LayoutZurücksetzenToolStripMenuItem})
         Me.ContextMenuStripWMFile.Name = "ContextMenuStrip1"
+        resources.ApplyResources(Me.ContextMenuStripWMFile, "ContextMenuStripWMFile")
         '
         'EigenschaftenDateiToolStripMenuItem
         '
@@ -717,36 +611,37 @@ Partial Class frmValidatorSearch
         '
         'ToolStripSeparator1
         '
-        resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
         '
         'ToolStripMenuItem1
         '
-        resources.ApplyResources(Me.ToolStripMenuItem1, "ToolStripMenuItem1")
+        Me.ToolStripMenuItem1.Image = Global.taskFLOW.My.Resources.Resources.refresh_16xLG
-        Me.ToolStripMenuItem1.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG
         Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+        resources.ApplyResources(Me.ToolStripMenuItem1, "ToolStripMenuItem1")
         '
         'LayoutZurücksetzenToolStripMenuItem
         '
-        resources.ApplyResources(Me.LayoutZurücksetzenToolStripMenuItem, "LayoutZurücksetzenToolStripMenuItem")
         Me.LayoutZurücksetzenToolStripMenuItem.Name = "LayoutZurücksetzenToolStripMenuItem"
+        resources.ApplyResources(Me.LayoutZurücksetzenToolStripMenuItem, "LayoutZurücksetzenToolStripMenuItem")
         '
         'ContextMenuStripSQL
         '
-        resources.ApplyResources(Me.ContextMenuStripSQL, "ContextMenuStripSQL")
+        Me.ContextMenuStripSQL.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.ContextMenuStripSQL.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator2, Me.ToolStripMenuItem4})
         Me.ContextMenuStripSQL.Name = "ContextMenuStrip1"
+        resources.ApplyResources(Me.ContextMenuStripSQL, "ContextMenuStripSQL")
         '
         'ToolStripSeparator2
         '
-        resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2")
         Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+        resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2")
         '
         'ToolStripMenuItem4
         '
-        resources.ApplyResources(Me.ToolStripMenuItem4, "ToolStripMenuItem4")
+        Me.ToolStripMenuItem4.Image = Global.taskFLOW.My.Resources.Resources.refresh_16xLG
-        Me.ToolStripMenuItem4.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG
         Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
+        resources.ApplyResources(Me.ToolStripMenuItem4, "ToolStripMenuItem4")
         '
         'frmValidatorSearch
         '

app/TaskFlow/frmValidatorSearch.fr-FR.resx

@@ -0,0 +1,337 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="GridControlDocSearch1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>233, 369</value>
+  </data>
+  <data name="XtraTabPageDoc1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>349, 553</value>
+  </data>
+  <data name="XtraTabControlDocs.Size" type="System.Drawing.Size, System.Drawing">
+    <value>351, 576</value>
+  </data>
+  <data name="GridControlDocSearch2.Size" type="System.Drawing.Size, System.Drawing">
+    <value>233, 373</value>
+  </data>
+  <data name="GridControlDocSearch3.Size" type="System.Drawing.Size, System.Drawing">
+    <value>233, 373</value>
+  </data>
+  <data name="GridControlDocSearch4.Size" type="System.Drawing.Size, System.Drawing">
+    <value>233, 373</value>
+  </data>
+  <data name="GridControlDocSearch5.Size" type="System.Drawing.Size, System.Drawing">
+    <value>233, 373</value>
+  </data>
+  <data name="DocumentViewer1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>286, 576</value>
+  </data>
+  <data name="SplitContainerControlDoc.Size" type="System.Drawing.Size, System.Drawing">
+    <value>647, 576</value>
+  </data>
+  <data name="SplitContainerSearches.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 31</value>
+  </data>
+  <data name="GridControlSearch1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>374, 371</value>
+  </data>
+  <data name="XtraTabPageSearch1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>561, 556</value>
+  </data>
+  <data name="XtraTabControlSQL.Size" type="System.Drawing.Size, System.Drawing">
+    <value>563, 579</value>
+  </data>
+  <data name="GridControlSearch2.Size" type="System.Drawing.Size, System.Drawing">
+    <value>374, 375</value>
+  </data>
+  <data name="GridControlSearch3.Size" type="System.Drawing.Size, System.Drawing">
+    <value>374, 375</value>
+  </data>
+  <data name="GridControlSearch4.Size" type="System.Drawing.Size, System.Drawing">
+    <value>374, 375</value>
+  </data>
+  <data name="GridControlSearch5.Size" type="System.Drawing.Size, System.Drawing">
+    <value>374, 375</value>
+  </data>
+  <data name="tsslblSQL.Size" type="System.Drawing.Size, System.Drawing">
+    <value>167, 17</value>
+  </data>
+  <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 579</value>
+  </data>
+  <data name="tslblState.Size" type="System.Drawing.Size, System.Drawing">
+    <value>167, 22</value>
+  </data>
+  <data name="ToolStrip2.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 576</value>
+  </data>
+  <data name="SplitContainerSearches.Size" type="System.Drawing.Size, System.Drawing">
+    <value>1214, 601</value>
+  </data>
+  <data name="DateiÖffnenToolStripMenuItem1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>135, 30</value>
+  </data>
+  <data name="EigenschaftenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>135, 30</value>
+  </data>
+  <data name="ToolStripDropDownButtonFile.Size" type="System.Drawing.Size, System.Drawing">
+    <value>79, 28</value>
+  </data>
+  <data name="ToolStripButtonRefreshSearches.Size" type="System.Drawing.Size, System.Drawing">
+    <value>121, 28</value>
+  </data>
+  <data name="ToolStrip1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>1214, 31</value>
+  </data>
+  <data name="EigenschaftenDateiToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAZCAYAAABQDyyRAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
+        JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsSAAALEgHS3X78AAACkUlE
+        QVRIS8XQXUhTYRwGcAkiqBuDhKAi6ia8kZp3QeS6iGjqnBtT0UqDNAtSJoKNokFuIUpG0kxKCVtWY5lE
+        IFmBmuG0D20jQ/Nrs0UzV2Yy9/307uSpA/317pwO/HjPeQ7v/33OSQDwX5GhlMhQSmQoJTKUEhmupMNq
+        XmtraRh71m6aNlaVHHp8xxC53WjALbMBTfV6NBgrYCjPj5lr9Xq1TX6J6abmCJHhajqtrW1L06a209oD
+        E/h6BryQW4fFDyUYf65BrU6FmpulML42si30HB4ZrsZyw5RaliN3wXcS7ddzucODLh2WJk5hYUgLX78C
+        oa6daGs9BvYH2BZ6Do8Mhc43T4Fn7RqDzVKP4MwFXKtWI15CuXc3/B9L8dORC9+LNMw+3YO5extRdyUL
+        8hYZG0HP5ZGhUPxgy0vgyYCHO9zvuojyIgXcb/QoKczmSmTtk2PqkQz2pm3oa0jC5eOboCpOw/7GZDaC
+        nssjQ6F4gc7BH9zhHqeJO7zm6l22HsZkTxHyMnKA4e1I3ZWE9esSkbJjDU5olcivyoOsbjMbQc/lkaFQ
+        j/0dWwCv143qyqPwfJrint8O9nIlRu6nYEviBhQWHIG52RJ/xe1LLt56lvnzvBIyFOILIBr+bfmKxGKw
+        PeiArkAO5+gMZnzAwUxN/BU5ZyVkKNTd/2+BKDs8EI5hwR/Fl/kIZ9wrUoHeASdbgNaHfZyY4F5oxCNS
+        gR67gy3sWv4DEdYgEIri+2IYn7+FMekNweEOYNgtcgH+S4Osh/DLea8mo+IUsA+NsoVdy3/Az255c0HA
+        NQ+8nwUcjCgFKirPQaHIRIZS85dKi/QsNRTKbKQz8VWRqRKngNjIUEpkKCUylBIZSokMpYOEXxgRTAe1
+        DBDPAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="EigenschaftenDateiToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>227, 30</value>
+  </data>
+  <data name="DateiÖffnenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
+        DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
+        bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
+        sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
+        AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
+        JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
+        3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
+        li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
+        ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
+        wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
+        hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
+        4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
+        VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
+        5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
+        qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
+        j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
+        1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
+        rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
+        fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
+        B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
+        yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
+        YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
+        yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
+        vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
+        vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
+        Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
+        bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
+        llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
+        ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
+        xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
+        eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
+        YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
+        XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
+        WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
+        xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
+        dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
+        V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
+        Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
+        Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
+        PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
+        0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
+        /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
+        XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
+        fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
+        tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
+        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEgAACxIB0t1+/AAAAZRJREFUOE+VkO0vQmEY
+        xvsn/Cn8Az4x1gd8s7GxUeYbG4sNy5BqpZeZkkoyNQ2NNpppGH0wNrJ5X1MtpSWV3rs8p5a0jtNc2/Xc
+        57l337+d52IBoPW03NA4KTViZE6HGYUJPKF2jG6uqlFy95ACbRxRJ/U9OKqpmyKwYf5KR9eQnLTKcxVL
+        TObyFlvbB0RgcyTkWu4XDqVhD3RWrO7CYHXOUzNtXDHY/VK09MnIlQZApwXtDhqae38gdC4cfwHEagv2
+        T29KECFp/Q8gWNwoLJdMRA+Q662kVCuXz2N58wRq8zEzQKLZIqVSZBeJVAahyBcsR3eob+qh2vQA4ZKZ
+        lEol01mEowl4Ap8w213MgFnFOillpTNZRGIp+N6juH8NwWi7ZAbwpXpSisrkcojGU/CHYnj0hHH18Abd
+        9jkzYEKkIYWElssjnkgjEI7jxfeB66cgzm68UJkczIBxgYqElkciWQzN7Y/g9jkIp8uLwws3lGv22gAq
+        NCptKjDqzVry2yqzA0rjAWR6W+0nUAO1/HuxaLC+AebHD8Ec7JqWAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="DateiÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>227, 30</value>
+  </data>
+  <data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>224, 6</value>
+  </data>
+  <data name="ToolStripMenuItem1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>227, 30</value>
+  </data>
+  <data name="LayoutZurücksetzenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>227, 30</value>
+  </data>
+  <data name="ContextMenuStripWMFile.Size" type="System.Drawing.Size, System.Drawing">
+    <value>228, 130</value>
+  </data>
+  <data name="ToolStripSeparator2.Size" type="System.Drawing.Size, System.Drawing">
+    <value>131, 6</value>
+  </data>
+  <data name="ToolStripMenuItem4.Size" type="System.Drawing.Size, System.Drawing">
+    <value>134, 30</value>
+  </data>
+  <data name="ContextMenuStripSQL.Size" type="System.Drawing.Size, System.Drawing">
+    <value>135, 40</value>
+  </data>
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAIAEBAQAAEABAAoAQAAJgAAABAQAAABAAgAaAUAAE4BAAAoAAAAEAAAACAAAAABAAQAAAAAAIAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/
+        AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAD/////////8Pd3d3d3d3fw9//3//f/9/D3//f/9/
+        /38Pd3d3d3d3fw9//3//f/9/D3//f/9//38Pd3d3d3d3fw9//3//f/9/D3//f/9//38Pd3d3d3d3fw93
+        d3d3d3d/D3d3d3d3d38P/////////wAAAAAAAAAA//8AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAA
+        AACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAA//8AACgAAAAQAAAAIAAAAAEACAAAAAAAAAEAAAAA
+        AAAAAAAAAAEAAAABAAAAAAAAQkJCAPHv8AD29vYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAAAAAAAAADAwMDAwMDAwMDAwMDAwMAAwEBAQEBAQEB
+        AQEBAQEDAAMBAgICAQICAgECAgIBAwADAQICAgECAgIBAgICAQMAAwEBAQEBAQEBAQEBAQEDAAMBAgIC
+        AQICAgECAgIBAwADAQICAgECAgIBAgICAQMAAwEBAQEBAQEBAQEBAQEDAAMBAgICAQICAgECAgIBAwAD
+        AQICAgECAgIBAgICAQMAAwEBAQEBAQEBAQEBAQEDAAMBAQEBAQEBAQEBAQEBAwADAQEBAQEBAQEBAQEB
+        AQMAAwMDAwMDAwMDAwMDAwMDAAAAAAAAAAAAAAAAAAAAAP//AACAAAAAgAAAAIAAAACAAAAAgAAAAIAA
+        AACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAP//AAA=
+</value>
+  </data>
+</root>

app/TaskFlow/frmValidatorSearch.vb

@@ -47,6 +47,7 @@ Public Class frmValidatorSearch
     Private _frmValidator As frmValidator 'You need a reference to Form1
     Private Shared BW_DocPath As String
     Private Shared BW_DocID As Integer
+    Private LastDocID As Int64 = 0
     Private Documentloader As Loader
     Private Property OperationMode As OperationMode
     Private ReadOnly Environment As Environment
@@ -76,15 +77,17 @@ Public Class frmValidatorSearch
 
         Return oOperationMode
     End Function
-    Public Sub TabPreload(Panel1Collapsed As Boolean, Panel2Collapsed As Boolean, TabCountSQL As Integer, TabCountDoc As Integer, DTSQL As DataTable, DTDOC As DataTable)
+    Public Sub TabPreload(TabCountSQL As Integer, TabCountDoc As Integer, DTSQL As DataTable, DTDOC As DataTable)
         Try
+            SplitContainerSearches.Panel1Collapsed = IIf(DTSQL.Rows.Count > 0, False, True)
+            SplitContainerSearches.Panel2Collapsed = IIf(DTDOC.Rows.Count > 0, False, True)
             If Me.InvokeRequired() Then
-                Me.Invoke(Sub() TabPreload(Panel1Collapsed, Panel2Collapsed, TabCountSQL, TabCountDoc, DTSQL, DTDOC))
+                Me.Invoke(Sub() TabPreload(TabCountSQL, TabCountDoc, DTSQL, DTDOC))
             Else
                 '#### SQL Tabs Design Laden
-                SplitContainerSearches.Panel1Collapsed = Panel1Collapsed
+
-                SplitContainerSearches.Panel2Collapsed = Panel2Collapsed
                 If DTSQL.Rows.Count > 0 Then
+                    LOGGER.Debug(String.Format("[{0} SQL-Definitions]", DTSQL.Rows.Count))
                     For p As Integer = 0 To XtraTabControlSQL.TabPages.Count - 1
                         If XtraTabControlSQL.TabPages(p).TabIndex >= TabCountSQL Then
                             XtraTabControlSQL.TabPages(p).PageVisible = False
@@ -100,6 +103,7 @@ Public Class frmValidatorSearch
                 End If
 
                 If DTDOC.Rows.Count > 0 Then
+                    LOGGER.Debug(String.Format("[{0} Doc-Definitions]", DTDOC.Rows.Count))
                     '#### Doc Tabs Design Laden
                     For p As Integer = 0 To XtraTabControlDocs.TabPages.Count - 1
                         If XtraTabControlDocs.TabPages(p).TabIndex >= TabCountDoc Then
@@ -195,7 +199,7 @@ Public Class frmValidatorSearch
                         GridViewSearch5.BestFitColumns(True)
 
                 End Select
-                tsslblSQL.Text = $"Tab {TabCaption} refreshed - {Now}"
+                tsslblSQL.Text = $"Tab [{TabCaption}] refreshed - {Now}"
             End If
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -262,7 +266,7 @@ Public Class frmValidatorSearch
                     myGridview.RestoreLayoutFromXml(oxmlPath)
                     myGridview.GuessAutoFilterRowValuesFromFilter()
                 End If
-                tslblState.Text = $"Tab {TabCaption} refreshed - {Now}"
+                tslblState.Text = $"Tab [{TabCaption}] refreshed - {Now}"
             Else
                 clsWMDocGrid.DTDocuments = Nothing
             End If
@@ -431,7 +435,12 @@ Public Class frmValidatorSearch
 
     Private Sub frmValidatorSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
-            DocumentViewer1.Init(LOGCONFIG, GDPICTURE_LICENSE)
+            DocumentViewer1.Init(LOGCONFIG, GDPICTURE_LICENSE, New DigitalData.Controls.DocumentViewer.DocumentViewer.ToolbarSettings() With {
+            .ShowPrintButton = True,
+            .ShowRotateButton = True,
+            .ShowFlipButton = True,
+            .ShowSettingButton = True
+        })
         Catch ex As Exception
             LOGGER.Warn("Error initializing DocViewDocsValdiatorSearch: " & ex.Message)
         End Try
@@ -447,9 +456,14 @@ Public Class frmValidatorSearch
             End If
         End If
         If My.Settings.frmValidatorSearchSize.IsEmpty = False Then
-            Size = My.Settings.frmValidatorSearchSize
+            If My.Settings.frmValidatorSearchSize.Height > 120 And My.Settings.frmValidatorSearchSize.Width > 120 Then
+                Me.Size = My.Settings.frmValidatorSearchSize
+            End If
         End If
-        SplitContainerSearches.SplitterDistance = My.Settings.frmValSearchSplitterDistance
+        If My.Settings.frmValSearchSplitterDistance > 20 Then
+            SplitContainerSearches.SplitterDistance = My.Settings.frmValSearchSplitterDistance
+        End If
+
 
         ToolStripDropDownButtonFile.Visible = False
     End Sub
@@ -505,6 +519,8 @@ Public Class frmValidatorSearch
     End Sub
     Sub Refresh_DocID(myGrid As GridView)
         Try
+
+            myGrid.ShowLoadingPanel()
             clsWMDocGrid.ActiveDocGrid = myGrid
             clsWMDocGrid.ActiveDocGrid.EndSelection()
             clsWMDocGrid.GetDocItems()
@@ -512,6 +528,10 @@ Public Class frmValidatorSearch
                 ToolStripDropDownButtonFile.Visible = True
             End If
             If clsWMDocGrid.SELECTED_DOC_ID <> 0 Then
+                If LastDocID = clsWMDocGrid.SELECTED_DOC_ID Then
+                    myGrid.HideLoadingPanel()
+                    Exit Sub
+                End If
                 Dim msg = "DocID: " & clsWMDocGrid.SELECTED_DOC_ID.ToString
                 tslblDocID.Text = msg
                 ToolStripDropDownButtonFile.Enabled = True
@@ -520,11 +540,10 @@ Public Class frmValidatorSearch
                 oDocument = Documentloader.Load(clsWMDocGrid.SELECTED_DOC_ID, clsWMDocGrid.SELECTED_DOC_PATH)
 
                 If Not IsNothing(DocumentViewer1) Then
-                    ' DocumentViewer1.LoadFile(clsWMDocGrid.SELECTED_DOC_PATH)
                     Dim oFileName = $"{clsWMDocGrid.SELECTED_DOC_ID}.{oDocument.Extension}"
                     If Not IsNothing(oDocument.Contents) Then
                         DocumentViewer1.LoadFile(oFileName, New MemoryStream(oDocument.Contents))
-
+                        LastDocID = clsWMDocGrid.SELECTED_DOC_ID
                         DocumentViewer1.RightViewOnly(USER_RIGHT_VIEW_ONLY)
                         If USER_RIGHT_VIEW_ONLY = True Then
                             ToolStripDropDownButtonFile.Visible = False
@@ -545,7 +564,7 @@ Public Class frmValidatorSearch
         Catch ex As Exception
             LOGGER.Error(ex)
         End Try
-
+        myGrid.HideLoadingPanel()
     End Sub
     Private Sub GridViewDocSearch1_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewDocSearch1.FocusedRowChanged
         Refresh_DocID(GridViewDocSearch1)
@@ -675,6 +694,7 @@ Public Class frmValidatorSearch
     End Sub
     Private Sub ToolStripButtonRefreshSearches_Click(sender As Object, e As EventArgs) Handles ToolStripButtonRefreshSearches.Click
         If BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then
+            LOGGER.Debug($"There are [{BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count}] SQLSearches configured!")
             _DTSQLSearches = BASEDATA_DT_PROFILE_SEARCHES_SQL
             Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID")
             Dim oCommand = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND")
@@ -683,6 +703,7 @@ Public Class frmValidatorSearch
             Refresh_Load_GridSQL(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("TAB_TITLE"))
         End If
         If DT_FILTERED_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then
+            LOGGER.Debug($"There are [{DT_FILTERED_PROFILE_SEARCHES_DOC.Rows.Count}] DocSearches configured!")
             _DTDocSearches = DT_FILTERED_PROFILE_SEARCHES_DOC
             Dim oConID = DT_FILTERED_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID")
             Dim oCommand = DT_FILTERED_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND")

app/TaskFlow/frmYesNo.Designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
 Partial Class frmYesNo
-    Inherits System.Windows.Forms.Form
+    Inherits DevExpress.XtraEditors.XtraForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()> _
@@ -56,7 +56,7 @@ Partial Class frmYesNo
         '
         resources.ApplyResources(Me.PictureEdit1, "PictureEdit1")
         Me.PictureEdit1.Name = "PictureEdit1"
-        Me.PictureEdit1.Properties.Appearance.BackColor = System.Drawing.SystemColors.Control
+        Me.PictureEdit1.Properties.Appearance.BackColor = System.Drawing.Color.White
         Me.PictureEdit1.Properties.Appearance.Options.UseBackColor = True
         Me.PictureEdit1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
         Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
@@ -64,7 +64,7 @@ Partial Class frmYesNo
         '
         'txtQuestion
         '
-        Me.txtQuestion.BackColor = System.Drawing.SystemColors.Control
+        Me.txtQuestion.BackColor = System.Drawing.Color.White
         Me.txtQuestion.BorderStyle = System.Windows.Forms.BorderStyle.None
         resources.ApplyResources(Me.txtQuestion, "txtQuestion")
         Me.txtQuestion.Name = "txtQuestion"
@@ -79,15 +79,16 @@ Partial Class frmYesNo
         '
         'txtReason
         '
+        Me.txtReason.AcceptsReturn = True
+        Me.txtReason.AcceptsTab = True
         resources.ApplyResources(Me.txtReason, "txtReason")
         Me.txtReason.Name = "txtReason"
         '
         'frmYesNo
         '
-        Me.AcceptButton = Me.OK_Button
+        Me.Appearance.Options.UseFont = True
         resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.CancelButton = Me.Cancel_Button
         Me.Controls.Add(Me.txtReason)
         Me.Controls.Add(Me.LabelControl1)
         Me.Controls.Add(Me.txtQuestion)

app/TaskFlow/frmYesNo.resx

@@ -187,7 +187,7 @@
     <value>1</value>
   </data>
   <data name="TableLayoutPanel1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>242, 277</value>
+    <value>243, 265</value>
   </data>
   <data name="TableLayoutPanel1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
     <value>4, 4, 4, 4</value>
@@ -199,7 +199,7 @@
     <value>209, 48</value>
   </data>
   <data name="TableLayoutPanel1.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
+    <value>1</value>
   </data>
   <data name="&gt;&gt;TableLayoutPanel1.Name" xml:space="preserve">
     <value>TableLayoutPanel1</value>
@@ -273,7 +273,7 @@
     <value>True</value>
   </data>
   <data name="txtQuestion.Size" type="System.Drawing.Size, System.Drawing">
-    <value>378, 68</value>
+    <value>378, 54</value>
   </data>
   <data name="txtQuestion.TabIndex" type="System.Int32, mscorlib">
     <value>3</value>
@@ -330,10 +330,10 @@
     <value>True</value>
   </data>
   <data name="txtReason.Size" type="System.Drawing.Size, System.Drawing">
-    <value>428, 139</value>
+    <value>429, 135</value>
   </data>
   <data name="txtReason.TabIndex" type="System.Int32, mscorlib">
-    <value>5</value>
+    <value>0</value>
   </data>
   <data name="&gt;&gt;txtReason.Name" xml:space="preserve">
     <value>txtReason</value>
@@ -354,7 +354,7 @@
     <value>7, 16</value>
   </data>
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>452, 326</value>
+    <value>453, 316</value>
   </data>
   <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
     <value>Tahoma, 9.75pt</value>
@@ -372,6 +372,6 @@
     <value>frmYesNo</value>
   </data>
   <data name="&gt;&gt;$this.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>DevExpress.XtraEditors.XtraForm, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
 </root>

app/TaskFlow/frmYesNo.vb

@@ -3,18 +3,20 @@
 Public Class frmYesNo
     Dim oQuestion As String
     Dim oCaption As String
+    Dim CommentInput As Boolean
     Public oComment As String
-    Public Sub New(pQuestion As String, pCaption As String, pCommentSoFar As String)
+    Public Sub New(pQuestion As String, pCaption As String, pCommentSoFar As String, pCommentInput As Boolean)
         MyBase.New()
         oQuestion = pQuestion
         oCaption = pCaption
         oComment = pCommentSoFar
+        CommentInput = pCommentInput
         InitializeComponent()
         ' Add any initialization after the InitializeComponent() call.
 
     End Sub
     Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
-        If txtReason.Text = String.Empty Then
+        If txtReason.Text = String.Empty And CommentInput = True Then
             Dim oStop As String
             If USER_LANGUAGE = "de-DE" Then
                 oStop = "Bitte eine Begründung eingeben!"
@@ -42,6 +44,15 @@ Public Class frmYesNo
     Private Sub frmYesNo_Load(sender As Object, e As EventArgs) Handles Me.Load
         txtQuestion.Text = oQuestion
         txtReason.Text = oComment
+        If CommentInput = False Then
+            LabelControl1.Visible = False
+            txtReason.Visible = False
+            Me.Size = New Drawing.Size(455, 170)
+        Else
+            LabelControl1.Visible = True
+            txtReason.Visible = True
+            Me.Size = New Drawing.Size(455, 330)
+        End If
         Me.Text = oCaption
     End Sub
 End Class

app/TaskFlow/packages.config

@@ -1,37 +1,39 @@
 <?xml version="1.0" encoding="utf-8"?>
 <packages>
-  <package id="BouncyCastle.Cryptography" version="2.6.1" targetFramework="net462" />
+  <package id="BouncyCastle.Cryptography" version="2.5.0" targetFramework="net462" />
-  <package id="DocumentFormat.OpenXml" version="3.3.0" targetFramework="net462" />
+  <package id="DocumentFormat.OpenXml" version="3.2.0" targetFramework="net462" />
-  <package id="DocumentFormat.OpenXml.Framework" version="3.3.0" targetFramework="net462" />
+  <package id="DocumentFormat.OpenXml.Framework" version="3.2.0" targetFramework="net462" />
-  <package id="GdPicture" version="14.3.1" targetFramework="net462" />
+  <package id="GdPicture" version="14.3.3" targetFramework="net462" />
-  <package id="GdPicture.runtimes.windows" version="14.3.1" targetFramework="net462" />
+  <package id="GdPicture.runtimes.windows" version="14.3.3" targetFramework="net462" />
-  <package id="IndexRange" version="1.0.3" targetFramework="net462" />
   <package id="Microsoft.AspNet.WebApi.Client" version="6.0.0" targetFramework="net462" />
-  <package id="Microsoft.Bcl.AsyncInterfaces" version="9.0.6" targetFramework="net462" />
+  <package id="Microsoft.Bcl.AsyncInterfaces" version="9.0.0" targetFramework="net462" />
-  <package id="Microsoft.Bcl.Cryptography" version="9.0.6" targetFramework="net462" />
+  <package id="Microsoft.Bcl.Cryptography" version="9.0.0" targetFramework="net462" />
-  <package id="Microsoft.Bcl.HashCode" version="6.0.0" targetFramework="net462" />
   <package id="Microsoft.CSharp" version="4.7.0" targetFramework="net462" />
+  <package id="Microsoft.Identity.Client" version="4.55.0" targetFramework="net462" />
+  <package id="Microsoft.IdentityModel.Abstractions" version="6.22.0" targetFramework="net462" />
   <package id="Microsoft.VisualBasic" version="10.3.0" targetFramework="net462" />
   <package id="Newtonsoft.Json" version="13.0.3" targetFramework="net462" />
-  <package id="Newtonsoft.Json.Bson" version="1.0.3" targetFramework="net462" />
+  <package id="Newtonsoft.Json.Bson" version="1.0.2" targetFramework="net462" />
   <package id="NLog" version="5.0.5" targetFramework="net461" />
-  <package id="OpenMcdf" version="3.0.0" targetFramework="net462" />
+  <package id="OpenMcdf" version="2.4.1" targetFramework="net462" />
-  <package id="protobuf-net" version="3.2.52" targetFramework="net462" />
+  <package id="protobuf-net" version="3.2.46" targetFramework="net462" />
-  <package id="protobuf-net.Core" version="3.2.52" targetFramework="net462" />
+  <package id="protobuf-net.Core" version="3.2.46" targetFramework="net462" />
   <package id="RtfPipe" version="2.0.7677.4303" targetFramework="net462" />
-  <package id="System.Buffers" version="4.6.1" targetFramework="net462" />
+  <package id="S22.Imap" version="3.6.0.0" targetFramework="net462" />
-  <package id="System.CodeDom" version="9.0.6" targetFramework="net462" />
+  <package id="System.Buffers" version="4.6.0" targetFramework="net462" />
-  <package id="System.Collections.Immutable" version="9.0.6" targetFramework="net462" />
+  <package id="System.CodeDom" version="9.0.0" targetFramework="net462" />
-  <package id="System.Formats.Asn1" version="9.0.6" targetFramework="net462" />
+  <package id="System.Collections.Immutable" version="9.0.0" targetFramework="net462" />
-  <package id="System.IO.Packaging" version="9.0.6" targetFramework="net462" />
+  <package id="System.Data.Odbc" version="6.0.1" targetFramework="net462" />
-  <package id="System.IO.Pipelines" version="9.0.6" targetFramework="net462" />
+  <package id="System.Formats.Asn1" version="9.0.0" targetFramework="net462" />
-  <package id="System.Management" version="9.0.6" targetFramework="net462" />
+  <package id="System.IO.Packaging" version="9.0.0" targetFramework="net462" />
-  <package id="System.Memory" version="4.6.3" targetFramework="net462" />
+  <package id="System.IO.Pipelines" version="9.0.0" targetFramework="net462" />
-  <package id="System.Numerics.Vectors" version="4.6.1" targetFramework="net462" />
+  <package id="System.Management" version="9.0.0" targetFramework="net462" />
-  <package id="System.Runtime.CompilerServices.Unsafe" version="6.1.2" targetFramework="net462" />
+  <package id="System.Memory" version="4.6.0" targetFramework="net462" />
-  <package id="System.Security.Cryptography.Pkcs" version="9.0.6" targetFramework="net462" />
+  <package id="System.Numerics.Vectors" version="4.6.0" targetFramework="net462" />
-  <package id="System.Text.Encodings.Web" version="9.0.6" targetFramework="net462" />
+  <package id="System.Runtime.CompilerServices.Unsafe" version="6.1.0" targetFramework="net462" />
-  <package id="System.Text.Json" version="9.0.6" targetFramework="net462" />
+  <package id="System.Security.Cryptography.Pkcs" version="9.0.0" targetFramework="net462" />
-  <package id="System.Threading.Tasks.Extensions" version="4.6.3" targetFramework="net462" />
+  <package id="System.Text.Encodings.Web" version="9.0.0" targetFramework="net462" />
-  <package id="System.ValueTuple" version="4.6.1" targetFramework="net462" />
+  <package id="System.Text.Json" version="9.0.0" targetFramework="net462" />
+  <package id="System.Threading.Tasks.Extensions" version="4.5.4" targetFramework="net462" />
+  <package id="System.ValueTuple" version="4.5.0" targetFramework="net462" />
 </packages>