Common/DocumentResultList: Rework layout with DockManager

GUIs.Common/ObjectPropertyDialog/AttributeControls.vb

@@ -0,0 +1,185 @@
+Imports DevExpress.XtraEditors
+Imports DevExpress.XtraLayout
+Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.ZooFlow
+Imports DigitalData.Modules.Database
+Imports DigitalData.Controls.LookupGrid
+Imports DevExpress.XtraGrid
+Imports System.Windows.Forms
+Imports DevExpress.XtraGrid.Views.Grid
+Imports DigitalData.Modules.EDMI.API
+Imports DigitalData.Modules.Base
+
+Public Class AttributeControls
+    Inherits BaseClass
+
+    Private ReadOnly Client As Client
+    Private ReadOnly Environment As Environment
+
+    Public Event EditValueChanged As EventHandler
+
+    Public Sub New(pLogConfig As LogConfig, pEnvironment As Environment, pClient As Client)
+        MyBase.New(pLogConfig)
+        Client = pClient
+        Environment = pEnvironment
+    End Sub
+
+    Public Function ShouldControlBeEditable(pAttribute As Attribute) As Boolean
+        If pAttribute.IsSystem Then
+            Return False
+        End If
+
+        Return True
+    End Function
+
+    Public Async Function GetAttributesForBusinessEntity(EntityId As Long) As Task(Of List(Of Attribute))
+        Try
+            Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE BE_ID = {EntityId} AND LANG_CODE = '{Environment.User.Language}'"
+            Dim oResult = Await Client.GetDatatableFromIDBAsync(oSQL)
+
+            If oResult.OK = False Then
+                Throw New ApplicationException($"Attributes for Business Entity {EntityId} could not be retrieved!")
+
+            ElseIf oResult.Table.Rows.Count = 0 Then
+                Throw New ApplicationException($"BusinessEntity {EntityId} does not have any attributes!")
+
+            Else
+                Dim oAttributes As New List(Of Attribute)
+
+                For Each oRow As DataRow In oResult.Table.Rows
+                    oAttributes.Add(New Attribute() With {
+                        .ID = oRow.Item("ATTR_ID"),
+                        .Title = oRow.Item("ATTR_TITLE"),
+                        .TypeID = oRow.Item("TYPE_ID"),
+                        .TypeName = oRow.Item("TYPE_NAME"),
+                        .IsSystem = Convert.ToBoolean(oRow.Item("SYS_ATTRIBUTE"))
+                    })
+                Next
+
+                Return oAttributes
+            End If
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return New List(Of Attribute)
+        End Try
+    End Function
+
+    Public Async Function LoadControlsForAttributes(pObjectId As Long, pAttributes As List(Of Attribute), LayoutRoot As LayoutControlGroup) As Task
+        LayoutRoot.Clear()
+
+        For Each oAttribute As Attribute In pAttributes
+            Dim oEditable = ShouldControlBeEditable(oAttribute)
+            Dim oControl = GetControlForAttribute(oAttribute, Not oEditable)
+            Dim oItem As LayoutControlItem = LayoutRoot.AddItem()
+
+            oItem.Text = oAttribute.Title
+            oItem.Name = oAttribute.Title
+            oItem.Control = oControl
+        Next
+
+        For Each oItem As LayoutControlItem In LayoutRoot.Items
+            If TypeOf oItem.Control Is BaseEdit Then
+                Dim oValue = Await GetAttributeValue(oItem.Name, pObjectId)
+                Dim oEdit = DirectCast(oItem.Control, BaseEdit)
+
+                oEdit.EditValue = oValue
+
+                AddHandler oEdit.EditValueChanged, Sub() RaiseEvent EditValueChanged(oItem, Nothing)
+
+            ElseIf TypeOf oItem.Control Is GridControl Then
+                Dim oValueTable = Await GetAttributeValueAsTable(oItem.Name, pObjectId)
+                Dim oGrid = DirectCast(oItem.Control, GridControl)
+                oGrid.DataSource = oValueTable
+
+
+            End If
+        Next
+    End Function
+
+    Public Async Function GetAttributeValue(AttributeName As String, ObjectId As Long, Optional LanguageCode As String = "de-DE", Optional IsForeign As Boolean = False) As Task(Of Object)
+        Dim oIsForeign = IIf(IsForeign, 1, 0)
+        Dim oSQL = $"SELECT TERM_VALUE FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({ObjectId}, '{AttributeName}', '{LanguageCode}', {oIsForeign})"
+        Dim oResult = Await Client.GetScalarValueFromIDBAsync(oSQL)
+
+        Return oResult.Scalar
+    End Function
+
+    Public Async Function GetAttributeValueAsTable(AttributeName As String, ObjectId As Long, Optional LanguageCode As String = "de-DE", Optional IsForeign As Boolean = False) As Task(Of DataTable)
+        Dim oIsForeign = IIf(IsForeign, 1, 0)
+        Dim oSQL = $"SELECT TERM_VALUE FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({ObjectId}, '{AttributeName}', '{LanguageCode}', {oIsForeign})"
+        Dim oResult = Await Client.GetDatatableFromIDBAsync(oSQL)
+
+        Return oResult.Table
+    End Function
+
+    Public Function GetControlForAttribute(pAttribute As Attribute, pIsReadOnly As Boolean) As Control
+        Dim oControl As Control
+
+        Select Case pAttribute.TypeName
+            Case Attribute.TYPE_BIT
+                Dim oCheckboxEdit As New CheckEdit With {
+                    .Name = pAttribute.ID,
+                    .Text = pAttribute.Title,
+                    .[ReadOnly] = pIsReadOnly
+                }
+                oControl = oCheckboxEdit
+
+            Case Attribute.TYPE_DATE
+                Dim oDateEdit As New DateEdit With {
+                    .Name = pAttribute.ID,
+                    .[ReadOnly] = pIsReadOnly
+                }
+                oControl = oDateEdit
+
+            Case Attribute.TYPE_BIG_INTEGER
+                Dim oTextEdit As New TextEdit With {
+                    .Name = pAttribute.ID,
+                    .[ReadOnly] = pIsReadOnly
+                }
+                oControl = oTextEdit
+
+            Case Attribute.TYPE_DECIMAL
+                Dim oTextEdit As New TextEdit With {
+                    .Name = pAttribute.ID,
+                    .[ReadOnly] = pIsReadOnly
+                }
+                oControl = oTextEdit
+
+            Case Attribute.TYPE_FLOAT
+                Dim oTextEdit As New TextEdit With {
+                    .Name = pAttribute.ID,
+                    .[ReadOnly] = pIsReadOnly
+                }
+                oControl = oTextEdit
+
+            Case Attribute.TYPE_VECTOR_STRING
+                ' Minimum size is picked up by the LayoutControl to determine the grids size
+                Dim oGrid As New GridControl With {
+                    .Name = pAttribute.ID,
+                    .MinimumSize = New System.Drawing.Size(0, 100)
+                }
+
+                oGrid.ForceInitialize()
+
+                Dim oView = DirectCast(oGrid.DefaultView, GridView)
+                oView.OptionsView.ShowGroupPanel = False
+                oView.OptionsView.ShowColumnHeaders = False
+                oView.OptionsView.ShowIndicator = False
+                oView.OptionsBehavior.ReadOnly = True
+                oView.OptionsBehavior.Editable = False
+                oControl = oGrid
+
+            Case Else
+                Dim oTextEdit As New TextEdit With {
+                    .Name = pAttribute.ID,
+                    .[ReadOnly] = pIsReadOnly
+                }
+                oControl = oTextEdit
+
+        End Select
+
+        oControl.Tag = pAttribute
+
+        Return oControl
+    End Function
+End Class

GUIs.Common/ObjectPropertyDialog/PropertyControls.vb

@@ -1,92 +0,0 @@
-Imports DevExpress.XtraEditors
-Imports DevExpress.XtraLayout
-Imports DigitalData.Modules.Logging
-Imports DigitalData.Modules.ZooFlow
-Imports DigitalData.Modules.Database
-Imports DigitalData.Controls.LookupGrid
-Imports DevExpress.XtraGrid
-Imports System.Windows.Forms
-Imports DevExpress.XtraGrid.Views.Grid
-
-Public Class PropertyControls
-    Private _LogConfig As LogConfig
-    Private _Logger As Logger
-    Private _Db As MSSQLServer
-
-    Public Sub New(LogConfig As LogConfig, Database As MSSQLServer)
-        _LogConfig = LogConfig
-        _Logger = LogConfig.GetLogger()
-        _Db = Database
-    End Sub
-
-    Public Function GetControlForAttribute(pAttribute As Attribute, pIsReadOnly As Boolean) As Control
-        Dim oControl As Control
-
-        Select Case pAttribute.TypeName
-            Case Attribute.TYPE_BIT
-                Dim oCheckboxEdit As New CheckEdit With {
-                    .Name = pAttribute.ID,
-                    .Text = pAttribute.Title,
-                    .[ReadOnly] = pIsReadOnly
-                }
-                oControl = oCheckboxEdit
-
-            Case Attribute.TYPE_DATE
-                Dim oDateEdit As New DateEdit With {
-                    .Name = pAttribute.ID,
-                    .[ReadOnly] = pIsReadOnly
-                }
-                oControl = oDateEdit
-
-            Case Attribute.TYPE_BIG_INTEGER
-                Dim oTextEdit As New TextEdit With {
-                    .Name = pAttribute.ID,
-                    .[ReadOnly] = pIsReadOnly
-                }
-                oControl = oTextEdit
-
-            Case Attribute.TYPE_DECIMAL
-                Dim oTextEdit As New TextEdit With {
-                    .Name = pAttribute.ID,
-                    .[ReadOnly] = pIsReadOnly
-                }
-                oControl = oTextEdit
-
-            Case Attribute.TYPE_FLOAT
-                Dim oTextEdit As New TextEdit With {
-                    .Name = pAttribute.ID,
-                    .[ReadOnly] = pIsReadOnly
-                }
-                oControl = oTextEdit
-
-            Case Attribute.TYPE_VECTOR_STRING
-                ' Minimum size is picked up by the LayoutControl to determine the grids size
-                Dim oGrid As New GridControl With {
-                    .Name = pAttribute.ID,
-                    .MinimumSize = New System.Drawing.Size(0, 100)
-                }
-
-                oGrid.ForceInitialize()
-
-                Dim oView = DirectCast(oGrid.DefaultView, GridView)
-                oView.OptionsView.ShowGroupPanel = False
-                oView.OptionsView.ShowColumnHeaders = False
-                oView.OptionsView.ShowIndicator = False
-                oView.OptionsBehavior.ReadOnly = True
-                oView.OptionsBehavior.Editable = False
-                oControl = oGrid
-
-            Case Else
-                Dim oTextEdit As New TextEdit With {
-                    .Name = pAttribute.ID,
-                    .[ReadOnly] = pIsReadOnly
-                }
-                oControl = oTextEdit
-
-        End Select
-
-        oControl.Tag = pAttribute
-
-        Return oControl
-    End Function
-End Class

GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.Designer.vb

@@ -0,0 +1,531 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class ctrlObjectPropertyDialog
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl ü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()
+        Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
+        Me.XtraTabPageObject = New DevExpress.XtraTab.XtraTabPage()
+        Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
+        Me.ProgressBarControl1 = New DevExpress.XtraEditors.ProgressBarControl()
+        Me.RootMetadata = New DevExpress.XtraLayout.LayoutControlGroup()
+        Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup()
+        Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup()
+        Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup()
+        Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.lbLifecycleStart = New DevExpress.XtraLayout.SimpleLabelItem()
+        Me.lbLifecycleEnd = New DevExpress.XtraLayout.SimpleLabelItem()
+        Me.XtraTabPageAttributes = New DevExpress.XtraTab.XtraTabPage()
+        Me.XtraTabPageAttributeHistory = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
+        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
+        Me.txtCreatedWho = New DevExpress.XtraEditors.TextEdit()
+        Me.TextEdit11 = New DevExpress.XtraEditors.TextEdit()
+        Me.txtAccessedWhen = New DevExpress.XtraEditors.TextEdit()
+        Me.txtObjectId = New DevExpress.XtraEditors.TextEdit()
+        Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit()
+        Me.txtCreatedWhen = New DevExpress.XtraEditors.TextEdit()
+        Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit()
+        Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.txtAccessedWho = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
+        Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.LayoutControl2 = New DevExpress.XtraLayout.LayoutControl()
+        Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
+        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabControl1.SuspendLayout()
+        Me.XtraTabPageObject.SuspendLayout()
+        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.LayoutControl1.SuspendLayout()
+        CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RootMetadata, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lbLifecycleStart, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lbLifecycleEnd, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPageAttributes.SuspendLayout()
+        Me.XtraTabPageAttributeHistory.SuspendLayout()
+        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextEdit11.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAccessedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControl2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'XtraTabControl1
+        '
+        Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.XtraTabControl1.HeaderLocation = DevExpress.XtraTab.TabHeaderLocation.Bottom
+        Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
+        Me.XtraTabControl1.Name = "XtraTabControl1"
+        Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageObject
+        Me.XtraTabControl1.Size = New System.Drawing.Size(505, 723)
+        Me.XtraTabControl1.TabIndex = 2
+        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageObject, Me.XtraTabPageAttributes, Me.XtraTabPageAttributeHistory})
+        '
+        'XtraTabPageObject
+        '
+        Me.XtraTabPageObject.Controls.Add(Me.LayoutControl1)
+        Me.XtraTabPageObject.Name = "XtraTabPageObject"
+        Me.XtraTabPageObject.Size = New System.Drawing.Size(503, 698)
+        Me.XtraTabPageObject.Text = "Objekt"
+        '
+        'LayoutControl1
+        '
+        Me.LayoutControl1.Controls.Add(Me.GridControl1)
+        Me.LayoutControl1.Controls.Add(Me.ProgressBarControl1)
+        Me.LayoutControl1.Controls.Add(Me.txtObjectId)
+        Me.LayoutControl1.Controls.Add(Me.txtCreatedWhen)
+        Me.LayoutControl1.Controls.Add(Me.txtCreatedWho)
+        Me.LayoutControl1.Controls.Add(Me.txtChangedWho)
+        Me.LayoutControl1.Controls.Add(Me.txtChangedWhen)
+        Me.LayoutControl1.Controls.Add(Me.txtAccessedWhen)
+        Me.LayoutControl1.Controls.Add(Me.TextEdit11)
+        Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.LayoutControl1.Location = New System.Drawing.Point(0, 0)
+        Me.LayoutControl1.Name = "LayoutControl1"
+        Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1068, 351, 650, 400)
+        Me.LayoutControl1.Root = Me.RootMetadata
+        Me.LayoutControl1.Size = New System.Drawing.Size(503, 698)
+        Me.LayoutControl1.TabIndex = 0
+        Me.LayoutControl1.Text = "LayoutControl1"
+        '
+        'ProgressBarControl1
+        '
+        Me.ProgressBarControl1.Location = New System.Drawing.Point(24, 656)
+        Me.ProgressBarControl1.Name = "ProgressBarControl1"
+        Me.ProgressBarControl1.Size = New System.Drawing.Size(455, 18)
+        Me.ProgressBarControl1.StyleController = Me.LayoutControl1
+        Me.ProgressBarControl1.TabIndex = 7
+        '
+        'RootMetadata
+        '
+        Me.RootMetadata.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
+        Me.RootMetadata.GroupBordersVisible = False
+        Me.RootMetadata.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup1, Me.LayoutControlGroup2, Me.LayoutControlGroup3})
+        Me.RootMetadata.Name = "Root"
+        Me.RootMetadata.Size = New System.Drawing.Size(503, 698)
+        Me.RootMetadata.TextVisible = False
+        '
+        'LayoutControlGroup1
+        '
+        Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2})
+        Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 232)
+        Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
+        Me.LayoutControlGroup1.Size = New System.Drawing.Size(483, 346)
+        Me.LayoutControlGroup1.Text = "Objekt Historie"
+        '
+        'LayoutControlGroup2
+        '
+        Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.EmptySpaceItem1, Me.LayoutControlItem1, Me.LayoutControlItem3, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.txtAccessedWho})
+        Me.LayoutControlGroup2.Location = New System.Drawing.Point(0, 0)
+        Me.LayoutControlGroup2.Name = "LayoutControlGroup2"
+        Me.LayoutControlGroup2.Size = New System.Drawing.Size(483, 232)
+        Me.LayoutControlGroup2.Text = "Eigenschaften"
+        '
+        'LayoutControlGroup3
+        '
+        Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem4, Me.lbLifecycleStart, Me.lbLifecycleEnd})
+        Me.LayoutControlGroup3.Location = New System.Drawing.Point(0, 578)
+        Me.LayoutControlGroup3.Name = "LayoutControlGroup3"
+        Me.LayoutControlGroup3.Size = New System.Drawing.Size(483, 100)
+        Me.LayoutControlGroup3.Text = "Lebenszyklus"
+        '
+        'LayoutControlItem4
+        '
+        Me.LayoutControlItem4.Control = Me.ProgressBarControl1
+        Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 33)
+        Me.LayoutControlItem4.Name = "LayoutControlItem4"
+        Me.LayoutControlItem4.Size = New System.Drawing.Size(459, 22)
+        Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0)
+        Me.LayoutControlItem4.TextVisible = False
+        '
+        'lbLifecycleStart
+        '
+        Me.lbLifecycleStart.AllowHotTrack = False
+        Me.lbLifecycleStart.Location = New System.Drawing.Point(0, 0)
+        Me.lbLifecycleStart.Name = "lbLifecycleStart"
+        Me.lbLifecycleStart.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
+        Me.lbLifecycleStart.Size = New System.Drawing.Size(229, 33)
+        Me.lbLifecycleStart.Text = "00.00.0000"
+        Me.lbLifecycleStart.TextSize = New System.Drawing.Size(70, 13)
+        '
+        'lbLifecycleEnd
+        '
+        Me.lbLifecycleEnd.AllowHotTrack = False
+        Me.lbLifecycleEnd.AppearanceItemCaption.Options.UseTextOptions = True
+        Me.lbLifecycleEnd.AppearanceItemCaption.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far
+        Me.lbLifecycleEnd.Location = New System.Drawing.Point(229, 0)
+        Me.lbLifecycleEnd.Name = "lbLifecycleEnd"
+        Me.lbLifecycleEnd.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
+        Me.lbLifecycleEnd.Size = New System.Drawing.Size(230, 33)
+        Me.lbLifecycleEnd.Text = "99.99.9999"
+        Me.lbLifecycleEnd.TextSize = New System.Drawing.Size(70, 13)
+        '
+        'XtraTabPageAttributes
+        '
+        Me.XtraTabPageAttributes.Controls.Add(Me.LayoutControl2)
+        Me.XtraTabPageAttributes.Name = "XtraTabPageAttributes"
+        Me.XtraTabPageAttributes.Size = New System.Drawing.Size(503, 698)
+        Me.XtraTabPageAttributes.Text = "Attribute"
+        '
+        'XtraTabPageAttributeHistory
+        '
+        Me.XtraTabPageAttributeHistory.Controls.Add(Me.GridControl2)
+        Me.XtraTabPageAttributeHistory.Name = "XtraTabPageAttributeHistory"
+        Me.XtraTabPageAttributeHistory.Size = New System.Drawing.Size(503, 698)
+        Me.XtraTabPageAttributeHistory.Text = "Attribut Historie"
+        '
+        'GridControl1
+        '
+        Me.GridControl1.Location = New System.Drawing.Point(24, 277)
+        Me.GridControl1.MainView = Me.GridView1
+        Me.GridControl1.Name = "GridControl1"
+        Me.GridControl1.Size = New System.Drawing.Size(455, 297)
+        Me.GridControl1.TabIndex = 9
+        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
+        '
+        'GridView1
+        '
+        Me.GridView1.GridControl = Me.GridControl1
+        Me.GridView1.Name = "GridView1"
+        '
+        'LayoutControlItem2
+        '
+        Me.LayoutControlItem2.Control = Me.GridControl1
+        Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0)
+        Me.LayoutControlItem2.Name = "LayoutControlItem2"
+        Me.LayoutControlItem2.Size = New System.Drawing.Size(459, 301)
+        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0)
+        Me.LayoutControlItem2.TextVisible = False
+        '
+        'EmptySpaceItem1
+        '
+        Me.EmptySpaceItem1.AllowHotTrack = False
+        Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 120)
+        Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
+        Me.EmptySpaceItem1.Size = New System.Drawing.Size(459, 67)
+        Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
+        '
+        'txtCreatedWho
+        '
+        Me.txtCreatedWho.Location = New System.Drawing.Point(338, 78)
+        Me.txtCreatedWho.Name = "txtCreatedWho"
+        Me.txtCreatedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
+        Me.txtCreatedWho.Properties.AppearanceReadOnly.Options.UseBackColor = True
+        Me.txtCreatedWho.Properties.ReadOnly = True
+        Me.txtCreatedWho.Size = New System.Drawing.Size(138, 20)
+        Me.txtCreatedWho.StyleController = Me.LayoutControl1
+        Me.txtCreatedWho.TabIndex = 8
+        '
+        'TextEdit11
+        '
+        Me.TextEdit11.Location = New System.Drawing.Point(338, 138)
+        Me.TextEdit11.Name = "TextEdit11"
+        Me.TextEdit11.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
+        Me.TextEdit11.Properties.AppearanceReadOnly.Options.UseBackColor = True
+        Me.TextEdit11.Properties.ReadOnly = True
+        Me.TextEdit11.Size = New System.Drawing.Size(138, 20)
+        Me.TextEdit11.StyleController = Me.LayoutControl1
+        Me.TextEdit11.TabIndex = 10
+        '
+        'txtAccessedWhen
+        '
+        Me.txtAccessedWhen.Location = New System.Drawing.Point(109, 138)
+        Me.txtAccessedWhen.Name = "txtAccessedWhen"
+        Me.txtAccessedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
+        Me.txtAccessedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True
+        Me.txtAccessedWhen.Properties.ReadOnly = True
+        Me.txtAccessedWhen.Size = New System.Drawing.Size(137, 20)
+        Me.txtAccessedWhen.StyleController = Me.LayoutControl1
+        Me.txtAccessedWhen.TabIndex = 6
+        '
+        'txtObjectId
+        '
+        Me.txtObjectId.Location = New System.Drawing.Point(109, 48)
+        Me.txtObjectId.Name = "txtObjectId"
+        Me.txtObjectId.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
+        Me.txtObjectId.Properties.AppearanceReadOnly.Options.UseBackColor = True
+        Me.txtObjectId.Properties.ReadOnly = True
+        Me.txtObjectId.Size = New System.Drawing.Size(367, 20)
+        Me.txtObjectId.StyleController = Me.LayoutControl1
+        Me.txtObjectId.TabIndex = 7
+        '
+        'txtChangedWhen
+        '
+        Me.txtChangedWhen.Location = New System.Drawing.Point(109, 108)
+        Me.txtChangedWhen.Name = "txtChangedWhen"
+        Me.txtChangedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
+        Me.txtChangedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True
+        Me.txtChangedWhen.Properties.ReadOnly = True
+        Me.txtChangedWhen.Size = New System.Drawing.Size(137, 20)
+        Me.txtChangedWhen.StyleController = Me.LayoutControl1
+        Me.txtChangedWhen.TabIndex = 5
+        '
+        'txtCreatedWhen
+        '
+        Me.txtCreatedWhen.Location = New System.Drawing.Point(109, 78)
+        Me.txtCreatedWhen.Name = "txtCreatedWhen"
+        Me.txtCreatedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
+        Me.txtCreatedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True
+        Me.txtCreatedWhen.Properties.ReadOnly = True
+        Me.txtCreatedWhen.Size = New System.Drawing.Size(137, 20)
+        Me.txtCreatedWhen.StyleController = Me.LayoutControl1
+        Me.txtCreatedWhen.TabIndex = 4
+        '
+        'txtChangedWho
+        '
+        Me.txtChangedWho.Location = New System.Drawing.Point(338, 108)
+        Me.txtChangedWho.Name = "txtChangedWho"
+        Me.txtChangedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
+        Me.txtChangedWho.Properties.AppearanceReadOnly.Options.UseBackColor = True
+        Me.txtChangedWho.Properties.ReadOnly = True
+        Me.txtChangedWho.Size = New System.Drawing.Size(138, 20)
+        Me.txtChangedWho.StyleController = Me.LayoutControl1
+        Me.txtChangedWho.TabIndex = 9
+        '
+        'LayoutControlItem1
+        '
+        Me.LayoutControlItem1.Control = Me.txtObjectId
+        Me.LayoutControlItem1.ControlAlignment = System.Drawing.ContentAlignment.TopLeft
+        Me.LayoutControlItem1.CustomizationFormText = "Objekt Id"
+        Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
+        Me.LayoutControlItem1.Name = "LayoutControlItem1"
+        Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
+        Me.LayoutControlItem1.Size = New System.Drawing.Size(459, 30)
+        Me.LayoutControlItem1.Text = "Objekt Id"
+        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(70, 13)
+        '
+        'LayoutControlItem3
+        '
+        Me.LayoutControlItem3.Control = Me.txtCreatedWhen
+        Me.LayoutControlItem3.ControlAlignment = System.Drawing.ContentAlignment.TopLeft
+        Me.LayoutControlItem3.CustomizationFormText = "Erstellt"
+        Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 30)
+        Me.LayoutControlItem3.Name = "LayoutControlItem3"
+        Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
+        Me.LayoutControlItem3.Size = New System.Drawing.Size(229, 30)
+        Me.LayoutControlItem3.Text = "Erstellt"
+        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(70, 13)
+        '
+        'LayoutControlItem5
+        '
+        Me.LayoutControlItem5.Control = Me.txtCreatedWho
+        Me.LayoutControlItem5.ControlAlignment = System.Drawing.ContentAlignment.TopLeft
+        Me.LayoutControlItem5.CustomizationFormText = "von"
+        Me.LayoutControlItem5.Location = New System.Drawing.Point(229, 30)
+        Me.LayoutControlItem5.Name = "LayoutControlItem5"
+        Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
+        Me.LayoutControlItem5.Size = New System.Drawing.Size(230, 30)
+        Me.LayoutControlItem5.Text = "von"
+        Me.LayoutControlItem5.TextSize = New System.Drawing.Size(70, 13)
+        '
+        'LayoutControlItem6
+        '
+        Me.LayoutControlItem6.Control = Me.txtChangedWho
+        Me.LayoutControlItem6.ControlAlignment = System.Drawing.ContentAlignment.TopLeft
+        Me.LayoutControlItem6.CustomizationFormText = "von"
+        Me.LayoutControlItem6.Location = New System.Drawing.Point(229, 60)
+        Me.LayoutControlItem6.Name = "LayoutControlItem6"
+        Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
+        Me.LayoutControlItem6.Size = New System.Drawing.Size(230, 30)
+        Me.LayoutControlItem6.Text = "von"
+        Me.LayoutControlItem6.TextSize = New System.Drawing.Size(70, 13)
+        '
+        'LayoutControlItem7
+        '
+        Me.LayoutControlItem7.Control = Me.txtChangedWhen
+        Me.LayoutControlItem7.ControlAlignment = System.Drawing.ContentAlignment.TopLeft
+        Me.LayoutControlItem7.CustomizationFormText = "Geändert"
+        Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 60)
+        Me.LayoutControlItem7.Name = "LayoutControlItem7"
+        Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
+        Me.LayoutControlItem7.Size = New System.Drawing.Size(229, 30)
+        Me.LayoutControlItem7.Text = "Geändert"
+        Me.LayoutControlItem7.TextSize = New System.Drawing.Size(70, 13)
+        '
+        'LayoutControlItem8
+        '
+        Me.LayoutControlItem8.Control = Me.txtAccessedWhen
+        Me.LayoutControlItem8.ControlAlignment = System.Drawing.ContentAlignment.TopLeft
+        Me.LayoutControlItem8.CustomizationFormText = "Letzter Zugriff"
+        Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 90)
+        Me.LayoutControlItem8.Name = "LayoutControlItem8"
+        Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
+        Me.LayoutControlItem8.Size = New System.Drawing.Size(229, 30)
+        Me.LayoutControlItem8.Text = "Letzter Zugriff"
+        Me.LayoutControlItem8.TextSize = New System.Drawing.Size(70, 13)
+        '
+        'txtAccessedWho
+        '
+        Me.txtAccessedWho.Control = Me.TextEdit11
+        Me.txtAccessedWho.ControlAlignment = System.Drawing.ContentAlignment.TopLeft
+        Me.txtAccessedWho.CustomizationFormText = "von"
+        Me.txtAccessedWho.Location = New System.Drawing.Point(229, 90)
+        Me.txtAccessedWho.Name = "txtAccessedWho"
+        Me.txtAccessedWho.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
+        Me.txtAccessedWho.Size = New System.Drawing.Size(230, 30)
+        Me.txtAccessedWho.Text = "von"
+        Me.txtAccessedWho.TextSize = New System.Drawing.Size(70, 13)
+        '
+        'GridControl2
+        '
+        Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridControl2.Location = New System.Drawing.Point(0, 0)
+        Me.GridControl2.MainView = Me.GridView2
+        Me.GridControl2.Name = "GridControl2"
+        Me.GridControl2.Size = New System.Drawing.Size(503, 698)
+        Me.GridControl2.TabIndex = 0
+        Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
+        '
+        'GridView2
+        '
+        Me.GridView2.GridControl = Me.GridControl2
+        Me.GridView2.Name = "GridView2"
+        '
+        'LayoutControl2
+        '
+        Me.LayoutControl2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.LayoutControl2.Location = New System.Drawing.Point(0, 0)
+        Me.LayoutControl2.Name = "LayoutControl2"
+        Me.LayoutControl2.Root = Me.Root
+        Me.LayoutControl2.Size = New System.Drawing.Size(503, 698)
+        Me.LayoutControl2.TabIndex = 0
+        Me.LayoutControl2.Text = "LayoutControl2"
+        '
+        'Root
+        '
+        Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
+        Me.Root.GroupBordersVisible = False
+        Me.Root.Name = "Root"
+        Me.Root.Size = New System.Drawing.Size(503, 698)
+        Me.Root.TextVisible = False
+        '
+        'ctrlObjectPropertyDialog
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.XtraTabControl1)
+        Me.Name = "ctrlObjectPropertyDialog"
+        Me.Size = New System.Drawing.Size(505, 723)
+        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabControl1.ResumeLayout(False)
+        Me.XtraTabPageObject.ResumeLayout(False)
+        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.LayoutControl1.ResumeLayout(False)
+        CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RootMetadata, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lbLifecycleStart, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lbLifecycleEnd, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabPageAttributes.ResumeLayout(False)
+        Me.XtraTabPageAttributeHistory.ResumeLayout(False)
+        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextEdit11.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAccessedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControl2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
+    Friend WithEvents XtraTabPageObject As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
+    Friend WithEvents ProgressBarControl1 As DevExpress.XtraEditors.ProgressBarControl
+    Friend WithEvents RootMetadata As DevExpress.XtraLayout.LayoutControlGroup
+    Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup
+    Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup
+    Friend WithEvents LayoutControlGroup3 As DevExpress.XtraLayout.LayoutControlGroup
+    Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents lbLifecycleStart As DevExpress.XtraLayout.SimpleLabelItem
+    Friend WithEvents lbLifecycleEnd As DevExpress.XtraLayout.SimpleLabelItem
+    Friend WithEvents XtraTabPageAttributes As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents XtraTabPageAttributeHistory As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
+    Friend WithEvents txtObjectId As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents txtCreatedWhen As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents txtCreatedWho As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents txtChangedWhen As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents txtAccessedWhen As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents TextEdit11 As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents txtAccessedWho As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents LayoutControl2 As DevExpress.XtraLayout.LayoutControl
+    Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
+End Class

GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.resx

@@ -0,0 +1,120 @@
+<?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>
+</root>

GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.vb

@@ -0,0 +1,7 @@
+Imports DevExpress.XtraTab
+
+Public Class ctrlObjectPropertyDialog
+    Private Sub ctrlObjectPropertyDialog_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+    End Sub
+End Class

GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb

@@ -135,7 +135,7 @@ Partial Class frmObjectPropertyDialog
         Me.TabFormControl1.Pages.Add(Me.TabPageAttributes)
         Me.TabFormControl1.Pages.Add(Me.TabPageObject)
         Me.TabFormControl1.Pages.Add(Me.TabPageHistory)
-        Me.TabFormControl1.SelectedPage = Me.TabPageAttributes
+        Me.TabFormControl1.SelectedPage = Me.TabPageObject
         Me.TabFormControl1.ShowAddPageButton = False
         Me.TabFormControl1.ShowTabCloseButtons = False
         Me.TabFormControl1.Size = New System.Drawing.Size(572, 71)
@@ -390,7 +390,7 @@ Partial Class frmObjectPropertyDialog
         Me.LayoutObject.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
         Me.LayoutObject.GroupBordersVisible = False
         Me.LayoutObject.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.SimpleSeparator1, Me.LayoutControlItem7, Me.LayoutControlGroup1, Me.LayoutControlGroup2})
-        Me.LayoutObject.Name = "LayoutObject"
+        Me.LayoutObject.Name = "Root"
         Me.LayoutObject.Size = New System.Drawing.Size(572, 534)
         Me.LayoutObject.TextVisible = False
         '
@@ -593,7 +593,7 @@ Partial Class frmObjectPropertyDialog
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(572, 605)
-        Me.Controls.Add(Me.TabFormContentContainer1)
+        Me.Controls.Add(Me.TabFormContentContainer2)
         Me.Controls.Add(Me.TabFormControl1)
         Me.IconOptions.SvgImage = CType(resources.GetObject("frmObjectPropertyDialog.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.Name = "frmObjectPropertyDialog"

GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb

@@ -19,7 +19,7 @@ Public Class frmObjectPropertyDialog
     Private ReadOnly Client As Client
     Private ReadOnly ObjectId As Int64
     Private ReadOnly DatabaseIDB As MSSQLServer
-    Private ReadOnly ControlManager As PropertyControls
+    Private ReadOnly ControlManager As AttributeControls
 
     Private ReadOnly Property LogConfig As LogConfig Implements IBaseForm.LogConfig
     Private ReadOnly Property Logger As Logger Implements IBaseForm.Logger
@@ -38,7 +38,9 @@ Public Class frmObjectPropertyDialog
         Client = pClient
         ObjectId = pObjectId
         DatabaseIDB = Environment.DatabaseIDB
-        ControlManager = New PropertyControls(LogConfig, DatabaseIDB)
+        ControlManager = New AttributeControls(LogConfig, Environment, pClient)
+        AddHandler ControlManager.EditValueChanged, AddressOf BaseEdit_EditValueChanged
+
         ErrorHandler = New BaseErrorHandler(LogConfig, Me)
     End Sub
 
@@ -74,37 +76,7 @@ Public Class frmObjectPropertyDialog
         End Try
     End Sub
 
-    Private Async Function GetAttributesForBusinessEntity(EntityId As Long) As Task(Of List(Of Attribute))
-        Try
-            Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE BE_ID = {EntityId} AND LANG_CODE = '{Environment.User.Language}'"
-            Dim oResult = Await Client.GetDatatableFromIDBAsync(oSQL)
 
-            If oResult.OK = False Then
-                Throw New ApplicationException($"Attributes for Business Entity {EntityId} could not be retrieved!")
-
-            ElseIf oResult.Table.Rows.Count = 0 Then
-                Throw New ApplicationException($"BusinessEntity {EntityId} does not have any attributes!")
-
-            Else
-                Dim oAttributes As New List(Of Attribute)
-
-                For Each oRow As DataRow In oResult.Table.Rows
-                    oAttributes.Add(New Attribute() With {
-                        .ID = oRow.Item("ATTR_ID"),
-                        .Title = oRow.Item("ATTR_TITLE"),
-                        .TypeID = oRow.Item("TYPE_ID"),
-                        .TypeName = oRow.Item("TYPE_NAME"),
-                        .IsSystem = Convert.ToBoolean(oRow.Item("SYS_ATTRIBUTE"))
-                    })
-                Next
-
-                Return oAttributes
-            End If
-        Catch ex As Exception
-            Logger.Error(ex)
-            Return New List(Of Attribute)
-        End Try
-    End Function
 
     Private Async Function GetBusinessEntitiesForObjectId(ObjectId As Long) As Task(Of List(Of Long))
         Try
@@ -161,22 +133,6 @@ Public Class frmObjectPropertyDialog
         Return oResult.Table
     End Function
 
-    Private Async Function GetAttributeValue(AttributeName As String, ObjectId As Long, Optional LanguageCode As String = "de-DE", Optional IsForeign As Boolean = False) As Task(Of Object)
-        Dim oIsForeign = IIf(IsForeign, 1, 0)
-        Dim oSQL = $"SELECT TERM_VALUE FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({ObjectId}, '{AttributeName}', '{LanguageCode}', {oIsForeign})"
-        Dim oResult = Await Client.GetScalarValueFromIDBAsync(oSQL)
-
-        Return oResult.Scalar
-    End Function
-
-    Private Async Function GetAttributeValueAsTable(AttributeName As String, ObjectId As Long, Optional LanguageCode As String = "de-DE", Optional IsForeign As Boolean = False) As Task(Of DataTable)
-        Dim oIsForeign = IIf(IsForeign, 1, 0)
-        Dim oSQL = $"SELECT TERM_VALUE FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({ObjectId}, '{AttributeName}', '{LanguageCode}', {oIsForeign})"
-        Dim oResult = Await Client.GetDatatableFromIDBAsync(oSQL)
-
-        Return oResult.Table
-    End Function
-
     Private Sub cmbBusinessEntity_EditValueChanged(sender As Object, e As EventArgs) Handles cmbBusinessEntity.EditValueChanged
         Load_Attributes()
     End Sub
@@ -189,38 +145,13 @@ Public Class frmObjectPropertyDialog
                 Exit Sub
             End If
 
-            Dim oAttributes = Await GetAttributesForBusinessEntity(oEntityId)
+            Dim oAttributes = Await ControlManager.GetAttributesForBusinessEntity(oEntityId)
 
             If oAttributes.Count = 0 Then
                 MsgBox($"Es konnten keine Attribute für das Objekt '{ObjectId}' geladen werden!", MsgBoxStyle.Critical, Text)
             End If
 
-            For Each oAttribute As Attribute In oAttributes
-                Dim oEditable = ShouldControlBeEditable(oAttribute)
-                Dim oControl = ControlManager.GetControlForAttribute(oAttribute, Not oEditable)
-                Dim oItem As LayoutControlItem = AttributeLayout.AddItem()
-
-                oItem.Text = oAttribute.Title
-                oItem.Name = oAttribute.Title
-                oItem.Control = oControl
-            Next
-
-            For Each oItem As LayoutControlItem In AttributeLayout.Items
-                If TypeOf oItem.Control Is BaseEdit Then
-                    Dim oValue = Await GetAttributeValue(oItem.Name, ObjectId)
-                    Dim oEdit = DirectCast(oItem.Control, BaseEdit)
-                    oEdit.EditValue = oValue
-
-                    AddHandler oEdit.EditValueChanged, AddressOf BaseEdit_EditValueChanged
-
-                ElseIf TypeOf oItem.Control Is GridControl Then
-                    Dim oValueTable = Await GetAttributeValueAsTable(oItem.Name, ObjectId)
-                    Dim oGrid = DirectCast(oItem.Control, GridControl)
-                    oGrid.DataSource = oValueTable
-
-
-                End If
-            Next
+            Await ControlManager.LoadControlsForAttributes(ObjectId, oAttributes, AttributeLayout)
         Catch ex As Exception
             Logger.Error(ex)
         End Try
@@ -240,14 +171,6 @@ Public Class frmObjectPropertyDialog
         End If
     End Sub
 
-    Private Function ShouldControlBeEditable(pAttribute As Attribute) As Boolean
-        If pAttribute.IsSystem Then
-            Return False
-        End If
-
-        Return True
-    End Function
-
     Private Function ShowAttributeHistory(pDatatable As DataTable) As Boolean
         Try
             GridValueHistory.DataSource = pDatatable
@@ -312,8 +235,4 @@ Public Class frmObjectPropertyDialog
             ErrorHandler.ShowErrorMessage(ex, "btnSave_ItemClick")
         End Try
     End Sub
-
-    Private Sub TabFormControl1_Click(sender As Object, e As EventArgs) Handles TabFormControl1.Click
-
-    End Sub
 End Class