MS1003

2017-03-10 11:52:55 +01:00
parent b623a129f5
commit 701f303176
15 changed files with 300 additions and 250 deletions
--- a/app/DD-Record-Organizer/ClassWorkflow.vb
+++ b/app/DD-Record-Organizer/ClassWorkflow.vb
@@ -0,0 +1,11 @@
 Public Class ClassWorkflow
    Public Shared Sub Refresh_Workflows_Entity()
        Dim sql = String.Format("SELECT WF_TASK_ID, WF_ID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'TASK_TITLE' + CONVERT(VARCHAR(5), WF_ID), 1) AS WF_TITLE, RECORD_ID, STATE_ID, " & _
                         "dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), STATE_ID), 1) AS STATE_TITLE, FORM_VIEW_ID, ENTITY_ID, " & _
                         "dbo.FNPMO_GETOBJECTCAPTION('{0}', 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), 1) AS 'ENTITY_TITLE', COMMENT, DUE_DATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, FINAL, COLOR, " & _
                         "'{1}' AS USERNAME, dbo.FNPMO_GET_ENTITY_COLUMN_CONTENT(RECORD_ID) AS RECORD_DESCRIPTION, DESCRIPTION, RECORD_DESCRIPTION AS Expr1, FINISHED, MANUALLY, " & _
                            "CREATE_ON_REC_CREATE, CREATE_ON_FOLL_UP FROM VWPMO_WF_ACTIVE AS T", USER_LANGUAGE, USER_USERNAME)
        CURRENT_VWPMO_WF_ACTIVE = ClassDatabase.Return_Datatable(sql, True)
    End Sub
 End Class
--- a/app/DD-Record-Organizer/DD-Record-Organizer.vbproj
+++ b/app/DD-Record-Organizer/DD-Record-Organizer.vbproj
@@ -275,6 +275,7 @@
    <Compile Include="ClassDOC_SEARCH.vb" />
    <Compile Include="ClassWDRights.vb" />
    <Compile Include="ClassWindreamDocGrid.vb" />
    <Compile Include="ClassWorkflow.vb" />
    <Compile Include="DD_DMSDataSet.Designer.vb">
      <AutoGen>True</AutoGen>
      <DesignTime>True</DesignTime>
--- a/app/DD-Record-Organizer/DD_DMSDataSet.xss
+++ b/app/DD-Record-Organizer/DD_DMSDataSet.xss
@@ -4,16 +4,16 @@
     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="-10" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="803" ViewPortY="-21" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
  <Shapes>
    <Shape ID="DesignTable:TBPMO_FORM" ZOrder="30" X="389" Y="366" Height="286" Width="229" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
-    <Shape ID="DesignTable:VWPMO_CONTROL_SCREEN" ZOrder="11" X="78" Y="352" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:VWPMO_CONTROL_SCREEN" ZOrder="12" X="78" Y="352" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBPMO_FORM_VIEW" ZOrder="2" X="492" Y="68" Height="324" Width="265" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBPMO_FORM_VIEW" ZOrder="3" X="492" Y="69" Height="324" Width="265" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
    <Shape ID="DesignTable:TBPMO_RECORD" ZOrder="55" X="875" Y="408" Height="172" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
-    <Shape ID="DesignTable:VWPMO_DOKUMENTTYPES" ZOrder="9" X="556" Y="357" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
+    <Shape ID="DesignTable:VWPMO_DOKUMENTTYPES" ZOrder="10" X="556" Y="357" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
    <Shape ID="DesignTable:TBPMO_WD_FVIEW_DT_INDEX" ZOrder="71" X="819" Y="147" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
    <Shape ID="DesignTable:TBPMO_WORKFLOW_TASK" ZOrder="54" X="603" Y="718" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
-    <Shape ID="DesignTable:TBPMO_WORKFLOW_TASK_STATE" ZOrder="23" X="950" Y="736" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
+    <Shape ID="DesignTable:TBPMO_WORKFLOW_TASK_STATE" ZOrder="24" X="950" Y="736" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
    <Shape ID="DesignTable:VWPMO_GUI_ENTITY" ZOrder="51" X="395" Y="443" Height="134" Width="207" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
    <Shape ID="DesignTable:TBPMO_WORKFLOW" ZOrder="25" X="192" Y="678" Height="210" Width="266" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
    <Shape ID="DesignTable:VWPMO_WF_OVERVIEW_AUTHORITY" ZOrder="53" X="877" Y="44" Height="210" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
@@ -22,14 +22,14 @@
    <Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="46" X="1687" Y="332" Height="282" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="192" />
    <Shape ID="DesignTable:TBPMO_WD_FORMVIEW_DOKTYPES" ZOrder="69" X="427" Y="-11" Height="287" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
    <Shape ID="DesignTable:TBPMO_KONFIGURATION" ZOrder="65" X="1644" Y="247" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
-    <Shape ID="DesignTable:TBDD_USER" ZOrder="12" X="1632" Y="12" Height="243" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="59" />
+    <Shape ID="DesignTable:TBDD_USER" ZOrder="13" X="1632" Y="12" Height="243" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="59" />
    <Shape ID="DesignTable:TBPMO_FORM_TYPE" ZOrder="64" X="1357" Y="80" Height="191" Width="263" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
-    <Shape ID="DesignTable:TBDD_USER_GROUPS" ZOrder="19" X="842" Y="-46" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
+    <Shape ID="DesignTable:TBDD_USER_GROUPS" ZOrder="20" X="842" Y="-46" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
    <Shape ID="DesignTable:VWPMO_USERS_GROUPS" ZOrder="62" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
    <Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="33" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
    <Shape ID="DesignTable:TBWH_DOKART_MODULE" ZOrder="61" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR" ZOrder="5" X="1185" Y="-27" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
+    <Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR" ZOrder="6" X="1185" Y="-27" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
-    <Shape ID="DesignTable:TBPMO_WD_OBJECTTYPE" ZOrder="1" X="-1" Y="1" Height="229" Width="293" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
+    <Shape ID="DesignTable:TBPMO_WD_OBJECTTYPE" ZOrder="2" X="-1" Y="1" Height="229" Width="293" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
    <Shape ID="DesignTable:TBPMO_FOLLOW_UP_EMAIL" ZOrder="35" X="903" Y="388" Height="204" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="136" />
    <Shape ID="DesignTable:TBPMO_FOLLUPEMAIL_USER" ZOrder="58" X="59" Y="77" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
    <Shape ID="DesignTable:TBPMO_RECORD_LOG_CONFIG" ZOrder="52" X="1128" Y="408" Height="300" Width="235" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="232" />
@@ -42,21 +42,21 @@
    <Shape ID="DesignTable:TBPMO_TEMPLATE_ENTITY" ZOrder="44" X="2068" Y="300" Height="191" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
    <Shape ID="DesignTable:TBPMO_TEMPLATE_PATTERN" ZOrder="41" X="2348" Y="521" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
    <Shape ID="DesignTable:TBTEMP_QUICKDISPLAY" ZOrder="39" X="2117" Y="51" Height="115" Width="210" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
-    <Shape ID="DesignTable:TBPMO_LANGUAGE_OBJECT" ZOrder="4" X="1161" Y="308" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
+    <Shape ID="DesignTable:TBPMO_LANGUAGE_OBJECT" ZOrder="5" X="1161" Y="308" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
    <Shape ID="DesignTable:TBDD_CLIENT" ZOrder="34" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
    <Shape ID="DesignTable:TBPMO_CONSTRUCTOR_USER_SQL" ZOrder="27" X="258" Y="41" Height="280" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="212" />
    <Shape ID="DesignTable:TBPMO_WD_IMPORT_PROFILE" ZOrder="32" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
    <Shape ID="DesignTable:TBPMO_WD_IMPORT_PROFILE_IDX" ZOrder="29" X="1895" Y="934" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
-    <Shape ID="DesignTable:VWPMO_WF_ACTIVE" ZOrder="24" X="1910" Y="509" Height="357" Width="378" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="270" />
+    <Shape ID="DesignTable:VWPMO_WF_ACTIVE" ZOrder="1" X="1910" Y="509" Height="357" Width="378" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="270" />
-    <Shape ID="DesignTable:TBPMO_RIGHT_GROUP" ZOrder="22" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBPMO_RIGHT_GROUP" ZOrder="23" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBPMO_WD_NAMECONVENTION_FORMAT" ZOrder="18" X="0" Y="0" Height="90" Width="247" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBPMO_WD_NAMECONVENTION_FORMAT" ZOrder="19" X="0" Y="0" Height="90" Width="247" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBPMO_STRUCTURE_NODES_CONFIGURATION" ZOrder="10" X="64" Y="2" Height="359" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="289" />
+    <Shape ID="DesignTable:TBPMO_STRUCTURE_NODES_CONFIGURATION" ZOrder="11" X="64" Y="2" Height="359" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="289" />
-    <Shape ID="DesignTable:TBWH_ENTITY" ZOrder="17" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBWH_ENTITY" ZOrder="18" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBPMO_WORKFLOW_TASK_HISTORY" ZOrder="16" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBPMO_WORKFLOW_TASK_HISTORY" ZOrder="17" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:VWPMO_RIGHTS_2B_WORKED" ZOrder="13" X="2579" Y="410" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
+    <Shape ID="DesignTable:VWPMO_RIGHTS_2B_WORKED" ZOrder="14" X="2579" Y="410" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
-    <Shape ID="DesignTable:TBPMO_RIGHT_USER" ZOrder="8" X="23" Y="353" Height="305" Width="267" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBPMO_RIGHT_USER" ZOrder="9" X="23" Y="353" Height="305" Width="267" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBPMO_RECORD_VARIANT" ZOrder="7" X="653" Y="1140" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
+    <Shape ID="DesignTable:TBPMO_RECORD_VARIANT" ZOrder="8" X="653" Y="1140" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
-    <Shape ID="DesignTable:TBPMO_APPOINTMENTS" ZOrder="3" X="1807" Y="62" Height="305" Width="290" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBPMO_APPOINTMENTS" ZOrder="4" X="1807" Y="62" Height="305" Width="290" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
  </Shapes>
  <Connectors>
    <Connector ID="DesignRelation:FK_TBPMO_FORM_VIEW_FORM_ID" ZOrder="72" LineWidth="11">
@@ -67,11 +67,11 @@
        </Point>
        <Point>
          <X>437</X>
-          <Y>340</Y>
+          <Y>341</Y>
        </Point>
        <Point>
          <X>492</X>
-          <Y>340</Y>
+          <Y>341</Y>
        </Point>
      </RoutePoints>
    </Connector>
@@ -291,7 +291,7 @@
        </Point>
      </RoutePoints>
    </Connector>
-    <Connector ID="DesignRelation:FK_TBPMO_RIGHT_GROUP_ENTITY_ID" ZOrder="21" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBPMO_RIGHT_GROUP_ENTITY_ID" ZOrder="22" LineWidth="11">
      <RoutePoints>
        <Point>
          <X>22</X>
@@ -311,7 +311,7 @@
        </Point>
      </RoutePoints>
    </Connector>
-    <Connector ID="DesignRelation:FK_TBPMO_RIGHT_GROUP_GROUP_ID" ZOrder="20" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBPMO_RIGHT_GROUP_GROUP_ID" ZOrder="21" LineWidth="11">
      <RoutePoints>
        <Point>
          <X>14</X>
@@ -331,7 +331,7 @@
        </Point>
      </RoutePoints>
    </Connector>
-    <Connector ID="DesignRelation:FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID" ZOrder="15" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID" ZOrder="16" LineWidth="11">
      <RoutePoints>
        <Point>
          <X>389</X>
@@ -347,7 +347,7 @@
        </Point>
      </RoutePoints>
    </Connector>
-    <Connector ID="DesignRelation:FK_TBPMO_FORM_VIEW_FORM_ID1" ZOrder="14" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBPMO_FORM_VIEW_FORM_ID1" ZOrder="15" LineWidth="11">
      <RoutePoints>
        <Point>
          <X>158</X>
@@ -367,7 +367,7 @@
        </Point>
      </RoutePoints>
    </Connector>
-    <Connector ID="DesignRelation:FK_TBPMO_RECORD_VARIANT_RECORD_ID" ZOrder="6" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBPMO_RECORD_VARIANT_RECORD_ID" ZOrder="7" LineWidth="11">
      <RoutePoints>
        <Point>
          <X>961</X>
--- a/app/DD-Record-Organizer/ModuleRuntimeVariables.vb
+++ b/app/DD-Record-Organizer/ModuleRuntimeVariables.vb
@@ -108,6 +108,8 @@
    Public CURRENT_DOC_DROPDOWN As DataTable
    Public CURRENT_PARENT_DT As DataTable
    Public CURRENT_VWPMO_WF_ACTIVE As DataTable
    Public CURRENT_TBPMO_FILES_USER As DataTable
    Public CURRENT_SEARCH_TYPE As String = "RECORD"
--- a/app/DD-Record-Organizer/frmConstructor_Main.Designer.vb
+++ b/app/DD-Record-Organizer/frmConstructor_Main.Designer.vb
@@ -219,10 +219,7 @@ Partial Class frmConstructor_Main
        Me.cmsrpContainer = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ChangeHidepanelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
        Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager()
        Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
        Me.ToolTipController = New DevExpress.Utils.ToolTipController(Me.components)
        Me.TBPMO_RECORD_VARIANTTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_RECORD_VARIANTTableAdapter()
        Me.TimerClearResultfiles = New System.Windows.Forms.Timer(Me.components)
@@ -272,7 +269,6 @@ Partial Class frmConstructor_Main
        CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.cmsrpContainer.SuspendLayout()
        CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'SplitContainerMain
@@ -1526,10 +1522,6 @@ Partial Class frmConstructor_Main
        Me.ChangeHidepanelToolStripMenuItem.Name = "ChangeHidepanelToolStripMenuItem"
        resources.ApplyResources(Me.ChangeHidepanelToolStripMenuItem, "ChangeHidepanelToolStripMenuItem")
        '
        'VWPMO_WF_USER_ACTIVETableAdapter
        '
        Me.VWPMO_WF_USER_ACTIVETableAdapter.ClearBeforeFill = True
        '
        'TableAdapterManager
        '
        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
@@ -1572,15 +1564,6 @@ Partial Class frmConstructor_Main
        Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing
        Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
        '
        'VWPMO_WF_ACTIVEBindingSource
        '
        Me.VWPMO_WF_ACTIVEBindingSource.DataMember = "VWPMO_WF_ACTIVE"
        Me.VWPMO_WF_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet
        '
        'VWPMO_WF_ACTIVETableAdapter
        '
        Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = True
        '
        'TBPMO_RECORD_VARIANTTableAdapter
        '
        Me.TBPMO_RECORD_VARIANTTableAdapter.ClearBeforeFill = True
@@ -1658,7 +1641,6 @@ Partial Class frmConstructor_Main
        CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.cmsrpContainer.ResumeLayout(False)
        CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()
@@ -1715,10 +1697,7 @@ Partial Class frmConstructor_Main
    Friend WithEvents ContextMenuDetails As System.Windows.Forms.ContextMenuStrip
    Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet
    Friend WithEvents VWPMO_WF_USER_ACTIVEBindingSource As System.Windows.Forms.BindingSource
    Friend WithEvents VWPMO_WF_USER_ACTIVETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter
    Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager
    Friend WithEvents VWPMO_WF_ACTIVEBindingSource As System.Windows.Forms.BindingSource
    Friend WithEvents VWPMO_WF_ACTIVETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter
    Friend WithEvents cmsTreeView As System.Windows.Forms.ContextMenuStrip
    Friend WithEvents ResetEbenenAuswahlToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents tsslblWorkflowstate As System.Windows.Forms.ToolStripStatusLabel
--- a/app/DD-Record-Organizer/frmConstructor_Main.resx
+++ b/app/DD-Record-Organizer/frmConstructor_Main.resx
@@ -501,7 +501,7 @@
    <value>Detail-Ansicht Datensatz</value>
  </data>
  <data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
-    <value>252, 270</value>
+    <value>252, 292</value>
  </data>
  <data name="&gt;&gt;ContextMenuGrid.Name" xml:space="preserve">
    <value>ContextMenuGrid</value>
@@ -525,7 +525,7 @@
    <value>0, 25</value>
  </data>
  <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1067, 212</value>
+    <value>1074, 212</value>
  </data>
  <data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@@ -665,7 +665,7 @@
    <value>0, 0</value>
  </data>
  <data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1067, 25</value>
+    <value>1074, 25</value>
  </data>
  <data name="ToolStripRecords.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@@ -749,7 +749,7 @@
    <value>0, 0</value>
  </data>
  <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>786, 336</value>
+    <value>786, 343</value>
  </data>
  <data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@@ -779,7 +779,7 @@
    <value>0, 26</value>
  </data>
  <data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
-    <value>554, 286</value>
+    <value>561, 293</value>
  </data>
  <data name="pnlDocFill.TabIndex" type="System.Int32, mscorlib">
    <value>1</value>
@@ -826,10 +826,10 @@
    <value>Ansicht eingeschränkt - Klick Bearbeiten für Entsperren</value>
  </data>
  <data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 312</value>
+    <value>0, 319</value>
  </data>
  <data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
-    <value>554, 24</value>
+    <value>561, 24</value>
  </data>
  <data name="statStripDoc.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@@ -856,7 +856,7 @@
    <value>0, 0</value>
  </data>
  <data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
-    <value>554, 26</value>
+    <value>561, 26</value>
  </data>
  <data name="pnlDocToolStrip.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@@ -877,7 +877,7 @@
    <value>Panel2</value>
  </data>
  <data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 340</value>
+    <value>1356, 347</value>
  </data>
  <data name="SplitContainerDetails.TabIndex" type="System.Int32, mscorlib">
    <value>1</value>
@@ -1050,7 +1050,7 @@
    <value>1</value>
  </data>
  <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 365</value>
+    <value>1356, 372</value>
  </data>
  <data name="TabDetails.Text" xml:space="preserve">
    <value>Detailansicht</value>
@@ -1068,7 +1068,7 @@
    <value>0</value>
  </data>
  <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1362, 396</value>
+    <value>1362, 403</value>
  </data>
  <data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
    <value>1</value>
@@ -1083,7 +1083,7 @@
    <value>Cyan</value>
  </data>
  <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 340</value>
+    <value>1356, 347</value>
  </data>
  <data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@@ -1107,7 +1107,7 @@
    <value>0, 25</value>
  </data>
  <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 340</value>
+    <value>1356, 347</value>
  </data>
  <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
    <value>2</value>
@@ -1361,7 +1361,7 @@
 </value>
  </data>
  <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 365</value>
+    <value>1356, 372</value>
  </data>
  <data name="TabPos.Text" xml:space="preserve">
    <value>Positionen</value>
@@ -1423,7 +1423,7 @@
    <value>Aqua</value>
  </data>
  <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 340</value>
+    <value>1356, 347</value>
  </data>
  <data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
    <value>7</value>
@@ -1525,7 +1525,7 @@
    <value>1</value>
  </data>
  <data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 365</value>
+    <value>1356, 372</value>
  </data>
  <data name="TabWindream.Text" xml:space="preserve">
    <value>Dateien</value>
@@ -1956,7 +1956,7 @@
    <value>2</value>
  </data>
  <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 365</value>
+    <value>1356, 372</value>
  </data>
  <data name="TabFollowUp.Text" xml:space="preserve">
    <value>Wiedervorlage</value>
@@ -2067,7 +2067,7 @@
    <value>5</value>
  </data>
  <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 340</value>
+    <value>1356, 347</value>
  </data>
  <data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
    <value>90</value>
@@ -2139,7 +2139,7 @@
    <value>1</value>
  </data>
  <data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 365</value>
+    <value>1356, 372</value>
  </data>
  <data name="TabPageVariant.Text" xml:space="preserve">
    <value>Vorgängervarianten</value>
@@ -2611,18 +2611,9 @@
  <metadata name="VWPMO_WF_USER_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 56</value>
  </metadata>
  <metadata name="VWPMO_WF_USER_ACTIVETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>295, 56</value>
  </metadata>
  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>567, 56</value>
  </metadata>
  <metadata name="VWPMO_WF_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>740, 56</value>
  </metadata>
  <metadata name="VWPMO_WF_ACTIVETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>984, 56</value>
  </metadata>
  <metadata name="ToolTipController.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>1283, 17</value>
  </metadata>
@@ -3975,30 +3966,12 @@
  <data name="&gt;&gt;VWPMO_WF_USER_ACTIVEBindingSource.Type" xml:space="preserve">
    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </data>
  <data name="&gt;&gt;VWPMO_WF_USER_ACTIVETableAdapter.Name" xml:space="preserve">
    <value>VWPMO_WF_USER_ACTIVETableAdapter</value>
  </data>
  <data name="&gt;&gt;VWPMO_WF_USER_ACTIVETableAdapter.Type" xml:space="preserve">
    <value>DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter, DD_DMSDataSet.Designer.vb, 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_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
  </data>
  <data name="&gt;&gt;VWPMO_WF_ACTIVEBindingSource.Name" xml:space="preserve">
    <value>VWPMO_WF_ACTIVEBindingSource</value>
  </data>
  <data name="&gt;&gt;VWPMO_WF_ACTIVEBindingSource.Type" xml:space="preserve">
    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </data>
  <data name="&gt;&gt;VWPMO_WF_ACTIVETableAdapter.Name" xml:space="preserve">
    <value>VWPMO_WF_ACTIVETableAdapter</value>
  </data>
  <data name="&gt;&gt;VWPMO_WF_ACTIVETableAdapter.Type" xml:space="preserve">
    <value>DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
  </data>
  <data name="&gt;&gt;ToolTipController.Name" xml:space="preserve">
    <value>ToolTipController</value>
  </data>
--- a/app/DD-Record-Organizer/frmConstructor_Main.vb
+++ b/app/DD-Record-Organizer/frmConstructor_Main.vb
@@ -279,8 +279,7 @@ Public Class frmConstructor_Main
        ClassWindowLocation.LoadFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR_MAIN")
        ' VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
-        'Me.VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
+        ClassWorkflow.Refresh_Workflows_Entity()
        'VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, USER_USERNAME)
        SQL = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
                    "FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {2} AND  CONSTRUCT_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CURRENT_SCREEN_ID, CONSTRUCTORID)
@@ -4408,23 +4407,22 @@ Public Class frmConstructor_Main
    End Sub
    Sub Show_act_WFTask()
        Try
-            Dim query = From table In DD_DMSDataSet.VWPMO_WF_ACTIVE.AsEnumerable()
+            Dim query = From table In CURRENT_VWPMO_WF_ACTIVE.AsEnumerable()
                         Select table Where table.Item("ENTITY_ID") = ENTITY_ID
            Dim Entity_rows = query.ToList()
            If Entity_rows.Count > 0 Then
                tsButtonShowTaskOverview.Visible = True
                tsButtonShowTaskOverview.Enabled = True
                If _MANUAL_WORKFLOW = True Then
                    CreateWorkflowtaskstsmi.Enabled = True
                End If
                tsslblWorkflowstate.Visible = True
            Else
                tsButtonShowTaskOverview.Visible = False
                CreateWorkflowtaskstsmi.Enabled = False
                tsslblWorkflowstate.Visible = False
            End If
            tsButtonShowTaskOverview.Visible = False
            For Each _row In Entity_rows
                If _row.Item("RECORD_ID") = RECORD_ID Then
                    tsButtonShowTaskOverview.Visible = True
                    CURRENT_TASK_ID = _row.Item("WF_TASK_ID")
                    Dim text = "Task: " & _row.Item("WF_TITLE")
                    text += " - " & _row.Item("STATE_TITLE")
@@ -5903,7 +5901,7 @@ Public Class frmConstructor_Main
                CURRENT_ENTITY_ID = ENTITY_ID
                Dim sql = "EXEC	PRPMO_CREATE_WF_TASKS " & CURRENT_ENTITY_ID & ", " & RECORD_ID
                If ClassDatabase.Execute_non_Query(sql) = True Then
-                    ' VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, USER_USERNAME)
+                    ClassWorkflow.Refresh_Workflows_Entity()
                    Show_act_WFTask()
                    If USER_LANGUAGE = "de-DE" Then
                        stg = "Workflows erzeugt! Wollen Sie die Workflowübersicht nun anzeigen?"
@@ -5915,6 +5913,7 @@ Public Class frmConstructor_Main
                    result = MessageBox.Show(stg, caption, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                    If result = MsgBoxResult.Yes Then
                        ClassJumpRecord.JumpToRecord(2, RECORD_ID)
                        ClassWorkflow.Refresh_Workflows_Entity()
                        JUMP_RECORD_ID = 0
                    End If
                Else
--- a/app/DD-Record-Organizer/frmRecordView.Designer.vb
+++ b/app/DD-Record-Organizer/frmRecordView.Designer.vb
@@ -82,8 +82,6 @@ Partial Class frmRecordView
        Me.tslblWindreamView = New System.Windows.Forms.ToolStripLabel()
        Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
        Me.txtStateActual = New System.Windows.Forms.TextBox()
        Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet()
        Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
        Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage()
        Me.GridControlUsersSelection = New DevExpress.XtraGrid.GridControl()
@@ -104,6 +102,7 @@ Partial Class frmRecordView
        Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage()
        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
        Me.TBPMO_WORKFLOW_TASK_HISTORYBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet()
        Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
        Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.colSTATE_DESC = New DevExpress.XtraGrid.Columns.GridColumn()
@@ -124,7 +123,6 @@ Partial Class frmRecordView
        Me.STATE_IDComboBox = New System.Windows.Forms.ComboBox()
        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
        Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
        Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager()
        Me.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter()
        Label1 = New System.Windows.Forms.Label()
@@ -161,8 +159,6 @@ Partial Class frmRecordView
        CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.ToolStrip2.SuspendLayout()
        Me.XtraTabPage1.SuspendLayout()
        CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.XtraTabControl1.SuspendLayout()
        Me.XtraTabPage3.SuspendLayout()
@@ -173,6 +169,7 @@ Partial Class frmRecordView
        Me.XtraTabPage4.SuspendLayout()
        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TBPMO_WORKFLOW_TASK_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
@@ -226,6 +223,7 @@ Partial Class frmRecordView
        'STATE_IDLabel
        '
        resources.ApplyResources(STATE_IDLabel, "STATE_IDLabel")
        STATE_IDLabel.ForeColor = System.Drawing.Color.DodgerBlue
        STATE_IDLabel.Name = "STATE_IDLabel"
        '
        'SplitContainerMain
@@ -595,22 +593,11 @@ Partial Class frmRecordView
        '
        'txtStateActual
        '
        Me.txtStateActual.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "STATE_TITLE", True))
        resources.ApplyResources(Me.txtStateActual, "txtStateActual")
        Me.txtStateActual.ForeColor = System.Drawing.Color.OrangeRed
        Me.txtStateActual.Name = "txtStateActual"
        Me.txtStateActual.ReadOnly = True
        '
        'VWPMO_WF_ACTIVEBindingSource
        '
        Me.VWPMO_WF_ACTIVEBindingSource.DataMember = "VWPMO_WF_ACTIVE"
        Me.VWPMO_WF_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet
        '
        'DD_DMSDataSet
        '
        Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet"
        Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
        '
        'XtraTabControl1
        '
        resources.ApplyResources(Me.XtraTabControl1, "XtraTabControl1")
@@ -755,6 +742,11 @@ Partial Class frmRecordView
        Me.TBPMO_WORKFLOW_TASK_HISTORYBindingSource.DataMember = "TBPMO_WORKFLOW_TASK_HISTORY"
        Me.TBPMO_WORKFLOW_TASK_HISTORYBindingSource.DataSource = Me.DD_DMSDataSet
        '
        'DD_DMSDataSet
        '
        Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet"
        Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
        '
        'GridView2
        '
        Me.GridView2.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView2.Appearance.EvenRow.BackColor"), System.Drawing.Color)
@@ -813,25 +805,21 @@ Partial Class frmRecordView
        '
        'WF_IDTextBox
        '
        Me.WF_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_ID", True))
        resources.ApplyResources(Me.WF_IDTextBox, "WF_IDTextBox")
        Me.WF_IDTextBox.Name = "WF_IDTextBox"
        '
        'CHANGED_WHENTextBox
        '
        Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "CHANGED_WHEN", True))
        resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox")
        Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
        '
        'CHANGED_WHOTextBox
        '
        Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "CHANGED_WHO", True))
        resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox")
        Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
        '
        'WF_TASK_IDTextBox
        '
        Me.WF_TASK_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_TASK_ID", True))
        resources.ApplyResources(Me.WF_TASK_IDTextBox, "WF_TASK_IDTextBox")
        Me.WF_TASK_IDTextBox.Name = "WF_TASK_IDTextBox"
        '
@@ -850,27 +838,23 @@ Partial Class frmRecordView
        '
        'TITLETextBox
        '
        Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_TITLE", True))
        resources.ApplyResources(Me.TITLETextBox, "TITLETextBox")
        Me.TITLETextBox.Name = "TITLETextBox"
        Me.TITLETextBox.ReadOnly = True
        '
        'DateTimePickerTASK_DATE
        '
        Me.DateTimePickerTASK_DATE.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "TASK_DATE", True))
        Me.DateTimePickerTASK_DATE.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
        resources.ApplyResources(Me.DateTimePickerTASK_DATE, "DateTimePickerTASK_DATE")
        Me.DateTimePickerTASK_DATE.Name = "DateTimePickerTASK_DATE"
        '
        'COMMENTTextBox
        '
        Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "COMMENT", True))
        resources.ApplyResources(Me.COMMENTTextBox, "COMMENTTextBox")
        Me.COMMENTTextBox.Name = "COMMENTTextBox"
        '
        'DUE_DATEDateTimePicker
        '
        Me.DUE_DATEDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "DUE_DATE", True))
        Me.DUE_DATEDateTimePicker.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
        resources.ApplyResources(Me.DUE_DATEDateTimePicker, "DUE_DATEDateTimePicker")
        Me.DUE_DATEDateTimePicker.Name = "DUE_DATEDateTimePicker"
@@ -878,6 +862,7 @@ Partial Class frmRecordView
        'STATE_IDComboBox
        '
        resources.ApplyResources(Me.STATE_IDComboBox, "STATE_IDComboBox")
        Me.STATE_IDComboBox.ForeColor = System.Drawing.Color.DodgerBlue
        Me.STATE_IDComboBox.FormattingEnabled = True
        Me.STATE_IDComboBox.Name = "STATE_IDComboBox"
        '
@@ -890,10 +875,6 @@ Partial Class frmRecordView
        '
        Me.GridView1.Name = "GridView1"
        '
        'VWPMO_WF_ACTIVETableAdapter
        '
        Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = True
        '
        'TableAdapterManager
        '
        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
@@ -907,6 +888,7 @@ Partial Class frmRecordView
        Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
        Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
        Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
        Me.TableAdapterManager.TBPMO_APPOINTMENTSTableAdapter = Nothing
        Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
        Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
        Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
@@ -978,8 +960,6 @@ Partial Class frmRecordView
        Me.ToolStrip2.PerformLayout()
        Me.XtraTabPage1.ResumeLayout(False)
        Me.XtraTabPage1.PerformLayout()
        CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.XtraTabControl1.ResumeLayout(False)
        Me.XtraTabPage3.ResumeLayout(False)
@@ -991,6 +971,7 @@ Partial Class frmRecordView
        Me.XtraTabPage4.ResumeLayout(False)
        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TBPMO_WORKFLOW_TASK_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
@@ -1074,8 +1055,6 @@ Partial Class frmRecordView
    Friend WithEvents lblWiedervorlage_Control As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet
    Friend WithEvents VWPMO_WF_ACTIVEBindingSource As System.Windows.Forms.BindingSource
    Friend WithEvents VWPMO_WF_ACTIVETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter
    Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager
    Friend WithEvents DD_ECMAdmin As DD_Record_Organizer.DD_ECMAdmin
    Friend WithEvents TBAD_UsersBindingSource As System.Windows.Forms.BindingSource
--- a/app/DD-Record-Organizer/frmRecordView.resx
+++ b/app/DD-Record-Organizer/frmRecordView.resx
@@ -166,7 +166,7 @@
    <value>Tahoma, 8.25pt, style=Italic</value>
  </data>
  <data name="WF_IDLabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>556, 85</value>
+    <value>481, 55</value>
  </data>
  <data name="WF_IDLabel.Size" type="System.Drawing.Size, System.Drawing">
    <value>41, 13</value>
@@ -199,7 +199,7 @@
    <value>Tahoma, 8.25pt, style=Italic</value>
  </data>
  <data name="CHANGED_WHENLabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>125, 235</value>
+    <value>128, 273</value>
  </data>
  <data name="CHANGED_WHENLabel.Size" type="System.Drawing.Size, System.Drawing">
    <value>83, 13</value>
@@ -232,7 +232,7 @@
    <value>Tahoma, 8.25pt, style=Italic</value>
  </data>
  <data name="CHANGED_WHOLabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>8, 235</value>
+    <value>11, 273</value>
  </data>
  <data name="CHANGED_WHOLabel.Size" type="System.Drawing.Size, System.Drawing">
    <value>77, 13</value>
@@ -367,7 +367,7 @@
    <value>NoControl</value>
  </data>
  <data name="Label4.Location" type="System.Drawing.Point, System.Drawing">
-    <value>10, 179</value>
+    <value>11, 203</value>
  </data>
  <data name="Label4.Size" type="System.Drawing.Size, System.Drawing">
    <value>59, 13</value>
@@ -400,7 +400,7 @@
    <value>NoControl</value>
  </data>
  <data name="DUE_DATELabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>112, 179</value>
+    <value>112, 203</value>
  </data>
  <data name="DUE_DATELabel.Size" type="System.Drawing.Size, System.Drawing">
    <value>52, 13</value>
@@ -436,7 +436,7 @@
    <value>NoControl</value>
  </data>
  <data name="STATE_IDLabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>330, 178</value>
+    <value>330, 203</value>
  </data>
  <data name="STATE_IDLabel.Size" type="System.Drawing.Size, System.Drawing">
    <value>91, 14</value>
@@ -493,7 +493,7 @@
    <value>0, 0</value>
  </data>
  <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1336, 304</value>
+    <value>1332, 301</value>
  </data>
  <data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@@ -511,7 +511,7 @@
    <value>0</value>
  </data>
  <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1336, 304</value>
+    <value>1332, 301</value>
  </data>
  <data name="TabDetails.Text" xml:space="preserve">
    <value>Detailansicht</value>
@@ -1314,7 +1314,7 @@
    <value>0, 25</value>
  </data>
  <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1336, 305</value>
+    <value>1332, 302</value>
  </data>
  <data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
    <value>8</value>
@@ -1347,7 +1347,7 @@
    <value>0, 0</value>
  </data>
  <data name="ToolStrip2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1336, 25</value>
+    <value>1332, 25</value>
  </data>
  <data name="ToolStrip2.TabIndex" type="System.Int32, mscorlib">
    <value>2</value>
@@ -1368,7 +1368,7 @@
    <value>1</value>
  </data>
  <data name="TabPageDoc.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1336, 330</value>
+    <value>1332, 327</value>
  </data>
  <data name="TabPageDoc.Text" xml:space="preserve">
    <value>Dateien</value>
@@ -1394,12 +1394,6 @@
  <data name="XtraTabPage1.AutoScroll" type="System.Boolean, mscorlib">
    <value>True</value>
  </data>
  <metadata name="VWPMO_WF_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>752, 17</value>
  </metadata>
  <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>609, 17</value>
  </metadata>
  <data name="txtStateActual.Font" type="System.Drawing.Font, System.Drawing">
    <value>Segoe UI, 9pt, style=Bold, Italic</value>
  </data>
@@ -1482,7 +1476,7 @@
    <value>102</value>
  </data>
  <data name="GridControlUsersSelection.Size" type="System.Drawing.Size, System.Drawing">
-    <value>284, 223</value>
+    <value>284, 220</value>
  </data>
  <data name="GridControlUsersSelection.TabIndex" type="System.Int32, mscorlib">
    <value>88</value>
@@ -1518,7 +1512,7 @@
    <value>16, 24</value>
  </data>
  <data name="ListViewExclusiveUser.Size" type="System.Drawing.Size, System.Drawing">
-    <value>174, 223</value>
+    <value>174, 220</value>
  </data>
  <data name="ListViewExclusiveUser.TabIndex" type="System.Int32, mscorlib">
    <value>27</value>
@@ -1669,7 +1663,7 @@ zuordnen</value>
    <value>5</value>
  </data>
  <data name="XtraTabPage3.Size" type="System.Drawing.Size, System.Drawing">
-    <value>620, 267</value>
+    <value>616, 264</value>
  </data>
  <data name="XtraTabPage3.Text" xml:space="preserve">
    <value>User zuordnen</value>
@@ -1698,6 +1692,9 @@ zuordnen</value>
  <metadata name="TBPMO_WORKFLOW_TASK_HISTORYBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>347, 56</value>
  </metadata>
  <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>609, 17</value>
  </metadata>
  <data name="GridControl1.Location" type="System.Drawing.Point, System.Drawing">
    <value>3, 6</value>
  </data>
@@ -1843,7 +1840,7 @@ zuordnen</value>
    <value>Tahoma, 8.25pt, style=Italic</value>
  </data>
  <data name="WF_IDTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>603, 82</value>
+    <value>528, 52</value>
  </data>
  <data name="WF_IDTextBox.Size" type="System.Drawing.Size, System.Drawing">
    <value>41, 21</value>
@@ -1870,7 +1867,7 @@ zuordnen</value>
    <value>Tahoma, 8.25pt, style=Italic</value>
  </data>
  <data name="CHANGED_WHENTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>128, 251</value>
+    <value>128, 289</value>
  </data>
  <data name="CHANGED_WHENTextBox.Size" type="System.Drawing.Size, System.Drawing">
    <value>142, 21</value>
@@ -1897,7 +1894,7 @@ zuordnen</value>
    <value>Tahoma, 8.25pt, style=Italic</value>
  </data>
  <data name="CHANGED_WHOTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>11, 251</value>
+    <value>11, 289</value>
  </data>
  <data name="CHANGED_WHOTextBox.Size" type="System.Drawing.Size, System.Drawing">
    <value>108, 21</value>
@@ -1951,7 +1948,7 @@ zuordnen</value>
    <value>MiddleLeft</value>
  </data>
  <data name="btnSaveWorkflow.Location" type="System.Drawing.Point, System.Drawing">
-    <value>333, 226</value>
+    <value>333, 264</value>
  </data>
  <data name="btnSaveWorkflow.Size" type="System.Drawing.Size, System.Drawing">
    <value>311, 46</value>
@@ -2035,7 +2032,7 @@ zuordnen</value>
    <value>15</value>
  </data>
  <data name="DateTimePickerTASK_DATE.Location" type="System.Drawing.Point, System.Drawing">
-    <value>13, 198</value>
+    <value>13, 223</value>
  </data>
  <data name="DateTimePickerTASK_DATE.Size" type="System.Drawing.Size, System.Drawing">
    <value>96, 21</value>
@@ -2062,7 +2059,7 @@ zuordnen</value>
    <value>True</value>
  </data>
  <data name="COMMENTTextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>631, 69</value>
+    <value>631, 93</value>
  </data>
  <data name="COMMENTTextBox.TabIndex" type="System.Int32, mscorlib">
    <value>36</value>
@@ -2080,7 +2077,7 @@ zuordnen</value>
    <value>18</value>
  </data>
  <data name="DUE_DATEDateTimePicker.Location" type="System.Drawing.Point, System.Drawing">
-    <value>115, 198</value>
+    <value>115, 223</value>
  </data>
  <data name="DUE_DATEDateTimePicker.Size" type="System.Drawing.Size, System.Drawing">
    <value>96, 21</value>
@@ -2104,7 +2101,7 @@ zuordnen</value>
    <value>Tahoma, 9pt, style=Bold</value>
  </data>
  <data name="STATE_IDComboBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>333, 198</value>
+    <value>333, 222</value>
  </data>
  <data name="STATE_IDComboBox.Size" type="System.Drawing.Size, System.Drawing">
    <value>311, 22</value>
@@ -2211,9 +2208,6 @@ zuordnen</value>
  <data name="&gt;&gt;ToolStrip1.ZOrder" xml:space="preserve">
    <value>2</value>
  </data>
  <metadata name="VWPMO_WF_ACTIVETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>996, 17</value>
  </metadata>
  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>1234, 17</value>
  </metadata>
@@ -2519,18 +2513,6 @@ zuordnen</value>
  <data name="&gt;&gt;tslblWindreamView.Type" xml:space="preserve">
    <value>System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </data>
  <data name="&gt;&gt;VWPMO_WF_ACTIVEBindingSource.Name" xml:space="preserve">
    <value>VWPMO_WF_ACTIVEBindingSource</value>
  </data>
  <data name="&gt;&gt;VWPMO_WF_ACTIVEBindingSource.Type" xml:space="preserve">
    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </data>
  <data name="&gt;&gt;DD_DMSDataSet.Name" xml:space="preserve">
    <value>DD_DMSDataSet</value>
  </data>
  <data name="&gt;&gt;DD_DMSDataSet.Type" xml:space="preserve">
    <value>DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
  </data>
  <data name="&gt;&gt;TBAD_UsersBindingSource.Name" xml:space="preserve">
    <value>TBAD_UsersBindingSource</value>
  </data>
@@ -2591,6 +2573,12 @@ zuordnen</value>
  <data name="&gt;&gt;TBPMO_WORKFLOW_TASK_HISTORYBindingSource.Type" xml:space="preserve">
    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </data>
  <data name="&gt;&gt;DD_DMSDataSet.Name" xml:space="preserve">
    <value>DD_DMSDataSet</value>
  </data>
  <data name="&gt;&gt;DD_DMSDataSet.Type" xml:space="preserve">
    <value>DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
  </data>
  <data name="&gt;&gt;GridView2.Name" xml:space="preserve">
    <value>GridView2</value>
  </data>
@@ -2633,12 +2621,6 @@ zuordnen</value>
  <data name="&gt;&gt;GridView1.Type" xml:space="preserve">
    <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
  </data>
  <data name="&gt;&gt;VWPMO_WF_ACTIVETableAdapter.Name" xml:space="preserve">
    <value>VWPMO_WF_ACTIVETableAdapter</value>
  </data>
  <data name="&gt;&gt;VWPMO_WF_ACTIVETableAdapter.Type" xml:space="preserve">
    <value>DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
  </data>
  <data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
    <value>TableAdapterManager</value>
  </data>
--- a/app/DD-Record-Organizer/frmRecordView.vb
+++ b/app/DD-Record-Organizer/frmRecordView.vb
@@ -5,7 +5,7 @@ Imports DD_LIB_Standards
 Public Class frmRecordView
    Private recordView As ClassRecordView
-    Private ENTITY_ID, FORMVIEW_ID, PARENT_ENTITY_ID, WF_TASK_ID As Integer
+    Private ENTITY_ID, FORMVIEW_ID, PARENT_ENTITY_ID, WF_TASK_ID, RECORD_ID As Integer
    Private Const SEE_MASK_INVOKEIDLIST = &HC
    Private Const SEE_MASK_NOCLOSEPROCESS = &H40
    Private Const SEE_MASK_FLAG_NO_UI = &H400
@@ -50,13 +50,15 @@ Public Class frmRecordView
                Me.Text = "Detailansicht Record"
            End If
            recordView = New ClassRecordView(pnlDetails)
-            recordView.LoadRecord(JUMP_RECORD_ID)
+            RECORD_ID = JUMP_RECORD_ID
            recordView.LoadRecord(RECORD_ID)
            'Titel updaten
-            Me.Text &= " " + JUMP_RECORD_ID.ToString()
+            Me.Text &= " " + RECORD_ID.ToString()
-            Dim sql = "SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & JUMP_RECORD_ID
+            Dim sql = "SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID
            ENTITY_ID = ClassDatabase.Execute_Scalar(sql, True)
-            ClassRightManagement.Check_Set_Rights(JUMP_RECORD_ID, ENTITY_ID)
+            ClassRightManagement.Check_Set_Rights(RECORD_ID, ENTITY_ID)
            ClassProxy.Refresh_Workflow_Data()
            sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
            DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql, True)
@@ -74,7 +76,7 @@ Public Class frmRecordView
        End Try
        RUN_WDSEARCH_GRID()
-        Load_Tasks()
+        Load_Task_Data()
    End Sub
    Private Sub OnCBSelectedValueChanged(sender As Object, e As EventArgs)
@@ -139,7 +141,7 @@ Public Class frmRecordView
            Dim sw As New Stopwatch
            sw.Start()
            Dim elapsed As Double
-            Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, JUMP_RECORD_ID)
+            Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID)
            If IsNothing(DT_RESULT) Then
                Dim msg = "wrong DocSearch-Configuration - Check logfile and contact Digital Data"
                tslblWindreamView.Text = msg
@@ -147,9 +149,9 @@ Public Class frmRecordView
                Exit Sub
            End If
            If DT_RESULT.Rows.Count > 0 Then 'Es gibt Suchergebnisse
-                Dim msg = "Windream-Dokumente für Record: " & JUMP_RECORD_ID
+                Dim msg = "Windream-Dokumente für Record: " & RECORD_ID
                If USER_LANGUAGE <> "de-DE" Then
-                    msg = "windream-files for record: " & JUMP_RECORD_ID
+                    msg = "windream-files for record: " & RECORD_ID
                End If
                tslblWindreamView.Text = msg
@@ -164,12 +166,12 @@ Public Class frmRecordView
                        AddressOf OnDateSelectedValueChanged,
                        AddressOf OnTextSelectedValueChanged,
                        AddressOf OnCheckboxValueChanged,
-                        "RECORD", JUMP_RECORD_ID)
+                        "RECORD", RECORD_ID)
                End If
            Else
-                Dim msg = "Keine Windream-Dokumente für Record: " & JUMP_RECORD_ID & " gefunden"
+                Dim msg = "Keine Windream-Dokumente für Record: " & RECORD_ID & " gefunden"
                If USER_LANGUAGE <> "de-DE" Then
-                    msg = "No windream-files found for record: " & JUMP_RECORD_ID
+                    msg = "No windream-files found for record: " & RECORD_ID
                End If
@@ -186,14 +188,59 @@ Public Class frmRecordView
        End Try
        Cursor = Cursors.Default
    End Sub
-    Private Sub Load_Tasks()
+    Private Sub Load_Task_Data()
        Try
-            'Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Connection.ConnectionString = MyConnectionString
+            Dim query = From table In CURRENT_VWPMO_WF_ACTIVE.AsEnumerable()
-            Me.VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
+                        Select table Where table.Item("RECORD_ID") = RECORD_ID
-            Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, USER_USERNAME, JUMP_RECORD_ID)
+            Dim RECORD_ROW = query.ToList()
-            If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count > 0 Then
+            If RECORD_ROW.Count = 1 Then
                TabControlBottom.TabPages(1).Appearance.Header.BackColor = Color.Red
                For Each _row In RECORD_ROW
                    TITLETextBox.Text = _row.Item("WF_TITLE")
                    txtStateActual.Text = _row.Item("STATE_TITLE")
                    WF_IDTextBox.Text = _row.Item("WF_ID")
                    WF_TASK_IDTextBox.Text = _row.Item("WF_TASK_ID")
                    If Not IsDBNull(_row.Item("COMMENT")) Then
                        COMMENTTextBox.Text = _row.Item("COMMENT")
                    Else
                        COMMENTTextBox.Text = ""
                    End If
                    If Not IsDBNull(_row.Item("COMMENT")) Then
                    End If
                    If Not IsDBNull(_row.Item("CHANGED_WHO")) Then
                        CHANGED_WHOTextBox.Text = _row.Item("CHANGED_WHO")
                    End If
                    If Not IsDBNull(_row.Item("CHANGED_WHEN")) Then
                        CHANGED_WHENTextBox.Text = _row.Item("CHANGED_WHEN")
                    End If
                    If Not IsDBNull(_row.Item("TASK_DATE")) Then
                        DateTimePickerTASK_DATE.Text = _row.Item("TASK_DATE")
                    End If
                    If Not IsDBNull(_row.Item("DUE_DATE")) Then
                        DUE_DATEDateTimePicker.Text = _row.Item("DUE_DATE")
                    End If
                Next
            Else
                TITLETextBox.Text = ""
                txtStateActual.Text = ""
                WF_IDTextBox.Text = ""
                WF_TASK_IDTextBox.Text = ""
                COMMENTTextBox.Text = ""
                CHANGED_WHOTextBox.Text = ""
                CHANGED_WHENTextBox.Text = ""
                COMMENTTextBox.Enabled = False
                DUE_DATEDateTimePicker.Enabled = False
                DateTimePickerTASK_DATE.Enabled = False
                STATE_IDComboBox.Enabled = False
                lblTaskState.Visible = True
                btnSaveWorkflow.Enabled = False
                TabControlBottom.TabPages(1).Appearance.Header.BackColor = Nothing
            End If
@@ -201,6 +248,8 @@ Public Class frmRecordView
            FORMVIEW_ID = ClassDatabase.Execute_Scalar(Sql, True)
            Sql = "SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID
            PARENT_ENTITY_ID = ClassDatabase.Execute_Scalar(Sql, True)
        Catch ex As Exception
            MsgBox("Error in Load_Tasks:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
@@ -209,41 +258,29 @@ Public Class frmRecordView
    Private Sub TabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles TabControlBottom.SelectedPageChanged
        Try
            If TabControlBottom.SelectedTabPageIndex = 1 Then
-                If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count = 0 Then
+                Load_Task_Data()
-                    COMMENTTextBox.Enabled = False
+                If WF_TASK_IDTextBox.Text <> "" Then
-                    DUE_DATEDateTimePicker.Enabled = False
+                    WF_TASK_ID = WF_TASK_IDTextBox.Text
                    DateTimePickerTASK_DATE.Enabled = False
                    STATE_IDComboBox.Enabled = False
                    lblTaskState.Visible = True
                    btnSaveWorkflow.Enabled = False
                Else
                    If WF_TASK_IDTextBox.Text <> "" Then
                        WF_TASK_ID = WF_TASK_IDTextBox.Text
                    End If
                    Try
                        If WF_IDTextBox.Text <> "" Then
                            ' Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.FillBy(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE, USER_LANGUAGE, WF_IDTextBox.Text, ENTITY_ID)
                            Dim sel = ClassDatabase.Execute_Scalar("SELECT USER_SELECT FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & WF_TASK_ID, True)
                            If Not IsNothing(sel) Then
                                Load_Selectable_Users(sel)
                            End If
                        End If
                    Catch ex As Exception
                        MsgBox("Error in load States:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                    End Try
                    COMMENTTextBox.Enabled = True
                    DUE_DATEDateTimePicker.Enabled = True
                    DateTimePickerTASK_DATE.Enabled = True
                    STATE_IDComboBox.Enabled = True
                    lblTaskState.Text = "No active workflows"
                    lblTaskState.Visible = False
                    btnSaveWorkflow.Enabled = True
-                    Load_TASK_USER()
+                Else
-                    Load_States()
+                    WF_TASK_ID = 0
-                    Check_end()
+                    btnSaveWorkflow.Enabled = False
                End If
                Try
                    If WF_TASK_ID > 0 Then
                        lblTaskState.Text = "No active workflows"
                        lblTaskState.Visible = False
                        Dim sel = ClassDatabase.Execute_Scalar("SELECT USER_SELECT FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & WF_TASK_ID, True)
                        If Not IsNothing(sel) Then
                            Load_Selectable_Users(sel)
                        End If
                    End If
                Catch ex As Exception
                    MsgBox("Error in load States:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                End Try
                Load_TASK_USER()
                Load_States()
                Check_end()
                _Changed = False
            End If
        Catch ex As Exception
@@ -334,18 +371,35 @@ Public Class frmRecordView
                Exit Sub
            End If
            Dim upd
-            If STATE_IDComboBox.SelectedIndex <> -1 Then
+            Dim STATE_id As Integer
            Try
                STATE_id = STATE_IDComboBox.SelectedValue
            Catch ex As Exception
                STATE_id = 0
            End Try
            If STATE_id > 0 Then
                Dim sql = String.Format("SELECT dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), GUID), 1) AS STATE_DESC FROM TBPMO_WORKFLOW_TASK_STATE WHERE GUID = {1}", USER_LANGUAGE, STATE_IDComboBox.SelectedValue)
                Dim State_DESC = ClassDatabase.Execute_Scalar(sql, True)
                Dim Comment
                If COMMENTTextBox.Text <> "" Then
                    Comment = String.Format(COMMENTTextBox.Text & vbNewLine & ">> " & Now.ToString & ": User {0} changed the state to: {1}", Environment.UserName, State_DESC)
                Else
                    Comment = String.Format(">> " & Now.ToString & ": User {0} Changed the state to: {1}", Environment.UserName, State_DESC)
                End If
                upd = String.Format("UPDATE TBPMO_WORKFLOW_TASK SET COMMENT = '{0}', DUE_DATE = '{1}', STATE_ID = {2}, ACTIVE = {3}, CHANGED_WHO = '{4}', TASK_DATE = '{5}' " & _
-                                   "WHERE GUID = {6}", COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, STATE_IDComboBox.SelectedValue, 1, USER_USERNAME, DateTimePickerTASK_DATE.Value, WF_TASK_ID)
+                                   "WHERE GUID = {6}", Comment, DUE_DATEDateTimePicker.Value, STATE_id, 1, USER_USERNAME, DateTimePickerTASK_DATE.Value, WF_TASK_ID)
                STATE_IDComboBox.SelectedIndex = -1
            Else
-                upd = String.Format("UPDATE TBPMO_WORKFLOW_TASK SET COMMENT = '{0}', DUE_DATE = '{1}', ACTIVE = {2}, CHANGED_WHO = '{3}', TASK_DATE = '{4}' " & _
+                upd = String.Format("UPDATE TBPMO_WORKFLOW_TASK SET COMMENT = (SELECT )'{0}', DUE_DATE = '{1}', ACTIVE = {2}, CHANGED_WHO = '{3}', TASK_DATE = '{4}' " & _
                                   "WHERE GUID = {5}", COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, 1, USER_USERNAME, DateTimePickerTASK_DATE.Value, WF_TASK_ID)
                STATE_IDComboBox.SelectedIndex = -1
            End If
            If ClassDatabase.Execute_non_Query(upd, True) Then
                ClassWorkflow.Refresh_Workflows_Entity()
                ClassProxy.Refresh_Workflow_Data()
-                Load_Tasks()
+                Load_Task_Data()
                Load_States()
                Check_end()
                If XtraTabControl1.SelectedTabPageIndex = 1 Then
@@ -479,18 +533,18 @@ Public Class frmRecordView
                    '    RUN_WDSEARCH_GRID()
                    'End If
                ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
-                    CURRENT_RECORD_ID = JUMP_RECORD_ID
+                    CURRENT_RECORD_ID = RECORD_ID
                    If ClassDragDrop.Drop_File(e) = True Then
                        Check_Dropped_Files()
                    End If
                ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
-                    CURRENT_RECORD_ID = JUMP_RECORD_ID
+                    CURRENT_RECORD_ID = RECORD_ID
                    If ClassDragDrop.Drop_File(e) = True Then
                        Check_Dropped_Files()
                    End If
                End If
            Else
-                CURRENT_RECORD_ID = JUMP_RECORD_ID
+                CURRENT_RECORD_ID = RECORD_ID
                If ClassDragDrop.Drop_File(e) = True Then
                    Check_Dropped_Files()
                End If
@@ -524,7 +578,7 @@ Public Class frmRecordView
                            'Dim datei = Str.ToString.Replace("@DROPFROMFSYSTEM@", "")
                            CURRENT_FILEID = Filerow.Item("GUID")
                            CURRENT_PARENT_ENTITY_ID = PARENT_ENTITY_ID
-                            CURRENT_RECORD_ID = JUMP_RECORD_ID
+                            CURRENT_RECORD_ID = RECORD_ID
                            CURRENT_ENTITY_ID = ENTITY_ID
                            CURRENT_FORMVIEW_ID = FORMVIEW_ID
                            If CURRENT_TBPMO_FILES_USER.Rows.Count = 1 Then
--- a/app/RecordOrganizer_RightManager/frmCheckRightsRecords.Designer.vb
+++ b/app/RecordOrganizer_RightManager/frmCheckRightsRecords.Designer.vb
@@ -22,6 +22,7 @@ Partial Class frmCheckRightsRecords
    '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(frmCheckRightsRecords))
        Me.Label1 = New System.Windows.Forms.Label()
        Me.cmbentity = New System.Windows.Forms.ComboBox()
        Me.btnCheckRights = New System.Windows.Forms.Button()
@@ -33,6 +34,8 @@ Partial Class frmCheckRightsRecords
        Me.GridControlMain = New DevExpress.XtraGrid.GridControl()
        Me.GridViewMain = New DevExpress.XtraGrid.Views.Grid.GridView()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.btnSelectVisiblRows = New System.Windows.Forms.Button()
        Me.Button1 = New System.Windows.Forms.Button()
        CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridViewMain, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
@@ -40,7 +43,7 @@ Partial Class frmCheckRightsRecords
        'Label1
        '
        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(25, 9)
+        Me.Label1.Location = New System.Drawing.Point(5, 9)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(147, 16)
        Me.Label1.TabIndex = 0
@@ -49,7 +52,7 @@ Partial Class frmCheckRightsRecords
        'cmbentity
        '
        Me.cmbentity.FormattingEnabled = True
-        Me.cmbentity.Location = New System.Drawing.Point(28, 29)
+        Me.cmbentity.Location = New System.Drawing.Point(8, 29)
        Me.cmbentity.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
        Me.cmbentity.Name = "cmbentity"
        Me.cmbentity.Size = New System.Drawing.Size(335, 24)
@@ -79,7 +82,7 @@ Partial Class frmCheckRightsRecords
        '
        Me.btncancel.Image = Global.RecordOrganizer_RightManager.My.Resources.Resources.cancel1
        Me.btncancel.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btncancel.Location = New System.Drawing.Point(881, 25)
+        Me.btncancel.Location = New System.Drawing.Point(876, 25)
        Me.btncancel.Name = "btncancel"
        Me.btncancel.Size = New System.Drawing.Size(75, 31)
        Me.btncancel.TabIndex = 4
@@ -93,7 +96,7 @@ Partial Class frmCheckRightsRecords
        Me.chklogging.AutoSize = True
        Me.chklogging.Checked = True
        Me.chklogging.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.chklogging.Location = New System.Drawing.Point(379, 31)
+        Me.chklogging.Location = New System.Drawing.Point(359, 31)
        Me.chklogging.Name = "chklogging"
        Me.chklogging.Size = New System.Drawing.Size(113, 20)
        Me.chklogging.TabIndex = 5
@@ -113,10 +116,13 @@ Partial Class frmCheckRightsRecords
        'GridControlMain
        '
        Me.GridControlMain.AllowDrop = True
-        Me.GridControlMain.Location = New System.Drawing.Point(28, 105)
+        Me.GridControlMain.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.GridControlMain.Location = New System.Drawing.Point(8, 105)
        Me.GridControlMain.MainView = Me.GridViewMain
        Me.GridControlMain.Name = "GridControlMain"
-        Me.GridControlMain.Size = New System.Drawing.Size(928, 196)
+        Me.GridControlMain.Size = New System.Drawing.Size(1291, 488)
        Me.GridControlMain.TabIndex = 9
        Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewMain})
        '
@@ -139,17 +145,43 @@ Partial Class frmCheckRightsRecords
        'Label2
        '
        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(25, 86)
+        Me.Label2.Location = New System.Drawing.Point(5, 86)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(318, 16)
        Me.Label2.TabIndex = 10
        Me.Label2.Text = "Please select the records which files shall be checked:"
        '
        'btnSelectVisiblRows
        '
        Me.btnSelectVisiblRows.Image = CType(resources.GetObject("btnSelectVisiblRows.Image"), System.Drawing.Image)
        Me.btnSelectVisiblRows.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnSelectVisiblRows.Location = New System.Drawing.Point(876, 59)
        Me.btnSelectVisiblRows.Name = "btnSelectVisiblRows"
        Me.btnSelectVisiblRows.Size = New System.Drawing.Size(178, 39)
        Me.btnSelectVisiblRows.TabIndex = 11
        Me.btnSelectVisiblRows.Text = "Select all visible Rows"
        Me.btnSelectVisiblRows.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnSelectVisiblRows.UseVisualStyleBackColor = True
        '
        'Button1
        '
        Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.Button1.Location = New System.Drawing.Point(1060, 59)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(178, 39)
        Me.Button1.TabIndex = 12
        Me.Button1.Text = "Unselect all visible Rows"
        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.Button1.UseVisualStyleBackColor = True
        '
        'frmCheckRightsRecords
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(970, 305)
+        Me.ClientSize = New System.Drawing.Size(1304, 596)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.btnSelectVisiblRows)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.GridControlMain)
        Me.Controls.Add(Me.lblstate)
@@ -160,7 +192,6 @@ Partial Class frmCheckRightsRecords
        Me.Controls.Add(Me.cmbentity)
        Me.Controls.Add(Me.Label1)
        Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
@@ -185,4 +216,6 @@ Partial Class frmCheckRightsRecords
    Friend WithEvents GridControlMain As DevExpress.XtraGrid.GridControl
    Friend WithEvents GridViewMain As DevExpress.XtraGrid.Views.Grid.GridView
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents btnSelectVisiblRows As System.Windows.Forms.Button
    Friend WithEvents Button1 As System.Windows.Forms.Button
 End Class
--- a/app/RecordOrganizer_RightManager/frmCheckRightsRecords.resx
+++ b/app/RecordOrganizer_RightManager/frmCheckRightsRecords.resx
@@ -120,4 +120,21 @@
  <metadata name="BW_RightsEntity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="btnSelectVisiblRows.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAIAAACQkWg2AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
        YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAAB0SURBVDhPpY27DYAwFAOZjalCHZYEhgCa1ByyhB5RvmC5
        iJ7unCF05hbG5vwTjv0sVExFWJeNu/czbzEVAZQ7Gm8xJcHOUzElwc5TMbHg3MQDKJrPCg8XzWcFKpTY
        eapjQtAnxM5THRNCrmJeQku+Ch0J4QLYS+ifBfoIBAAAAABJRU5ErkJggg==
 </value>
  </data>
  <data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAIAAACQkWg2AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
        xAAADsQBlSsOGwAAAHRJREFUOE+ljbsNgDAUA5mNqUIdlgSGAJrUHLKEHlG+YLmInu6cIXTmFsbm/BOO
        /SxUTEVYl4279zNvMRUBlDsabzElwc5TMSXBzlMxseDcxAMoms8KDxfNZwUqlNh5qmNC0CfEzlMdE0Ku
        Yl5CS74KHQnhAthL6J8F+ggEAAAAAElFTkSuQmCC
 </value>
  </data>
 </root>
--- a/app/RecordOrganizer_RightManager/frmCheckRightsRecords.vb
+++ b/app/RecordOrganizer_RightManager/frmCheckRightsRecords.vb
@@ -204,4 +204,23 @@ Public Class frmCheckRightsRecords
    Private Sub frmCheckRightsRecords_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        _formloaded = True
    End Sub
    Private Sub btnSelectVisiblRows_Click(sender As Object, e As EventArgs) Handles btnSelectVisiblRows.Click
        Dim listRecords As New ArrayList
        Dim collist As New ArrayList
        For i = 0 To GridViewMain.RowCount
            Dim recid = GridViewMain.GetRowCellValue(i, "Record-ID")
            If Not IsNothing(recid) Then
                listRecords.Add(recid)
            End If
        Next
        For Each row As DataRow In DT_DATA.Rows
            For Each Record As String In listRecords
                If Record = row.Item("Record-ID") Then
                    row.Item("Selection") = True
                    Exit For
                End If
            Next
        Next
    End Sub
 End Class
--- a/app/SetupWiX/Product.wxs
+++ b/app/SetupWiX/Product.wxs
@@ -190,6 +190,7 @@
              <File Id="DevExpress.XtraDiagram.v15.2_" Name="DevExpress.XtraDiagram.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraDiagram.v15.2.dll" />
              <File Id="DevExpress.XtraCharts.Wizard" Name="DevExpress.XtraCharts.v15.2.Wizard.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraCharts.v15.2.Wizard.dll" />
              <File Id="DevExpress.XtraMap.v15.2" Name="DevExpress.XtraMap.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraMap.v15.2.dll" />
              <File Id="DevExpress.Map.v15.2.Core" Name="DevExpress.Map.v15.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Map.v15.2.Core.dll" />
            </Component>
            <!-- Lokalisierung für DEVEXPRESS Bibliotheken-->
--- a/app/VERSION_CHECKER/frmVersionCheck.vb
+++ b/app/VERSION_CHECKER/frmVersionCheck.vb
@@ -45,7 +45,7 @@ Public Class frmVersionCheck
                Else
                    VERSION_USER = CInt(VERSION_USER.ToString.Replace(".", ""))
                    VERSION_SERVER = CInt(VERSION_SERVER.ToString.Replace(".", ""))
-                    If VERSION_USER = VERSION_SERVER Then
+                    If (VERSION_USER = VERSION_SERVER) Or VERSION_SERVER = 1000 Or VERSION_USER = 1000 Then
                        Exit Sub
                    End If
                    UPDATE_NECESSARY = True