MS

GUIs.Common/Common.vbproj

@@ -133,6 +133,12 @@
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="DocumentResultList\Cache.vb" />
+    <Compile Include="frmWorkflow_Adhoc_start.Designer.vb">
+      <DependentUpon>frmWorkflow_Adhoc_start.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmWorkflow_Adhoc_start.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="GridBuilder.vb" />
     <Compile Include="IBaseForm.vb" />
     <Compile Include="IResultForm.vb" />
@@ -175,6 +181,9 @@
       <DependentUpon>frmDocumentResultList.vb</DependentUpon>
       <SubType>Designer</SubType>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmWorkflow_Adhoc_start.resx">
+      <DependentUpon>frmWorkflow_Adhoc_start.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>VbMyResourcesResXFileCodeGenerator</Generator>

GUIs.Common/My Project/licenses.licx

@@ -1,11 +1,12 @@
 DevExpress.XtraEditors.Repository.RepositoryItemDateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

GUIs.Common/frmWorkflow_Adhoc_start.Designer.vb

@@ -0,0 +1,235 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmWorkflow_Adhoc_start
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWorkflow_Adhoc_start))
+        Dim ItemTemplateBase1 As DevExpress.XtraEditors.TableLayout.ItemTemplateBase = New DevExpress.XtraEditors.TableLayout.ItemTemplateBase()
+        Dim TableColumnDefinition1 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
+        Dim TableColumnDefinition2 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
+        Dim TemplatedItemElement1 As DevExpress.XtraEditors.TableLayout.TemplatedItemElement = New DevExpress.XtraEditors.TableLayout.TemplatedItemElement()
+        Dim TemplatedItemElement2 As DevExpress.XtraEditors.TableLayout.TemplatedItemElement = New DevExpress.XtraEditors.TableLayout.TemplatedItemElement()
+        Dim TableRowDefinition1 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
+        Dim TableRowDefinition2 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
+        Dim TableRowDefinition3 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.LabelControl3 = New DevExpress.XtraEditors.LabelControl()
+        Me.LookUpEdit1 = New DevExpress.XtraEditors.LookUpEdit()
+        Me.GroupControl1 = New DevExpress.XtraEditors.GroupControl()
+        Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
+        Me.GroupControl2 = New DevExpress.XtraEditors.GroupControl()
+        Me.ListBoxControl1 = New DevExpress.XtraEditors.ListBoxControl()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupControl1.SuspendLayout()
+        CType(Me.GroupControl2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupControl2.SuspendLayout()
+        CType(Me.ListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'RibbonControl1
+        '
+        Me.RibbonControl1.EmptyAreaImageOptions.ImagePadding = New System.Windows.Forms.Padding(35, 39, 35, 39)
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem})
+        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
+        Me.RibbonControl1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.RibbonControl1.MaxItemId = 1
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.OptionsMenuMinWidth = 385
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.Size = New System.Drawing.Size(933, 158)
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        Me.RibbonPage1.Text = "RibbonPage1"
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
+        '
+        'RibbonPageGroup2
+        '
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 706)
+        Me.RibbonStatusBar1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(933, 24)
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage2.Text = "RibbonPage2"
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(5, 27)
+        Me.ComboBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(337, 21)
+        Me.ComboBox1.TabIndex = 2
+        '
+        'LabelControl3
+        '
+        Me.LabelControl3.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.LabelControl3.Appearance.Options.UseFont = True
+        Me.LabelControl3.Location = New System.Drawing.Point(526, 649)
+        Me.LabelControl3.Name = "LabelControl3"
+        Me.LabelControl3.Size = New System.Drawing.Size(81, 17)
+        Me.LabelControl3.TabIndex = 7
+        Me.LabelControl3.Text = "LabelControl3"
+        '
+        'LookUpEdit1
+        '
+        Me.LookUpEdit1.Location = New System.Drawing.Point(5, 30)
+        Me.LookUpEdit1.MenuManager = Me.RibbonControl1
+        Me.LookUpEdit1.Name = "LookUpEdit1"
+        Me.LookUpEdit1.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.LookUpEdit1.Properties.Appearance.Options.UseFont = True
+        Me.LookUpEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.LookUpEdit1.Size = New System.Drawing.Size(337, 24)
+        Me.LookUpEdit1.TabIndex = 8
+        '
+        'GroupControl1
+        '
+        Me.GroupControl1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.GroupControl1.Controls.Add(Me.SimpleButton1)
+        Me.GroupControl1.Controls.Add(Me.LookUpEdit1)
+        Me.GroupControl1.Location = New System.Drawing.Point(12, 242)
+        Me.GroupControl1.Name = "GroupControl1"
+        Me.GroupControl1.Size = New System.Drawing.Size(909, 70)
+        Me.GroupControl1.TabIndex = 10
+        Me.GroupControl1.Text = "Benutzerauswahl"
+        '
+        'SimpleButton1
+        '
+        Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.SimpleButton1.Location = New System.Drawing.Point(348, 23)
+        Me.SimpleButton1.Name = "SimpleButton1"
+        Me.SimpleButton1.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light
+        Me.SimpleButton1.Size = New System.Drawing.Size(108, 31)
+        Me.SimpleButton1.TabIndex = 9
+        Me.SimpleButton1.Text = "Hinzufügen"
+        '
+        'GroupControl2
+        '
+        Me.GroupControl2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.GroupControl2.Controls.Add(Me.ComboBox1)
+        Me.GroupControl2.Location = New System.Drawing.Point(12, 173)
+        Me.GroupControl2.Name = "GroupControl2"
+        Me.GroupControl2.Size = New System.Drawing.Size(909, 63)
+        Me.GroupControl2.TabIndex = 11
+        Me.GroupControl2.Text = "Workflow-Layout Auswahl"
+        '
+        'ListBoxControl1
+        '
+        Me.ListBoxControl1.ItemHeight = 120
+        Me.ListBoxControl1.Location = New System.Drawing.Point(17, 337)
+        Me.ListBoxControl1.Name = "ListBoxControl1"
+        Me.ListBoxControl1.Size = New System.Drawing.Size(561, 172)
+        Me.ListBoxControl1.TabIndex = 12
+        ItemTemplateBase1.Columns.Add(TableColumnDefinition1)
+        ItemTemplateBase1.Columns.Add(TableColumnDefinition2)
+        TemplatedItemElement1.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        TemplatedItemElement1.Appearance.Normal.Options.UseFont = True
+        TemplatedItemElement1.FieldName = Nothing
+        TemplatedItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
+        TemplatedItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
+        TemplatedItemElement1.Text = "element1"
+        TemplatedItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
+        TemplatedItemElement2.FieldName = Nothing
+        TemplatedItemElement2.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
+        TemplatedItemElement2.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
+        TemplatedItemElement2.RowIndex = 1
+        TemplatedItemElement2.Text = "element2"
+        TemplatedItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
+        ItemTemplateBase1.Elements.Add(TemplatedItemElement1)
+        ItemTemplateBase1.Elements.Add(TemplatedItemElement2)
+        ItemTemplateBase1.Name = "template1"
+        ItemTemplateBase1.Rows.Add(TableRowDefinition1)
+        ItemTemplateBase1.Rows.Add(TableRowDefinition2)
+        ItemTemplateBase1.Rows.Add(TableRowDefinition3)
+        Me.ListBoxControl1.Templates.Add(ItemTemplateBase1)
+        '
+        'frmWorkflow_Adhoc_start
+        '
+        Me.Appearance.Options.UseFont = True
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(933, 730)
+        Me.Controls.Add(Me.ListBoxControl1)
+        Me.Controls.Add(Me.GroupControl2)
+        Me.Controls.Add(Me.GroupControl1)
+        Me.Controls.Add(Me.LabelControl3)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
+        Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "frmWorkflow_Adhoc_start"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
+        Me.Text = "Ad-hoc Workflow starten"
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupControl1.ResumeLayout(False)
+        CType(Me.GroupControl2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupControl2.ResumeLayout(False)
+        CType(Me.ListBoxControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
+    Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
+    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents ComboBox1 As Windows.Forms.ComboBox
+    Friend WithEvents LabelControl3 As DevExpress.XtraEditors.LabelControl
+    Friend WithEvents LookUpEdit1 As DevExpress.XtraEditors.LookUpEdit
+    Friend WithEvents GroupControl1 As DevExpress.XtraEditors.GroupControl
+    Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
+    Friend WithEvents GroupControl2 As DevExpress.XtraEditors.GroupControl
+    Friend WithEvents ListBoxControl1 As DevExpress.XtraEditors.ListBoxControl
+End Class

GUIs.Common/frmWorkflow_Adhoc_start.resx

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

GUIs.Common/frmWorkflow_Adhoc_start.vb

@@ -0,0 +1,122 @@
+Imports DigitalData.Modules.ZooFlow
+Imports DigitalData.Modules.Logging
+Imports DigitalData.GUIs.Common.Base
+Imports DigitalData.Modules.ZooFlow.Constants
+Imports DigitalData.Modules.EDMI.API
+Imports DevExpress.XtraEditors
+Imports System.Drawing
+Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
+
+Public Class frmWorkflow_Adhoc_start
+    Private ReadOnly Property LogConfig As LogConfig
+    Private ReadOnly Property Logger As Logger
+    Private Property OperationMode As OperationMode
+    Private ReadOnly Environment As Environment
+    Private Client As Client
+    Private IsLoading As Boolean = True
+    Public Sub New(pLogConfig As LogConfig, pEnvironment As Environment, pObjectID As Long)
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        LogConfig = pLogConfig
+        Logger = pLogConfig.GetLogger()
+    End Sub
+    Private Function GetOperationMode() As OperationMode
+        Dim oOperationMode As OperationMode
+
+        If Environment.Service.Client.IsOnline AndAlso Environment.Service.Address <> String.Empty Then
+            oOperationMode = OperationMode.WithAppServer
+        Else
+            oOperationMode = OperationMode.NoAppServer
+        End If
+
+        Return oOperationMode
+    End Function
+    Private Function InitAppServer() As Boolean
+        Dim oServerAddress = Client.ParseServiceAddress(Environment.Service.Client.ServerAddress)
+        Dim oAddress As String = oServerAddress.Item1
+        Dim oPort As Integer = oServerAddress.Item2
+
+        Client = New Client(LogConfig, oAddress, oPort)
+
+        If Not Client.Connect() Then
+            Logger.Warn("Client could not connect to Service at [{0}]", Environment.Service.Address)
+            Return False
+        End If
+
+        Return True
+    End Function
+    Private Sub frmWorkflow_Adhoc_start_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Try
+            ' Operation mode is either guessed from service settings
+            ' or explictly set from OperationModeOverride in Params
+            OperationMode = GetOperationMode()
+            If OperationMode = OperationMode.WithAppServer Or OperationMode = OperationMode.ZooFlow Then
+                If InitAppServer() = False Then
+                    Me.Close()
+                End If
+
+            End If
+
+
+            ' Initialize Viewer with GDPicture.NET License
+            ' Hide options relating to a filepath for zooflow
+            If OperationMode = OperationMode.ZooFlow Then
+                '                RibbonPageGroupFilesystem.Visible = False
+            End If
+
+            If OperationMode = OperationMode.NoAppServer Then
+                '               RibbonPageGroupCheckInOut.Visible = False
+                '              RibbonPageGroupWorkflow.Visible = False
+                '             RibbonPageGroupAttribute.Visible = False
+            Else
+                '            RibbonPageGroupFilesystem.Visible = False
+            End If
+            Dim oDatatableUserselect As DataTable
+            Dim oSQL = $"SELECT NAME + ', '  + PRENAME AS FULLNAME,EMAIL,USERNAME FROM TBDD_USER"
+            Dim oResult As GetDatatableResponse = Nothing
+            If OperationMode = OperationMode.ZooFlow Or OperationMode = OperationMode.WithAppServer Then
+                oResult = Client.GetDatatableFromECM(oSQL)
+                If oResult.OK = False Then
+                    Throw New ApplicationException(oResult.ErrorMessage)
+                Else
+                    oDatatableUserselect = oResult.Table
+                End If
+
+            Else
+                oDatatableUserselect = Environment.Database.GetDatatable(oSQL)
+            End If
+
+            If OperationMode = OperationMode.NoAppServer Then
+                ' panelContainerStatus.Visibility = Docking.DockVisibility.Hidden
+            End If
+
+            ' Hide the complete Navigation Ribbon Group if desired
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Error while loading form:")
+
+
+        Finally
+            IsLoading = False
+
+        End Try
+    End Sub
+
+    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
+        ListBoxControl1.Items.Add(New ListItem() With {
+            .Name = "Marlon Schreiber",
+            .email = "m.schreiber@digitaldata.works"
+        })
+        ListBoxControl1.Items.Add(New ListItem() With {
+            .Name = "Jonathan Jenne",
+            .email = "j.jenner@digitaldata.works"
+        })
+    End Sub
+
+    Private Class ListItem
+        Public Name As String
+        Public email As String
+    End Class
+End Class

GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.Designer.vb

@@ -295,7 +295,9 @@ Partial Class frmGlobix_Index
         '
         'SimpleButton1
         '
-        Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.SimpleButton1.Appearance.BackColor = DevExpress.LookAndFeel.DXSkinColors.FillColors.Primary
+        Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.SimpleButton1.Appearance.Options.UseBackColor = True
         Me.SimpleButton1.Appearance.Options.UseFont = True
         Me.SimpleButton1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.SimpleButton1.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleRight

GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb

@@ -58,8 +58,8 @@ Partial Class frmFlowSearch1
         Me.Label1 = New System.Windows.Forms.Label()
         Me.cmbLimitationDateAttr = New System.Windows.Forms.ComboBox()
         Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
-        Me.txtSearchInput = New DevExpress.XtraEditors.TextEdit()
         Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
+        Me.TextEditSearch = New DevExpress.XtraEditors.TextEdit()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.DockPanel1.SuspendLayout()
@@ -81,7 +81,7 @@ Partial Class frmFlowSearch1
         CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtSearchInput.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextEditSearch.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'RibbonControl1
@@ -94,7 +94,7 @@ Partial Class frmFlowSearch1
         Me.RibbonControl1.Name = "RibbonControl1"
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
         Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
-        Me.RibbonControl1.Size = New System.Drawing.Size(936, 89)
+        Me.RibbonControl1.Size = New System.Drawing.Size(943, 89)
         Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
         '
         'BarButtonStartSearch
@@ -170,10 +170,10 @@ Partial Class frmFlowSearch1
         'RibbonStatusBar1
         '
         Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiStatus)
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 745)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 515)
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(936, 24)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(943, 24)
         '
         'RibbonPage2
         '
@@ -197,7 +197,7 @@ Partial Class frmFlowSearch1
         Me.DockPanel1.Location = New System.Drawing.Point(0, 89)
         Me.DockPanel1.Name = "DockPanel1"
         Me.DockPanel1.OriginalSize = New System.Drawing.Size(193, 200)
-        Me.DockPanel1.Size = New System.Drawing.Size(193, 656)
+        Me.DockPanel1.Size = New System.Drawing.Size(193, 426)
         Me.DockPanel1.Text = "Datum"
         '
         'DockPanel1_Container
@@ -207,7 +207,7 @@ Partial Class frmFlowSearch1
         Me.DockPanel1_Container.Controls.Add(Me.cmbLimitationDateAttr)
         Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 40)
         Me.DockPanel1_Container.Name = "DockPanel1_Container"
-        Me.DockPanel1_Container.Size = New System.Drawing.Size(186, 613)
+        Me.DockPanel1_Container.Size = New System.Drawing.Size(186, 383)
         Me.DockPanel1_Container.TabIndex = 0
         '
         'XtraTabControl1
@@ -220,7 +220,7 @@ Partial Class frmFlowSearch1
         Me.XtraTabControl1.Name = "XtraTabControl1"
         Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
         Me.XtraTabControl1.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True]
-        Me.XtraTabControl1.Size = New System.Drawing.Size(171, 552)
+        Me.XtraTabControl1.Size = New System.Drawing.Size(171, 322)
         Me.XtraTabControl1.TabIndex = 10
         Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
         '
@@ -241,13 +241,13 @@ Partial Class frmFlowSearch1
         Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYear_Last)
         Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYear)
         Me.XtraTabPage1.Name = "XtraTabPage1"
-        Me.XtraTabPage1.Size = New System.Drawing.Size(169, 527)
+        Me.XtraTabPage1.Size = New System.Drawing.Size(169, 297)
         Me.XtraTabPage1.Text = "Standard"
         '
         'DateEditTill
         '
         Me.DateEditTill.EditValue = Nothing
-        Me.DateEditTill.Location = New System.Drawing.Point(3, 281)
+        Me.DateEditTill.Location = New System.Drawing.Point(3, 260)
         Me.DateEditTill.MenuManager = Me.RibbonControl1
         Me.DateEditTill.Name = "DateEditTill"
         Me.DateEditTill.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
@@ -267,7 +267,7 @@ Partial Class frmFlowSearch1
         '
         'ToggleSwitchDateto
         '
-        Me.ToggleSwitchDateto.Location = New System.Drawing.Point(3, 256)
+        Me.ToggleSwitchDateto.Location = New System.Drawing.Point(3, 235)
         Me.ToggleSwitchDateto.MenuManager = Me.RibbonControl1
         Me.ToggleSwitchDateto.Name = "ToggleSwitchDateto"
         Me.ToggleSwitchDateto.Properties.OffText = "Datum bis"
@@ -277,7 +277,7 @@ Partial Class frmFlowSearch1
         '
         'lblDatefrom
         '
-        Me.lblDatefrom.Location = New System.Drawing.Point(3, 211)
+        Me.lblDatefrom.Location = New System.Drawing.Point(2, 190)
         Me.lblDatefrom.Name = "lblDatefrom"
         Me.lblDatefrom.Size = New System.Drawing.Size(34, 13)
         Me.lblDatefrom.TabIndex = 3
@@ -286,7 +286,7 @@ Partial Class frmFlowSearch1
         'DateEditFrom
         '
         Me.DateEditFrom.EditValue = Nothing
-        Me.DateEditFrom.Location = New System.Drawing.Point(3, 230)
+        Me.DateEditFrom.Location = New System.Drawing.Point(3, 209)
         Me.DateEditFrom.MenuManager = Me.RibbonControl1
         Me.DateEditFrom.Name = "DateEditFrom"
         Me.DateEditFrom.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
@@ -370,7 +370,7 @@ Partial Class frmFlowSearch1
         'XtraTabPage2
         '
         Me.XtraTabPage2.Name = "XtraTabPage2"
-        Me.XtraTabPage2.Size = New System.Drawing.Size(169, 527)
+        Me.XtraTabPage2.Size = New System.Drawing.Size(169, 297)
         Me.XtraTabPage2.Text = "...tbd"
         '
         'Label1
@@ -392,11 +392,9 @@ Partial Class frmFlowSearch1
         '
         'PictureEdit1
         '
-        Me.PictureEdit1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+        Me.PictureEdit1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_CW_DevExpress
-        Me.PictureEdit1.Location = New System.Drawing.Point(709, 537)
+        Me.PictureEdit1.Location = New System.Drawing.Point(716, 307)
         Me.PictureEdit1.MenuManager = Me.RibbonControl1
         Me.PictureEdit1.Name = "PictureEdit1"
         Me.PictureEdit1.Properties.Appearance.BackColor = System.Drawing.SystemColors.Control
@@ -408,39 +406,35 @@ Partial Class frmFlowSearch1
         Me.PictureEdit1.Size = New System.Drawing.Size(215, 202)
         Me.PictureEdit1.TabIndex = 8
         '
-        'txtSearchInput
-        '
-        Me.txtSearchInput.EditValue = ""
-        Me.txtSearchInput.Location = New System.Drawing.Point(206, 95)
-        Me.txtSearchInput.MenuManager = Me.RibbonControl1
-        Me.txtSearchInput.Name = "txtSearchInput"
-        Me.txtSearchInput.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI Semibold", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSearchInput.Properties.Appearance.ForeColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(19, Byte), Integer))
-        Me.txtSearchInput.Properties.Appearance.Options.UseFont = True
-        Me.txtSearchInput.Properties.Appearance.Options.UseForeColor = True
-        Me.txtSearchInput.Properties.NullText = "Suchbegriff eingeben"
-        Me.txtSearchInput.Properties.Padding = New System.Windows.Forms.Padding(10)
-        Me.txtSearchInput.Size = New System.Drawing.Size(673, 46)
-        Me.txtSearchInput.TabIndex = 12
-        '
         'SimpleButton1
         '
+        Me.SimpleButton1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.SimpleButton1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_CW_DevExpress
         Me.SimpleButton1.ImageOptions.SvgImageSize = New System.Drawing.Size(40, 40)
-        Me.SimpleButton1.Location = New System.Drawing.Point(878, 95)
+        Me.SimpleButton1.Location = New System.Drawing.Point(885, 95)
         Me.SimpleButton1.Name = "SimpleButton1"
         Me.SimpleButton1.Size = New System.Drawing.Size(46, 46)
         Me.SimpleButton1.TabIndex = 16
         '
+        'TextEditSearch
+        '
+        Me.TextEditSearch.Location = New System.Drawing.Point(199, 95)
+        Me.TextEditSearch.MenuManager = Me.RibbonControl1
+        Me.TextEditSearch.Name = "TextEditSearch"
+        Me.TextEditSearch.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 18.0!)
+        Me.TextEditSearch.Properties.Appearance.Options.UseFont = True
+        Me.TextEditSearch.Size = New System.Drawing.Size(680, 38)
+        Me.TextEditSearch.TabIndex = 20
+        '
         'frmFlowSearch1
         '
         Me.Appearance.BackColor = System.Drawing.SystemColors.Control
         Me.Appearance.Options.UseBackColor = True
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(936, 769)
+        Me.ClientSize = New System.Drawing.Size(943, 539)
+        Me.Controls.Add(Me.TextEditSearch)
         Me.Controls.Add(Me.SimpleButton1)
-        Me.Controls.Add(Me.txtSearchInput)
         Me.Controls.Add(Me.PictureEdit1)
         Me.Controls.Add(Me.DockPanel1)
         Me.Controls.Add(Me.RibbonStatusBar1)
@@ -473,7 +467,7 @@ Partial Class frmFlowSearch1
         CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtSearchInput.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextEditSearch.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -513,6 +507,6 @@ Partial Class frmFlowSearch1
     Friend WithEvents DateEditTill As DevExpress.XtraEditors.DateEdit
     Friend WithEvents DateEditFrom As DevExpress.XtraEditors.DateEdit
     Friend WithEvents ToggleSwitchDateto As DevExpress.XtraEditors.ToggleSwitch
-    Friend WithEvents txtSearchInput As DevExpress.XtraEditors.TextEdit
     Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
+    Friend WithEvents TextEditSearch As DevExpress.XtraEditors.TextEdit
 End Class

GUIs.ZooFlow/Search/frmFlowSearch1.vb

@@ -125,7 +125,6 @@ Public Class frmFlowSearch1
             Else
                 cmbLimitationDateAttr.Items.Add(IDB_ADDED_WHEN_String_Englisch)
             End If
-            'Dim oDT As DataTable = My.DatabaseIDB.GetDatatable($"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE TYPE_ID IN (5,6) AND LANG_ID = {My.Application.User.LanguageId}")
 
             For Each oRow As DataRow In My.Tables.DTIDB_ATTRIBUTE.Rows
                 If CBool(oRow.Item("SYS_ATTRIBUTE")) = False And (oRow.Item("TYP_ID") = 5 Or oRow.Item("TYP_ID") = 6) Then
@@ -163,9 +162,9 @@ Public Class frmFlowSearch1
                 collection.Add(orow.Item("TERM"))
             Next
 
-            txtSearchInput.MaskBox.AutoCompleteSource = AutoCompleteSource.CustomSource
+            TextEditSearch.MaskBox.AutoCompleteSource = AutoCompleteSource.CustomSource
-            txtSearchInput.MaskBox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
+            TextEditSearch.MaskBox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
-            txtSearchInput.MaskBox.AutoCompleteCustomSource = collection
+            TextEditSearch.MaskBox.AutoCompleteCustomSource = collection
 
             TogglesDate = New List(Of ToggleSwitch) From {
                 ToggleSwitchTomorrow,
@@ -190,7 +189,7 @@ Public Class frmFlowSearch1
         Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
 
         Try
-            Dim oResult = Await SearchRunner.Run(txtSearchInput.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
+            Dim oResult = Await SearchRunner.Run(TextEditSearch.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
             If oResult.OK = False Then
                 bsiStatus.Caption = oResult.ErrorMessage
             End If
@@ -206,29 +205,8 @@ Public Class frmFlowSearch1
 
     End Sub
 
-    Private Async Function txtSearchInput_KeyUp(sender As Object, e As KeyEventArgs) As Threading.Tasks.Task Handles txtSearchInput.KeyUp
-        If e.KeyCode = Keys.Return Then
-            If txtSearchInput.Text = String.Empty Then
-                Return
-            End If
-
-            Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
-
-            Try
-                Dim oResult = Await SearchRunner.Run(txtSearchInput.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
-                If oResult.OK = False Then
-                    bsiStatus.Caption = oResult.ErrorMessage
-                End If
-            Catch ex As Exception
-                Logger.Error(ex)
-            Finally
-                SplashScreenManager.CloseOverlayForm(oHandle)
-            End Try
-        End If
-    End Function
-
     Private Sub BarButtonReset_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonReset.ItemClick
-        txtSearchInput.Text = ""
+        TextEditSearch.Text = ""
         ResetTogglesDate()
         ToggleSwitchDateto.IsOn = False
         SearchRunner.ExplicitDate = False
@@ -255,10 +233,13 @@ Public Class frmFlowSearch1
     End Sub
 
     Private Async Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
+        RunSearch()
+    End Sub
+    Private Async Sub RunSearch()
         Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
 
         Try
-            Dim oResult = Await SearchRunner.Run(txtSearchInput.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
+            Dim oResult = Await SearchRunner.Run(TextEditSearch.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
             If oResult.OK = False Then
                 bsiStatus.Caption = oResult.ErrorMessage
             End If
@@ -268,4 +249,18 @@ Public Class frmFlowSearch1
             SplashScreenManager.CloseOverlayForm(oHandle)
         End Try
     End Sub
+
+    Private Sub TextEditSearch_KeyUp(sender As Object, e As KeyEventArgs) Handles TextEditSearch.KeyUp
+        If e.KeyCode = Keys.Return Then
+            If TextEditSearch.Text = String.Empty Then
+                Return
+            End If
+
+            RunSearch()
+        End If
+    End Sub
+
+    Private Sub PictureEdit1_Click(sender As Object, e As EventArgs) Handles PictureEdit1.Click
+        RunSearch()
+    End Sub
 End Class

GUIs.ZooFlow/frmServiceConfig.Designer.vb

@@ -28,32 +28,32 @@ Partial Class frmServiceConfig
         Me.btnOK = New DevExpress.XtraBars.BarButtonItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.txtServicePort = New DevExpress.XtraEditors.SpinEdit()
+        Me.txtStatus = New DevExpress.XtraEditors.TextEdit()
         Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
         Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
         Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
-        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.txtStatus = New DevExpress.XtraEditors.TextEdit()
         Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.txtServicePort = New DevExpress.XtraEditors.TextEdit()
         CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.LayoutControl1.SuspendLayout()
         CType(Me.txtServiceAddress.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtStatus.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtStatus.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'LayoutControl1
         '
         Me.LayoutControl1.Controls.Add(Me.txtServiceAddress)
-        Me.LayoutControl1.Controls.Add(Me.txtServicePort)
         Me.LayoutControl1.Controls.Add(Me.txtStatus)
+        Me.LayoutControl1.Controls.Add(Me.txtServicePort)
         Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.LayoutControl1.Location = New System.Drawing.Point(0, 63)
         Me.LayoutControl1.Name = "LayoutControl1"
@@ -105,16 +105,15 @@ Partial Class frmServiceConfig
         Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
         Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
         '
-        'txtServicePort
+        'txtStatus
         '
-        Me.txtServicePort.EditValue = New Decimal(New Integer() {9000, 0, 0, 0})
+        Me.txtStatus.Location = New System.Drawing.Point(105, 100)
-        Me.txtServicePort.Location = New System.Drawing.Point(105, 70)
+        Me.txtStatus.MenuManager = Me.RibbonControl1
-        Me.txtServicePort.MenuManager = Me.RibbonControl1
+        Me.txtStatus.Name = "txtStatus"
-        Me.txtServicePort.Name = "txtServicePort"
+        Me.txtStatus.Properties.ReadOnly = True
-        Me.txtServicePort.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.txtStatus.Size = New System.Drawing.Size(485, 20)
-        Me.txtServicePort.Size = New System.Drawing.Size(485, 20)
+        Me.txtStatus.StyleController = Me.LayoutControl1
-        Me.txtServicePort.StyleController = Me.LayoutControl1
+        Me.txtStatus.TabIndex = 6
-        Me.txtServicePort.TabIndex = 5
         '
         'Root
         '
@@ -153,21 +152,6 @@ Partial Class frmServiceConfig
         Me.EmptySpaceItem1.Size = New System.Drawing.Size(610, 72)
         Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
         '
-        'RibbonPage2
-        '
-        Me.RibbonPage2.Name = "RibbonPage2"
-        Me.RibbonPage2.Text = "RibbonPage2"
-        '
-        'txtStatus
-        '
-        Me.txtStatus.Location = New System.Drawing.Point(105, 100)
-        Me.txtStatus.MenuManager = Me.RibbonControl1
-        Me.txtStatus.Name = "txtStatus"
-        Me.txtStatus.Properties.ReadOnly = True
-        Me.txtStatus.Size = New System.Drawing.Size(485, 20)
-        Me.txtStatus.StyleController = Me.LayoutControl1
-        Me.txtStatus.TabIndex = 6
-        '
         'LayoutControlItem3
         '
         Me.LayoutControlItem3.Control = Me.txtStatus
@@ -178,6 +162,23 @@ Partial Class frmServiceConfig
         Me.LayoutControlItem3.Text = "Status"
         Me.LayoutControlItem3.TextSize = New System.Drawing.Size(53, 13)
         '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage2.Text = "RibbonPage2"
+        '
+        'txtServicePort
+        '
+        Me.txtServicePort.EditValue = New Decimal(New Integer() {9000, 0, 0, 0})
+        Me.txtServicePort.Location = New System.Drawing.Point(105, 70)
+        Me.txtServicePort.MenuManager = Me.RibbonControl1
+        Me.txtServicePort.Name = "txtServicePort"
+        Me.txtServicePort.Properties.EditValueChangedFiringMode = DevExpress.XtraEditors.Controls.EditValueChangedFiringMode.Buffered
+        Me.txtServicePort.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Numeric
+        Me.txtServicePort.Size = New System.Drawing.Size(485, 20)
+        Me.txtServicePort.StyleController = Me.LayoutControl1
+        Me.txtServicePort.TabIndex = 5
+        '
         'frmServiceConfig
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -192,13 +193,13 @@ Partial Class frmServiceConfig
         Me.LayoutControl1.ResumeLayout(False)
         CType(Me.txtServiceAddress.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtStatus.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtStatus.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -212,10 +213,10 @@ Partial Class frmServiceConfig
     Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
     Friend WithEvents btnOK As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents txtServiceAddress As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents txtServicePort As DevExpress.XtraEditors.SpinEdit
     Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
     Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
     Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
     Friend WithEvents txtStatus As DevExpress.XtraEditors.TextEdit
     Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents txtServicePort As DevExpress.XtraEditors.TextEdit
 End Class

GUIs.ZooFlow/frmServiceConfig.vb

@@ -19,11 +19,13 @@ Public Class frmServiceConfig
             txtServiceAddress.Text = oAddress.Item1
             txtServicePort.Text = oAddress.Item2
         End If
-
+        If Not IsNothing(My.Application.Service.Client) Then
-        If My.Application.Service.Client.IsOnline Then
+            If My.Application.Service.Client.IsOnline Then
-            txtStatus.Text = STATUS_CONNECTED
+                txtStatus.Text = STATUS_CONNECTED
+            End If
         End If
 
+
         txtServiceAddress.Focus()
     End Sub
 

GUIs.ZooFlow/frmtest.Designer.vb

@@ -38,6 +38,7 @@ Partial Class frmtest
         Me.txtIDB_OBJ_ID = New System.Windows.Forms.TextBox()
         Me.txtDoctypeID = New System.Windows.Forms.TextBox()
         Me.Label3 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
         Me.SuspendLayout()
         '
         'Label2
@@ -172,11 +173,21 @@ Partial Class frmtest
         Me.Label3.TabIndex = 23
         Me.Label3.Text = "DoctypeID"
         '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(12, 191)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(154, 23)
+        Me.Button1.TabIndex = 24
+        Me.Button1.Text = "AdhocWorkflow"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
         'frmtest
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(865, 450)
+        Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.txtDoctypeID)
         Me.Controls.Add(Me.txtProfileId)
@@ -214,4 +225,5 @@ Partial Class frmtest
     Friend WithEvents txtProfileId As TextBox
     Friend WithEvents txtDoctypeID As TextBox
     Friend WithEvents Label3 As Label
+    Friend WithEvents Button1 As Button
 End Class

GUIs.ZooFlow/frmtest.vb

@@ -1,9 +1,14 @@
 Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
 Imports DigitalData.Modules.Base.IDB.FileStore
+Imports DigitalData.GUIs.Common
+Imports DigitalData.Modules.ZooFlow
 
 Public Class frmtest
+    Private Property Environment As Environment
+
     Private Sub frmtest_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         cmbObjectStoreType.SelectedIndex = 0
+        Environment = My.Application.GetEnvironment()
     End Sub
 
     Private Sub btnOpenFile_Click(sender As Object, e As EventArgs) Handles btnOpenFile.Click
@@ -66,4 +71,11 @@ Public Class frmtest
 
 
     End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim oForm As New frmWorkflow_Adhoc_start(My.LogConfig, Environment, 4711)
+        oForm.Show()
+        oForm.BringToFront()
+        oForm.Focus()
+    End Sub
 End Class