MS

2022-02-09 11:51:01 +01:00
parent 607f7e6445
commit 90fabc1604
7 changed files with 798 additions and 220 deletions
--- a/GUIs.ZooFlow/Administration/frmAdmin_DoctypeConfig.Designer.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeConfig.Designer.vb
@@ -27,14 +27,17 @@ Partial Class frmAdmin_DoctypeConfig
        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
        Me.labelStatus = New DevExpress.XtraBars.BarStaticItem()
+        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
-        Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit()
+        Me.LookUpEdit1 = New DevExpress.XtraEditors.LookUpEdit()
        Me.TBIDB_DOCTYPE_HANDLINGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten()
+        Me.VWIDB_DOCTYPES_DEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit()
        Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit()
        Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit()
        Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit()
@@ -48,17 +51,19 @@ Partial Class frmAdmin_DoctypeConfig
        Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.TBIDB_DOCTYPE_HANDLINGTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_DOCTYPE_HANDLINGTableAdapter()
        Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager()
        Me.TBIDB_CATALOGTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_CATALOGTableAdapter()
-        Me.DoctypeTextBox = New System.Windows.Forms.TextBox()
-        Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.VWIDB_DOCTYPES_DETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPES_DETableAdapter()
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.LayoutControl1.SuspendLayout()
-        CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TBIDB_DOCTYPE_HANDLINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.VWIDB_DOCTYPES_DEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -71,19 +76,19 @@ Partial Class frmAdmin_DoctypeConfig
        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'RibbonControl1
        '
        Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.labelStatus})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.labelStatus, Me.BarButtonItem2})
        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 3
+        Me.RibbonControl1.MaxItemId = 4
        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(837, 160)
+        Me.RibbonControl1.Size = New System.Drawing.Size(874, 160)
        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
        '
        'BarButtonItem1
@@ -101,6 +106,13 @@ Partial Class frmAdmin_DoctypeConfig
        Me.labelStatus.Name = "labelStatus"
        Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
        '
+        'BarButtonItem2
+        '
+        Me.BarButtonItem2.Caption = "Hinzufügen"
+        Me.BarButtonItem2.Id = 3
+        Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem2.Name = "BarButtonItem2"
+        '
        'RibbonPage1
        '
        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
@@ -109,6 +121,7 @@ Partial Class frmAdmin_DoctypeConfig
        '
        'RibbonPageGroup1
        '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
        Me.RibbonPageGroup1.Text = "Aktionen"
@@ -116,10 +129,10 @@ Partial Class frmAdmin_DoctypeConfig
        'RibbonStatusBar1
        '
        Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 465)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 502)
        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(837, 22)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(874, 22)
        '
        'RibbonPage2
        '
@@ -128,7 +141,7 @@ Partial Class frmAdmin_DoctypeConfig
        '
        'LayoutControl1
        '
-        Me.LayoutControl1.Controls.Add(Me.DoctypeTextBox)
+        Me.LayoutControl1.Controls.Add(Me.LookUpEdit1)
        Me.LayoutControl1.Controls.Add(Me.TextEdit5)
        Me.LayoutControl1.Controls.Add(Me.TextEdit4)
        Me.LayoutControl1.Controls.Add(Me.TextEdit3)
@@ -139,20 +152,23 @@ Partial Class frmAdmin_DoctypeConfig
        Me.LayoutControl1.Location = New System.Drawing.Point(0, 160)
        Me.LayoutControl1.Name = "LayoutControl1"
        Me.LayoutControl1.Root = Me.Root
-        Me.LayoutControl1.Size = New System.Drawing.Size(837, 305)
+        Me.LayoutControl1.Size = New System.Drawing.Size(874, 342)
        Me.LayoutControl1.TabIndex = 2
        Me.LayoutControl1.Text = "LayoutControl1"
        '
-        'TextEdit5
+        'LookUpEdit1
        '
-        Me.TextEdit5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "CHANGED_WHEN", True))
-        Me.TextEdit5.Location = New System.Drawing.Point(568, 106)
-        Me.TextEdit5.MenuManager = Me.RibbonControl1
-        Me.TextEdit5.Name = "TextEdit5"
-        Me.TextEdit5.Properties.ReadOnly = True
-        Me.TextEdit5.Size = New System.Drawing.Size(254, 20)
-        Me.TextEdit5.StyleController = Me.LayoutControl1
-        Me.TextEdit5.TabIndex = 5
+        Me.LookUpEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "DOCTYPE", True))
+        Me.LookUpEdit1.Location = New System.Drawing.Point(400, 15)
+        Me.LookUpEdit1.MenuManager = Me.RibbonControl1
+        Me.LookUpEdit1.Name = "LookUpEdit1"
+        Me.LookUpEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.LookUpEdit1.Properties.DataSource = Me.VWIDB_DOCTYPES_DEBindingSource
+        Me.LookUpEdit1.Properties.DisplayMember = "Doctype"
+        Me.LookUpEdit1.Properties.ValueMember = "Doctype"
+        Me.LookUpEdit1.Size = New System.Drawing.Size(459, 20)
+        Me.LookUpEdit1.StyleController = Me.LayoutControl1
+        Me.LookUpEdit1.TabIndex = 11
        '
        'TBIDB_DOCTYPE_HANDLINGBindingSource
        '
@@ -164,6 +180,22 @@ Partial Class frmAdmin_DoctypeConfig
        Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten"
        Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
        '
+        'VWIDB_DOCTYPES_DEBindingSource
+        '
+        Me.VWIDB_DOCTYPES_DEBindingSource.DataMember = "VWIDB_DOCTYPES_DE"
+        Me.VWIDB_DOCTYPES_DEBindingSource.DataSource = Me.DSIDB_Stammdaten
+        '
+        'TextEdit5
+        '
+        Me.TextEdit5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "CHANGED_WHEN", True))
+        Me.TextEdit5.Location = New System.Drawing.Point(586, 106)
+        Me.TextEdit5.MenuManager = Me.RibbonControl1
+        Me.TextEdit5.Name = "TextEdit5"
+        Me.TextEdit5.Properties.ReadOnly = True
+        Me.TextEdit5.Size = New System.Drawing.Size(273, 20)
+        Me.TextEdit5.StyleController = Me.LayoutControl1
+        Me.TextEdit5.TabIndex = 5
+        '
        'TextEdit4
        '
        Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "CHANGED_WHO", True))
@@ -171,18 +203,18 @@ Partial Class frmAdmin_DoctypeConfig
        Me.TextEdit4.MenuManager = Me.RibbonControl1
        Me.TextEdit4.Name = "TextEdit4"
        Me.TextEdit4.Properties.ReadOnly = True
-        Me.TextEdit4.Size = New System.Drawing.Size(253, 20)
+        Me.TextEdit4.Size = New System.Drawing.Size(271, 20)
        Me.TextEdit4.StyleController = Me.LayoutControl1
        Me.TextEdit4.TabIndex = 10
        '
        'TextEdit3
        '
        Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "ADDED_WHEN", True))
-        Me.TextEdit3.Location = New System.Drawing.Point(568, 76)
+        Me.TextEdit3.Location = New System.Drawing.Point(586, 76)
        Me.TextEdit3.MenuManager = Me.RibbonControl1
        Me.TextEdit3.Name = "TextEdit3"
        Me.TextEdit3.Properties.ReadOnly = True
-        Me.TextEdit3.Size = New System.Drawing.Size(254, 20)
+        Me.TextEdit3.Size = New System.Drawing.Size(273, 20)
        Me.TextEdit3.StyleController = Me.LayoutControl1
        Me.TextEdit3.TabIndex = 9
        '
@@ -193,20 +225,19 @@ Partial Class frmAdmin_DoctypeConfig
        Me.TextEdit2.MenuManager = Me.RibbonControl1
        Me.TextEdit2.Name = "TextEdit2"
        Me.TextEdit2.Properties.ReadOnly = True
-        Me.TextEdit2.Size = New System.Drawing.Size(253, 20)
+        Me.TextEdit2.Size = New System.Drawing.Size(271, 20)
        Me.TextEdit2.StyleController = Me.LayoutControl1
        Me.TextEdit2.TabIndex = 8
        '
        'CHANGED_ACTIONComboBox
        '
-        Me.CHANGED_ACTIONComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "CHANGED_ACTION", True))
        Me.CHANGED_ACTIONComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "CHANGED_ACTION", True))
        Me.CHANGED_ACTIONComboBox.DataSource = Me.TBIDB_CATALOGBindingSource
        Me.CHANGED_ACTIONComboBox.DisplayMember = "CAT_STRING"
        Me.CHANGED_ACTIONComboBox.FormattingEnabled = True
        Me.CHANGED_ACTIONComboBox.Location = New System.Drawing.Point(160, 45)
        Me.CHANGED_ACTIONComboBox.Name = "CHANGED_ACTIONComboBox"
-        Me.CHANGED_ACTIONComboBox.Size = New System.Drawing.Size(662, 21)
+        Me.CHANGED_ACTIONComboBox.Size = New System.Drawing.Size(699, 21)
        Me.CHANGED_ACTIONComboBox.TabIndex = 7
        Me.CHANGED_ACTIONComboBox.ValueMember = "GUID"
        '
@@ -221,8 +252,10 @@ Partial Class frmAdmin_DoctypeConfig
        Me.TextEdit1.Location = New System.Drawing.Point(160, 15)
        Me.TextEdit1.MenuManager = Me.RibbonControl1
        Me.TextEdit1.Name = "TextEdit1"
+        Me.TextEdit1.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
+        Me.TextEdit1.Properties.AppearanceReadOnly.Options.UseBackColor = True
        Me.TextEdit1.Properties.ReadOnly = True
-        Me.TextEdit1.Size = New System.Drawing.Size(99, 20)
+        Me.TextEdit1.Size = New System.Drawing.Size(85, 20)
        Me.TextEdit1.StyleController = Me.LayoutControl1
        Me.TextEdit1.TabIndex = 4
        '
@@ -230,9 +263,9 @@ Partial Class frmAdmin_DoctypeConfig
        '
        Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
        Me.Root.GroupBordersVisible = False
-        Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem4, Me.LayoutControlItem2, Me.LayoutControlItem5, Me.LayoutControlItem3, Me.LayoutControlItem6, Me.LayoutControlItem8})
+        Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem4, Me.LayoutControlItem2, Me.LayoutControlItem5, Me.LayoutControlItem3, Me.LayoutControlItem6, Me.LayoutControlItem7})
        Me.Root.Name = "Root"
-        Me.Root.Size = New System.Drawing.Size(837, 305)
+        Me.Root.Size = New System.Drawing.Size(874, 342)
        Me.Root.TextVisible = False
        '
        'LayoutControlItem1
@@ -241,7 +274,7 @@ Partial Class frmAdmin_DoctypeConfig
        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(254, 30)
+        Me.LayoutControlItem1.Size = New System.Drawing.Size(240, 30)
        Me.LayoutControlItem1.Text = "ID"
        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(133, 13)
        '
@@ -251,7 +284,7 @@ Partial Class frmAdmin_DoctypeConfig
        Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 30)
        Me.LayoutControlItem4.Name = "LayoutControlItem4"
        Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutControlItem4.Size = New System.Drawing.Size(817, 31)
+        Me.LayoutControlItem4.Size = New System.Drawing.Size(854, 31)
        Me.LayoutControlItem4.Text = "Verhalten Datei geändert:"
        Me.LayoutControlItem4.TextSize = New System.Drawing.Size(133, 13)
        '
@@ -262,7 +295,7 @@ Partial Class frmAdmin_DoctypeConfig
        Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 61)
        Me.LayoutControlItem2.Name = "LayoutControlItem2"
        Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutControlItem2.Size = New System.Drawing.Size(408, 30)
+        Me.LayoutControlItem2.Size = New System.Drawing.Size(426, 30)
        Me.LayoutControlItem2.Text = "Erstellt wer"
        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(133, 13)
        '
@@ -272,30 +305,40 @@ Partial Class frmAdmin_DoctypeConfig
        Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 91)
        Me.LayoutControlItem5.Name = "LayoutControlItem5"
        Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutControlItem5.Size = New System.Drawing.Size(408, 194)
+        Me.LayoutControlItem5.Size = New System.Drawing.Size(426, 231)
        Me.LayoutControlItem5.Text = "Geändert wer"
        Me.LayoutControlItem5.TextSize = New System.Drawing.Size(133, 13)
        '
        'LayoutControlItem3
        '
        Me.LayoutControlItem3.Control = Me.TextEdit3
-        Me.LayoutControlItem3.Location = New System.Drawing.Point(408, 61)
+        Me.LayoutControlItem3.Location = New System.Drawing.Point(426, 61)
        Me.LayoutControlItem3.Name = "LayoutControlItem3"
        Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutControlItem3.Size = New System.Drawing.Size(409, 30)
+        Me.LayoutControlItem3.Size = New System.Drawing.Size(428, 30)
        Me.LayoutControlItem3.Text = "Erstellt wann"
        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(133, 13)
        '
        'LayoutControlItem6
        '
        Me.LayoutControlItem6.Control = Me.TextEdit5
-        Me.LayoutControlItem6.Location = New System.Drawing.Point(408, 91)
+        Me.LayoutControlItem6.Location = New System.Drawing.Point(426, 91)
        Me.LayoutControlItem6.Name = "LayoutControlItem6"
        Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutControlItem6.Size = New System.Drawing.Size(409, 194)
+        Me.LayoutControlItem6.Size = New System.Drawing.Size(428, 231)
        Me.LayoutControlItem6.Text = "Geändert wann"
        Me.LayoutControlItem6.TextSize = New System.Drawing.Size(133, 13)
        '
+        'LayoutControlItem7
+        '
+        Me.LayoutControlItem7.Control = Me.LookUpEdit1
+        Me.LayoutControlItem7.Location = New System.Drawing.Point(240, 0)
+        Me.LayoutControlItem7.Name = "LayoutControlItem7"
+        Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
+        Me.LayoutControlItem7.Size = New System.Drawing.Size(614, 30)
+        Me.LayoutControlItem7.Text = "Dokumentart"
+        Me.LayoutControlItem7.TextSize = New System.Drawing.Size(133, 13)
+        '
        'TBIDB_DOCTYPE_HANDLINGTableAdapter
        '
        Me.TBIDB_DOCTYPE_HANDLINGTableAdapter.ClearBeforeFill = True
@@ -317,30 +360,15 @@ Partial Class frmAdmin_DoctypeConfig
        '
        Me.TBIDB_CATALOGTableAdapter.ClearBeforeFill = True
        '
-        'DoctypeTextBox
+        'VWIDB_DOCTYPES_DETableAdapter
        '
-        Me.DoctypeTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "Doctype", True))
-        Me.DoctypeTextBox.Location = New System.Drawing.Point(414, 15)
-        Me.DoctypeTextBox.Name = "DoctypeTextBox"
-        Me.DoctypeTextBox.ReadOnly = True
-        Me.DoctypeTextBox.Size = New System.Drawing.Size(408, 20)
-        Me.DoctypeTextBox.TabIndex = 11
-        '
-        'LayoutControlItem8
-        '
-        Me.LayoutControlItem8.Control = Me.DoctypeTextBox
-        Me.LayoutControlItem8.Location = New System.Drawing.Point(254, 0)
-        Me.LayoutControlItem8.Name = "LayoutControlItem8"
-        Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutControlItem8.Size = New System.Drawing.Size(563, 30)
-        Me.LayoutControlItem8.Text = "Doctype:"
-        Me.LayoutControlItem8.TextSize = New System.Drawing.Size(133, 13)
+        Me.VWIDB_DOCTYPES_DETableAdapter.ClearBeforeFill = True
        '
        'frmAdmin_DoctypeConfig
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(837, 487)
+        Me.ClientSize = New System.Drawing.Size(874, 524)
        Me.Controls.Add(Me.LayoutControl1)
        Me.Controls.Add(Me.RibbonStatusBar1)
        Me.Controls.Add(Me.RibbonControl1)
@@ -352,9 +380,11 @@ Partial Class frmAdmin_DoctypeConfig
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.LayoutControl1.ResumeLayout(False)
-        CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TBIDB_DOCTYPE_HANDLINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.VWIDB_DOCTYPES_DEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
@@ -367,7 +397,7 @@ Partial Class frmAdmin_DoctypeConfig
        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -400,6 +430,9 @@ Partial Class frmAdmin_DoctypeConfig
    Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
    Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
    Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents DoctypeTextBox As TextBox
-    Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents VWIDB_DOCTYPES_DEBindingSource As BindingSource
+    Friend WithEvents VWIDB_DOCTYPES_DETableAdapter As DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPES_DETableAdapter
+    Friend WithEvents LookUpEdit1 As DevExpress.XtraEditors.LookUpEdit
+    Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
 End Class
--- a/GUIs.ZooFlow/Administration/frmAdmin_DoctypeConfig.resx
+++ b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeConfig.resx
@@ -156,6 +156,25 @@
        MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs
        NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg
        PC9nPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKcCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+        dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZCI+DQogICAgPHBhdGggZD0iTTI3LDE0aC05VjVj
+        MC0wLjUtMC41LTEtMS0xaC0yYy0wLjUsMC0xLDAuNS0xLDF2OUg1Yy0wLjUsMC0xLDAuNS0xLDF2MmMw
+        LDAuNSwwLjUsMSwxLDFoOXY5ICAgYzAsMC41LDAuNSwxLDEsMWgyYzAuNSwwLDEtMC41LDEtMXYtOWg5
+        YzAuNSwwLDEtMC41LDEtMXYtMkMyOCwxNC41LDI3LjUsMTQsMjcsMTR6IiBjbGFzcz0iR3JlZW4iIC8+
+        DQogIDwvZz4NCjwvc3ZnPgs=
 </value>
  </data>
  <metadata name="TBIDB_DOCTYPE_HANDLINGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -164,6 +183,9 @@
  <metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
+  <metadata name="VWIDB_DOCTYPES_DEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>233, 56</value>
+  </metadata>
  <metadata name="TBIDB_CATALOGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>918, 17</value>
  </metadata>
@@ -176,6 +198,9 @@
  <metadata name="TBIDB_CATALOGTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 56</value>
  </metadata>
+  <metadata name="VWIDB_DOCTYPES_DETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>485, 56</value>
+  </metadata>
  <data name="frmAdmin_DoctypeConfig.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
--- a/GUIs.ZooFlow/Administration/frmAdmin_DoctypeConfig.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeConfig.vb
@@ -31,11 +31,20 @@
    End Sub

    Private Sub frmAdmin_DoctypeConfig_Load(sender As Object, e As EventArgs) Handles Me.Load
+        'TODO: Diese Codezeile lädt Daten in die Tabelle "DSIDB_Stammdaten.VWIDB_DOCTYPES_DE". Sie können sie bei Bedarf verschieben oder entfernen.
+
        Try
            TBIDB_CATALOGTableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
            TBIDB_DOCTYPE_HANDLINGTableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
+            VWIDB_DOCTYPES_DETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
            Me.TBIDB_CATALOGTableAdapter.FillByDOCTYPE_CHANGED(Me.DSIDB_Stammdaten.TBIDB_CATALOG)
            Me.TBIDB_DOCTYPE_HANDLINGTableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLING, PrimaryKey)
+            Me.VWIDB_DOCTYPES_DETableAdapter.Fill(Me.DSIDB_Stammdaten.VWIDB_DOCTYPES_DE)
+            If IsInsert Then
+                Me.DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLING.ADDED_WHOColumn.DefaultValue = My.Application.User.UserName
+                TBIDB_DOCTYPE_HANDLINGBindingSource.AddNew()
+                TextEdit2.Text = My.Application.User.UserName
+            End If
        Catch ex As Exception

        End Try
@@ -69,4 +78,12 @@
        labelStatus.Caption = Message
        labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
    End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        Try
+            TBIDB_DOCTYPE_HANDLINGBindingSource.AddNew()
+        Catch ex As Exception
+
+        End Try
+    End Sub
 End Class