AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS diverses

Browse Source
This commit is contained in:
SchreiberM
2022-05-17 08:14:06 +02:00
parent 8f1ab41d64
commit c329f42cdd
23 changed files with 1467 additions and 148 deletions
Download Patch File Download Diff File Expand all files Collapse all files

180
GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.Designer.vb generated
View File

@@ -46,10 +46,8 @@ Partial Class frmAdmin_Globix
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageProfile = New DevExpress.XtraTab.XtraTabPage()
Me.LayoutControlProfile = New DevExpress.XtraLayout.LayoutControl()
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.VWIDB_DOCTYPE_LANGUAGEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
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)
@@ -80,7 +78,6 @@ 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.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem22 = New DevExpress.XtraLayout.LayoutControlItem()
Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl()
@@ -247,6 +244,7 @@ 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.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
SEQUENCELabel = New System.Windows.Forms.Label()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -257,9 +255,7 @@ 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,7 +284,6 @@ 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.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -498,7 +493,6 @@ Partial Class frmAdmin_Globix
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 752)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
@@ -577,7 +571,6 @@ Partial Class frmAdmin_Globix
'
'LayoutControlProfile
'
Me.LayoutControlProfile.Controls.Add(Me.GridLookUpEdit1)
Me.LayoutControlProfile.Controls.Add(Me.IDB_DOCTYPE_IDComboBox)
Me.LayoutControlProfile.Controls.Add(Me.TextEdit1)
Me.LayoutControlProfile.Controls.Add(Me.IDB_OBJECT_STORE_IDComboBox)
@@ -600,33 +593,6 @@ 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))
@@ -635,17 +601,22 @@ Partial Class frmAdmin_Globix
Me.IDB_DOCTYPE_IDComboBox.FormattingEnabled = True
Me.IDB_DOCTYPE_IDComboBox.Location = New System.Drawing.Point(166, 45)
Me.IDB_DOCTYPE_IDComboBox.Name = "IDB_DOCTYPE_IDComboBox"
Me.IDB_DOCTYPE_IDComboBox.Size = New System.Drawing.Size(380, 21)
Me.IDB_DOCTYPE_IDComboBox.Size = New System.Drawing.Size(388, 21)
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, 257)
Me.TextEdit1.Location = New System.Drawing.Point(166, 227)
Me.TextEdit1.MenuManager = Me.RibbonControl1
Me.TextEdit1.Name = "TextEdit1"
Me.TextEdit1.Size = New System.Drawing.Size(380, 20)
Me.TextEdit1.Size = New System.Drawing.Size(388, 20)
Me.TextEdit1.StyleController = Me.LayoutControlProfile
Me.TextEdit1.TabIndex = 59
'
@@ -656,9 +627,9 @@ 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, 166)
Me.IDB_OBJECT_STORE_IDComboBox.Location = New System.Drawing.Point(166, 136)
Me.IDB_OBJECT_STORE_IDComboBox.Name = "IDB_OBJECT_STORE_IDComboBox"
Me.IDB_OBJECT_STORE_IDComboBox.Size = New System.Drawing.Size(380, 21)
Me.IDB_OBJECT_STORE_IDComboBox.Size = New System.Drawing.Size(388, 21)
Me.IDB_OBJECT_STORE_IDComboBox.TabIndex = 57
Me.IDB_OBJECT_STORE_IDComboBox.ValueMember = "GUID"
'
@@ -670,10 +641,10 @@ Partial Class frmAdmin_Globix
'SEQUENCENumericUpDown
'
Me.SEQUENCENumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_INDEX_MANBindingSource, "SEQUENCE", True))
Me.SEQUENCENumericUpDown.Location = New System.Drawing.Point(395, 15)
Me.SEQUENCENumericUpDown.Location = New System.Drawing.Point(399, 15)
Me.SEQUENCENumericUpDown.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.SEQUENCENumericUpDown.Name = "SEQUENCENumericUpDown"
Me.SEQUENCENumericUpDown.Size = New System.Drawing.Size(34, 22)
Me.SEQUENCENumericUpDown.Size = New System.Drawing.Size(37, 22)
Me.SEQUENCENumericUpDown.TabIndex = 56
Me.SEQUENCENumericUpDown.Value = New Decimal(New Integer() {1, 0, 0, 0})
'
@@ -685,50 +656,50 @@ 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, 227)
Me.TextEditErstelltWer.Location = New System.Drawing.Point(166, 197)
Me.TextEditErstelltWer.MenuManager = Me.RibbonControl1
Me.TextEditErstelltWer.Name = "TextEditErstelltWer"
Me.TextEditErstelltWer.Size = New System.Drawing.Size(380, 20)
Me.TextEditErstelltWer.Size = New System.Drawing.Size(388, 20)
Me.TextEditErstelltWer.StyleController = Me.LayoutControlProfile
Me.TextEditErstelltWer.TabIndex = 44
'
'TextEditGeandertWer
'
Me.TextEditGeandertWer.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GEANDERTWER", True))
Me.TextEditGeandertWer.Location = New System.Drawing.Point(707, 227)
Me.TextEditGeandertWer.Location = New System.Drawing.Point(715, 197)
Me.TextEditGeandertWer.MenuManager = Me.RibbonControl1
Me.TextEditGeandertWer.Name = "TextEditGeandertWer"
Me.TextEditGeandertWer.Size = New System.Drawing.Size(380, 20)
Me.TextEditGeandertWer.Size = New System.Drawing.Size(389, 20)
Me.TextEditGeandertWer.StyleController = Me.LayoutControlProfile
Me.TextEditGeandertWer.TabIndex = 45
'
'TextEditNamenkonvention
'
Me.TextEditNamenkonvention.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "NAMENKONVENTION", True))
Me.TextEditNamenkonvention.Location = New System.Drawing.Point(166, 136)
Me.TextEditNamenkonvention.Location = New System.Drawing.Point(166, 106)
Me.TextEditNamenkonvention.MenuManager = Me.RibbonControl1
Me.TextEditNamenkonvention.Name = "TextEditNamenkonvention"
Me.TextEditNamenkonvention.Size = New System.Drawing.Size(662, 20)
Me.TextEditNamenkonvention.Size = New System.Drawing.Size(675, 20)
Me.TextEditNamenkonvention.StyleController = Me.LayoutControlProfile
Me.TextEditNamenkonvention.TabIndex = 46
'
'TextEditBeschreibung
'
Me.TextEditBeschreibung.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BESCHREIBUNG", True))
Me.TextEditBeschreibung.Location = New System.Drawing.Point(166, 197)
Me.TextEditBeschreibung.Location = New System.Drawing.Point(166, 167)
Me.TextEditBeschreibung.MenuManager = Me.RibbonControl1
Me.TextEditBeschreibung.Name = "TextEditBeschreibung"
Me.TextEditBeschreibung.Size = New System.Drawing.Size(921, 20)
Me.TextEditBeschreibung.Size = New System.Drawing.Size(938, 20)
Me.TextEditBeschreibung.StyleController = Me.LayoutControlProfile
Me.TextEditBeschreibung.TabIndex = 48
'
'TextEditBezeichnung
'
Me.TextEditBezeichnung.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BEZEICHNUNG", True))
Me.TextEditBezeichnung.Location = New System.Drawing.Point(707, 45)
Me.TextEditBezeichnung.Location = New System.Drawing.Point(715, 45)
Me.TextEditBezeichnung.MenuManager = Me.RibbonControl1
Me.TextEditBezeichnung.Name = "TextEditBezeichnung"
Me.TextEditBezeichnung.Size = New System.Drawing.Size(380, 20)
Me.TextEditBezeichnung.Size = New System.Drawing.Size(389, 20)
Me.TextEditBezeichnung.StyleController = Me.LayoutControlProfile
Me.TextEditBezeichnung.TabIndex = 51
'
@@ -738,19 +709,19 @@ Partial Class frmAdmin_Globix
Me.TextEditDoctypeID.Location = New System.Drawing.Point(166, 15)
Me.TextEditDoctypeID.MenuManager = Me.RibbonControl1
Me.TextEditDoctypeID.Name = "TextEditDoctypeID"
Me.TextEditDoctypeID.Size = New System.Drawing.Size(68, 20)
Me.TextEditDoctypeID.Size = New System.Drawing.Size(72, 20)
Me.TextEditDoctypeID.StyleController = Me.LayoutControlProfile
Me.TextEditDoctypeID.TabIndex = 52
'
'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, 106)
Me.ComboBoxEditDupl_handling.Location = New System.Drawing.Point(166, 76)
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)})
Me.ComboBoxEditDupl_handling.Properties.Items.AddRange(New Object() {"New version", "Default", "Question"})
Me.ComboBoxEditDupl_handling.Size = New System.Drawing.Size(921, 20)
Me.ComboBoxEditDupl_handling.Size = New System.Drawing.Size(938, 20)
Me.ComboBoxEditDupl_handling.StyleController = Me.LayoutControlProfile
Me.ComboBoxEditDupl_handling.TabIndex = 54
'
@@ -758,9 +729,9 @@ 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, 133)
Me.SimpleButtonNameconvention.Location = New System.Drawing.Point(848, 103)
Me.SimpleButtonNameconvention.Name = "SimpleButtonNameconvention"
Me.SimpleButtonNameconvention.Size = New System.Drawing.Size(255, 22)
Me.SimpleButtonNameconvention.Size = New System.Drawing.Size(259, 22)
Me.SimpleButtonNameconvention.StyleController = Me.LayoutControlProfile
Me.SimpleButtonNameconvention.TabIndex = 58
Me.SimpleButtonNameconvention.Text = "Editor"
@@ -768,21 +739,21 @@ Partial Class frmAdmin_Globix
'CheckEdit1
'
Me.CheckEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "AKTIV", True))
Me.CheckEdit1.Location = New System.Drawing.Point(439, 15)
Me.CheckEdit1.Location = New System.Drawing.Point(446, 15)
Me.CheckEdit1.MenuManager = Me.RibbonControl1
Me.CheckEdit1.Name = "CheckEdit1"
Me.CheckEdit1.Properties.Caption = "Aktiv"
Me.CheckEdit1.Size = New System.Drawing.Size(648, 20)
Me.CheckEdit1.Size = New System.Drawing.Size(658, 20)
Me.CheckEdit1.StyleController = Me.LayoutControlProfile
Me.CheckEdit1.TabIndex = 62
'
'TextEditGeaendertWann
'
Me.TextEditGeaendertWann.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "GEAENDERTWANN", True))
Me.TextEditGeaendertWann.Location = New System.Drawing.Point(707, 257)
Me.TextEditGeaendertWann.Location = New System.Drawing.Point(715, 227)
Me.TextEditGeaendertWann.MenuManager = Me.RibbonControl1
Me.TextEditGeaendertWann.Name = "TextEditGeaendertWann"
Me.TextEditGeaendertWann.Size = New System.Drawing.Size(380, 20)
Me.TextEditGeaendertWann.Size = New System.Drawing.Size(389, 20)
Me.TextEditGeaendertWann.StyleController = Me.LayoutControlProfile
Me.TextEditGeaendertWann.TabIndex = 63
'
@@ -790,18 +761,18 @@ Partial Class frmAdmin_Globix
'
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem3, Me.LayoutControlItem30, Me.LayoutControlItem20, Me.LayoutControlItem4, Me.LayoutControlItem25, Me.EmptySpaceItem3, Me.LayoutControlItem26, Me.LayoutControlItem1, Me.LayoutControlItem32, Me.LayoutControlItem5, Me.LayoutControlItem28, Me.EmptySpaceItem12, Me.LayoutControlItem61, Me.LayoutControlItem12, Me.LayoutControlItem7, Me.LayoutControlItem22})
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem3, Me.LayoutControlItem30, Me.LayoutControlItem20, Me.LayoutControlItem4, Me.LayoutControlItem25, Me.EmptySpaceItem3, Me.LayoutControlItem26, Me.LayoutControlItem1, Me.LayoutControlItem32, Me.LayoutControlItem5, Me.LayoutControlItem28, Me.EmptySpaceItem12, Me.LayoutControlItem61, Me.LayoutControlItem7, Me.LayoutControlItem22})
Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(1102, 302)
Me.Root.Size = New System.Drawing.Size(1119, 280)
Me.Root.TextVisible = False
'
'LayoutControlItem10
'
Me.LayoutControlItem10.Control = Me.TextEditBezeichnung
Me.LayoutControlItem10.Location = New System.Drawing.Point(541, 30)
Me.LayoutControlItem10.Location = New System.Drawing.Point(549, 30)
Me.LayoutControlItem10.Name = "LayoutControlItem10"
Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem10.Size = New System.Drawing.Size(541, 31)
Me.LayoutControlItem10.Size = New System.Drawing.Size(550, 31)
Me.LayoutControlItem10.Text = "Bezeichnung"
Me.LayoutControlItem10.TextSize = New System.Drawing.Size(139, 13)
'
@@ -811,20 +782,20 @@ 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, 212)
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 182)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem3.Size = New System.Drawing.Size(541, 30)
Me.LayoutControlItem3.Size = New System.Drawing.Size(549, 30)
Me.LayoutControlItem3.Text = "Erstellt wer"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(139, 13)
'
'LayoutControlItem30
'
Me.LayoutControlItem30.Control = Me.TextEditNamenkonvention
Me.LayoutControlItem30.Location = New System.Drawing.Point(0, 121)
Me.LayoutControlItem30.Location = New System.Drawing.Point(0, 91)
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)
Me.LayoutControlItem30.Size = New System.Drawing.Size(836, 30)
Me.LayoutControlItem30.Text = "Namenkonvention"
Me.LayoutControlItem30.TextSize = New System.Drawing.Size(139, 13)
'
@@ -832,10 +803,10 @@ Partial Class frmAdmin_Globix
'
Me.LayoutControlItem20.Control = Me.SEQUENCENumericUpDown
Me.LayoutControlItem20.CustomizationFormText = "SEQUENCE"
Me.LayoutControlItem20.Location = New System.Drawing.Point(229, 0)
Me.LayoutControlItem20.Location = New System.Drawing.Point(233, 0)
Me.LayoutControlItem20.Name = "LayoutControlItem20"
Me.LayoutControlItem20.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem20.Size = New System.Drawing.Size(195, 30)
Me.LayoutControlItem20.Size = New System.Drawing.Size(198, 30)
Me.LayoutControlItem20.Text = "Reihenfolge"
Me.LayoutControlItem20.TextSize = New System.Drawing.Size(139, 13)
'
@@ -847,7 +818,7 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem4.Name = "LayoutControlItem4"
Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem4.Size = New System.Drawing.Size(229, 30)
Me.LayoutControlItem4.Size = New System.Drawing.Size(233, 30)
Me.LayoutControlItem4.Text = "ID"
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(139, 13)
'
@@ -856,37 +827,37 @@ 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, 151)
Me.LayoutControlItem25.Location = New System.Drawing.Point(0, 121)
Me.LayoutControlItem25.Name = "LayoutControlItem25"
Me.LayoutControlItem25.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem25.Size = New System.Drawing.Size(541, 31)
Me.LayoutControlItem25.Size = New System.Drawing.Size(549, 31)
Me.LayoutControlItem25.Text = "File-Store:"
Me.LayoutControlItem25.TextSize = New System.Drawing.Size(139, 13)
'
'EmptySpaceItem3
'
Me.EmptySpaceItem3.AllowHotTrack = False
Me.EmptySpaceItem3.Location = New System.Drawing.Point(0, 272)
Me.EmptySpaceItem3.Location = New System.Drawing.Point(0, 242)
Me.EmptySpaceItem3.Name = "EmptySpaceItem3"
Me.EmptySpaceItem3.Size = New System.Drawing.Size(1082, 10)
Me.EmptySpaceItem3.Size = New System.Drawing.Size(1099, 18)
Me.EmptySpaceItem3.TextSize = New System.Drawing.Size(0, 0)
'
'LayoutControlItem26
'
Me.LayoutControlItem26.Control = Me.ComboBoxEditDupl_handling
Me.LayoutControlItem26.Location = New System.Drawing.Point(0, 91)
Me.LayoutControlItem26.Location = New System.Drawing.Point(0, 61)
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)
Me.LayoutControlItem26.Size = New System.Drawing.Size(1099, 30)
Me.LayoutControlItem26.Text = "Verhalten Datei vorhanden"
Me.LayoutControlItem26.TextSize = New System.Drawing.Size(139, 13)
'
'LayoutControlItem1
'
Me.LayoutControlItem1.Control = Me.SimpleButtonNameconvention
Me.LayoutControlItem1.Location = New System.Drawing.Point(823, 121)
Me.LayoutControlItem1.Location = New System.Drawing.Point(836, 91)
Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Size = New System.Drawing.Size(259, 30)
Me.LayoutControlItem1.Size = New System.Drawing.Size(263, 30)
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem1.TextVisible = False
'
@@ -896,10 +867,10 @@ 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, 242)
Me.LayoutControlItem32.Location = New System.Drawing.Point(0, 212)
Me.LayoutControlItem32.Name = "LayoutControlItem32"
Me.LayoutControlItem32.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem32.Size = New System.Drawing.Size(541, 30)
Me.LayoutControlItem32.Size = New System.Drawing.Size(549, 30)
Me.LayoutControlItem32.Text = "Erstellt wann"
Me.LayoutControlItem32.TextSize = New System.Drawing.Size(139, 13)
'
@@ -909,29 +880,29 @@ 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(541, 212)
Me.LayoutControlItem5.Location = New System.Drawing.Point(549, 182)
Me.LayoutControlItem5.Name = "LayoutControlItem5"
Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem5.Size = New System.Drawing.Size(541, 30)
Me.LayoutControlItem5.Size = New System.Drawing.Size(550, 30)
Me.LayoutControlItem5.Text = "Geändert wer"
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(139, 13)
'
'LayoutControlItem28
'
Me.LayoutControlItem28.Control = Me.TextEditBeschreibung
Me.LayoutControlItem28.Location = New System.Drawing.Point(0, 182)
Me.LayoutControlItem28.Location = New System.Drawing.Point(0, 152)
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)
Me.LayoutControlItem28.Size = New System.Drawing.Size(1099, 30)
Me.LayoutControlItem28.Text = "Beschreibung"
Me.LayoutControlItem28.TextSize = New System.Drawing.Size(139, 13)
'
'EmptySpaceItem12
'
Me.EmptySpaceItem12.AllowHotTrack = False
Me.EmptySpaceItem12.Location = New System.Drawing.Point(541, 151)
Me.EmptySpaceItem12.Location = New System.Drawing.Point(549, 121)
Me.EmptySpaceItem12.Name = "EmptySpaceItem12"
Me.EmptySpaceItem12.Size = New System.Drawing.Size(541, 31)
Me.EmptySpaceItem12.Size = New System.Drawing.Size(550, 31)
Me.EmptySpaceItem12.TextSize = New System.Drawing.Size(0, 0)
'
'LayoutControlItem61
@@ -940,26 +911,17 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem61.Location = New System.Drawing.Point(0, 30)
Me.LayoutControlItem61.Name = "LayoutControlItem61"
Me.LayoutControlItem61.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem61.Size = New System.Drawing.Size(541, 31)
Me.LayoutControlItem61.Size = New System.Drawing.Size(549, 31)
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)
'
'LayoutControlItem7
'
Me.LayoutControlItem7.Control = Me.CheckEdit1
Me.LayoutControlItem7.Location = New System.Drawing.Point(424, 0)
Me.LayoutControlItem7.Location = New System.Drawing.Point(431, 0)
Me.LayoutControlItem7.Name = "LayoutControlItem7"
Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem7.Size = New System.Drawing.Size(658, 30)
Me.LayoutControlItem7.Size = New System.Drawing.Size(668, 30)
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem7.TextVisible = False
'
@@ -969,10 +931,10 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem22.AppearanceItemCaption.Options.UseFont = True
Me.LayoutControlItem22.Control = Me.TextEditGeaendertWann
Me.LayoutControlItem22.Enabled = False
Me.LayoutControlItem22.Location = New System.Drawing.Point(541, 242)
Me.LayoutControlItem22.Location = New System.Drawing.Point(549, 212)
Me.LayoutControlItem22.Name = "LayoutControlItem22"
Me.LayoutControlItem22.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem22.Size = New System.Drawing.Size(541, 30)
Me.LayoutControlItem22.Size = New System.Drawing.Size(550, 30)
Me.LayoutControlItem22.Text = "Geändert Wann"
Me.LayoutControlItem22.TextSize = New System.Drawing.Size(139, 13)
'
@@ -2703,6 +2665,11 @@ Partial Class frmAdmin_Globix
'
Me.VWIDB_DOCTYPE_LANGUAGETableAdapter.ClearBeforeFill = True
'
'NotifyIcon1
'
Me.NotifyIcon1.Text = "NotifyIcon1"
Me.NotifyIcon1.Visible = True
'
'frmAdmin_Globix
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2725,9 +2692,7 @@ 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()
@@ -2756,7 +2721,6 @@ 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.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit()
@@ -3103,9 +3067,6 @@ Partial Class frmAdmin_Globix
Friend WithEvents LayoutControlItem61 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents VWIDB_DOCTYPE_LANGUAGEBindingSource As BindingSource
Friend WithEvents VWIDB_DOCTYPE_LANGUAGETableAdapter As DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPE_LANGUAGETableAdapter
Friend WithEvents GridLookUpEdit1 As DevExpress.XtraEditors.GridLookUpEdit
Friend WithEvents GridLookUpEdit1View As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents ACTIVECheckBox2 As DevExpress.XtraEditors.CheckEdit
Friend WithEvents OPTIONALCheckBox2 As DevExpress.XtraEditors.CheckEdit
Friend WithEvents LayoutControlItem63 As DevExpress.XtraLayout.LayoutControlItem
@@ -3116,4 +3077,5 @@ Partial Class frmAdmin_Globix
Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents TextEditGeaendertWann As DevExpress.XtraEditors.TextEdit
Friend WithEvents LayoutControlItem22 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents NotifyIcon1 As NotifyIcon
End Class

3
GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.resx
View File

@@ -519,6 +519,9 @@
<metadata name="VWIDB_DOCTYPE_LANGUAGETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>311, 134</value>
</metadata>
<metadata name="NotifyIcon1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>599, 134</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>118</value>
</metadata>

21
GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb
View File

@@ -96,8 +96,10 @@ Public Class frmAdmin_Globix
AddHandler Pages.CurrentPage_Changed, AddressOf CurrentPage_Changed
If IsInsert Then
TextEditErstelltWer.EditValue = My.Application.User.UserName
BarButtonNew.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
Else
TextEditChangedWho_ManIndex.EditValue = My.Application.User.UserName
BarButtonNew.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
End If
Dim oDragDropManager As New ClassDragDrop(My.LogConfig)
oDragDropManager.AddGridView(viewAssignedGroups)
@@ -227,6 +229,7 @@ Public Class frmAdmin_Globix
End If
Return True
Catch ex As Exception
ShowBalloonTip(15000, "Error saving ManIndex", ex.Message, ToolTipIcon.Warning)
Return False
End Try
End Function
@@ -245,8 +248,12 @@ Public Class frmAdmin_Globix
Return True
Catch ex As Exception
Return False
ShowBalloonTip(15000, "Error saving AutoIndex", ex.Message, ToolTipIcon.Warning)
End Try
End Function
Sub ShowBalloonTip(pTime As Integer, tipTitle As String, tipText As String, tipIcon As ToolTipIcon)
NotifyIcon1.ShowBalloonTip(pTime, tipTitle, tipText, tipIcon)
End Sub
Private Function Save_AutoSelect(oPage As ClassDetailPageManager.DetailPage) As Boolean
Try
TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
@@ -268,10 +275,10 @@ Public Class frmAdmin_Globix
Try
Dim oIns = $"INSERT INTO [TBDD_DOKUMENTART] ([BEZEICHNUNG] ,[OBJEKTTYP] ,[EINGANGSART_ID] ,[IDB_DOCTYPE_ID] ,[ZIEL_PFAD] ,[BESCHREIBUNG]
,[WINDREAM_DIRECT] ,[FOLDER_FOR_INDEX] ,[DUPLICATE_HANDLING],[AKTIV],[LANGUAGE],
[SEQUENCE],[NAMENKONVENTION],[ERSTELLTWER],IDB_OBJECT_STORE_ID) VALUES
[SEQUENCE],[NAMENKONVENTION],[ERSTELLTWER],IDB_OBJECT_STORE_ID,KURZNAME) VALUES
('{TextEditBezeichnung.Text}','IDB_DRIVEN',1,{IDB_DOCTYPE_IDComboBox.SelectedValue},'IDB_STORE','{TextEditBeschreibung.Text}'
,'False','{FOLDER_FOR_INDEXTextEdit.Text}','{ComboBoxEditDupl_handling.EditValue}' ,'{CheckEdit1.Checked}','{My.Application.User.Language}'
, {SEQUENCENumericUpDown.Value},'{TextEditNamenkonvention.Text}','{My.Application.User.UserName}',{IDB_OBJECT_STORE_IDComboBox.SelectedValue})"
, {SEQUENCENumericUpDown.Value},'{TextEditNamenkonvention.Text}','{My.Application.User.UserName}',{IDB_OBJECT_STORE_IDComboBox.SelectedValue},'')"
If My.DatabaseECM.ExecuteNonQuery(oIns) = True Then
Dim oSQL = $"SELECT GUID FROM TBDD_DOKUMENTART WHERE BEZEICHNUNG = '{TextEditBezeichnung.Text}'"
PrimaryKey = My.DatabaseECM.GetScalarValue(oSQL)
@@ -291,9 +298,12 @@ Public Class frmAdmin_Globix
End Function
Private Function Update_Doctype() As Boolean
Try
Dim oUpd = $"UPDATE TBDD_DOKUMENTART SET [BEZEICHNUNG] = '{TextEditBezeichnung.Text}' ,[IDB_DOCTYPE_ID] = {IDB_DOCTYPE_IDComboBox.SelectedValue} ,[BESCHREIBUNG] = '{TextEditBeschreibung.Text}'
,[DUPLICATE_HANDLING] = '{ComboBoxEditDupl_handling.EditValue}',[AKTIV] = '{CheckEdit1.Checked}',[SEQUENCE] = {SEQUENCENumericUpDown.Value}
,[NAMENKONVENTION] = '{TextEditNamenkonvention.Text}', [FOLDER_FOR_INDEX] = '{FOLDER_FOR_INDEXTextEdit.Text}',[GEANDERTWER] = '{My.Application.User.UserName}',IDB_OBJECT_STORE_ID = {IDB_OBJECT_STORE_IDComboBox.SelectedValue} WHERE GUID = {TextEditDoctypeID.Text}"
Dim oUpd = $"UPDATE TBDD_DOKUMENTART SET [BEZEICHNUNG] = '{TextEditBezeichnung.Text}' ,[IDB_DOCTYPE_ID] = {IDB_DOCTYPE_IDComboBox.SelectedValue}
,[BESCHREIBUNG] = '{TextEditBeschreibung.Text}',[DUPLICATE_HANDLING] = '{ComboBoxEditDupl_handling.EditValue}'
,[AKTIV] = '{CheckEdit1.Checked}',[SEQUENCE] = {SEQUENCENumericUpDown.Value}
,[NAMENKONVENTION] = '{TextEditNamenkonvention.Text}', [FOLDER_FOR_INDEX] = '{FOLDER_FOR_INDEXTextEdit.Text}'
,[GEANDERTWER] = '{My.Application.User.UserName}',IDB_OBJECT_STORE_ID = {IDB_OBJECT_STORE_IDComboBox.SelectedValue}
WHERE GUID = {TextEditDoctypeID.Text}"
Return My.DatabaseECM.ExecuteNonQuery(oUpd)
@@ -442,6 +452,7 @@ Public Class frmAdmin_Globix
'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@CONNECTION_ID").Value = oForm.ConnectionID
CHANGED_WHOTextEditAutoAttribut.Text = My.Application.User.UserName
End If
Else
End If
End Sub