MS anpassungen

2022-02-15 17:28:32 +01:00
parent c2b81af556
commit 5f69002668
20 changed files with 707 additions and 484 deletions
--- a/GUIs.ZooFlow/Administration/frmAdmin_GlobixRelations.Designer.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_GlobixRelations.Designer.vb
@@ -26,7 +26,6 @@ Partial Class frmAdmin_GlobixRelations
        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
@@ -81,24 +80,20 @@ Partial Class frmAdmin_GlobixRelations
        Me.RibbonControl1.MaxItemId = 1
        Me.RibbonControl1.Name = "RibbonControl1"
        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
        Me.RibbonControl1.Size = New System.Drawing.Size(1087, 160)
        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
        '
        'RibbonPage1
        '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
        Me.RibbonPage1.Name = "RibbonPage1"
-        Me.RibbonPage1.Text = "RibbonPage1"
+        Me.RibbonPage1.Text = "Start"
        '
        'RibbonPageGroup1
        '
        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
-        Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
-        '
-        'RibbonPageGroup2
-        '
-        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
-        Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
+        Me.RibbonPageGroup1.Text = "Aktionen"
        '
        'RibbonStatusBar1
        '
@@ -333,7 +328,7 @@ Partial Class frmAdmin_GlobixRelations
        Me.XtraTabPage2.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
        Me.XtraTabPage2.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
        Me.XtraTabPage2.Name = "XtraTabPage2"
-        Me.XtraTabPage2.Size = New System.Drawing.Size(1085, 554)
+        Me.XtraTabPage2.Size = New System.Drawing.Size(1085, 553)
        Me.XtraTabPage2.Text = "Group-Relations"
        '
        'frmAdmin_GlobixRelations
@@ -378,7 +373,6 @@ Partial Class frmAdmin_GlobixRelations
    Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
    Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
-    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
    Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
--- a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb
@@ -41,7 +41,7 @@ Partial Class frmAdmin_IDBAttribute
        Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten()
        Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit()
        Me.SpinEdit1 = New DevExpress.XtraEditors.SpinEdit()
-        Me.CheckEdit1 = New DevExpress.XtraEditors.CheckEdit()
+        Me.CheckEditMulticontext = New DevExpress.XtraEditors.CheckEdit()
        Me.CheckEdit2 = New DevExpress.XtraEditors.CheckEdit()
        Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit()
        Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit()
@@ -65,6 +65,7 @@ Partial Class frmAdmin_IDBAttribute
        Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager()
        Me.VWIDB_BE_ATTRIBUTETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_BE_ATTRIBUTETableAdapter()
        Me.TBWH_ATTRIBUTE_TYPETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBWH_ATTRIBUTE_TYPETableAdapter()
+        Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.LayoutControl1.SuspendLayout()
@@ -73,7 +74,7 @@ Partial Class frmAdmin_IDBAttribute
        CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.CheckEditMulticontext.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -99,15 +100,15 @@ Partial Class frmAdmin_IDBAttribute
        'RibbonControl1
        '
        Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.labelStatus, Me.BarButtonItem3})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.labelStatus, Me.BarButtonItem3, Me.BarButtonItem4})
        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 7
+        Me.RibbonControl1.MaxItemId = 8
        Me.RibbonControl1.Name = "RibbonControl1"
        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
        Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
        Me.RibbonControl1.ShowToolbarCustomizeItem = False
-        Me.RibbonControl1.Size = New System.Drawing.Size(894, 131)
+        Me.RibbonControl1.Size = New System.Drawing.Size(894, 132)
        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
        Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
        '
@@ -150,6 +151,7 @@ Partial Class frmAdmin_IDBAttribute
        '
        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem4)
        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
        Me.RibbonPageGroup1.Text = "Daten"
        '
@@ -171,7 +173,7 @@ Partial Class frmAdmin_IDBAttribute
        Me.LayoutControl1.Controls.Add(Me.TextEdit1)
        Me.LayoutControl1.Controls.Add(Me.TextEdit2)
        Me.LayoutControl1.Controls.Add(Me.SpinEdit1)
-        Me.LayoutControl1.Controls.Add(Me.CheckEdit1)
+        Me.LayoutControl1.Controls.Add(Me.CheckEditMulticontext)
        Me.LayoutControl1.Controls.Add(Me.CheckEdit2)
        Me.LayoutControl1.Controls.Add(Me.TextEdit3)
        Me.LayoutControl1.Controls.Add(Me.txtAddedWho)
@@ -180,21 +182,21 @@ Partial Class frmAdmin_IDBAttribute
        Me.LayoutControl1.Controls.Add(Me.txtChangedWhen)
        Me.LayoutControl1.Controls.Add(Me.ComboBoxEdit1)
        Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.LayoutControl1.Location = New System.Drawing.Point(0, 131)
+        Me.LayoutControl1.Location = New System.Drawing.Point(0, 132)
        Me.LayoutControl1.Name = "LayoutControl1"
        Me.LayoutControl1.Root = Me.Root
-        Me.LayoutControl1.Size = New System.Drawing.Size(894, 408)
+        Me.LayoutControl1.Size = New System.Drawing.Size(894, 407)
        Me.LayoutControl1.TabIndex = 2
        Me.LayoutControl1.Text = "LayoutControl1"
        '
        'TextEdit1
        '
        Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ATTR_ID", True))
-        Me.TextEdit1.Location = New System.Drawing.Point(168, 20)
+        Me.TextEdit1.Location = New System.Drawing.Point(177, 20)
        Me.TextEdit1.MenuManager = Me.RibbonControl1
        Me.TextEdit1.Name = "TextEdit1"
        Me.TextEdit1.Properties.ReadOnly = True
-        Me.TextEdit1.Size = New System.Drawing.Size(706, 20)
+        Me.TextEdit1.Size = New System.Drawing.Size(697, 20)
        Me.TextEdit1.StyleController = Me.LayoutControl1
        Me.TextEdit1.TabIndex = 4
        '
@@ -211,10 +213,10 @@ Partial Class frmAdmin_IDBAttribute
        'TextEdit2
        '
        Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ATTR_TITLE", True))
-        Me.TextEdit2.Location = New System.Drawing.Point(168, 60)
+        Me.TextEdit2.Location = New System.Drawing.Point(177, 60)
        Me.TextEdit2.MenuManager = Me.RibbonControl1
        Me.TextEdit2.Name = "TextEdit2"
-        Me.TextEdit2.Size = New System.Drawing.Size(706, 20)
+        Me.TextEdit2.Size = New System.Drawing.Size(697, 20)
        Me.TextEdit2.StyleController = Me.LayoutControl1
        Me.TextEdit2.TabIndex = 5
        '
@@ -222,23 +224,24 @@ Partial Class frmAdmin_IDBAttribute
        '
        Me.SpinEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "VIEW_SEQUENCE", True))
        Me.SpinEdit1.EditValue = New Decimal(New Integer() {0, 0, 0, 0})
-        Me.SpinEdit1.Location = New System.Drawing.Point(604, 180)
+        Me.SpinEdit1.Location = New System.Drawing.Point(613, 180)
        Me.SpinEdit1.MenuManager = Me.RibbonControl1
        Me.SpinEdit1.Name = "SpinEdit1"
        Me.SpinEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.SpinEdit1.Size = New System.Drawing.Size(270, 20)
+        Me.SpinEdit1.Size = New System.Drawing.Size(261, 20)
        Me.SpinEdit1.StyleController = Me.LayoutControl1
        Me.SpinEdit1.TabIndex = 6
        '
-        'CheckEdit1
+        'CheckEditMulticontext
        '
-        Me.CheckEdit1.Location = New System.Drawing.Point(20, 220)
-        Me.CheckEdit1.MenuManager = Me.RibbonControl1
-        Me.CheckEdit1.Name = "CheckEdit1"
-        Me.CheckEdit1.Properties.Caption = "Attribut mehrzeilig"
-        Me.CheckEdit1.Size = New System.Drawing.Size(854, 18)
-        Me.CheckEdit1.StyleController = Me.LayoutControl1
-        Me.CheckEdit1.TabIndex = 7
+        Me.CheckEditMulticontext.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "MULTI_CONTEXT", True))
+        Me.CheckEditMulticontext.Location = New System.Drawing.Point(20, 220)
+        Me.CheckEditMulticontext.MenuManager = Me.RibbonControl1
+        Me.CheckEditMulticontext.Name = "CheckEditMulticontext"
+        Me.CheckEditMulticontext.Properties.Caption = "Attribut mehrzeilig"
+        Me.CheckEditMulticontext.Size = New System.Drawing.Size(854, 18)
+        Me.CheckEditMulticontext.StyleController = Me.LayoutControl1
+        Me.CheckEditMulticontext.TabIndex = 7
        '
        'CheckEdit2
        '
@@ -253,61 +256,61 @@ Partial Class frmAdmin_IDBAttribute
        '
        'TextEdit3
        '
-        Me.TextEdit3.Location = New System.Drawing.Point(168, 140)
+        Me.TextEdit3.Location = New System.Drawing.Point(177, 140)
        Me.TextEdit3.MenuManager = Me.RibbonControl1
        Me.TextEdit3.Name = "TextEdit3"
-        Me.TextEdit3.Size = New System.Drawing.Size(706, 20)
+        Me.TextEdit3.Size = New System.Drawing.Size(697, 20)
        Me.TextEdit3.StyleController = Me.LayoutControl1
        Me.TextEdit3.TabIndex = 9
        '
        'txtAddedWho
        '
        Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ADDED_WHO", True))
-        Me.txtAddedWho.Location = New System.Drawing.Point(168, 258)
+        Me.txtAddedWho.Location = New System.Drawing.Point(177, 258)
        Me.txtAddedWho.MenuManager = Me.RibbonControl1
        Me.txtAddedWho.Name = "txtAddedWho"
        Me.txtAddedWho.Properties.ReadOnly = True
-        Me.txtAddedWho.Size = New System.Drawing.Size(268, 20)
+        Me.txtAddedWho.Size = New System.Drawing.Size(259, 20)
        Me.txtAddedWho.StyleController = Me.LayoutControl1
        Me.txtAddedWho.TabIndex = 10
        '
        'txtAddedWhen
        '
        Me.txtAddedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ADDED_WHEN", True))
-        Me.txtAddedWhen.Location = New System.Drawing.Point(604, 258)
+        Me.txtAddedWhen.Location = New System.Drawing.Point(613, 258)
        Me.txtAddedWhen.MenuManager = Me.RibbonControl1
        Me.txtAddedWhen.Name = "txtAddedWhen"
        Me.txtAddedWhen.Properties.ReadOnly = True
-        Me.txtAddedWhen.Size = New System.Drawing.Size(270, 20)
+        Me.txtAddedWhen.Size = New System.Drawing.Size(261, 20)
        Me.txtAddedWhen.StyleController = Me.LayoutControl1
        Me.txtAddedWhen.TabIndex = 11
        '
        'txtChangedWho
        '
        Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "CHANGED_WHO", True))
-        Me.txtChangedWho.Location = New System.Drawing.Point(168, 298)
+        Me.txtChangedWho.Location = New System.Drawing.Point(177, 298)
        Me.txtChangedWho.MenuManager = Me.RibbonControl1
        Me.txtChangedWho.Name = "txtChangedWho"
        Me.txtChangedWho.Properties.ReadOnly = True
-        Me.txtChangedWho.Size = New System.Drawing.Size(268, 20)
+        Me.txtChangedWho.Size = New System.Drawing.Size(259, 20)
        Me.txtChangedWho.StyleController = Me.LayoutControl1
        Me.txtChangedWho.TabIndex = 12
        '
        'txtChangedWhen
        '
        Me.txtChangedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "CHANGED_WHEN", True))
-        Me.txtChangedWhen.Location = New System.Drawing.Point(604, 298)
+        Me.txtChangedWhen.Location = New System.Drawing.Point(613, 298)
        Me.txtChangedWhen.MenuManager = Me.RibbonControl1
        Me.txtChangedWhen.Name = "txtChangedWhen"
        Me.txtChangedWhen.Properties.ReadOnly = True
-        Me.txtChangedWhen.Size = New System.Drawing.Size(270, 20)
+        Me.txtChangedWhen.Size = New System.Drawing.Size(261, 20)
        Me.txtChangedWhen.StyleController = Me.LayoutControl1
        Me.txtChangedWhen.TabIndex = 13
        '
        'ComboBoxEdit1
        '
        Me.ComboBoxEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "TYPE_ID", True))
-        Me.ComboBoxEdit1.Location = New System.Drawing.Point(168, 100)
+        Me.ComboBoxEdit1.Location = New System.Drawing.Point(177, 100)
        Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1
        Me.ComboBoxEdit1.Name = "ComboBoxEdit1"
        Me.ComboBoxEdit1.Properties.BestFitMode = DevExpress.XtraEditors.Controls.BestFitMode.BestFit
@@ -317,7 +320,7 @@ Partial Class frmAdmin_IDBAttribute
        Me.ComboBoxEdit1.Properties.NullText = ""
        Me.ComboBoxEdit1.Properties.PopupSizeable = False
        Me.ComboBoxEdit1.Properties.ValueMember = "GUID"
-        Me.ComboBoxEdit1.Size = New System.Drawing.Size(706, 20)
+        Me.ComboBoxEdit1.Size = New System.Drawing.Size(697, 20)
        Me.ComboBoxEdit1.StyleController = Me.LayoutControl1
        Me.ComboBoxEdit1.TabIndex = 14
        '
@@ -332,7 +335,7 @@ Partial Class frmAdmin_IDBAttribute
        Me.Root.GroupBordersVisible = False
        Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem3, Me.LayoutControlItem11, Me.LayoutControlItem9, Me.LayoutControlItem5, Me.LayoutControlItem8, Me.LayoutControlItem10})
        Me.Root.Name = "Root"
-        Me.Root.Size = New System.Drawing.Size(894, 408)
+        Me.Root.Size = New System.Drawing.Size(894, 407)
        Me.Root.TextVisible = False
        '
        'LayoutControlItem1
@@ -361,7 +364,7 @@ Partial Class frmAdmin_IDBAttribute
        '
        'LayoutControlItem4
        '
-        Me.LayoutControlItem4.Control = Me.CheckEdit1
+        Me.LayoutControlItem4.Control = Me.CheckEditMulticontext
        Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 200)
        Me.LayoutControlItem4.Name = "LayoutControlItem4"
        Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
@@ -422,7 +425,7 @@ Partial Class frmAdmin_IDBAttribute
        Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 278)
        Me.LayoutControlItem9.Name = "LayoutControlItem9"
        Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem9.Size = New System.Drawing.Size(436, 110)
+        Me.LayoutControlItem9.Size = New System.Drawing.Size(436, 109)
        Me.LayoutControlItem9.Text = "Geändert Wer"
        Me.LayoutControlItem9.TextSize = New System.Drawing.Size(145, 13)
        '
@@ -458,7 +461,7 @@ Partial Class frmAdmin_IDBAttribute
        Me.LayoutControlItem10.Location = New System.Drawing.Point(436, 278)
        Me.LayoutControlItem10.Name = "LayoutControlItem10"
        Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
-        Me.LayoutControlItem10.Size = New System.Drawing.Size(438, 110)
+        Me.LayoutControlItem10.Size = New System.Drawing.Size(438, 109)
        Me.LayoutControlItem10.Text = "Geändert Wann"
        Me.LayoutControlItem10.TextSize = New System.Drawing.Size(145, 13)
        '
@@ -470,6 +473,7 @@ Partial Class frmAdmin_IDBAttribute
        Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing
        Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing
        Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing
+        Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Nothing
        Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing
        Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing
        Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
@@ -483,6 +487,13 @@ Partial Class frmAdmin_IDBAttribute
        '
        Me.TBWH_ATTRIBUTE_TYPETableAdapter.ClearBeforeFill = True
        '
+        'BarButtonItem4
+        '
+        Me.BarButtonItem4.Caption = "Löschen"
+        Me.BarButtonItem4.Id = 7
+        Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem4.Name = "BarButtonItem4"
+        '
        'frmAdmin_IDBAttribute
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -504,7 +515,7 @@ Partial Class frmAdmin_IDBAttribute
        CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.CheckEditMulticontext.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
@@ -546,7 +557,7 @@ Partial Class frmAdmin_IDBAttribute
    Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
    Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten
    Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager
-    Friend WithEvents CheckEdit1 As DevExpress.XtraEditors.CheckEdit
+    Friend WithEvents CheckEditMulticontext As DevExpress.XtraEditors.CheckEdit
    Friend WithEvents CheckEdit2 As DevExpress.XtraEditors.CheckEdit
    Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
    Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
@@ -569,4 +580,5 @@ Partial Class frmAdmin_IDBAttribute
    Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents TBWH_ATTRIBUTE_TYPEBindingSource As BindingSource
    Friend WithEvents TBWH_ATTRIBUTE_TYPETableAdapter As DSIDB_StammdatenTableAdapters.TBWH_ATTRIBUTE_TYPETableAdapter
+    Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
 End Class
--- a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.resx
+++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.resx
@@ -120,7 +120,7 @@
  <assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
  <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGkEAAAC77u/
        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@@ -142,6 +142,29 @@
        M0wyMi43LDhsLTIuNC0yLjQgICBjLTAuNC0wLjQtMC40LTEsMC0xLjNjMC40LTAuNCwxLTAuNCwxLjMs
        MEwyNCw2LjdsMi40LTIuNGMwLjQtMC40LDEtMC40LDEuMywwYzAuNCwwLjQsMC40LDEsMCwxLjNMMjUu
        Myw4TDI3LjcsMTAuNHoiIGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="BarButtonItem4.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJIDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
+        MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
+        bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRGVsZXRlIj4NCiAgICA8cGF0aCBk
+        PSJNMTguOCwxNmw4LjktOC45YzAuNC0wLjQsMC40LTEsMC0xLjRsLTEuNC0xLjRjLTAuNC0wLjQtMS0w
+        LjQtMS40LDBMMTYsMTMuMkw3LjEsNC4zYy0wLjQtMC40LTEtMC40LTEuNCwwICAgTDQuMyw1LjdjLTAu
+        NCwwLjQtMC40LDEsMCwxLjRsOC45LDguOWwtOC45LDguOWMtMC40LDAuNC0wLjQsMSwwLDEuNGwxLjQs
+        MS40YzAuNCwwLjQsMSwwLjQsMS40LDBsOC45LTguOWw4LjksOC45ICAgYzAuNCwwLjQsMSwwLjQsMS40
+        LDBsMS40LTEuNGMwLjQtMC40LDAuNC0xLDAtMS40TDE4LjgsMTZ6IiBjbGFzcz0iUmVkIiAvPg0KICA8
+        L2c+DQo8L3N2Zz4L
 </value>
  </data>
  <metadata name="VWIDB_BE_ATTRIBUTEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
--- a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb
@@ -20,7 +20,8 @@
            TBWH_ATTRIBUTE_TYPETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
            TBWH_ATTRIBUTE_TYPETableAdapter.Fill(DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPE)
            VWIDB_BE_ATTRIBUTETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
-            VWIDB_BE_ATTRIBUTETableAdapter.FillByAttributeId(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, PrimaryKey, 1)
+            FillAttribute()
+
            If IsInsert Then
                VWIDB_BE_ATTRIBUTEBindingSource.AddNew()
                DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.ADDED_WHOColumn.DefaultValue = My.Application.User.UserName
@@ -29,11 +30,14 @@
            ShowErrorMessage(ex)
        End Try
    End Sub
-
+    Private Sub FillAttribute()
+        VWIDB_BE_ATTRIBUTETableAdapter.FillByAttributeId(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, PrimaryKey, 1)
+    End Sub
    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
        ResetMessages()
        If SaveData() And HasChanges Then
            ShowStatus("Attribute saved!")
+            FillAttribute()
        End If
    End Sub

@@ -73,7 +77,7 @@
            If Not IsInsert Then
                Dim oUpdate As String = $"UPDATE TBIDB_ATTRIBUTE " &
                $"SET TITLE = '{TextEdit2.Text}', TYP_ID = {ComboBoxEdit1.EditValue}, VIEW_SEQUENCE = {SpinEdit1.Value}, VIEW_VISIBLE = '{CheckEdit2.Checked}'" &
-                $", COMMENT = '{TextEdit3.Text}', CHANGED_WHO = '{My.Application.User.UserName}' " &
+                $",MULTI_CONTEXT = '{CheckEditMulticontext.Checked}', COMMENT = '{TextEdit3.Text}', CHANGED_WHO = '{My.Application.User.UserName}' " &
                $"WHERE        (GUID = {TextEdit1.Text})"

                If My.DatabaseIDB.ExecuteNonQuery(oUpdate) = False Then
@@ -90,7 +94,7 @@
                    Return False
                End If
            End If
-            VWIDB_BE_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE)
+            '  VWIDB_BE_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE)
            'End If

            Return True
@@ -101,10 +105,13 @@
    End Function


-    Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
+    Public Function DeleteAttribute() As Boolean Implements IAdminForm.DeleteData
        Try
-            'VWIDB_BE_ATTRIBUTETableAdapter.Delete(PrimaryKey)
-            Return True
+            Dim oproc = $"EXEC PRIDB_DELETE_ATTRIBUTE {PrimaryKey}, '{My.Application.User.UserName}' "
+            If My.DatabaseIDB.ExecuteNonQuery(oproc) = True Then
+                Return True
+            End If
+
        Catch ex As Exception
            ShowErrorMessage(ex)
            Return False
@@ -112,8 +119,12 @@
    End Function

    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
-        If MsgBox($"Wollen Sie das Attribut [{PrimaryKey}] wirklich löschen?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
-            If DeleteData() Then
+
+    End Sub
+
+    Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+        If MsgBox($"Do You really want to delete the attribute [{PrimaryKey}]? All Metadata related to the Attribute will be deleted!", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
+            If DeleteAttribute() Then
                Close()
            End If
        End If
--- a/GUIs.ZooFlow/Administration/frmAdmin_IDBObjectStore.Designer.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBObjectStore.Designer.vb
@@ -181,7 +181,7 @@ Partial Class frmAdmin_IDBObjectStore
        '
        'CAT_TITLETextBox
        '
-        Me.CAT_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_CATALOGBindingSource, "CAT_TITLE", True))
+        Me.CAT_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_CATALOGBindingSource, "CAT_STRING", True))
        Me.CAT_TITLETextBox.Location = New System.Drawing.Point(308, 36)
        Me.CAT_TITLETextBox.Name = "CAT_TITLETextBox"
        Me.CAT_TITLETextBox.Size = New System.Drawing.Size(924, 20)
@@ -392,6 +392,7 @@ Partial Class frmAdmin_IDBObjectStore
        Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing
        Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing
        Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing
+        Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Nothing
        Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Me.TBIDB_OBJECT_STORETableAdapter
        Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing
        Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
--- a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb
@@ -418,7 +418,7 @@ Partial Class frmAdmin_Start
        Me.TreeListMenu.MenuManager = Me.RibbonControl1
        Me.TreeListMenu.Name = "TreeListMenu"
        Me.TreeListMenu.BeginUnboundLoad()
-        Me.TreeListMenu.AppendNode(New Object() {"Entities"}, -1, "")
+        Me.TreeListMenu.AppendNode(New Object() {"Configurations IM"}, -1, "")
        Me.TreeListMenu.AppendNode(New Object() {"Attribute"}, 0, 2, 2, -1, "IDB_ATTRIBUTES")
        Me.TreeListMenu.AppendNode(New Object() {"Attribute Relations"}, 1, 9, 9, -1, "ATTRIBUTE_RELATIONS")
        Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_BUSINESS_ENTITIES")
@@ -506,6 +506,7 @@ Partial Class frmAdmin_Start
        Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing
        Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing
        Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing
+        Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Nothing
        Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing
        Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing
        Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete