diff --git a/GUIs.ZooFlow/Administration/ClassDetailForm.vb b/GUIs.ZooFlow/Administration/ClassDetailForm.vb
index c3eef86a..3d9e3196 100644
--- a/GUIs.ZooFlow/Administration/ClassDetailForm.vb
+++ b/GUIs.ZooFlow/Administration/ClassDetailForm.vb
@@ -12,7 +12,7 @@ Public Class ClassDetailForm
Public ReadOnly Property DetailSettingsList As New Dictionary(Of String, DetailSettings) From {
{PAGE_IDB_ATTRIBUTES, New DetailSettings With {
.GridTitle = "Attribute", ' This will be shown above the Data Grid
- .NewRecordTitle = "Neues Attribut", ' This will be shown on the "New" Button
+ .NewRecordTitle = "New Attribute", ' This will be shown on the "New" Button
.[Module] = MODULE_IDB,
.Entity = PAGE_IDB_ATTRIBUTES ' This Key will be matched with the Entity Id from the Database
}},
@@ -36,13 +36,13 @@ Public Class ClassDetailForm
}},
{PAGE_GI_PROFILES, New DetailSettings With {
.GridTitle = "Global Indexer Profile",
- .NewRecordTitle = "New GLOBIX profile",
+ .NewRecordTitle = "New Globix profile",
.[Module] = MODULE_GI,
.Entity = PAGE_GI_PROFILES
}},
{PAGE_CW_PROFILES, New DetailSettings With {
.GridTitle = "Clipboard Watcher Profile",
- .NewRecordTitle = "New CW profile",
+ .NewRecordTitle = "New Clipwatcher profile",
.[Module] = MODULE_CW,
.Entity = PAGE_CW_PROFILES
}},
@@ -73,14 +73,14 @@ Public Class ClassDetailForm
.Entity = PAGE_IDB_DOCTYPE_BE
}},
{PAGE_USERS_USERLIST, New DetailSettings With {
- .GridTitle = "Benutzer Übersicht",
- .NewRecordTitle = "Neuer Benutzer",
+ .GridTitle = "User Overview",
+ .NewRecordTitle = "New User",
.[Module] = MODULE_USERS,
.Entity = PAGE_USERS_USERLIST
}},
{PAGE_USERS_GROUPLIST, New DetailSettings With {
- .GridTitle = "Gruppen Übersicht",
- .NewRecordTitle = "Neue Gruppe",
+ .GridTitle = "Group Overview",
+ .NewRecordTitle = "New Group",
.[Module] = MODULE_USERS,
.Entity = PAGE_USERS_GROUPLIST
}},
@@ -179,7 +179,7 @@ Public Class ClassDetailForm
oForm.ShowDialog()
Return True
Case PAGE_IDB_DOCTYPE_BE
- Dim oForm As New frmAdmin_Doctype(0)
+ Dim oForm As New frmAdmin_DoctypeBE()
oForm.ShowDialog()
Return True
diff --git a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.Designer.vb b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.Designer.vb
index 114a3f45..7c0811e3 100644
--- a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.Designer.vb
+++ b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.Designer.vb
@@ -46,8 +46,10 @@ Partial Class frmAdmin_Globix
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageProfile = New DevExpress.XtraTab.XtraTabPage()
Me.LayoutControlProfile = New DevExpress.XtraLayout.LayoutControl()
- Me.IDB_DOCTYPE_IDComboBox = New System.Windows.Forms.ComboBox()
+ Me.GridLookUpEdit1 = New DevExpress.XtraEditors.GridLookUpEdit()
Me.VWIDB_DOCTYPE_LANGUAGEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+ Me.GridLookUpEdit1View = New DevExpress.XtraGrid.Views.Grid.GridView()
+ Me.IDB_DOCTYPE_IDComboBox = New System.Windows.Forms.ComboBox()
Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
Me.IDB_OBJECT_STORE_IDComboBox = New System.Windows.Forms.ComboBox()
Me.VWIDB_OBJECT_STOREBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@@ -81,6 +83,7 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem28 = New DevExpress.XtraLayout.LayoutControlItem()
Me.EmptySpaceItem12 = New DevExpress.XtraLayout.EmptySpaceItem()
Me.LayoutControlItem61 = New DevExpress.XtraLayout.LayoutControlItem()
+ Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem()
Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageManIndexe = New DevExpress.XtraTab.XtraTabPage()
Me.LayoutControlManIndexe = New DevExpress.XtraLayout.LayoutControl()
@@ -245,9 +248,6 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem38 = New DevExpress.XtraLayout.LayoutControlItem()
Me.TBGI_REGEX_DOCTYPETableAdapter = New DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TBGI_REGEX_DOCTYPETableAdapter()
Me.VWIDB_DOCTYPE_LANGUAGETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPE_LANGUAGETableAdapter()
- Me.GridLookUpEdit1 = New DevExpress.XtraEditors.GridLookUpEdit()
- Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem()
- Me.GridLookUpEdit1View = New DevExpress.XtraGrid.Views.Grid.GridView()
SEQUENCELabel = New System.Windows.Forms.Label()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -258,7 +258,9 @@ Partial Class frmAdmin_Globix
Me.XtraTabPageProfile.SuspendLayout()
CType(Me.LayoutControlProfile, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControlProfile.SuspendLayout()
+ CType(Me.GridLookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWIDB_DOCTYPE_LANGUAGEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.GridLookUpEdit1View, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWIDB_OBJECT_STOREBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -288,6 +290,7 @@ Partial Class frmAdmin_Globix
CType(Me.LayoutControlItem28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.EmptySpaceItem12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem61, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl2.SuspendLayout()
Me.XtraTabPageManIndexe.SuspendLayout()
@@ -417,9 +420,6 @@ Partial Class frmAdmin_Globix
CType(Me.viewAvailableGroups, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RadioGroup1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem38, System.ComponentModel.ISupportInitialize).BeginInit()
- CType(Me.GridLookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
- CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit()
- CType(Me.GridLookUpEdit1View, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'SEQUENCELabel
@@ -597,6 +597,33 @@ Partial Class frmAdmin_Globix
Me.LayoutControlProfile.TabIndex = 0
Me.LayoutControlProfile.Text = "LayoutControl1"
'
+ 'GridLookUpEdit1
+ '
+ Me.GridLookUpEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "IDB_DOCTYPE_ID", True))
+ Me.GridLookUpEdit1.Location = New System.Drawing.Point(166, 76)
+ Me.GridLookUpEdit1.MenuManager = Me.RibbonControl1
+ Me.GridLookUpEdit1.Name = "GridLookUpEdit1"
+ Me.GridLookUpEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+ Me.GridLookUpEdit1.Properties.DataSource = Me.VWIDB_DOCTYPE_LANGUAGEBindingSource
+ Me.GridLookUpEdit1.Properties.DisplayMember = "Doctype"
+ Me.GridLookUpEdit1.Properties.PopupView = Me.GridLookUpEdit1View
+ Me.GridLookUpEdit1.Properties.ValueMember = "Doctype_ID"
+ Me.GridLookUpEdit1.Size = New System.Drawing.Size(921, 20)
+ Me.GridLookUpEdit1.StyleController = Me.LayoutControlProfile
+ Me.GridLookUpEdit1.TabIndex = 61
+ '
+ 'VWIDB_DOCTYPE_LANGUAGEBindingSource
+ '
+ Me.VWIDB_DOCTYPE_LANGUAGEBindingSource.DataMember = "VWIDB_DOCTYPE_LANGUAGE"
+ Me.VWIDB_DOCTYPE_LANGUAGEBindingSource.DataSource = Me.DSIDB_Stammdaten
+ '
+ 'GridLookUpEdit1View
+ '
+ Me.GridLookUpEdit1View.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
+ Me.GridLookUpEdit1View.Name = "GridLookUpEdit1View"
+ Me.GridLookUpEdit1View.OptionsSelection.EnableAppearanceFocusedCell = False
+ Me.GridLookUpEdit1View.OptionsView.ShowGroupPanel = False
+ '
'IDB_DOCTYPE_IDComboBox
'
Me.IDB_DOCTYPE_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_DOKUMENTARTBindingSource, "IDB_DOCTYPE_ID", True))
@@ -609,15 +636,10 @@ Partial Class frmAdmin_Globix
Me.IDB_DOCTYPE_IDComboBox.TabIndex = 60
Me.IDB_DOCTYPE_IDComboBox.ValueMember = "Doctype_ID"
'
- 'VWIDB_DOCTYPE_LANGUAGEBindingSource
- '
- Me.VWIDB_DOCTYPE_LANGUAGEBindingSource.DataMember = "VWIDB_DOCTYPE_LANGUAGE"
- Me.VWIDB_DOCTYPE_LANGUAGEBindingSource.DataSource = Me.DSIDB_Stammdaten
- '
'TextEdit1
'
Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ERSTELLTWANN", True))
- Me.TextEdit1.Location = New System.Drawing.Point(166, 251)
+ Me.TextEdit1.Location = New System.Drawing.Point(166, 257)
Me.TextEdit1.MenuManager = Me.RibbonControl1
Me.TextEdit1.Name = "TextEdit1"
Me.TextEdit1.Size = New System.Drawing.Size(379, 20)
@@ -631,7 +653,7 @@ Partial Class frmAdmin_Globix
Me.IDB_OBJECT_STORE_IDComboBox.DataSource = Me.VWIDB_OBJECT_STOREBindingSource
Me.IDB_OBJECT_STORE_IDComboBox.DisplayMember = "Objectstore"
Me.IDB_OBJECT_STORE_IDComboBox.FormattingEnabled = True
- Me.IDB_OBJECT_STORE_IDComboBox.Location = New System.Drawing.Point(166, 160)
+ Me.IDB_OBJECT_STORE_IDComboBox.Location = New System.Drawing.Point(166, 166)
Me.IDB_OBJECT_STORE_IDComboBox.Name = "IDB_OBJECT_STORE_IDComboBox"
Me.IDB_OBJECT_STORE_IDComboBox.Size = New System.Drawing.Size(379, 21)
Me.IDB_OBJECT_STORE_IDComboBox.TabIndex = 57
@@ -670,7 +692,7 @@ Partial Class frmAdmin_Globix
'GEAENDERTWANNTextBox
'
Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GEAENDERTWANN", True))
- Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(706, 251)
+ Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(706, 257)
Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox"
Me.GEAENDERTWANNTextBox.ReadOnly = True
Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(381, 20)
@@ -679,7 +701,7 @@ Partial Class frmAdmin_Globix
'TextEditErstelltWer
'
Me.TextEditErstelltWer.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ERSTELLTWER", True))
- Me.TextEditErstelltWer.Location = New System.Drawing.Point(166, 221)
+ Me.TextEditErstelltWer.Location = New System.Drawing.Point(166, 227)
Me.TextEditErstelltWer.MenuManager = Me.RibbonControl1
Me.TextEditErstelltWer.Name = "TextEditErstelltWer"
Me.TextEditErstelltWer.Size = New System.Drawing.Size(379, 20)
@@ -689,7 +711,7 @@ Partial Class frmAdmin_Globix
'TextEditGeandertWer
'
Me.TextEditGeandertWer.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GEANDERTWER", True))
- Me.TextEditGeandertWer.Location = New System.Drawing.Point(706, 221)
+ Me.TextEditGeandertWer.Location = New System.Drawing.Point(706, 227)
Me.TextEditGeandertWer.MenuManager = Me.RibbonControl1
Me.TextEditGeandertWer.Name = "TextEditGeandertWer"
Me.TextEditGeandertWer.Size = New System.Drawing.Size(381, 20)
@@ -699,7 +721,7 @@ Partial Class frmAdmin_Globix
'TextEditNamenkonvention
'
Me.TextEditNamenkonvention.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "NAMENKONVENTION", True))
- Me.TextEditNamenkonvention.Location = New System.Drawing.Point(166, 130)
+ Me.TextEditNamenkonvention.Location = New System.Drawing.Point(166, 136)
Me.TextEditNamenkonvention.MenuManager = Me.RibbonControl1
Me.TextEditNamenkonvention.Name = "TextEditNamenkonvention"
Me.TextEditNamenkonvention.Size = New System.Drawing.Size(662, 20)
@@ -709,7 +731,7 @@ Partial Class frmAdmin_Globix
'TextEditBeschreibung
'
Me.TextEditBeschreibung.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BESCHREIBUNG", True))
- Me.TextEditBeschreibung.Location = New System.Drawing.Point(166, 191)
+ Me.TextEditBeschreibung.Location = New System.Drawing.Point(166, 197)
Me.TextEditBeschreibung.MenuManager = Me.RibbonControl1
Me.TextEditBeschreibung.Name = "TextEditBeschreibung"
Me.TextEditBeschreibung.Size = New System.Drawing.Size(921, 20)
@@ -739,7 +761,7 @@ Partial Class frmAdmin_Globix
'ComboBoxEditDupl_handling
'
Me.ComboBoxEditDupl_handling.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "DUPLICATE_HANDLING", True))
- Me.ComboBoxEditDupl_handling.Location = New System.Drawing.Point(166, 100)
+ Me.ComboBoxEditDupl_handling.Location = New System.Drawing.Point(166, 106)
Me.ComboBoxEditDupl_handling.MenuManager = Me.RibbonControl1
Me.ComboBoxEditDupl_handling.Name = "ComboBoxEditDupl_handling"
Me.ComboBoxEditDupl_handling.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
@@ -752,7 +774,7 @@ Partial Class frmAdmin_Globix
'
Me.SimpleButtonNameconvention.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButtonNameconvention.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButtonNameconvention.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
- Me.SimpleButtonNameconvention.Location = New System.Drawing.Point(835, 127)
+ Me.SimpleButtonNameconvention.Location = New System.Drawing.Point(835, 133)
Me.SimpleButtonNameconvention.Name = "SimpleButtonNameconvention"
Me.SimpleButtonNameconvention.Size = New System.Drawing.Size(255, 22)
Me.SimpleButtonNameconvention.StyleController = Me.LayoutControlProfile
@@ -765,7 +787,7 @@ Partial Class frmAdmin_Globix
Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem3, Me.LayoutControlItem30, Me.LayoutControlItem20, Me.LayoutControlItem4, Me.EmptySpaceItem1, Me.LayoutControlItem22, Me.LayoutControlItem25, Me.EmptySpaceItem3, Me.LayoutControlItem26, Me.LayoutControlItem1, Me.LayoutControlItem32, Me.LayoutControlItem5, Me.LayoutControlItem36, Me.LayoutControlItem28, Me.EmptySpaceItem12, Me.LayoutControlItem61, Me.LayoutControlItem12})
Me.Root.Name = "Root"
- Me.Root.Size = New System.Drawing.Size(1102, 296)
+ Me.Root.Size = New System.Drawing.Size(1102, 302)
Me.Root.TextVisible = False
'
'LayoutControlItem10
@@ -784,7 +806,7 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem3.AppearanceItemCaption.Options.UseFont = True
Me.LayoutControlItem3.Control = Me.TextEditErstelltWer
Me.LayoutControlItem3.Enabled = False
- Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 206)
+ Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 212)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem3.Size = New System.Drawing.Size(540, 30)
@@ -794,7 +816,7 @@ Partial Class frmAdmin_Globix
'LayoutControlItem30
'
Me.LayoutControlItem30.Control = Me.TextEditNamenkonvention
- Me.LayoutControlItem30.Location = New System.Drawing.Point(0, 115)
+ Me.LayoutControlItem30.Location = New System.Drawing.Point(0, 121)
Me.LayoutControlItem30.Name = "LayoutControlItem30"
Me.LayoutControlItem30.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem30.Size = New System.Drawing.Size(823, 30)
@@ -846,7 +868,7 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem25.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LayoutControlItem25.AppearanceItemCaption.Options.UseFont = True
Me.LayoutControlItem25.Control = Me.IDB_OBJECT_STORE_IDComboBox
- Me.LayoutControlItem25.Location = New System.Drawing.Point(0, 145)
+ Me.LayoutControlItem25.Location = New System.Drawing.Point(0, 151)
Me.LayoutControlItem25.Name = "LayoutControlItem25"
Me.LayoutControlItem25.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem25.Size = New System.Drawing.Size(540, 31)
@@ -856,7 +878,7 @@ Partial Class frmAdmin_Globix
'EmptySpaceItem3
'
Me.EmptySpaceItem3.AllowHotTrack = False
- Me.EmptySpaceItem3.Location = New System.Drawing.Point(0, 266)
+ Me.EmptySpaceItem3.Location = New System.Drawing.Point(0, 272)
Me.EmptySpaceItem3.Name = "EmptySpaceItem3"
Me.EmptySpaceItem3.Size = New System.Drawing.Size(1082, 10)
Me.EmptySpaceItem3.TextSize = New System.Drawing.Size(0, 0)
@@ -864,7 +886,7 @@ Partial Class frmAdmin_Globix
'LayoutControlItem26
'
Me.LayoutControlItem26.Control = Me.ComboBoxEditDupl_handling
- Me.LayoutControlItem26.Location = New System.Drawing.Point(0, 85)
+ Me.LayoutControlItem26.Location = New System.Drawing.Point(0, 91)
Me.LayoutControlItem26.Name = "LayoutControlItem26"
Me.LayoutControlItem26.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem26.Size = New System.Drawing.Size(1082, 30)
@@ -874,7 +896,7 @@ Partial Class frmAdmin_Globix
'LayoutControlItem1
'
Me.LayoutControlItem1.Control = Me.SimpleButtonNameconvention
- Me.LayoutControlItem1.Location = New System.Drawing.Point(823, 115)
+ Me.LayoutControlItem1.Location = New System.Drawing.Point(823, 121)
Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Size = New System.Drawing.Size(259, 30)
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0)
@@ -886,7 +908,7 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem32.AppearanceItemCaption.Options.UseFont = True
Me.LayoutControlItem32.Control = Me.TextEdit1
Me.LayoutControlItem32.Enabled = False
- Me.LayoutControlItem32.Location = New System.Drawing.Point(0, 236)
+ Me.LayoutControlItem32.Location = New System.Drawing.Point(0, 242)
Me.LayoutControlItem32.Name = "LayoutControlItem32"
Me.LayoutControlItem32.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem32.Size = New System.Drawing.Size(540, 30)
@@ -899,7 +921,7 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem5.AppearanceItemCaption.Options.UseFont = True
Me.LayoutControlItem5.Control = Me.TextEditGeandertWer
Me.LayoutControlItem5.Enabled = False
- Me.LayoutControlItem5.Location = New System.Drawing.Point(540, 206)
+ Me.LayoutControlItem5.Location = New System.Drawing.Point(540, 212)
Me.LayoutControlItem5.Name = "LayoutControlItem5"
Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem5.Size = New System.Drawing.Size(542, 30)
@@ -912,7 +934,7 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem36.AppearanceItemCaption.Options.UseFont = True
Me.LayoutControlItem36.Control = Me.GEAENDERTWANNTextBox
Me.LayoutControlItem36.Enabled = False
- Me.LayoutControlItem36.Location = New System.Drawing.Point(540, 236)
+ Me.LayoutControlItem36.Location = New System.Drawing.Point(540, 242)
Me.LayoutControlItem36.Name = "LayoutControlItem36"
Me.LayoutControlItem36.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem36.Size = New System.Drawing.Size(542, 30)
@@ -922,7 +944,7 @@ Partial Class frmAdmin_Globix
'LayoutControlItem28
'
Me.LayoutControlItem28.Control = Me.TextEditBeschreibung
- Me.LayoutControlItem28.Location = New System.Drawing.Point(0, 176)
+ Me.LayoutControlItem28.Location = New System.Drawing.Point(0, 182)
Me.LayoutControlItem28.Name = "LayoutControlItem28"
Me.LayoutControlItem28.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem28.Size = New System.Drawing.Size(1082, 30)
@@ -932,7 +954,7 @@ Partial Class frmAdmin_Globix
'EmptySpaceItem12
'
Me.EmptySpaceItem12.AllowHotTrack = False
- Me.EmptySpaceItem12.Location = New System.Drawing.Point(540, 145)
+ Me.EmptySpaceItem12.Location = New System.Drawing.Point(540, 151)
Me.EmptySpaceItem12.Name = "EmptySpaceItem12"
Me.EmptySpaceItem12.Size = New System.Drawing.Size(542, 31)
Me.EmptySpaceItem12.TextSize = New System.Drawing.Size(0, 0)
@@ -947,6 +969,15 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem61.Text = "Dokumentart"
Me.LayoutControlItem61.TextSize = New System.Drawing.Size(139, 13)
'
+ 'LayoutControlItem12
+ '
+ Me.LayoutControlItem12.Control = Me.GridLookUpEdit1
+ Me.LayoutControlItem12.Location = New System.Drawing.Point(0, 61)
+ Me.LayoutControlItem12.Name = "LayoutControlItem12"
+ Me.LayoutControlItem12.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
+ Me.LayoutControlItem12.Size = New System.Drawing.Size(1082, 30)
+ Me.LayoutControlItem12.TextSize = New System.Drawing.Size(139, 13)
+ '
'XtraTabControl2
'
Me.XtraTabControl2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -2672,36 +2703,6 @@ Partial Class frmAdmin_Globix
'
Me.VWIDB_DOCTYPE_LANGUAGETableAdapter.ClearBeforeFill = True
'
- 'GridLookUpEdit1
- '
- Me.GridLookUpEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "IDB_DOCTYPE_ID", True))
- Me.GridLookUpEdit1.Location = New System.Drawing.Point(163, 73)
- Me.GridLookUpEdit1.MenuManager = Me.RibbonControl1
- Me.GridLookUpEdit1.Name = "GridLookUpEdit1"
- Me.GridLookUpEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
- Me.GridLookUpEdit1.Properties.DataSource = Me.VWIDB_DOCTYPE_LANGUAGEBindingSource
- Me.GridLookUpEdit1.Properties.DisplayMember = "Doctype"
- Me.GridLookUpEdit1.Properties.PopupView = Me.GridLookUpEdit1View
- Me.GridLookUpEdit1.Properties.ValueMember = "Doctype_ID"
- Me.GridLookUpEdit1.Size = New System.Drawing.Size(927, 20)
- Me.GridLookUpEdit1.StyleController = Me.LayoutControlProfile
- Me.GridLookUpEdit1.TabIndex = 61
- '
- 'LayoutControlItem12
- '
- Me.LayoutControlItem12.Control = Me.GridLookUpEdit1
- Me.LayoutControlItem12.Location = New System.Drawing.Point(0, 61)
- Me.LayoutControlItem12.Name = "LayoutControlItem12"
- Me.LayoutControlItem12.Size = New System.Drawing.Size(1082, 24)
- Me.LayoutControlItem12.TextSize = New System.Drawing.Size(139, 13)
- '
- 'GridLookUpEdit1View
- '
- Me.GridLookUpEdit1View.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
- Me.GridLookUpEdit1View.Name = "GridLookUpEdit1View"
- Me.GridLookUpEdit1View.OptionsSelection.EnableAppearanceFocusedCell = False
- Me.GridLookUpEdit1View.OptionsView.ShowGroupPanel = False
- '
'frmAdmin_Globix
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2724,7 +2725,9 @@ Partial Class frmAdmin_Globix
Me.XtraTabPageProfile.ResumeLayout(False)
CType(Me.LayoutControlProfile, System.ComponentModel.ISupportInitialize).EndInit()
Me.LayoutControlProfile.ResumeLayout(False)
+ CType(Me.GridLookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWIDB_DOCTYPE_LANGUAGEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.GridLookUpEdit1View, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWIDB_OBJECT_STOREBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2754,6 +2757,7 @@ Partial Class frmAdmin_Globix
CType(Me.LayoutControlItem28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.EmptySpaceItem12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem61, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl2.ResumeLayout(False)
Me.XtraTabPageManIndexe.ResumeLayout(False)
@@ -2883,9 +2887,6 @@ Partial Class frmAdmin_Globix
CType(Me.viewAvailableGroups, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RadioGroup1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem38, System.ComponentModel.ISupportInitialize).EndInit()
- CType(Me.GridLookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
- CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit()
- CType(Me.GridLookUpEdit1View, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.Designer.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.Designer.vb
index 77856184..e52f377d 100644
--- a/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.Designer.vb
+++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.Designer.vb
@@ -373,6 +373,7 @@ Partial Class frmAdmin_Doctype
Me.TableAdapterManager.TBIDB_CATALOG_USERTableAdapter = Nothing
Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing
Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Nothing
+ Me.TableAdapterManager.TBIDB_DOCTYPETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_LANGUAGETableAdapter = Me.TBIDB_LANGUAGETableAdapter
Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing
Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing
@@ -395,7 +396,7 @@ Partial Class frmAdmin_Doctype
Me.Name = "frmAdmin_Doctype"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
- Me.Text = "Doctypes"
+ Me.Text = "Dokumentarten Definition"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pnlAddDoctype, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlAddDoctype.ResumeLayout(False)
diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.Designer.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.Designer.vb
index db31d7e0..8782062e 100644
--- a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.Designer.vb
+++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.Designer.vb
@@ -28,8 +28,8 @@ Partial Class frmAdmin_IDBBERelations
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
- Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton()
- Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
+ Me.btnRemoveAttribute = New DevExpress.XtraEditors.SimpleButton()
+ Me.btnAddAttribute = New DevExpress.XtraEditors.SimpleButton()
Me.GridControlAttributesRelated = New DevExpress.XtraGrid.GridControl()
Me.GridViewRelatedAttributes = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridControlBusinessEntities = New DevExpress.XtraGrid.GridControl()
@@ -45,6 +45,9 @@ Partial Class frmAdmin_IDBBERelations
Me.SimpleLabelItem3 = New DevExpress.XtraLayout.SimpleLabelItem()
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
+ Me.bsiInfo = New DevExpress.XtraBars.BarStaticItem()
+ Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+ Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControl1.SuspendLayout()
@@ -68,29 +71,31 @@ Partial Class frmAdmin_IDBBERelations
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
- Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem})
+ Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiInfo, Me.BarButtonItem1})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
- Me.RibbonControl1.MaxItemId = 1
+ Me.RibbonControl1.MaxItemId = 3
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False]
- Me.RibbonControl1.Size = New System.Drawing.Size(1169, 160)
+ Me.RibbonControl1.Size = New System.Drawing.Size(1169, 158)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'RibbonPage1
'
+ Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Start"
'
'RibbonStatusBar1
'
- Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 824)
+ Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo)
+ Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 822)
Me.RibbonStatusBar1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
- Me.RibbonStatusBar1.Size = New System.Drawing.Size(1169, 22)
+ Me.RibbonStatusBar1.Size = New System.Drawing.Size(1169, 24)
'
'RibbonPage2
'
@@ -99,44 +104,44 @@ Partial Class frmAdmin_IDBBERelations
'
'LayoutControl1
'
- Me.LayoutControl1.Controls.Add(Me.SimpleButton2)
- Me.LayoutControl1.Controls.Add(Me.SimpleButton1)
+ Me.LayoutControl1.Controls.Add(Me.btnRemoveAttribute)
+ Me.LayoutControl1.Controls.Add(Me.btnAddAttribute)
Me.LayoutControl1.Controls.Add(Me.GridControlAttributesRelated)
Me.LayoutControl1.Controls.Add(Me.GridControlBusinessEntities)
Me.LayoutControl1.Controls.Add(Me.GridControlFreeAttributes)
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
- Me.LayoutControl1.Location = New System.Drawing.Point(0, 160)
+ Me.LayoutControl1.Location = New System.Drawing.Point(0, 158)
Me.LayoutControl1.Name = "LayoutControl1"
Me.LayoutControl1.Root = Me.Root
Me.LayoutControl1.Size = New System.Drawing.Size(1169, 664)
Me.LayoutControl1.TabIndex = 6
Me.LayoutControl1.Text = "LayoutControl1"
'
- 'SimpleButton2
+ 'btnRemoveAttribute
'
- Me.SimpleButton2.Appearance.Options.UseTextOptions = True
- Me.SimpleButton2.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near
- Me.SimpleButton2.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleRight
- Me.SimpleButton2.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
- Me.SimpleButton2.Location = New System.Drawing.Point(431, 616)
- Me.SimpleButton2.Name = "SimpleButton2"
- Me.SimpleButton2.RightToLeft = System.Windows.Forms.RightToLeft.No
- Me.SimpleButton2.Size = New System.Drawing.Size(386, 36)
- Me.SimpleButton2.StyleController = Me.LayoutControl1
- Me.SimpleButton2.TabIndex = 9
- Me.SimpleButton2.Text = "Attribut entfernen"
+ Me.btnRemoveAttribute.Appearance.Options.UseTextOptions = True
+ Me.btnRemoveAttribute.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near
+ Me.btnRemoveAttribute.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleRight
+ Me.btnRemoveAttribute.ImageOptions.SvgImage = CType(resources.GetObject("btnRemoveAttribute.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.btnRemoveAttribute.Location = New System.Drawing.Point(431, 616)
+ Me.btnRemoveAttribute.Name = "btnRemoveAttribute"
+ Me.btnRemoveAttribute.RightToLeft = System.Windows.Forms.RightToLeft.No
+ Me.btnRemoveAttribute.Size = New System.Drawing.Size(386, 36)
+ Me.btnRemoveAttribute.StyleController = Me.LayoutControl1
+ Me.btnRemoveAttribute.TabIndex = 9
+ Me.btnRemoveAttribute.Text = "Attribut entfernen"
'
- 'SimpleButton1
+ 'btnAddAttribute
'
- Me.SimpleButton1.Appearance.Options.UseTextOptions = True
- Me.SimpleButton1.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far
- Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
- Me.SimpleButton1.Location = New System.Drawing.Point(431, 576)
- Me.SimpleButton1.Name = "SimpleButton1"
- Me.SimpleButton1.Size = New System.Drawing.Size(386, 36)
- Me.SimpleButton1.StyleController = Me.LayoutControl1
- Me.SimpleButton1.TabIndex = 8
- Me.SimpleButton1.Text = "Attribut zuordnen"
+ Me.btnAddAttribute.Appearance.Options.UseTextOptions = True
+ Me.btnAddAttribute.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far
+ Me.btnAddAttribute.ImageOptions.SvgImage = CType(resources.GetObject("btnAddAttribute.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.btnAddAttribute.Location = New System.Drawing.Point(431, 576)
+ Me.btnAddAttribute.Name = "btnAddAttribute"
+ Me.btnAddAttribute.Size = New System.Drawing.Size(386, 36)
+ Me.btnAddAttribute.StyleController = Me.LayoutControl1
+ Me.btnAddAttribute.TabIndex = 8
+ Me.btnAddAttribute.Text = "Attribut zuordnen"
'
'GridControlAttributesRelated
'
@@ -277,7 +282,7 @@ Partial Class frmAdmin_IDBBERelations
'
'LayoutControlItem5
'
- Me.LayoutControlItem5.Control = Me.SimpleButton2
+ Me.LayoutControlItem5.Control = Me.btnRemoveAttribute
Me.LayoutControlItem5.Location = New System.Drawing.Point(419, 604)
Me.LayoutControlItem5.Name = "LayoutControlItem5"
Me.LayoutControlItem5.Size = New System.Drawing.Size(390, 40)
@@ -286,13 +291,35 @@ Partial Class frmAdmin_IDBBERelations
'
'LayoutControlItem4
'
- Me.LayoutControlItem4.Control = Me.SimpleButton1
+ Me.LayoutControlItem4.Control = Me.btnAddAttribute
Me.LayoutControlItem4.Location = New System.Drawing.Point(419, 564)
Me.LayoutControlItem4.Name = "LayoutControlItem4"
Me.LayoutControlItem4.Size = New System.Drawing.Size(390, 40)
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem4.TextVisible = False
'
+ 'bsiInfo
+ '
+ Me.bsiInfo.Caption = "BarStaticItem1"
+ Me.bsiInfo.Id = 1
+ Me.bsiInfo.ImageOptions.SvgImage = CType(resources.GetObject("BarStaticItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.bsiInfo.Name = "bsiInfo"
+ Me.bsiInfo.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+ Me.bsiInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
+ '
+ 'RibbonPageGroup1
+ '
+ Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
+ Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+ Me.RibbonPageGroup1.Text = "Funktionen"
+ '
+ 'BarButtonItem1
+ '
+ Me.BarButtonItem1.Caption = "Schliessen"
+ Me.BarButtonItem1.Id = 2
+ Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.BarButtonItem1.Name = "BarButtonItem1"
+ '
'frmAdmin_IDBBERelations
'
Me.AllowDrop = True
@@ -351,8 +378,11 @@ Partial Class frmAdmin_IDBBERelations
Friend WithEvents SimpleLabelItem1 As DevExpress.XtraLayout.SimpleLabelItem
Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents SimpleLabelItem3 As DevExpress.XtraLayout.SimpleLabelItem
- Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton
- Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
+ Friend WithEvents btnRemoveAttribute As DevExpress.XtraEditors.SimpleButton
+ Friend WithEvents btnAddAttribute As DevExpress.XtraEditors.SimpleButton
Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
+ Friend WithEvents bsiInfo As DevExpress.XtraBars.BarStaticItem
+ Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+ Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
End Class
diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.resx b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.resx
index 7c4beef5..fbec5bab 100644
--- a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.resx
+++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.resx
@@ -118,7 +118,44 @@
System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
-
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+ LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+ MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+ Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
+ MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
+ bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9
+ Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs
+ MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs
+ NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg
+ PC9nPg0KPC9zdmc+Cw==
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoBAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJIZWFkZXJBbmRGb290ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dy
+ b3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDoj
+ RDExQzFDO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRINUM0LjUsNCw0LDQuNSw0LDV2MjJjMCww
+ LjUsMC41LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVY1QzI4LDQuNSwyNy41LDQsMjcsNHogTTIyLDIw
+ bC0yLDJsLTQtNGwtNCw0ICBsLTItMmw0LTRsLTQtNGwyLTJsNCw0bDQtNGwyLDJsLTQsNEwyMiwyMHoi
+ IGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L
+
+
+
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
@@ -136,7 +173,7 @@
dmc+Cw==
-
+
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.vb
index 27139e7e..8a05b6d5 100644
--- a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.vb
+++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.vb
@@ -120,30 +120,56 @@ Public Class frmAdmin_IDBBERelations
End Try
End Function
- Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
- If AddAttr2BE(SELECTED_FREE_ATTRID, SELECTED_BEID) Then
- LoadFreeAttributes()
- LoadRelatedAttributes()
+ Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles btnAddAttribute.Click
+ SELECTED_FREE_ATTRID = 0
+ GetFreeAttributeID()
+
+ If SELECTED_FREE_ATTRID <> 0 Then
+ If AddAttr2BE(SELECTED_FREE_ATTRID, SELECTED_BEID) Then
+ LoadFreeAttributes()
+ LoadRelatedAttributes()
+ Show_bsiInfo("Attribute related")
+ End If
+ Else
+ Show_bsiInfo("Error in AttributeRelation - No AttributeID")
End If
+
End Sub
- Private Sub GridViewFreeAttributes_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewFreeAttributes.FocusedRowChanged
+ Private Sub GetFreeAttributeID()
Dim oID = GridViewFreeAttributes.GetFocusedRowCellValue(GridViewFreeAttributes.Columns("AttributeID"))
SELECTED_FREE_ATTRID = oID
End Sub
- Private Sub GridViewRelatedAttributes_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewRelatedAttributes.FocusedRowChanged
+ Private Sub GetRelatedAttributeGUID()
Dim oID = GridViewRelatedAttributes.GetFocusedRowCellValue(GridViewRelatedAttributes.Columns("RelID"))
SELECTED_ID2DELETE = oID
End Sub
- Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click
- If DeleteAttrfromBE(SELECTED_ID2DELETE) Then
- LoadFreeAttributes()
- LoadRelatedAttributes()
- SELECTED_ID2DELETE = 0
+ Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles btnRemoveAttribute.Click
+ SELECTED_ID2DELETE = 0
+ GetRelatedAttributeGUID()
+
+ If SELECTED_ID2DELETE <> 0 Then
+ If DeleteAttrfromBE(SELECTED_ID2DELETE) Then
+ LoadFreeAttributes()
+ LoadRelatedAttributes()
+ SELECTED_ID2DELETE = 0
+ Show_bsiInfo("Attribute removed")
+ End If
+ Else
+ Show_bsiInfo("Error in RemoveAttribute - No ID")
End If
+
+ End Sub
+ Sub Show_bsiInfo(pInfo As String)
+ bsiInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+ bsiInfo.Caption = pInfo & " - " & Now.ToString
+ End Sub
+
+ Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+ Me.Close()
End Sub
End Class
\ No newline at end of file
diff --git a/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.Designer.vb
new file mode 100644
index 00000000..d57bd536
--- /dev/null
+++ b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.Designer.vb
@@ -0,0 +1,365 @@
+ _
+Partial Class frmAdmin_DoctypeBE
+ Inherits DevExpress.XtraBars.Ribbon.RibbonForm
+
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+ _
+ 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.
+ _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_DoctypeBE))
+ Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+ Me.bsiInfo = New DevExpress.XtraBars.BarStaticItem()
+ Me.BarButtonItem1 = 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.btnRemoveDoctype = New DevExpress.XtraEditors.SimpleButton()
+ Me.btnAddDoctype = New DevExpress.XtraEditors.SimpleButton()
+ Me.GridControlRelatedDoctypes = New DevExpress.XtraGrid.GridControl()
+ Me.GridViewRelatedDoctypes = New DevExpress.XtraGrid.Views.Grid.GridView()
+ Me.GridControlDoctypesNonRelated = New DevExpress.XtraGrid.GridControl()
+ Me.GridViewDoctypesNonRelated = New DevExpress.XtraGrid.Views.Grid.GridView()
+ Me.GridControlBusinessEntities = New DevExpress.XtraGrid.GridControl()
+ Me.GridViewBusinessEntities = New DevExpress.XtraGrid.Views.Grid.GridView()
+ Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
+ Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
+ Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
+ Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
+ Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
+ Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
+ CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.LayoutControl1.SuspendLayout()
+ CType(Me.GridControlRelatedDoctypes, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.GridViewRelatedDoctypes, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.GridControlDoctypesNonRelated, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.GridViewDoctypesNonRelated, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.GridControlBusinessEntities, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.GridViewBusinessEntities, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'RibbonControl1
+ '
+ resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
+ Me.RibbonControl1.ExpandCollapseItem.Id = 0
+ Me.RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex"), Integer)
+ Me.RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex"), Integer)
+ Me.RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.RibbonControl1.ExpandCollapseItem.SearchTags = resources.GetString("RibbonControl1.ExpandCollapseItem.SearchTags")
+ Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiInfo, Me.BarButtonItem1})
+ Me.RibbonControl1.MaxItemId = 3
+ Me.RibbonControl1.Name = "RibbonControl1"
+ Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+ Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+ Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+ '
+ 'bsiInfo
+ '
+ resources.ApplyResources(Me.bsiInfo, "bsiInfo")
+ Me.bsiInfo.Id = 1
+ Me.bsiInfo.ImageOptions.ImageIndex = CType(resources.GetObject("bsiInfo.ImageOptions.ImageIndex"), Integer)
+ Me.bsiInfo.ImageOptions.LargeImageIndex = CType(resources.GetObject("bsiInfo.ImageOptions.LargeImageIndex"), Integer)
+ Me.bsiInfo.ImageOptions.SvgImage = CType(resources.GetObject("bsiInfo.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.bsiInfo.Name = "bsiInfo"
+ Me.bsiInfo.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+ Me.bsiInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
+ '
+ 'BarButtonItem1
+ '
+ resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
+ Me.BarButtonItem1.Id = 2
+ Me.BarButtonItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.ImageIndex"), Integer)
+ Me.BarButtonItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImageIndex"), Integer)
+ Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.BarButtonItem1.Name = "BarButtonItem1"
+ '
+ 'RibbonPage1
+ '
+ Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
+ Me.RibbonPage1.Name = "RibbonPage1"
+ resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
+ '
+ 'RibbonPageGroup1
+ '
+ Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
+ Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+ resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
+ '
+ 'RibbonStatusBar1
+ '
+ resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
+ Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo, True)
+ Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+ Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+ '
+ 'RibbonPage2
+ '
+ Me.RibbonPage2.Name = "RibbonPage2"
+ resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
+ '
+ 'LayoutControl1
+ '
+ resources.ApplyResources(Me.LayoutControl1, "LayoutControl1")
+ Me.LayoutControl1.Controls.Add(Me.btnRemoveDoctype)
+ Me.LayoutControl1.Controls.Add(Me.btnAddDoctype)
+ Me.LayoutControl1.Controls.Add(Me.GridControlRelatedDoctypes)
+ Me.LayoutControl1.Controls.Add(Me.GridControlDoctypesNonRelated)
+ Me.LayoutControl1.Controls.Add(Me.GridControlBusinessEntities)
+ Me.LayoutControl1.Name = "LayoutControl1"
+ Me.LayoutControl1.Root = Me.Root
+ '
+ 'btnRemoveDoctype
+ '
+ resources.ApplyResources(Me.btnRemoveDoctype, "btnRemoveDoctype")
+ Me.btnRemoveDoctype.Appearance.Options.UseTextOptions = True
+ Me.btnRemoveDoctype.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near
+ Me.btnRemoveDoctype.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleRight
+ Me.btnRemoveDoctype.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.btnRemoveDoctype.Name = "btnRemoveDoctype"
+ Me.btnRemoveDoctype.StyleController = Me.LayoutControl1
+ '
+ 'btnAddDoctype
+ '
+ resources.ApplyResources(Me.btnAddDoctype, "btnAddDoctype")
+ Me.btnAddDoctype.Appearance.Options.UseTextOptions = True
+ Me.btnAddDoctype.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far
+ Me.btnAddDoctype.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.btnAddDoctype.Name = "btnAddDoctype"
+ Me.btnAddDoctype.StyleController = Me.LayoutControl1
+ '
+ 'GridControlRelatedDoctypes
+ '
+ resources.ApplyResources(Me.GridControlRelatedDoctypes, "GridControlRelatedDoctypes")
+ Me.GridControlRelatedDoctypes.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlRelatedDoctypes.EmbeddedNavigator.AccessibleDescription")
+ Me.GridControlRelatedDoctypes.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlRelatedDoctypes.EmbeddedNavigator.AccessibleName")
+ Me.GridControlRelatedDoctypes.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlRelatedDoctypes.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
+ Me.GridControlRelatedDoctypes.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlRelatedDoctypes.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
+ Me.GridControlRelatedDoctypes.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlRelatedDoctypes.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
+ Me.GridControlRelatedDoctypes.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlRelatedDoctypes.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
+ Me.GridControlRelatedDoctypes.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlRelatedDoctypes.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
+ Me.GridControlRelatedDoctypes.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlRelatedDoctypes.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
+ Me.GridControlRelatedDoctypes.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlRelatedDoctypes.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
+ Me.GridControlRelatedDoctypes.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlRelatedDoctypes.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
+ Me.GridControlRelatedDoctypes.EmbeddedNavigator.ToolTip = resources.GetString("GridControlRelatedDoctypes.EmbeddedNavigator.ToolTip")
+ Me.GridControlRelatedDoctypes.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlRelatedDoctypes.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
+ Me.GridControlRelatedDoctypes.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlRelatedDoctypes.EmbeddedNavigator.ToolTipTitle")
+ Me.GridControlRelatedDoctypes.MainView = Me.GridViewRelatedDoctypes
+ Me.GridControlRelatedDoctypes.MenuManager = Me.RibbonControl1
+ Me.GridControlRelatedDoctypes.Name = "GridControlRelatedDoctypes"
+ Me.GridControlRelatedDoctypes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewRelatedDoctypes})
+ '
+ 'GridViewRelatedDoctypes
+ '
+ resources.ApplyResources(Me.GridViewRelatedDoctypes, "GridViewRelatedDoctypes")
+ Me.GridViewRelatedDoctypes.GridControl = Me.GridControlRelatedDoctypes
+ Me.GridViewRelatedDoctypes.Name = "GridViewRelatedDoctypes"
+ Me.GridViewRelatedDoctypes.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+ Me.GridViewRelatedDoctypes.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+ Me.GridViewRelatedDoctypes.OptionsBehavior.Editable = False
+ Me.GridViewRelatedDoctypes.OptionsSelection.EnableAppearanceFocusedCell = False
+ Me.GridViewRelatedDoctypes.OptionsView.ShowGroupPanel = False
+ Me.GridViewRelatedDoctypes.OptionsView.ShowViewCaption = True
+ '
+ 'GridControlDoctypesNonRelated
+ '
+ resources.ApplyResources(Me.GridControlDoctypesNonRelated, "GridControlDoctypesNonRelated")
+ Me.GridControlDoctypesNonRelated.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDoctypesNonRelated.EmbeddedNavigator.AccessibleDescription")
+ Me.GridControlDoctypesNonRelated.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDoctypesNonRelated.EmbeddedNavigator.AccessibleName")
+ Me.GridControlDoctypesNonRelated.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDoctypesNonRelated.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
+ Me.GridControlDoctypesNonRelated.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDoctypesNonRelated.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
+ Me.GridControlDoctypesNonRelated.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDoctypesNonRelated.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
+ Me.GridControlDoctypesNonRelated.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDoctypesNonRelated.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
+ Me.GridControlDoctypesNonRelated.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDoctypesNonRelated.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
+ Me.GridControlDoctypesNonRelated.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlDoctypesNonRelated.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
+ Me.GridControlDoctypesNonRelated.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDoctypesNonRelated.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
+ Me.GridControlDoctypesNonRelated.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDoctypesNonRelated.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
+ Me.GridControlDoctypesNonRelated.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDoctypesNonRelated.EmbeddedNavigator.ToolTip")
+ Me.GridControlDoctypesNonRelated.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDoctypesNonRelated.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
+ Me.GridControlDoctypesNonRelated.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDoctypesNonRelated.EmbeddedNavigator.ToolTipTitle")
+ Me.GridControlDoctypesNonRelated.MainView = Me.GridViewDoctypesNonRelated
+ Me.GridControlDoctypesNonRelated.MenuManager = Me.RibbonControl1
+ Me.GridControlDoctypesNonRelated.Name = "GridControlDoctypesNonRelated"
+ Me.GridControlDoctypesNonRelated.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoctypesNonRelated})
+ '
+ 'GridViewDoctypesNonRelated
+ '
+ resources.ApplyResources(Me.GridViewDoctypesNonRelated, "GridViewDoctypesNonRelated")
+ Me.GridViewDoctypesNonRelated.GridControl = Me.GridControlDoctypesNonRelated
+ Me.GridViewDoctypesNonRelated.Name = "GridViewDoctypesNonRelated"
+ Me.GridViewDoctypesNonRelated.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+ Me.GridViewDoctypesNonRelated.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+ Me.GridViewDoctypesNonRelated.OptionsBehavior.Editable = False
+ Me.GridViewDoctypesNonRelated.OptionsSelection.EnableAppearanceFocusedCell = False
+ Me.GridViewDoctypesNonRelated.OptionsView.ShowGroupPanel = False
+ Me.GridViewDoctypesNonRelated.OptionsView.ShowViewCaption = True
+ '
+ 'GridControlBusinessEntities
+ '
+ resources.ApplyResources(Me.GridControlBusinessEntities, "GridControlBusinessEntities")
+ Me.GridControlBusinessEntities.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlBusinessEntities.EmbeddedNavigator.AccessibleDescription")
+ Me.GridControlBusinessEntities.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlBusinessEntities.EmbeddedNavigator.AccessibleName")
+ Me.GridControlBusinessEntities.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlBusinessEntities.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
+ Me.GridControlBusinessEntities.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlBusinessEntities.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
+ Me.GridControlBusinessEntities.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlBusinessEntities.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
+ Me.GridControlBusinessEntities.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlBusinessEntities.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
+ Me.GridControlBusinessEntities.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlBusinessEntities.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
+ Me.GridControlBusinessEntities.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlBusinessEntities.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
+ Me.GridControlBusinessEntities.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlBusinessEntities.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
+ Me.GridControlBusinessEntities.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlBusinessEntities.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
+ Me.GridControlBusinessEntities.EmbeddedNavigator.ToolTip = resources.GetString("GridControlBusinessEntities.EmbeddedNavigator.ToolTip")
+ Me.GridControlBusinessEntities.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlBusinessEntities.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
+ Me.GridControlBusinessEntities.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlBusinessEntities.EmbeddedNavigator.ToolTipTitle")
+ Me.GridControlBusinessEntities.MainView = Me.GridViewBusinessEntities
+ Me.GridControlBusinessEntities.MenuManager = Me.RibbonControl1
+ Me.GridControlBusinessEntities.Name = "GridControlBusinessEntities"
+ Me.GridControlBusinessEntities.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewBusinessEntities})
+ '
+ 'GridViewBusinessEntities
+ '
+ resources.ApplyResources(Me.GridViewBusinessEntities, "GridViewBusinessEntities")
+ Me.GridViewBusinessEntities.GridControl = Me.GridControlBusinessEntities
+ Me.GridViewBusinessEntities.Name = "GridViewBusinessEntities"
+ Me.GridViewBusinessEntities.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+ Me.GridViewBusinessEntities.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+ Me.GridViewBusinessEntities.OptionsBehavior.Editable = False
+ Me.GridViewBusinessEntities.OptionsSelection.EnableAppearanceFocusedCell = False
+ Me.GridViewBusinessEntities.OptionsView.ShowGroupPanel = False
+ Me.GridViewBusinessEntities.OptionsView.ShowViewCaption = True
+ '
+ 'Root
+ '
+ resources.ApplyResources(Me.Root, "Root")
+ Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
+ Me.Root.GroupBordersVisible = False
+ Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5})
+ Me.Root.Name = "Root"
+ Me.Root.Size = New System.Drawing.Size(1099, 559)
+ Me.Root.TextVisible = False
+ '
+ 'LayoutControlItem1
+ '
+ resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1")
+ Me.LayoutControlItem1.Control = Me.GridControlBusinessEntities
+ Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
+ Me.LayoutControlItem1.Name = "LayoutControlItem1"
+ Me.LayoutControlItem1.Size = New System.Drawing.Size(361, 539)
+ Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0)
+ Me.LayoutControlItem1.TextVisible = False
+ '
+ 'LayoutControlItem2
+ '
+ resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2")
+ Me.LayoutControlItem2.Control = Me.GridControlDoctypesNonRelated
+ Me.LayoutControlItem2.Location = New System.Drawing.Point(361, 0)
+ Me.LayoutControlItem2.Name = "LayoutControlItem2"
+ Me.LayoutControlItem2.Size = New System.Drawing.Size(380, 459)
+ Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0)
+ Me.LayoutControlItem2.TextVisible = False
+ '
+ 'LayoutControlItem3
+ '
+ resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3")
+ Me.LayoutControlItem3.Control = Me.GridControlRelatedDoctypes
+ Me.LayoutControlItem3.Location = New System.Drawing.Point(741, 0)
+ Me.LayoutControlItem3.Name = "LayoutControlItem3"
+ Me.LayoutControlItem3.Size = New System.Drawing.Size(338, 459)
+ Me.LayoutControlItem3.TextSize = New System.Drawing.Size(0, 0)
+ Me.LayoutControlItem3.TextVisible = False
+ '
+ 'LayoutControlItem4
+ '
+ resources.ApplyResources(Me.LayoutControlItem4, "LayoutControlItem4")
+ Me.LayoutControlItem4.Control = Me.btnAddDoctype
+ Me.LayoutControlItem4.Location = New System.Drawing.Point(361, 459)
+ Me.LayoutControlItem4.Name = "LayoutControlItem4"
+ Me.LayoutControlItem4.Size = New System.Drawing.Size(718, 40)
+ Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0)
+ Me.LayoutControlItem4.TextVisible = False
+ '
+ 'LayoutControlItem5
+ '
+ resources.ApplyResources(Me.LayoutControlItem5, "LayoutControlItem5")
+ Me.LayoutControlItem5.Control = Me.btnRemoveDoctype
+ Me.LayoutControlItem5.Location = New System.Drawing.Point(361, 499)
+ Me.LayoutControlItem5.Name = "LayoutControlItem5"
+ Me.LayoutControlItem5.Size = New System.Drawing.Size(718, 40)
+ Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0)
+ Me.LayoutControlItem5.TextVisible = False
+ '
+ 'frmDoctypeBusinessEntities
+ '
+ resources.ApplyResources(Me, "$this")
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.Controls.Add(Me.LayoutControl1)
+ Me.Controls.Add(Me.RibbonStatusBar1)
+ Me.Controls.Add(Me.RibbonControl1)
+ Me.Name = "frmDoctypeBusinessEntities"
+ Me.Ribbon = Me.RibbonControl1
+ Me.StatusBar = Me.RibbonStatusBar1
+ CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.LayoutControl1.ResumeLayout(False)
+ CType(Me.GridControlRelatedDoctypes, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.GridViewRelatedDoctypes, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.GridControlDoctypesNonRelated, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.GridViewDoctypesNonRelated, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.GridControlBusinessEntities, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.GridViewBusinessEntities, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+
+ Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
+ Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
+ Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+ Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
+ Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
+ Friend WithEvents bsiInfo As DevExpress.XtraBars.BarStaticItem
+ Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+ Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
+ Friend WithEvents GridControlBusinessEntities As DevExpress.XtraGrid.GridControl
+ Friend WithEvents GridViewBusinessEntities As DevExpress.XtraGrid.Views.Grid.GridView
+ Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
+ Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
+ Friend WithEvents GridControlDoctypesNonRelated As DevExpress.XtraGrid.GridControl
+ Friend WithEvents GridViewDoctypesNonRelated As DevExpress.XtraGrid.Views.Grid.GridView
+ Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
+ Friend WithEvents GridControlRelatedDoctypes As DevExpress.XtraGrid.GridControl
+ Friend WithEvents GridViewRelatedDoctypes As DevExpress.XtraGrid.Views.Grid.GridView
+ Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
+ Friend WithEvents btnAddDoctype As DevExpress.XtraEditors.SimpleButton
+ Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
+ Friend WithEvents btnRemoveDoctype As DevExpress.XtraEditors.SimpleButton
+ Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
+End Class
diff --git a/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.de-DE.resx b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.de-DE.resx
new file mode 100644
index 00000000..99bed7e8
--- /dev/null
+++ b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.de-DE.resx
@@ -0,0 +1,220 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+ LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+ MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+ Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
+ MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
+ bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9
+ Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs
+ MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs
+ NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg
+ PC9nPg0KPC9zdmc+Cw==
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoBAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJIZWFkZXJBbmRGb290ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dy
+ b3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDoj
+ RDExQzFDO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRINUM0LjUsNCw0LDQuNSw0LDV2MjJjMCww
+ LjUsMC41LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVY1QzI4LDQuNSwyNy41LDQsMjcsNHogTTIyLDIw
+ bC0yLDJsLTQtNGwtNCw0ICBsLTItMmw0LTRsLTQtNGwyLTJsNCw0bDQtNGwyLDJsLTQsNEwyMiwyMHoi
+ IGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAF4CAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+ LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+ MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+ Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlByZXZpb3VzVmlldyI+DQogICAgPHBhdGggZD0i
+ TTE2LDJDOC4zLDIsMiw4LjMsMiwxNnM2LjMsMTQsMTQsMTRzMTQtNi4zLDE0LTE0UzIzLjcsMiwxNiwy
+ eiBNMjQsMThoLTh2NmwtOC04bDgtOHY2aDhWMTh6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9z
+ dmc+Cw==
+
+
+
+
+ No
+
+
+
+ 714, 36
+
+
+ Dokumentart entfernen
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFsCAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+ LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+ MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+ Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9Ik5leHRWaWV3Ij4NCiAgICA8cGF0aCBkPSJNMTYs
+ MkM4LjMsMiwyLDguMywyLDE2czYuMywxNCwxNCwxNHMxNC02LjMsMTQtMTRTMjMuNywyLDE2LDJ6IE0x
+ NiwyNHYtNkg4di00aDhWOGw4LDhMMTYsMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+
+ Cw==
+
+
+
+ 714, 36
+
+
+ Dokumentart zuordnen
+
+
+ Zugeordnete Dokumentarten
+
+
+ Nicht zugeordnete Dokumentarten
+
+
+ 357, 535
+
+
\ No newline at end of file
diff --git a/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.en.resx b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.en.resx
new file mode 100644
index 00000000..3363ac05
--- /dev/null
+++ b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.en.resx
@@ -0,0 +1,200 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+ LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+ MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+ Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
+ MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
+ bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9
+ Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs
+ MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs
+ NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg
+ PC9nPg0KPC9zdmc+Cw==
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoBAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJIZWFkZXJBbmRGb290ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dy
+ b3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDoj
+ RDExQzFDO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRINUM0LjUsNCw0LDQuNSw0LDV2MjJjMCww
+ LjUsMC41LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVY1QzI4LDQuNSwyNy41LDQsMjcsNHogTTIyLDIw
+ bC0yLDJsLTQtNGwtNCw0ICBsLTItMmw0LTRsLTQtNGwyLTJsNCw0bDQtNGwyLDJsLTQsNEwyMiwyMHoi
+ IGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAF4CAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+ LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+ MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+ Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlByZXZpb3VzVmlldyI+DQogICAgPHBhdGggZD0i
+ TTE2LDJDOC4zLDIsMiw4LjMsMiwxNnM2LjMsMTQsMTQsMTRzMTQtNi4zLDE0LTE0UzIzLjcsMiwxNiwy
+ eiBNMjQsMThoLTh2NmwtOC04bDgtOHY2aDhWMTh6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9z
+ dmc+Cw==
+
+
+
+ Remove Documenttype
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFsCAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+ LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+ MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+ Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9Ik5leHRWaWV3Ij4NCiAgICA8cGF0aCBkPSJNMTYs
+ MkM4LjMsMiwyLDguMywyLDE2czYuMywxNCwxNCwxNHMxNC02LjMsMTQtMTRTMjMuNywyLDE2LDJ6IE0x
+ NiwyNHYtNkg4di00aDhWOGw4LDhMMTYsMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+
+ Cw==
+
+
+
+ Relate Documenttype
+
+
\ No newline at end of file
diff --git a/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.resx b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.resx
new file mode 100644
index 00000000..b6a5f6ac
--- /dev/null
+++ b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.resx
@@ -0,0 +1,685 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+
+
+
+
+
+ -1
+
+
+
+ Center
+
+
+ DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ LayoutControl1
+
+
+
+ 376, 455
+
+
+ Top, Left
+
+
+ Dokumentart zuordnen
+
+
+ Inherit
+
+
+ bsiInfo
+
+
+
+
+
+ 7
+
+
+
+ None
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+ LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+ MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+ Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
+ MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
+ bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9
+ Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs
+ MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs
+ NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg
+ PC9nPg0KPC9zdmc+Cw==
+
+
+
+ 11
+
+
+ DevExpress.XtraEditors.SimpleButton, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ LayoutControlItem2
+
+
+ DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ Related Doctypes
+
+
+ 2
+
+
+ 4
+
+
+ RibbonStatusBar1
+
+
+ DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ 5
+
+
+ Relation Business Entity - Doctype
+
+
+ RibbonPage2
+
+
+ RibbonPageGroup1
+
+
+ DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ 753, 12
+
+
+ 6
+
+
+
+
+
+
+
+
+ 334, 455
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFsCAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+ LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+ MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+ Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9Ik5leHRWaWV3Ij4NCiAgICA8cGF0aCBkPSJNMTYs
+ MkM4LjMsMiwyLDguMywyLDE2czYuMywxNCwxNCwxNHMxNC02LjMsMTQtMTRTMjMuNywyLDE2LDJ6IE0x
+ NiwyNHYtNkg4di00aDhWOGw4LDhMMTYsMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+
+ Cw==
+
+
+
+ 1099, 559
+
+
+ -1
+
+
+ Default
+
+
+ 6, 13
+
+
+ Schliessen
+
+
+ LayoutControl1
+
+
+ Top, Left
+
+
+ $this
+
+
+ DevExpress.XtraLayout.LayoutControlGroup, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ 9
+
+
+ DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ LayoutControlItem3
+
+
+ LayoutControl1
+
+
+ LayoutControl1
+
+
+ None
+
+
+ DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ Aktionen
+
+
+ No
+
+
+ None
+
+
+ 5
+
+
+ $this
+
+
+
+
+
+ Tile
+
+
+ Inherit
+
+
+ GridViewDoctypesNonRelated
+
+
+ 0, 717
+
+
+
+
+
+ DevExpress.XtraBars.Ribbon.RibbonStatusBar, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ 373, 511
+
+
+ frmDoctypeBusinessEntities
+
+
+ DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ LayoutControl1
+
+
+ 0, 0
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoBAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJIZWFkZXJBbmRGb290ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dy
+ b3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDoj
+ RDExQzFDO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRINUM0LjUsNCw0LDQuNSw0LDV2MjJjMCww
+ LjUsMC41LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVY1QzI4LDQuNSwyNy41LDQsMjcsNHogTTIyLDIw
+ bC0yLDJsLTQtNGwtNCw0ICBsLTItMmw0LTRsLTQtNGwyLTJsNCw0bDQtNGwyLDJsLTQsNEwyMiwyMHoi
+ IGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L
+
+
+
+ DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ Inherit
+
+
+ 12, 511
+
+
+ Start
+
+
+ 8
+
+
+ Tile
+
+
+ LayoutControl1
+
+
+ 0, 0
+
+
+ 3, 2, 3, 2
+
+
+ Center
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAF4CAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+ LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+ MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+ Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlByZXZpb3VzVmlldyI+DQogICAgPHBhdGggZD0i
+ TTE2LDJDOC4zLDIsMiw4LjMsMiwxNnM2LjMsMTQsMTQsMTRzMTQtNi4zLDE0LTE0UzIzLjcsMiwxNiwy
+ eiBNMjQsMThoLTh2NmwtOC04bDgtOHY2aDhWMTh6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9z
+ dmc+Cw==
+
+
+
+ 11
+
+
+ 10
+
+
+ -1
+
+
+ DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ -1
+
+
+
+
+
+ 3, 2, 3, 2
+
+
+ GridControlDoctypesNonRelated
+
+
+ btnAddDoctype
+
+
+ 373, 12
+
+
+ -1
+
+
+ DevExpress.XtraEditors.SimpleButton, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ DevExpress.XtraEditors.SimpleButton, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+
+
+
+ 373, 471
+
+
+ btnRemoveDoctype
+
+
+ Business Entities
+
+
+ 2
+
+
+ GridViewBusinessEntities
+
+
+ 3, 2, 3, 2
+
+
+ 1099, 24
+
+
+
+
+
+ 12, 471
+
+
+ 0, 0
+
+
+
+
+
+ RibbonControl1
+
+
+
+
+
+ Root
+
+
+ 12, 12
+
+
+ Default
+
+
+ SimpleButton2
+
+
+ 1099, 158
+
+
+ 0, 0
+
+
+ DevExpress.XtraBars.Ribbon.RibbonForm, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ -1
+
+
+ Dokumentart entfernen
+
+
+ LayoutControlItem5
+
+
+ DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ 1
+
+
+ 4
+
+
+
+
+
+ 7
+
+
+ GridControlRelatedDoctypes
+
+
+ Fill
+
+
+ DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ RibbonPage1
+
+
+ DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ DevExpress.XtraEditors.SimpleButton, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ RibbonPage2
+
+
+
+
+
+ DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ Default
+
+
+ Top, Left
+
+
+ DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ 1075, 36
+
+
+ 1099, 741
+
+
+ 10
+
+
+ $this
+
+
+ Center
+
+
+ SimpleButton1
+
+
+ 0, 158
+
+
+ 0
+
+
+ LayoutControlItem1
+
+
+ LayoutControl1
+
+
+ DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ 8
+
+
+ DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+
+
+
+ sd
+
+
+ 3, 2, 3, 2
+
+
+ GridControlBusinessEntities
+
+
+ LayoutControl1
+
+
+ 1075, 36
+
+
+ BarButtonItem1
+
+
+ LayoutControlItem4
+
+
+
+
+
+ LayoutControl1
+
+
+
+
+
+ 357, 455
+
+
+ Tile
+
+
+ GridViewRelatedDoctypes
+
+
+ Non related Doctypes
+
+
+
+
+
+ True
+
+
+ de-DE
+
+
\ No newline at end of file
diff --git a/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.vb b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.vb
new file mode 100644
index 00000000..3f89d8c2
--- /dev/null
+++ b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.vb
@@ -0,0 +1,133 @@
+Public Class frmAdmin_DoctypeBE
+ Dim SELECTED_BEID As Integer
+ Private SELECTED_FREE_DoctypeID As Integer
+ Private SELECTED_ID2DELETE As Integer
+ Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+ Me.Close()
+ End Sub
+
+ Private Sub frmDoctypeBusinessEntities_Load(sender As Object, e As EventArgs) Handles Me.Load
+ Try
+ Dim oSQL = "Select Guid As ID,TITLE As BusinessEntity from TBIDB_BUSINESS_ENTITY"
+ Dim oDT As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
+ GridControlBusinessEntities.DataSource = oDT
+ Catch ex As Exception
+ ShowErrorMessage("Unexpected error in LoadingForm", ex)
+
+ End Try
+ End Sub
+
+ Private Sub GridViewBusinessEntities_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewBusinessEntities.FocusedRowChanged
+ Dim oBEID = GridViewBusinessEntities.GetFocusedRowCellValue(GridViewBusinessEntities.Columns("ID"))
+ SELECTED_BEID = oBEID
+ LoadFreeDoctypes()
+ LoadRelatedDoctypes()
+ End Sub
+
+ Sub LoadRelatedDoctypes()
+ Dim oDT = GetRelatedDoctypesByBEID(SELECTED_BEID)
+ If Not IsNothing(oDT) Then
+ GridControlRelatedDoctypes.DataSource = oDT
+ End If
+ End Sub
+ Sub LoadFreeDoctypes()
+ Dim oDT = GetAvailableDoctypesByBEID(SELECTED_BEID)
+ If Not IsNothing(oDT) Then
+ GridControlDoctypesNonRelated.DataSource = oDT
+ End If
+ End Sub
+
+ Private Function GetRelatedDoctypesByBEID(beID As Integer) As DataTable
+ Try
+ Dim dt As DataTable
+ Dim oSQL = $"select ID,Doctype from VWIDB_DOCTYPE_BUSINESS_ENTITY WHERE BE_ID = {beID} and LANG_CODE = '{My.Application.User.Language}'"
+ dt = My.DatabaseIDB.GetDatatable(oSQL)
+ Return dt
+ Catch ex As Exception
+ ShowErrorMessage($"Error in GetAvailableAttributesByBEID with groupId {beID}", ex)
+
+ Return Nothing
+ End Try
+ End Function
+ Private Function GetAvailableDoctypesByBEID(beID As Integer) As DataTable
+ Try
+ Dim dt As DataTable
+ Dim oSQL = $"select Doctype_ID as DoctypeID,Doctype from VWIDB_DOCTYPE_LANGUAGE where LANG_CODE = '{My.Application.User.Language}' AND Doctype_ID NOT IN (SELECT DOCTYPE_ID FROM TBIDB_DOCTYPE_BE WHERE BE_ID = {beID})"
+ dt = My.DatabaseIDB.GetDatatable(oSQL)
+ Return dt
+ Catch ex As Exception
+ ShowErrorMessage($"Error in GetAvailableAttributesByBEID with groupId {beID}", ex)
+
+ Return Nothing
+ End Try
+ End Function
+ Private Sub ShowErrorMessage(errorText As String, ex As Exception)
+ MsgBox(errorText & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Critical, "BE Relations")
+ End Sub
+
+ Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles btnAddDoctype.Click
+ SELECTED_FREE_DoctypeID = 0
+ Get_SelectedFree_DoctypeID()
+ If SELECTED_FREE_DoctypeID <> 0 Then
+ If AddDoctype2BE(SELECTED_FREE_DoctypeID, SELECTED_BEID) Then
+ LoadFreeDoctypes()
+ LoadRelatedDoctypes()
+ Show_bsiInfo("Doctype Added")
+ End If
+ Else
+ Show_bsiInfo("Error in Doctype Add - No DoctypeID")
+ End If
+
+ End Sub
+ Sub Show_bsiInfo(pInfo As String)
+ bsiInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+ bsiInfo.Caption = pInfo & " - " & Now.ToString
+ End Sub
+
+ Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles btnRemoveDoctype.Click
+ SELECTED_ID2DELETE = 0
+ GET_SelectedID2Delete()
+ If SELECTED_ID2DELETE <> 0 Then
+ If DeleteDoctypefromBE(SELECTED_ID2DELETE) Then
+ LoadFreeDoctypes()
+ LoadRelatedDoctypes()
+ SELECTED_ID2DELETE = 0
+ Show_bsiInfo("Doctype Removed")
+ End If
+ Else
+
+ Show_bsiInfo("Error in Remove Doctype - No ID")
+ End If
+
+ End Sub
+ Public Function AddDoctype2BE(Doctype_ID As Integer, BeId As Integer) As Boolean
+ Try
+ Dim oSQL = $"INSERT INTO TBIDB_DOCTYPE_BE (BE_ID,DOCTYPE_ID,ADDED_WHO)
+ VALUES ({BeId},{Doctype_ID},'{My.Application.User.UserName}')
+ "
+ Return My.DatabaseIDB.ExecuteNonQuery(oSQL)
+ Catch ex As Exception
+ ShowErrorMessage($"Error in AddAttr2BE", ex)
+ Return False
+ End Try
+ End Function
+ Public Function DeleteDoctypefromBE(ID As Integer) As Boolean
+ Try
+ Dim oSQL = $"DELETE FROM TBIDB_DOCTYPE_BE WHERE GUID = {ID}"
+ Return My.DatabaseIDB.ExecuteNonQuery(oSQL)
+ Catch ex As Exception
+ ShowErrorMessage($"Error in DeleteAttrfromBE", ex)
+ Return False
+ End Try
+ End Function
+
+ Private Sub Get_SelectedFree_DoctypeID()
+ Dim oID = GridViewDoctypesNonRelated.GetFocusedRowCellValue(GridViewDoctypesNonRelated.Columns("DoctypeID"))
+ SELECTED_FREE_DoctypeID = oID
+ End Sub
+
+ Private Sub GET_SelectedID2Delete()
+ Dim oID = GridViewRelatedDoctypes.GetFocusedRowCellValue(GridViewRelatedDoctypes.Columns("ID"))
+ SELECTED_ID2DELETE = oID
+ End Sub
+End Class
\ No newline at end of file
diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb
index 4124dc8c..319fa4df 100644
--- a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb
@@ -422,12 +422,12 @@ Partial Class frmAdmin_Start
Me.TreeListMenu.BeginUnboundLoad()
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() {"Relation Business Entity"}, 1, 9, 9, -1, "ATTRIBUTE_RELATIONS")
Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_BUSINESS_ENTITIES")
Me.TreeListMenu.AppendNode(New Object() {Nothing}, 3)
Me.TreeListMenu.AppendNode(New Object() {"Doctypes"}, 0, 10, 10, -1, "DOCTYPE_DEF")
- Me.TreeListMenu.AppendNode(New Object() {"Doctypes Config"}, 5, 10, 10, -1, "IDB_DOCTYPE_CONFIG")
- Me.TreeListMenu.AppendNode(New Object() {"Doctypes - Business Entities"}, 5, 9, 9, -1, "DOCTYPE_BE")
+ Me.TreeListMenu.AppendNode(New Object() {"Configurations"}, 5, 10, 10, -1, "IDB_DOCTYPE_CONFIG")
+ Me.TreeListMenu.AppendNode(New Object() {"Relation Business Entity"}, 5, 9, 9, -1, "DOCTYPE_BE")
Me.TreeListMenu.AppendNode(New Object() {"Object Stores"}, 0, "IDB_OBJECT_STORES")
Me.TreeListMenu.AppendNode(New Object() {"Global Indexer"}, -1, 6, 6, -1, "")
Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 9, 4, 4, -1, "GI_PROFILES")
diff --git a/GUIs.ZooFlow/ZooFlow.vbproj b/GUIs.ZooFlow/ZooFlow.vbproj
index 50637f6c..6eece590 100644
--- a/GUIs.ZooFlow/ZooFlow.vbproj
+++ b/GUIs.ZooFlow/ZooFlow.vbproj
@@ -156,6 +156,12 @@
+
+ frmAdmin_DoctypeBE.vb
+
+
+ Form
+
frmAdmin_Doctype.vb
@@ -428,6 +434,15 @@
frmAdmin_ClipboardWatcher.vb
+
+ frmAdmin_DoctypeBE.vb
+
+
+ frmAdmin_DoctypeBE.vb
+
+
+ frmAdmin_DoctypeBE.vb
+
frmAdmin_Doctype.vb