diff --git a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb index 30b41d30..36b1873d 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb @@ -123,6 +123,7 @@ Partial Class frmAdmin_IDBAttribute Me.labelStatus.Id = 5 Me.labelStatus.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.about Me.labelStatus.Name = "labelStatus" + Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing ' 'RibbonPage1 @@ -175,11 +176,11 @@ Partial Class frmAdmin_IDBAttribute 'TextEdit1 ' Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "GUID", True)) - Me.TextEdit1.Location = New System.Drawing.Point(130, 20) + Me.TextEdit1.Location = New System.Drawing.Point(168, 20) Me.TextEdit1.MenuManager = Me.RibbonControl1 Me.TextEdit1.Name = "TextEdit1" Me.TextEdit1.Properties.ReadOnly = True - Me.TextEdit1.Size = New System.Drawing.Size(650, 20) + Me.TextEdit1.Size = New System.Drawing.Size(612, 20) Me.TextEdit1.StyleController = Me.LayoutControl1 Me.TextEdit1.TabIndex = 4 ' @@ -196,10 +197,10 @@ Partial Class frmAdmin_IDBAttribute 'TextEdit2 ' Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "TITLE", True)) - Me.TextEdit2.Location = New System.Drawing.Point(130, 60) + Me.TextEdit2.Location = New System.Drawing.Point(168, 60) Me.TextEdit2.MenuManager = Me.RibbonControl1 Me.TextEdit2.Name = "TextEdit2" - Me.TextEdit2.Size = New System.Drawing.Size(650, 20) + Me.TextEdit2.Size = New System.Drawing.Size(612, 20) Me.TextEdit2.StyleController = Me.LayoutControl1 Me.TextEdit2.TabIndex = 5 ' @@ -207,11 +208,11 @@ Partial Class frmAdmin_IDBAttribute ' Me.SpinEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "VIEW_SEQUENCE", True)) Me.SpinEdit1.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) - Me.SpinEdit1.Location = New System.Drawing.Point(520, 180) + Me.SpinEdit1.Location = New System.Drawing.Point(558, 180) Me.SpinEdit1.MenuManager = Me.RibbonControl1 Me.SpinEdit1.Name = "SpinEdit1" Me.SpinEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.SpinEdit1.Size = New System.Drawing.Size(260, 20) + Me.SpinEdit1.Size = New System.Drawing.Size(222, 20) Me.SpinEdit1.StyleController = Me.LayoutControl1 Me.SpinEdit1.TabIndex = 6 ' @@ -221,7 +222,7 @@ Partial Class frmAdmin_IDBAttribute Me.CheckEdit1.Location = New System.Drawing.Point(20, 220) Me.CheckEdit1.MenuManager = Me.RibbonControl1 Me.CheckEdit1.Name = "CheckEdit1" - Me.CheckEdit1.Properties.Caption = "Vektor/Multi" + Me.CheckEdit1.Properties.Caption = "Attribut mehrzeilig" Me.CheckEdit1.Size = New System.Drawing.Size(760, 18) Me.CheckEdit1.StyleController = Me.LayoutControl1 Me.CheckEdit1.TabIndex = 7 @@ -232,7 +233,7 @@ Partial Class frmAdmin_IDBAttribute Me.CheckEdit2.Location = New System.Drawing.Point(20, 180) Me.CheckEdit2.MenuManager = Me.RibbonControl1 Me.CheckEdit2.Name = "CheckEdit2" - Me.CheckEdit2.Properties.Caption = "Sichtbar" + Me.CheckEdit2.Properties.Caption = "Standard in Ergebnisliste" Me.CheckEdit2.Size = New System.Drawing.Size(370, 18) Me.CheckEdit2.StyleController = Me.LayoutControl1 Me.CheckEdit2.TabIndex = 8 @@ -240,65 +241,65 @@ Partial Class frmAdmin_IDBAttribute 'TextEdit3 ' Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "COMMENT", True)) - Me.TextEdit3.Location = New System.Drawing.Point(130, 140) + Me.TextEdit3.Location = New System.Drawing.Point(168, 140) Me.TextEdit3.MenuManager = Me.RibbonControl1 Me.TextEdit3.Name = "TextEdit3" - Me.TextEdit3.Size = New System.Drawing.Size(650, 20) + Me.TextEdit3.Size = New System.Drawing.Size(612, 20) Me.TextEdit3.StyleController = Me.LayoutControl1 Me.TextEdit3.TabIndex = 9 ' 'txtAddedWho ' Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "ADDED_WHO", True)) - Me.txtAddedWho.Location = New System.Drawing.Point(130, 258) + Me.txtAddedWho.Location = New System.Drawing.Point(168, 258) Me.txtAddedWho.MenuManager = Me.RibbonControl1 Me.txtAddedWho.Name = "txtAddedWho" Me.txtAddedWho.Properties.ReadOnly = True - Me.txtAddedWho.Size = New System.Drawing.Size(260, 20) + Me.txtAddedWho.Size = New System.Drawing.Size(222, 20) Me.txtAddedWho.StyleController = Me.LayoutControl1 Me.txtAddedWho.TabIndex = 10 ' 'txtAddedWhen ' Me.txtAddedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "ADDED_WHEN", True)) - Me.txtAddedWhen.Location = New System.Drawing.Point(520, 258) + Me.txtAddedWhen.Location = New System.Drawing.Point(558, 258) Me.txtAddedWhen.MenuManager = Me.RibbonControl1 Me.txtAddedWhen.Name = "txtAddedWhen" Me.txtAddedWhen.Properties.ReadOnly = True - Me.txtAddedWhen.Size = New System.Drawing.Size(260, 20) + Me.txtAddedWhen.Size = New System.Drawing.Size(222, 20) Me.txtAddedWhen.StyleController = Me.LayoutControl1 Me.txtAddedWhen.TabIndex = 11 ' 'txtChangedWho ' Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "CHANGED_WHO", True)) - Me.txtChangedWho.Location = New System.Drawing.Point(130, 298) + Me.txtChangedWho.Location = New System.Drawing.Point(168, 298) Me.txtChangedWho.MenuManager = Me.RibbonControl1 Me.txtChangedWho.Name = "txtChangedWho" Me.txtChangedWho.Properties.ReadOnly = True - Me.txtChangedWho.Size = New System.Drawing.Size(260, 20) + Me.txtChangedWho.Size = New System.Drawing.Size(222, 20) Me.txtChangedWho.StyleController = Me.LayoutControl1 Me.txtChangedWho.TabIndex = 12 ' 'txtChangedWhen ' Me.txtChangedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "CHANGED_WHEN", True)) - Me.txtChangedWhen.Location = New System.Drawing.Point(520, 298) + Me.txtChangedWhen.Location = New System.Drawing.Point(558, 298) Me.txtChangedWhen.MenuManager = Me.RibbonControl1 Me.txtChangedWhen.Name = "txtChangedWhen" Me.txtChangedWhen.Properties.ReadOnly = True - Me.txtChangedWhen.Size = New System.Drawing.Size(260, 20) + Me.txtChangedWhen.Size = New System.Drawing.Size(222, 20) Me.txtChangedWhen.StyleController = Me.LayoutControl1 Me.txtChangedWhen.TabIndex = 13 ' 'ComboBoxEdit1 ' Me.ComboBoxEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "TYP_ID", True)) - Me.ComboBoxEdit1.Location = New System.Drawing.Point(130, 100) + Me.ComboBoxEdit1.Location = New System.Drawing.Point(168, 100) Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1 Me.ComboBoxEdit1.Name = "ComboBoxEdit1" Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.ComboBoxEdit1.Size = New System.Drawing.Size(650, 20) + Me.ComboBoxEdit1.Size = New System.Drawing.Size(612, 20) Me.ComboBoxEdit1.StyleController = Me.LayoutControl1 Me.ComboBoxEdit1.TabIndex = 14 ' @@ -320,7 +321,7 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem1.Size = New System.Drawing.Size(780, 40) Me.LayoutControlItem1.Text = "GUID" - Me.LayoutControlItem1.TextSize = New System.Drawing.Size(107, 13) + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(145, 13) ' 'LayoutControlItem2 ' @@ -330,7 +331,7 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem2.Size = New System.Drawing.Size(780, 40) Me.LayoutControlItem2.Text = "Bezeichnung" - Me.LayoutControlItem2.TextSize = New System.Drawing.Size(107, 13) + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(145, 13) ' 'LayoutControlItem4 ' @@ -350,7 +351,7 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem6.Size = New System.Drawing.Size(780, 40) Me.LayoutControlItem6.Text = "Kommentar" - Me.LayoutControlItem6.TextSize = New System.Drawing.Size(107, 13) + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(145, 13) ' 'LayoutControlItem7 ' @@ -360,7 +361,7 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem7.Size = New System.Drawing.Size(390, 40) Me.LayoutControlItem7.Text = "Erstellt Wer" - Me.LayoutControlItem7.TextSize = New System.Drawing.Size(107, 13) + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(145, 13) ' 'LayoutControlItem3 ' @@ -370,8 +371,8 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem3.Name = "LayoutControlItem3" Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem3.Size = New System.Drawing.Size(390, 40) - Me.LayoutControlItem3.Text = "Anzeige Reihenfolge" - Me.LayoutControlItem3.TextSize = New System.Drawing.Size(107, 13) + Me.LayoutControlItem3.Text = "Reihenfolge in Ergebnisliste" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(145, 13) ' 'LayoutControlItem11 ' @@ -381,7 +382,7 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem11.Size = New System.Drawing.Size(780, 40) Me.LayoutControlItem11.Text = "Attribut-Typ" - Me.LayoutControlItem11.TextSize = New System.Drawing.Size(107, 13) + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(145, 13) ' 'LayoutControlItem9 ' @@ -391,7 +392,7 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem9.Size = New System.Drawing.Size(390, 64) Me.LayoutControlItem9.Text = "Geändert Wer" - Me.LayoutControlItem9.TextSize = New System.Drawing.Size(107, 13) + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(145, 13) ' 'LayoutControlItem5 ' @@ -411,7 +412,7 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem8.Size = New System.Drawing.Size(390, 40) Me.LayoutControlItem8.Text = "Erstellt Wann" - Me.LayoutControlItem8.TextSize = New System.Drawing.Size(107, 13) + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(145, 13) ' 'LayoutControlItem10 ' @@ -421,7 +422,7 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem10.Size = New System.Drawing.Size(390, 64) Me.LayoutControlItem10.Text = "Geändert Wann" - Me.LayoutControlItem10.TextSize = New System.Drawing.Size(107, 13) + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(145, 13) ' 'TBIDB_ATTRIBUTETableAdapter ' @@ -434,9 +435,10 @@ Partial Class frmAdmin_IDBAttribute Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' - 'frmAdmin_Attribute + 'frmAdmin_IDBAttribute ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font @@ -444,7 +446,7 @@ Partial Class frmAdmin_IDBAttribute Me.Controls.Add(Me.LayoutControl1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) - Me.Name = "frmAdmin_Attribute" + Me.Name = "frmAdmin_IDBAttribute" Me.Ribbon = Me.RibbonControl1 Me.StatusBar = Me.RibbonStatusBar1 Me.Text = "frmAdmin_Attribute" diff --git a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.resx b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.resx index 32b787d0..4a7dd104 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.resx +++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.resx @@ -123,9 +123,6 @@ 74, 22 - - 74, 22 - 649, 17 diff --git a/GUIs.ZooFlow/Administration/frmGlobix_Dokumentart.Designer.vb b/GUIs.ZooFlow/Administration/frmGlobix_Dokumentart.Designer.vb new file mode 100644 index 00000000..8c5b7487 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmGlobix_Dokumentart.Designer.vb @@ -0,0 +1,622 @@ + +Partial Class frmGlobix_Dokumentart + Inherits frmAdmin_Base + + '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() + Me.components = New System.ComponentModel.Container() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() + 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.KURZNAMETextBox = New System.Windows.Forms.TextBox() + Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GlobixDataset = New DigitalData.GUIs.ZooFlow.GlobixDataset() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() + Me.SpinEdit1 = New DevExpress.XtraEditors.SpinEdit() + Me.CheckEdit2 = New DevExpress.XtraEditors.CheckEdit() + Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit() + Me.txtAddedWhen = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem() + Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() + Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() + Me.TBDD_DOKUMENTARTTableAdapter = New DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TBDD_DOKUMENTARTTableAdapter() + Me.TableAdapterManager1 = New DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TableAdapterManager() + Me.DUPLICATE_HANDLINGComboBox = New System.Windows.Forms.ComboBox() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.NAMENKONVENTIONTextBox = New System.Windows.Forms.TextBox() + Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ZIEL_PFADTextBox = New System.Windows.Forms.TextBox() + Me.LayoutControlItem13 = New DevExpress.XtraLayout.LayoutControlItem() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton() + Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem() + Me.BESCHREIBUNGTextBox = New System.Windows.Forms.TextBox() + Me.LayoutControlItem16 = New DevExpress.XtraLayout.LayoutControlItem() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GlobixDataset, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.labelStatus}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 6 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.Size = New System.Drawing.Size(1199, 66) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Speichern und Schließen" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Speichern" + Me.BarButtonItem2.Id = 3 + Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'labelStatus + ' + Me.labelStatus.Caption = "labelStatus" + Me.labelStatus.Id = 5 + Me.labelStatus.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.about + Me.labelStatus.Name = "labelStatus" + Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Daten" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 678) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1199, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.BESCHREIBUNGTextBox) + Me.LayoutControl1.Controls.Add(Me.ZIEL_PFADTextBox) + Me.LayoutControl1.Controls.Add(Me.NAMENKONVENTIONTextBox) + Me.LayoutControl1.Controls.Add(Me.DUPLICATE_HANDLINGComboBox) + Me.LayoutControl1.Controls.Add(Me.KURZNAMETextBox) + Me.LayoutControl1.Controls.Add(Me.TextEdit1) + Me.LayoutControl1.Controls.Add(Me.TextEdit2) + Me.LayoutControl1.Controls.Add(Me.SpinEdit1) + Me.LayoutControl1.Controls.Add(Me.CheckEdit2) + Me.LayoutControl1.Controls.Add(Me.txtAddedWho) + Me.LayoutControl1.Controls.Add(Me.txtAddedWhen) + Me.LayoutControl1.Controls.Add(Me.txtChangedWho) + Me.LayoutControl1.Controls.Add(Me.txtChangedWhen) + Me.LayoutControl1.Controls.Add(Me.SimpleButton1) + Me.LayoutControl1.Controls.Add(Me.SimpleButton2) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 66) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(1199, 612) + Me.LayoutControl1.TabIndex = 2 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'KURZNAMETextBox + ' + Me.KURZNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "KURZNAME", True)) + Me.KURZNAMETextBox.Location = New System.Drawing.Point(662, 52) + Me.KURZNAMETextBox.Name = "KURZNAMETextBox" + Me.KURZNAMETextBox.Size = New System.Drawing.Size(76, 20) + Me.KURZNAMETextBox.TabIndex = 17 + ' + 'TBDD_DOKUMENTARTBindingSource + ' + Me.TBDD_DOKUMENTARTBindingSource.DataMember = "TBDD_DOKUMENTART" + Me.TBDD_DOKUMENTARTBindingSource.DataSource = Me.GlobixDataset + ' + 'GlobixDataset + ' + Me.GlobixDataset.DataSetName = "GlobixDataset" + Me.GlobixDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TextEdit1 + ' + Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "GUID", True)) + Me.TextEdit1.Location = New System.Drawing.Point(143, 20) + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Properties.ReadOnly = True + Me.TextEdit1.Size = New System.Drawing.Size(458, 20) + Me.TextEdit1.StyleController = Me.LayoutControl1 + Me.TextEdit1.TabIndex = 4 + ' + 'TextEdit2 + ' + Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "BEZEICHNUNG", True)) + Me.TextEdit2.Location = New System.Drawing.Point(143, 60) + Me.TextEdit2.MenuManager = Me.RibbonControl1 + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.Size = New System.Drawing.Size(384, 20) + Me.TextEdit2.StyleController = Me.LayoutControl1 + Me.TextEdit2.TabIndex = 5 + ' + 'SpinEdit1 + ' + Me.SpinEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "SEQUENCE", True)) + Me.SpinEdit1.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.SpinEdit1.Location = New System.Drawing.Point(993, 20) + Me.SpinEdit1.MenuManager = Me.RibbonControl1 + Me.SpinEdit1.Name = "SpinEdit1" + Me.SpinEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.SpinEdit1.Size = New System.Drawing.Size(186, 20) + Me.SpinEdit1.StyleController = Me.LayoutControl1 + Me.SpinEdit1.TabIndex = 6 + ' + 'CheckEdit2 + ' + Me.CheckEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "AKTIV", True)) + Me.CheckEdit2.Location = New System.Drawing.Point(621, 20) + Me.CheckEdit2.MenuManager = Me.RibbonControl1 + Me.CheckEdit2.Name = "CheckEdit2" + Me.CheckEdit2.Properties.Caption = "Aktiv" + Me.CheckEdit2.Size = New System.Drawing.Size(229, 18) + Me.CheckEdit2.StyleController = Me.LayoutControl1 + Me.CheckEdit2.TabIndex = 8 + ' + 'txtAddedWho + ' + Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "ERSTELLTWER", True)) + Me.txtAddedWho.Location = New System.Drawing.Point(143, 176) + Me.txtAddedWho.MenuManager = Me.RibbonControl1 + Me.txtAddedWho.Name = "txtAddedWho" + Me.txtAddedWho.Properties.ReadOnly = True + Me.txtAddedWho.Size = New System.Drawing.Size(1036, 20) + Me.txtAddedWho.StyleController = Me.LayoutControl1 + Me.txtAddedWho.TabIndex = 10 + ' + 'txtAddedWhen + ' + Me.txtAddedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "ERSTELLTWANN", True)) + Me.txtAddedWhen.Location = New System.Drawing.Point(143, 256) + Me.txtAddedWhen.MenuManager = Me.RibbonControl1 + Me.txtAddedWhen.Name = "txtAddedWhen" + Me.txtAddedWhen.Properties.ReadOnly = True + Me.txtAddedWhen.Size = New System.Drawing.Size(1036, 20) + Me.txtAddedWhen.StyleController = Me.LayoutControl1 + Me.txtAddedWhen.TabIndex = 11 + ' + 'txtChangedWho + ' + Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "GEANDERTWER", True)) + Me.txtChangedWho.Location = New System.Drawing.Point(143, 216) + Me.txtChangedWho.MenuManager = Me.RibbonControl1 + Me.txtChangedWho.Name = "txtChangedWho" + Me.txtChangedWho.Properties.ReadOnly = True + Me.txtChangedWho.Size = New System.Drawing.Size(1036, 20) + Me.txtChangedWho.StyleController = Me.LayoutControl1 + Me.txtChangedWho.TabIndex = 12 + ' + 'txtChangedWhen + ' + Me.txtChangedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "GEAENDERTWANN", True)) + Me.txtChangedWhen.Location = New System.Drawing.Point(143, 296) + Me.txtChangedWhen.MenuManager = Me.RibbonControl1 + Me.txtChangedWhen.Name = "txtChangedWhen" + Me.txtChangedWhen.Properties.ReadOnly = True + Me.txtChangedWhen.Size = New System.Drawing.Size(1036, 20) + Me.txtChangedWhen.StyleController = Me.LayoutControl1 + Me.txtChangedWhen.TabIndex = 13 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem7, Me.LayoutControlItem9, Me.LayoutControlItem2, Me.LayoutControlItem5, Me.LayoutControlItem1, Me.LayoutControlItem3, Me.LayoutControlItem8, Me.LayoutControlItem10, Me.LayoutControlItem12, Me.LayoutControlItem6, Me.LayoutControlItem13, Me.LayoutControlItem11, Me.LayoutControlItem14, Me.LayoutControlItem4, Me.LayoutControlItem16}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(1199, 612) + Me.Root.TextVisible = False + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.txtAddedWho + Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 156) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem7.Size = New System.Drawing.Size(1179, 40) + Me.LayoutControlItem7.Text = "Erstellt Wer" + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(120, 13) + ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.Control = Me.txtChangedWho + Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 196) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem9.Size = New System.Drawing.Size(1179, 40) + Me.LayoutControlItem9.Text = "Geändert Wer" + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(120, 13) + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.txtAddedWhen + Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 236) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem8.Size = New System.Drawing.Size(1179, 40) + Me.LayoutControlItem8.Text = "Erstellt Wann" + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(120, 13) + ' + 'LayoutControlItem10 + ' + Me.LayoutControlItem10.Control = Me.txtChangedWhen + Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 276) + Me.LayoutControlItem10.Name = "LayoutControlItem10" + Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem10.Size = New System.Drawing.Size(1179, 316) + Me.LayoutControlItem10.Text = "Geändert Wann" + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(120, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.TextEdit2 + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 40) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem2.Size = New System.Drawing.Size(527, 40) + Me.LayoutControlItem2.Text = "Bezeichnung" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(120, 13) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.CheckEdit2 + Me.LayoutControlItem5.Location = New System.Drawing.Point(601, 0) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem5.Size = New System.Drawing.Size(249, 40) + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem5.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.TextEdit1 + Me.LayoutControlItem1.CustomizationFormText = "GUID" + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem1.Size = New System.Drawing.Size(601, 40) + Me.LayoutControlItem1.Text = "GUID" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(120, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.SpinEdit1 + Me.LayoutControlItem3.CustomizationFormText = "Anzeige Reihenfolge" + Me.LayoutControlItem3.Location = New System.Drawing.Point(850, 0) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem3.Size = New System.Drawing.Size(329, 40) + Me.LayoutControlItem3.Text = "Reihenfolge" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(120, 13) + ' + 'LayoutControlItem12 + ' + Me.LayoutControlItem12.Control = Me.KURZNAMETextBox + Me.LayoutControlItem12.Location = New System.Drawing.Point(527, 40) + Me.LayoutControlItem12.Name = "LayoutControlItem12" + Me.LayoutControlItem12.Size = New System.Drawing.Size(203, 40) + Me.LayoutControlItem12.Text = "Kurzname:" + Me.LayoutControlItem12.TextSize = New System.Drawing.Size(120, 13) + ' + 'DSIDB_Stammdaten + ' + Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten" + Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBDD_DOKUMENTARTTableAdapter + ' + Me.TBDD_DOKUMENTARTTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager1 + ' + Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager1.TBDD_DOKUMENTARTTableAdapter = Me.TBDD_DOKUMENTARTTableAdapter + Me.TableAdapterManager1.UpdateOrder = DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'DUPLICATE_HANDLINGComboBox + ' + Me.DUPLICATE_HANDLINGComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "DUPLICATE_HANDLING", True)) + Me.DUPLICATE_HANDLINGComboBox.FormattingEnabled = True + Me.DUPLICATE_HANDLINGComboBox.Items.AddRange(New Object() {"New version", "Default", "Question"}) + Me.DUPLICATE_HANDLINGComboBox.Location = New System.Drawing.Point(865, 52) + Me.DUPLICATE_HANDLINGComboBox.Name = "DUPLICATE_HANDLINGComboBox" + Me.DUPLICATE_HANDLINGComboBox.Size = New System.Drawing.Size(322, 21) + Me.DUPLICATE_HANDLINGComboBox.TabIndex = 18 + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.DUPLICATE_HANDLINGComboBox + Me.LayoutControlItem6.Location = New System.Drawing.Point(730, 40) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Size = New System.Drawing.Size(449, 40) + Me.LayoutControlItem6.Text = "Verhalten Duplikat:" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(120, 13) + ' + 'NAMENKONVENTIONTextBox + ' + Me.NAMENKONVENTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "NAMENKONVENTION", True)) + Me.NAMENKONVENTIONTextBox.Location = New System.Drawing.Point(135, 116) + Me.NAMENKONVENTIONTextBox.Name = "NAMENKONVENTIONTextBox" + Me.NAMENKONVENTIONTextBox.Size = New System.Drawing.Size(771, 20) + Me.NAMENKONVENTIONTextBox.TabIndex = 19 + ' + 'LayoutControlItem11 + ' + Me.LayoutControlItem11.Control = Me.NAMENKONVENTIONTextBox + Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 104) + Me.LayoutControlItem11.Name = "LayoutControlItem11" + Me.LayoutControlItem11.Size = New System.Drawing.Size(898, 26) + Me.LayoutControlItem11.Text = "Konvention Dateiname:" + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(120, 13) + ' + 'ZIEL_PFADTextBox + ' + Me.ZIEL_PFADTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ZIEL_PFAD", True)) + Me.ZIEL_PFADTextBox.Location = New System.Drawing.Point(135, 142) + Me.ZIEL_PFADTextBox.Name = "ZIEL_PFADTextBox" + Me.ZIEL_PFADTextBox.Size = New System.Drawing.Size(771, 20) + Me.ZIEL_PFADTextBox.TabIndex = 20 + ' + 'LayoutControlItem13 + ' + Me.LayoutControlItem13.Control = Me.ZIEL_PFADTextBox + Me.LayoutControlItem13.Location = New System.Drawing.Point(0, 130) + Me.LayoutControlItem13.Name = "LayoutControlItem13" + Me.LayoutControlItem13.Size = New System.Drawing.Size(898, 26) + Me.LayoutControlItem13.Text = "Zielpfad:" + Me.LayoutControlItem13.TextSize = New System.Drawing.Size(120, 13) + ' + 'SimpleButton1 + ' + Me.SimpleButton1.Location = New System.Drawing.Point(910, 142) + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.Size = New System.Drawing.Size(277, 22) + Me.SimpleButton1.StyleController = Me.LayoutControl1 + Me.SimpleButton1.TabIndex = 21 + Me.SimpleButton1.Text = "Zielpfad Dialog" + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.SimpleButton1 + Me.LayoutControlItem4.Location = New System.Drawing.Point(898, 130) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Size = New System.Drawing.Size(281, 26) + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem4.TextVisible = False + ' + 'SimpleButton2 + ' + Me.SimpleButton2.Location = New System.Drawing.Point(910, 116) + Me.SimpleButton2.Name = "SimpleButton2" + Me.SimpleButton2.Size = New System.Drawing.Size(277, 22) + Me.SimpleButton2.StyleController = Me.LayoutControl1 + Me.SimpleButton2.TabIndex = 22 + Me.SimpleButton2.Text = "Konvention bearbeiten" + ' + 'LayoutControlItem14 + ' + Me.LayoutControlItem14.Control = Me.SimpleButton2 + Me.LayoutControlItem14.Location = New System.Drawing.Point(898, 104) + Me.LayoutControlItem14.Name = "LayoutControlItem14" + Me.LayoutControlItem14.Size = New System.Drawing.Size(281, 26) + Me.LayoutControlItem14.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem14.TextVisible = False + ' + 'BESCHREIBUNGTextBox + ' + Me.BESCHREIBUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BESCHREIBUNG", True)) + Me.BESCHREIBUNGTextBox.Location = New System.Drawing.Point(135, 92) + Me.BESCHREIBUNGTextBox.Name = "BESCHREIBUNGTextBox" + Me.BESCHREIBUNGTextBox.Size = New System.Drawing.Size(1052, 20) + Me.BESCHREIBUNGTextBox.TabIndex = 23 + ' + 'LayoutControlItem16 + ' + Me.LayoutControlItem16.Control = Me.BESCHREIBUNGTextBox + Me.LayoutControlItem16.Location = New System.Drawing.Point(0, 80) + Me.LayoutControlItem16.Name = "LayoutControlItem16" + Me.LayoutControlItem16.Size = New System.Drawing.Size(1179, 24) + Me.LayoutControlItem16.Text = "Beschreibung:" + Me.LayoutControlItem16.TextSize = New System.Drawing.Size(120, 13) + ' + 'frmGlobix_Dokumentart + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1199, 700) + Me.Controls.Add(Me.LayoutControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmGlobix_Dokumentart" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "frmAdmin_Attribute" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GlobixDataset, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem16, 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 BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SpinEdit1 As DevExpress.XtraEditors.SpinEdit + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten + Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents CheckEdit2 As DevExpress.XtraEditors.CheckEdit + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents txtAddedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtAddedWhen As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWhen As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem + Friend WithEvents GlobixDataset As GlobixDataset + Friend WithEvents TBDD_DOKUMENTARTBindingSource As BindingSource + Friend WithEvents TBDD_DOKUMENTARTTableAdapter As GlobixDatasetTableAdapters.TBDD_DOKUMENTARTTableAdapter + Friend WithEvents TableAdapterManager1 As GlobixDatasetTableAdapters.TableAdapterManager + Friend WithEvents KURZNAMETextBox As TextBox + Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents BESCHREIBUNGTextBox As TextBox + Friend WithEvents ZIEL_PFADTextBox As TextBox + Friend WithEvents NAMENKONVENTIONTextBox As TextBox + Friend WithEvents DUPLICATE_HANDLINGComboBox As ComboBox + Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem13 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem14 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem16 As DevExpress.XtraLayout.LayoutControlItem +End Class diff --git a/GUIs.ZooFlow/Administration/frmGlobix_Dokumentart.resx b/GUIs.ZooFlow/Administration/frmGlobix_Dokumentart.resx new file mode 100644 index 00000000..a64cebeb --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmGlobix_Dokumentart.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 477, 17 + + + 350, 17 + + + 17, 17 + + + 177, 17 + + + 732, 17 + + + 981, 17 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmGlobix_Dokumentart.vb b/GUIs.ZooFlow/Administration/frmGlobix_Dokumentart.vb new file mode 100644 index 00000000..b75cf761 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmGlobix_Dokumentart.vb @@ -0,0 +1,79 @@ +Imports DigitalData.Modules.Logging + +Public Class frmGlobix_Dokumentart + Inherits frmAdmin_Base + Implements frmAdmin_Interface + + Private Property Logger As Logger Implements frmAdmin_Interface.Logger + Public Property HasChanges As Boolean = False Implements frmAdmin_Interface.HasChanges + Public Property IsInsert As Boolean = False Implements frmAdmin_Interface.IsInsert + Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey + + Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Logger = My.LogConfig.GetLogger() + Me.PrimaryKey = PrimaryKey + Me.IsInsert = IsInsert + End Sub + + Private Sub frmAdmin_Attribute_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.Database.CurrentSQLConnectionString + Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey) + Catch ex As Exception + ShowError(ex) + End Try + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + ResetMessages() + + If SaveData() And HasChanges Then + ShowStatus("Attribute gespeichert!") + End If + End Sub + + Private Sub ResetMessages() + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End Sub + + Private Sub ShowStatus(Message As String) + labelStatus.Caption = Message + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + ResetMessages() + + If SaveData() Then + Close() + End If + End Sub + + Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData + Try + TBDD_DOKUMENTARTBindingSource.EndEdit() + + If DSIDB_Stammdaten.TBIDB_ATTRIBUTE.GetChanges() IsNot Nothing Then + HasChanges = True + + If IsInsert Then + txtAddedWho.EditValue = My.Application.User.UserName + Else + txtChangedWho.EditValue = My.Application.User.UserName + End If + + TBDD_DOKUMENTARTBindingSource.EndEdit() + TBDD_DOKUMENTARTTableAdapter.Update(GlobixDataset.TBDD_DOKUMENTART) + End If + + Return True + Catch ex As Exception + ShowError(ex) + Return False + End Try + End Function +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/ClassConstants.vb b/GUIs.ZooFlow/ClassConstants.vb index 55e89d85..8a67f2c3 100644 --- a/GUIs.ZooFlow/ClassConstants.vb +++ b/GUIs.ZooFlow/ClassConstants.vb @@ -28,6 +28,7 @@ Public Const NOTIFICATION_DELAY = 2500 Public Const SQLCMD_FLOW_SEARCH_LOWER_LIMIT = "FLOW_SEARCH_ATTRIBUTE_GROUP" + Public Const SQLCMD_FLOW_SEARCH_CATEGORIES = "FLOW_SEARCH_CATEGORIES" Public Const SQLCMD_FLOW_SEARCH_TILE = "FLOW_SEARCH_PER_TILE" Public Const RESULTLIST_COL_ADDED_WHEN_DE = "Erstellt wann" diff --git a/GUIs.ZooFlow/ClassIDBData.vb b/GUIs.ZooFlow/ClassIDBData.vb index 4731eb0b..d2113e2b 100644 --- a/GUIs.ZooFlow/ClassIDBData.vb +++ b/GUIs.ZooFlow/ClassIDBData.vb @@ -12,8 +12,8 @@ Public Class ClassIDBData Public Sub New(LogConfig As LogConfig) _Logger = LogConfig.GetLogger _DataASorDB = New ClassDataASorDB(LogConfig) - Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE" - DTVWIDB_BE_ATTRIBUTE = _DataASorDB.GetDatatable("IDB", oSQL, "VWIDB_BE_ATTRIBUTE", "") + Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE LANG_ID = {My.Application.User.LanguageID}" + DTVWIDB_BE_ATTRIBUTE = _DataASorDB.GetDatatable("IDB", oSQL, "VWIDB_BE_ATTRIBUTE", $"LANG_ID = {My.Application.User.LanguageID}") End Sub Public IDBSystemIndices As List(Of String) Public Function GetIndicesByBE(ByVal pBusinessEntity As String) As List(Of String) @@ -205,4 +205,5 @@ Public Class ClassIDBData Return False End Try End Function + End Class diff --git a/GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb b/GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb index 1942faf9..db3cda0a 100644 --- a/GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb +++ b/GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb @@ -25,6 +25,8 @@ Option Explicit On Partial Public Class GlobixDataset Inherits Global.System.Data.DataSet + Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable + Private tableTBTEMP_INDEXRESULTS As TBTEMP_INDEXRESULTSDataTable Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema @@ -56,6 +58,9 @@ Partial Public Class GlobixDataset If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("TBDD_DOKUMENTART")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_DOKUMENTARTDataTable(ds.Tables("TBDD_DOKUMENTART"))) + End If If (Not (ds.Tables("TBTEMP_INDEXRESULTS")) Is Nothing) Then MyBase.Tables.Add(New TBTEMP_INDEXRESULTSDataTable(ds.Tables("TBTEMP_INDEXRESULTS"))) End If @@ -76,6 +81,16 @@ Partial Public Class GlobixDataset AddHandler Me.Relations.CollectionChanged, schemaChangedHandler End Sub + _ + Public ReadOnly Property TBDD_DOKUMENTART() As TBDD_DOKUMENTARTDataTable + Get + Return Me.tableTBDD_DOKUMENTART + End Get + End Property + _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableTBDD_DOKUMENTART = CType(MyBase.Tables("TBDD_DOKUMENTART"),TBDD_DOKUMENTARTDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_DOKUMENTART) Is Nothing) Then + Me.tableTBDD_DOKUMENTART.InitVars + End If + End If Me.tableTBTEMP_INDEXRESULTS = CType(MyBase.Tables("TBTEMP_INDEXRESULTS"),TBTEMP_INDEXRESULTSDataTable) If (initTable = true) Then If (Not (Me.tableTBTEMP_INDEXRESULTS) Is Nothing) Then @@ -204,10 +228,18 @@ Partial Public Class GlobixDataset Me.Namespace = "http://tempuri.org/GlobixDataset.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableTBDD_DOKUMENTART = New TBDD_DOKUMENTARTDataTable() + MyBase.Tables.Add(Me.tableTBDD_DOKUMENTART) Me.tableTBTEMP_INDEXRESULTS = New TBTEMP_INDEXRESULTSDataTable() MyBase.Tables.Add(Me.tableTBTEMP_INDEXRESULTS) End Sub + _ + Private Function ShouldSerializeTBDD_DOKUMENTART() As Boolean + Return false + End Function + _ Private Function ShouldSerializeTBTEMP_INDEXRESULTS() As Boolean @@ -272,9 +304,539 @@ Partial Public Class GlobixDataset Return type End Function + _ + Public Delegate Sub TBDD_DOKUMENTARTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_DOKUMENTARTRowChangeEvent) + _ Public Delegate Sub TBTEMP_INDEXRESULTSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBTEMP_INDEXRESULTSRowChangeEvent) + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_DOKUMENTARTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_DOKUMENTARTRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnOBJEKTTYP As Global.System.Data.DataColumn + + Private columnEINGANGSART_ID As Global.System.Data.DataColumn + + Private columnKURZNAME As Global.System.Data.DataColumn + + Private columnZIEL_PFAD As Global.System.Data.DataColumn + + Private columnBESCHREIBUNG As Global.System.Data.DataColumn + + Private columnWINDREAM_DIRECT As Global.System.Data.DataColumn + + Private columnFOLDER_FOR_INDEX As Global.System.Data.DataColumn + + Private columnDUPLICATE_HANDLING As Global.System.Data.DataColumn + + Private columnAKTIV As Global.System.Data.DataColumn + + Private columnLANGUAGE As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnNAMENKONVENTION As Global.System.Data.DataColumn + + Private columnERSTELLTWER As Global.System.Data.DataColumn + + Private columnERSTELLTWANN As Global.System.Data.DataColumn + + Private columnGEANDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_DOKUMENTART" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property OBJEKTTYPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOBJEKTTYP + End Get + End Property + + _ + Public ReadOnly Property EINGANGSART_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEINGANGSART_ID + End Get + End Property + + _ + Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKURZNAME + End Get + End Property + + _ + Public ReadOnly Property ZIEL_PFADColumn() As Global.System.Data.DataColumn + Get + Return Me.columnZIEL_PFAD + End Get + End Property + + _ + Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESCHREIBUNG + End Get + End Property + + _ + Public ReadOnly Property WINDREAM_DIRECTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWINDREAM_DIRECT + End Get + End Property + + _ + Public ReadOnly Property FOLDER_FOR_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLDER_FOR_INDEX + End Get + End Property + + _ + Public ReadOnly Property DUPLICATE_HANDLINGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDUPLICATE_HANDLING + End Get + End Property + + _ + Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAKTIV + End Get + End Property + + _ + Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLANGUAGE + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property NAMENKONVENTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAMENKONVENTION + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWER + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWANN + End Get + End Property + + _ + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEANDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_DOKUMENTARTRow + Get + Return CType(Me.Rows(index),TBDD_DOKUMENTARTRow) + End Get + End Property + + _ + Public Event TBDD_DOKUMENTARTRowChanging As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Event TBDD_DOKUMENTARTRowChanged As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Event TBDD_DOKUMENTARTRowDeleting As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Event TBDD_DOKUMENTARTRowDeleted As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_DOKUMENTARTRow( _ + ByVal BEZEICHNUNG As String, _ + ByVal OBJEKTTYP As String, _ + ByVal EINGANGSART_ID As Byte, _ + ByVal KURZNAME As String, _ + ByVal ZIEL_PFAD As String, _ + ByVal BESCHREIBUNG As String, _ + ByVal WINDREAM_DIRECT As Boolean, _ + ByVal FOLDER_FOR_INDEX As String, _ + ByVal DUPLICATE_HANDLING As String, _ + ByVal AKTIV As Boolean, _ + ByVal LANGUAGE As String, _ + ByVal SEQUENCE As Integer, _ + ByVal NAMENKONVENTION As String, _ + ByVal ERSTELLTWER As String, _ + ByVal ERSTELLTWANN As Date, _ + ByVal GEANDERTWER As String, _ + ByVal GEAENDERTWANN As Date) As TBDD_DOKUMENTARTRow + Dim rowTBDD_DOKUMENTARTRow As TBDD_DOKUMENTARTRow = CType(Me.NewRow,TBDD_DOKUMENTARTRow) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} + rowTBDD_DOKUMENTARTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_DOKUMENTARTRow) + Return rowTBDD_DOKUMENTARTRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_DOKUMENTARTRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_DOKUMENTARTRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_DOKUMENTARTDataTable = CType(MyBase.Clone,TBDD_DOKUMENTARTDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_DOKUMENTARTDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnOBJEKTTYP = MyBase.Columns("OBJEKTTYP") + Me.columnEINGANGSART_ID = MyBase.Columns("EINGANGSART_ID") + Me.columnKURZNAME = MyBase.Columns("KURZNAME") + Me.columnZIEL_PFAD = MyBase.Columns("ZIEL_PFAD") + Me.columnBESCHREIBUNG = MyBase.Columns("BESCHREIBUNG") + Me.columnWINDREAM_DIRECT = MyBase.Columns("WINDREAM_DIRECT") + Me.columnFOLDER_FOR_INDEX = MyBase.Columns("FOLDER_FOR_INDEX") + Me.columnDUPLICATE_HANDLING = MyBase.Columns("DUPLICATE_HANDLING") + Me.columnAKTIV = MyBase.Columns("AKTIV") + Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnNAMENKONVENTION = MyBase.Columns("NAMENKONVENTION") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnOBJEKTTYP = New Global.System.Data.DataColumn("OBJEKTTYP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOBJEKTTYP) + Me.columnEINGANGSART_ID = New Global.System.Data.DataColumn("EINGANGSART_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEINGANGSART_ID) + Me.columnKURZNAME = New Global.System.Data.DataColumn("KURZNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKURZNAME) + Me.columnZIEL_PFAD = New Global.System.Data.DataColumn("ZIEL_PFAD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnZIEL_PFAD) + Me.columnBESCHREIBUNG = New Global.System.Data.DataColumn("BESCHREIBUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESCHREIBUNG) + Me.columnWINDREAM_DIRECT = New Global.System.Data.DataColumn("WINDREAM_DIRECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWINDREAM_DIRECT) + Me.columnFOLDER_FOR_INDEX = New Global.System.Data.DataColumn("FOLDER_FOR_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLDER_FOR_INDEX) + Me.columnDUPLICATE_HANDLING = New Global.System.Data.DataColumn("DUPLICATE_HANDLING", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDUPLICATE_HANDLING) + Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAKTIV) + Me.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLANGUAGE) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnNAMENKONVENTION = New Global.System.Data.DataColumn("NAMENKONVENTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAMENKONVENTION) + Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 50 + Me.columnOBJEKTTYP.AllowDBNull = false + Me.columnOBJEKTTYP.MaxLength = 50 + Me.columnEINGANGSART_ID.AllowDBNull = false + Me.columnKURZNAME.AllowDBNull = false + Me.columnKURZNAME.MaxLength = 50 + Me.columnZIEL_PFAD.AllowDBNull = false + Me.columnZIEL_PFAD.MaxLength = 250 + Me.columnBESCHREIBUNG.MaxLength = 250 + Me.columnWINDREAM_DIRECT.AllowDBNull = false + Me.columnFOLDER_FOR_INDEX.AllowDBNull = false + Me.columnFOLDER_FOR_INDEX.MaxLength = 500 + Me.columnDUPLICATE_HANDLING.AllowDBNull = false + Me.columnDUPLICATE_HANDLING.MaxLength = 30 + Me.columnAKTIV.AllowDBNull = false + Me.columnAKTIV.DefaultValue = CType(false,Boolean) + Me.columnLANGUAGE.AllowDBNull = false + Me.columnLANGUAGE.MaxLength = 5 + Me.columnSEQUENCE.AllowDBNull = false + Me.columnNAMENKONVENTION.AllowDBNull = false + Me.columnNAMENKONVENTION.MaxLength = 500 + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnGEANDERTWER.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow + Return CType(Me.NewRow,TBDD_DOKUMENTARTRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_DOKUMENTARTRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_DOKUMENTARTRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_DOKUMENTARTRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowChanged(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_DOKUMENTARTRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowChanging(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_DOKUMENTARTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowDeleted(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_DOKUMENTARTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowDeleting(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As GlobixDataset = New GlobixDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_DOKUMENTARTDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + ''' '''Represents the strongly named DataTable class. ''' @@ -553,6 +1115,284 @@ Partial Public Class GlobixDataset End Function End Class + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_DOKUMENTARTRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_DOKUMENTART = CType(Me.Table,TBDD_DOKUMENTARTDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property OBJEKTTYP() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = value + End Set + End Property + + _ + Public Property EINGANGSART_ID() As Byte + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn),Byte) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn) = value + End Set + End Property + + _ + Public Property KURZNAME() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn) = value + End Set + End Property + + _ + Public Property ZIEL_PFAD() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn) = value + End Set + End Property + + _ + Public Property BESCHREIBUNG() As String + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESCHREIBUNG in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = value + End Set + End Property + + _ + Public Property WINDREAM_DIRECT() As Boolean + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn) = value + End Set + End Property + + _ + Public Property FOLDER_FOR_INDEX() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn) = value + End Set + End Property + + _ + Public Property DUPLICATE_HANDLING() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn) = value + End Set + End Property + + _ + Public Property AKTIV() As Boolean + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn) = value + End Set + End Property + + _ + Public Property LANGUAGE() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.LANGUAGEColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.LANGUAGEColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property NAMENKONVENTION() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWER() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = value + End Set + End Property + + _ + Public Property GEANDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Function IsBESCHREIBUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) + End Function + + _ + Public Sub SetBESCHREIBUNGNull() + Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) + End Function + + _ + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + End Class + ''' '''Represents strongly named DataRow class. ''' @@ -650,6 +1490,42 @@ Partial Public Class GlobixDataset End Sub End Class + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_DOKUMENTARTRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_DOKUMENTARTRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_DOKUMENTARTRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_DOKUMENTARTRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + ''' '''Row event argument class ''' @@ -686,3 +1562,888 @@ Partial Public Class GlobixDataset End Property End Class End Class + +Namespace GlobixDatasetTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_DOKUMENTARTTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_DOKUMENTART" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("OBJEKTTYP", "OBJEKTTYP") + tableMapping.ColumnMappings.Add("EINGANGSART_ID", "EINGANGSART_ID") + tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") + tableMapping.ColumnMappings.Add("ZIEL_PFAD", "ZIEL_PFAD") + tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") + tableMapping.ColumnMappings.Add("WINDREAM_DIRECT", "WINDREAM_DIRECT") + tableMapping.ColumnMappings.Add("FOLDER_FOR_INDEX", "FOLDER_FOR_INDEX") + tableMapping.ColumnMappings.Add("DUPLICATE_HANDLING", "DUPLICATE_HANDLING") + tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") + tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("NAMENKONVENTION", "NAMENKONVENTION") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, EINGANGSART_"& _ + "ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJE"& _ + "KTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ + " (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@"& _ + "NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQU"& _ + "ENCE,@DUPLICATE_HANDLING); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID"& _ + ", KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICAT"& _ + "E_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWAN"& _ + "N, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTITY"& _ + "())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUPLICATE_HANDLING", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "DUPLICATE_HANDLING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, EIN"& _ + "GANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BES"& _ + "CHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVE"& _ + "NTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WI"& _ + "NDREAM_DIRECT = @WINDREAM_DIRECT, FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " SEQUENCE = @SEQUENCE, DUPLICATE_HANDLING = @DUPLICATE_HANDLIN"& _ + "G"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, OBJEKTTYP, "& _ + "EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_I"& _ + "NDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWE"& _ + "R, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = "& _ + "@GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUPLICATE_HANDLING", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "DUPLICATE_HANDLING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECM_TESTConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, "& _ + "BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANG"& _ + "UAGE, SEQUENCE, NAMENKONVENTION, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ERSTELLTWER, ERSTELL"& _ + "TWANN, GEANDERTWER, GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID = @GUID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable, ByVal GUID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal GUID As Integer) As GlobixDataset.TBDD_DOKUMENTARTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + Dim dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable = New GlobixDataset.TBDD_DOKUMENTARTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As GlobixDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_DOKUMENTART") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) + If (KURZNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("KURZNAME") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(KURZNAME,String) + End If + If (ZIEL_PFAD Is Nothing) Then + Throw New Global.System.ArgumentNullException("ZIEL_PFAD") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(AKTIV,Boolean) + If (NAMENKONVENTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAMENKONVENTION") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) + End If + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ERSTELLTWER,String) + End If + If (OBJEKTTYP Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJEKTTYP") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(OBJEKTTYP,String) + End If + Me.Adapter.InsertCommand.Parameters(9).Value = CType(WINDREAM_DIRECT,Boolean) + If (FOLDER_FOR_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLDER_FOR_INDEX") + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String) + End If + Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEQUENCE,Integer) + If (DUPLICATE_HANDLING Is Nothing) Then + Throw New Global.System.ArgumentNullException("DUPLICATE_HANDLING") + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal GEANDERTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) + If (KURZNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("KURZNAME") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KURZNAME,String) + End If + If (ZIEL_PFAD Is Nothing) Then + Throw New Global.System.ArgumentNullException("ZIEL_PFAD") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(AKTIV,Boolean) + If (NAMENKONVENTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAMENKONVENTION") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) + End If + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GEANDERTWER,String) + End If + If (OBJEKTTYP Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJEKTTYP") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(OBJEKTTYP,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(WINDREAM_DIRECT,Boolean) + If (FOLDER_FOR_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLDER_FOR_INDEX") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEQUENCE,Integer) + If (DUPLICATE_HANDLING Is Nothing) Then + Throw New Global.System.ArgumentNullException("DUPLICATE_HANDLING") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String) + End If + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tBDD_DOKUMENTARTTableAdapter As TBDD_DOKUMENTARTTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property TBDD_DOKUMENTARTTableAdapter() As TBDD_DOKUMENTARTTableAdapter + Get + Return Me._tBDD_DOKUMENTARTTableAdapter + End Get + Set + Me._tBDD_DOKUMENTARTTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_DOKUMENTARTTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_DOKUMENTARTTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As GlobixDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As GlobixDataset, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As GlobixDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As GlobixDataset) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_DOKUMENTARTTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ + "t.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_DOKUMENTARTTableAdapter, Me._tBDD_DOKUMENTARTTableAdapter.Connection) + Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_DOKUMENTARTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_DOKUMENTARTTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_DOKUMENTARTTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_DOKUMENTARTTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(revertConnections(Me._tBDD_DOKUMENTARTTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_DOKUMENTARTTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/GUIs.ZooFlow/Globix/GlobixDataset.xsc b/GUIs.ZooFlow/Globix/GlobixDataset.xsc index 05b01991..cc169863 100644 --- a/GUIs.ZooFlow/Globix/GlobixDataset.xsc +++ b/GUIs.ZooFlow/Globix/GlobixDataset.xsc @@ -5,5 +5,17 @@ the code is regenerated. --> - + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Globix/GlobixDataset.xsd b/GUIs.ZooFlow/Globix/GlobixDataset.xsd index af558690..7783ebc5 100644 --- a/GUIs.ZooFlow/Globix/GlobixDataset.xsd +++ b/GUIs.ZooFlow/Globix/GlobixDataset.xsd @@ -3,8 +3,108 @@ - - + + + + + + + + + + DELETE FROM TBDD_DOKUMENTART +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_DOKUMENTART + (BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJEKTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING) +VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING); +SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + + + SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, + ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN +FROM TBDD_DOKUMENTART +WHERE (GUID = @GUID) + + + + + + + + UPDATE TBDD_DOKUMENTART +SET BEZEICHNUNG = @BEZEICHNUNG, EINGANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BESCHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, + NAMENKONVENTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WINDREAM_DIRECT = @WINDREAM_DIRECT, FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX, + SEQUENCE = @SEQUENCE, DUPLICATE_HANDLING = @DUPLICATE_HANDLING +WHERE (GUID = @Original_GUID); +SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -21,7 +121,101 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Globix/GlobixDataset.xss b/GUIs.ZooFlow/Globix/GlobixDataset.xss index 3ec40f89..1bd33e24 100644 --- a/GUIs.ZooFlow/Globix/GlobixDataset.xss +++ b/GUIs.ZooFlow/Globix/GlobixDataset.xss @@ -6,7 +6,8 @@ --> - + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb b/GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb index 3a08ed0b..34869f95 100644 --- a/GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb +++ b/GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb @@ -24,9 +24,8 @@ Partial Class frmFlowSearch Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowSearch)) - Dim TileItemElement3 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement() - Dim TileItemElement4 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement() - Me.Panel1 = New System.Windows.Forms.Panel() + Dim TileItemElement1 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement() + Dim TileItemElement2 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement() Me.CheckButton1 = New DevExpress.XtraEditors.CheckButton() Me.txtSearchTerm = New System.Windows.Forms.TextBox() Me.lblFoundResult = New System.Windows.Forms.Label() @@ -39,48 +38,50 @@ Partial Class frmFlowSearch Me.TileGroup3 = New DevExpress.XtraEditors.TileGroup() Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components) Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() - Me.BarToggleSwitchItemDateALL = New DevExpress.XtraBars.BarToggleSwitchItem() - Me.BarToggleSwitchItemCURRENTYEAR = New DevExpress.XtraBars.BarToggleSwitchItem() - Me.BarToggleSwitchItemLASTYEAR = New DevExpress.XtraBars.BarToggleSwitchItem() - Me.BarToggleSwitchItemCURRENTMONTH = New DevExpress.XtraBars.BarToggleSwitchItem() - Me.BarToggleSwitchItemLASTMONTH = New DevExpress.XtraBars.BarToggleSwitchItem() - Me.BarButtonGroup1 = New DevExpress.XtraBars.BarButtonGroup() - Me.BarToggleSwitchItemTODAY = New DevExpress.XtraBars.BarToggleSwitchItem() - Me.BarToggleSwitchItemYESTERDAY = New DevExpress.XtraBars.BarToggleSwitchItem() - Me.BarCheckItem1 = New DevExpress.XtraBars.BarCheckItem() - Me.BarToggleSwitchItem1 = New DevExpress.XtraBars.BarToggleSwitchItem() - Me.BarToggleSwitchItem2 = New DevExpress.XtraBars.BarToggleSwitchItem() - Me.BarEditItemDate = New DevExpress.XtraBars.BarEditItem() - Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.Panel1.SuspendLayout() + Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager(Me.components) + Me.panelContainer1 = New DevExpress.XtraBars.Docking.DockPanel() + Me.DockPanel1 = New DevExpress.XtraBars.Docking.DockPanel() + Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer() + Me.Label3 = New System.Windows.Forms.Label() + Me.CheckedListBoxCategories = New DevExpress.XtraEditors.CheckedListBoxControl() + Me.ToggleSwitchLastMonth = New DevExpress.XtraEditors.ToggleSwitch() + Me.ToggleSwitchCurrentMonth = New DevExpress.XtraEditors.ToggleSwitch() + Me.ToggleSwitchLastYear = New DevExpress.XtraEditors.ToggleSwitch() + Me.ToggleSwitchCurrentYear = New DevExpress.XtraEditors.ToggleSwitch() + Me.ToggleSwitchYesterday = New DevExpress.XtraEditors.ToggleSwitch() + Me.cmbAttributeDate = New System.Windows.Forms.ComboBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.ToggleSwitchToday = New DevExpress.XtraEditors.ToggleSwitch() + Me.DockPanel3 = New DevExpress.XtraBars.Docking.DockPanel() + Me.DockPanel3_Container = New DevExpress.XtraBars.Docking.ControlContainer() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Panel3 = New System.Windows.Forms.Panel() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.panelContainer1.SuspendLayout() + Me.DockPanel1.SuspendLayout() + Me.DockPanel1_Container.SuspendLayout() + CType(Me.CheckedListBoxCategories, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchLastMonth.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchCurrentMonth.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchLastYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchCurrentYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchYesterday.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchToday.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.DockPanel3.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.Panel3.SuspendLayout() Me.SuspendLayout() ' - 'Panel1 - ' - Me.Panel1.BackColor = System.Drawing.Color.DimGray - Me.Panel1.Controls.Add(Me.CheckButton1) - Me.Panel1.Controls.Add(Me.txtSearchTerm) - Me.Panel1.Controls.Add(Me.lblFoundResult) - Me.Panel1.Controls.Add(Me.Label1) - Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top - Me.Panel1.Location = New System.Drawing.Point(0, 159) - Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(1237, 61) - Me.Panel1.TabIndex = 0 - ' 'CheckButton1 ' Me.CheckButton1.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer)) Me.CheckButton1.Appearance.Options.UseBackColor = True Me.CheckButton1.ImageOptions.SvgImage = CType(resources.GetObject("CheckButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.CheckButton1.Location = New System.Drawing.Point(7, 11) + Me.CheckButton1.Location = New System.Drawing.Point(6, 6) Me.CheckButton1.Name = "CheckButton1" Me.CheckButton1.Size = New System.Drawing.Size(110, 45) Me.CheckButton1.TabIndex = 5 @@ -90,7 +91,7 @@ Partial Class frmFlowSearch ' Me.txtSearchTerm.BackColor = System.Drawing.Color.White Me.txtSearchTerm.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSearchTerm.Location = New System.Drawing.Point(148, 11) + Me.txtSearchTerm.Location = New System.Drawing.Point(124, 6) Me.txtSearchTerm.Name = "txtSearchTerm" Me.txtSearchTerm.Size = New System.Drawing.Size(167, 23) Me.txtSearchTerm.TabIndex = 0 @@ -101,7 +102,7 @@ Partial Class frmFlowSearch Me.lblFoundResult.BackColor = System.Drawing.Color.Transparent Me.lblFoundResult.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblFoundResult.ForeColor = System.Drawing.Color.White - Me.lblFoundResult.Location = New System.Drawing.Point(144, 37) + Me.lblFoundResult.Location = New System.Drawing.Point(122, 32) Me.lblFoundResult.Name = "lblFoundResult" Me.lblFoundResult.Size = New System.Drawing.Size(53, 19) Me.lblFoundResult.TabIndex = 3 @@ -113,7 +114,7 @@ Partial Class frmFlowSearch Me.Label1.AutoSize = True Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.ForeColor = System.Drawing.Color.White - Me.Label1.Location = New System.Drawing.Point(321, 14) + Me.Label1.Location = New System.Drawing.Point(297, 9) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(43, 16) Me.Label1.TabIndex = 0 @@ -122,9 +123,9 @@ Partial Class frmFlowSearch 'Panel2 ' Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel2.Location = New System.Drawing.Point(0, 627) + Me.Panel2.Location = New System.Drawing.Point(202, 627) Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(1237, 18) + Me.Panel2.Size = New System.Drawing.Size(1035, 18) Me.Panel2.TabIndex = 1 ' 'TileControlMatch @@ -133,17 +134,18 @@ Partial Class frmFlowSearch Me.TileControlMatch.AppearanceGroupText.Options.UseForeColor = True Me.TileControlMatch.AppearanceText.ForeColor = System.Drawing.Color.Yellow Me.TileControlMatch.AppearanceText.Options.UseForeColor = True - Me.TileControlMatch.BackColor = System.Drawing.Color.DimGray + Me.TileControlMatch.BackColor = System.Drawing.Color.DarkGray Me.TileControlMatch.Dock = System.Windows.Forms.DockStyle.Fill Me.TileControlMatch.Groups.Add(Me.TileGroup2) Me.TileControlMatch.Groups.Add(Me.TileGroup3) - Me.TileControlMatch.Location = New System.Drawing.Point(0, 220) + Me.TileControlMatch.Location = New System.Drawing.Point(0, 0) Me.TileControlMatch.MaxId = 2 Me.TileControlMatch.Name = "TileControlMatch" Me.TileControlMatch.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar Me.TileControlMatch.ShowGroupText = True - Me.TileControlMatch.Size = New System.Drawing.Size(1237, 407) + Me.TileControlMatch.Size = New System.Drawing.Size(1035, 415) Me.TileControlMatch.TabIndex = 2 + Me.TileControlMatch.TabStop = False Me.TileControlMatch.Text = "TileControl1" Me.TileControlMatch.ToolTipController = Me.ToolTipController1 ' @@ -158,8 +160,8 @@ Partial Class frmFlowSearch ' Me.TileItem1.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) Me.TileItem1.AppearanceItem.Normal.Options.UseBackColor = True - TileItemElement3.Text = "TileItem1" - Me.TileItem1.Elements.Add(TileItemElement3) + TileItemElement1.Text = "TileItem1" + Me.TileItem1.Elements.Add(TileItemElement1) Me.TileItem1.Id = 0 Me.TileItem1.ItemSize = DevExpress.XtraEditors.TileItemSize.Wide Me.TileItem1.Name = "TileItem1" @@ -168,8 +170,8 @@ Partial Class frmFlowSearch ' Me.TileItem2.AppearanceItem.Normal.BackColor = System.Drawing.Color.White Me.TileItem2.AppearanceItem.Normal.Options.UseBackColor = True - TileItemElement4.Text = "TileItem2" - Me.TileItem2.Elements.Add(TileItemElement4) + TileItemElement2.Text = "TileItem2" + Me.TileItem2.Elements.Add(TileItemElement2) Me.TileItem2.Id = 1 Me.TileItem2.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium Me.TileItem2.Name = "TileItem2" @@ -187,127 +189,23 @@ Partial Class frmFlowSearch 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarToggleSwitchItemDateALL, Me.BarToggleSwitchItemCURRENTYEAR, Me.BarToggleSwitchItemLASTYEAR, Me.BarToggleSwitchItemCURRENTMONTH, Me.BarToggleSwitchItemLASTMONTH, Me.BarButtonGroup1, Me.BarToggleSwitchItemTODAY, Me.BarToggleSwitchItemYESTERDAY, Me.BarCheckItem1, Me.BarToggleSwitchItem1, Me.BarToggleSwitchItem2, Me.BarEditItemDate}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) Me.RibbonControl1.MaxItemId = 13 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) - Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemComboBox1}) + Me.RibbonControl1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.MacOffice Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowToolbarCustomizeItem = False - Me.RibbonControl1.Size = New System.Drawing.Size(1237, 159) + Me.RibbonControl1.Size = New System.Drawing.Size(1237, 146) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.Toolbar.ShowCustomizeItem = False ' - 'BarToggleSwitchItemDateALL - ' - Me.BarToggleSwitchItemDateALL.BindableChecked = True - Me.BarToggleSwitchItemDateALL.Caption = "keine Eingrenzung" - Me.BarToggleSwitchItemDateALL.Checked = True - Me.BarToggleSwitchItemDateALL.Id = 1 - Me.BarToggleSwitchItemDateALL.Name = "BarToggleSwitchItemDateALL" - ' - 'BarToggleSwitchItemCURRENTYEAR - ' - Me.BarToggleSwitchItemCURRENTYEAR.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left - Me.BarToggleSwitchItemCURRENTYEAR.Caption = "Aktuelles Jahr" - Me.BarToggleSwitchItemCURRENTYEAR.Id = 2 - Me.BarToggleSwitchItemCURRENTYEAR.Name = "BarToggleSwitchItemCURRENTYEAR" - ' - 'BarToggleSwitchItemLASTYEAR - ' - Me.BarToggleSwitchItemLASTYEAR.Caption = "Letztes Jahr" - Me.BarToggleSwitchItemLASTYEAR.Id = 3 - Me.BarToggleSwitchItemLASTYEAR.Name = "BarToggleSwitchItemLASTYEAR" - ' - 'BarToggleSwitchItemCURRENTMONTH - ' - Me.BarToggleSwitchItemCURRENTMONTH.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right - Me.BarToggleSwitchItemCURRENTMONTH.Caption = "Aktueller Monat" - Me.BarToggleSwitchItemCURRENTMONTH.Id = 4 - Me.BarToggleSwitchItemCURRENTMONTH.Name = "BarToggleSwitchItemCURRENTMONTH" - ' - 'BarToggleSwitchItemLASTMONTH - ' - Me.BarToggleSwitchItemLASTMONTH.Caption = "LetzterMonat" - Me.BarToggleSwitchItemLASTMONTH.Id = 5 - Me.BarToggleSwitchItemLASTMONTH.Name = "BarToggleSwitchItemLASTMONTH" - ' - 'BarButtonGroup1 - ' - Me.BarButtonGroup1.Caption = "BarButtonGroup1" - Me.BarButtonGroup1.Id = 6 - Me.BarButtonGroup1.Name = "BarButtonGroup1" - ' - 'BarToggleSwitchItemTODAY - ' - Me.BarToggleSwitchItemTODAY.Caption = "Heute" - Me.BarToggleSwitchItemTODAY.Id = 7 - Me.BarToggleSwitchItemTODAY.Name = "BarToggleSwitchItemTODAY" - ' - 'BarToggleSwitchItemYESTERDAY - ' - Me.BarToggleSwitchItemYESTERDAY.Caption = "Gestern" - Me.BarToggleSwitchItemYESTERDAY.Id = 8 - Me.BarToggleSwitchItemYESTERDAY.Name = "BarToggleSwitchItemYESTERDAY" - ' - 'BarCheckItem1 - ' - Me.BarCheckItem1.Caption = "BarCheckItem1" - Me.BarCheckItem1.Id = 9 - Me.BarCheckItem1.Name = "BarCheckItem1" - ' - 'BarToggleSwitchItem1 - ' - Me.BarToggleSwitchItem1.Caption = "BarToggleSwitchItem1" - Me.BarToggleSwitchItem1.Id = 10 - Me.BarToggleSwitchItem1.Name = "BarToggleSwitchItem1" - ' - 'BarToggleSwitchItem2 - ' - Me.BarToggleSwitchItem2.Caption = "BarToggleSwitchItem2" - Me.BarToggleSwitchItem2.Id = 11 - Me.BarToggleSwitchItem2.Name = "BarToggleSwitchItem2" - ' - 'BarEditItemDate - ' - Me.BarEditItemDate.Caption = "Attribut Datum" - Me.BarEditItemDate.Edit = Me.RepositoryItemComboBox1 - Me.BarEditItemDate.EditWidth = 120 - Me.BarEditItemDate.Id = 12 - Me.BarEditItemDate.Name = "BarEditItemDate" - ' - 'RepositoryItemComboBox1 - ' - Me.RepositoryItemComboBox1.AutoHeight = False - Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1" - ' 'RibbonPage1 ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Text = "Start" ' - 'RibbonPageGroup1 - ' - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemDateALL) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarEditItemDate) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonGroup1) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemTODAY, True) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemYESTERDAY) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemCURRENTYEAR, True) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemLASTYEAR) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemLASTMONTH, True) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemCURRENTMONTH) - Me.RibbonPageGroup1.Name = "RibbonPageGroup1" - Me.RibbonPageGroup1.Text = "Eingrenzung Datum" - ' - 'RibbonPageGroup2 - ' - Me.RibbonPageGroup2.Name = "RibbonPageGroup2" - Me.RibbonPageGroup2.Text = "RibbonPageGroup2" - ' 'RibbonStatusBar1 ' Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 645) @@ -320,6 +218,230 @@ Partial Class frmFlowSearch Me.RibbonPage2.Name = "RibbonPage2" Me.RibbonPage2.Text = "RibbonPage2" ' + 'DockManager1 + ' + Me.DockManager1.Form = Me + Me.DockManager1.RootPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.panelContainer1}) + Me.DockManager1.TopZIndexControls.AddRange(New String() {"DevExpress.XtraBars.BarDockControl", "DevExpress.XtraBars.StandaloneBarDockControl", "System.Windows.Forms.StatusBar", "System.Windows.Forms.MenuStrip", "System.Windows.Forms.StatusStrip", "DevExpress.XtraBars.Ribbon.RibbonStatusBar", "DevExpress.XtraBars.Ribbon.RibbonControl", "DevExpress.XtraBars.Navigation.OfficeNavigationBar", "DevExpress.XtraBars.Navigation.TileNavPane", "DevExpress.XtraBars.TabFormControl", "DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl", "DevExpress.XtraBars.ToolbarForm.ToolbarFormControl"}) + ' + 'panelContainer1 + ' + Me.panelContainer1.ActiveChild = Me.DockPanel1 + Me.panelContainer1.Controls.Add(Me.DockPanel1) + Me.panelContainer1.Controls.Add(Me.DockPanel3) + Me.panelContainer1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left + Me.panelContainer1.ID = New System.Guid("2c41e5f4-f976-4b22-a22e-afe12cfdaa3d") + Me.panelContainer1.Location = New System.Drawing.Point(0, 146) + Me.panelContainer1.Name = "panelContainer1" + Me.panelContainer1.OriginalSize = New System.Drawing.Size(202, 200) + Me.panelContainer1.Size = New System.Drawing.Size(202, 499) + Me.panelContainer1.Tabbed = True + Me.panelContainer1.Text = "panelContainer1" + ' + 'DockPanel1 + ' + Me.DockPanel1.Appearance.BackColor = System.Drawing.Color.DarkGray + Me.DockPanel1.Appearance.Options.UseBackColor = True + Me.DockPanel1.Controls.Add(Me.DockPanel1_Container) + Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill + Me.DockPanel1.Font = New System.Drawing.Font("Calibri", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.DockPanel1.ID = New System.Guid("1ff5d42b-085b-405c-85c0-e49f75099dd0") + Me.DockPanel1.Location = New System.Drawing.Point(3, 46) + Me.DockPanel1.Name = "DockPanel1" + Me.DockPanel1.Options.AllowFloating = False + Me.DockPanel1.Options.ShowCloseButton = False + Me.DockPanel1.Options.ShowMaximizeButton = False + Me.DockPanel1.OriginalSize = New System.Drawing.Size(220, 421) + Me.DockPanel1.Size = New System.Drawing.Size(195, 421) + Me.DockPanel1.Text = "Datum" + ' + 'DockPanel1_Container + ' + Me.DockPanel1_Container.Controls.Add(Me.Label3) + Me.DockPanel1_Container.Controls.Add(Me.CheckedListBoxCategories) + Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchLastMonth) + Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchCurrentMonth) + Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchLastYear) + Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchCurrentYear) + Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchYesterday) + Me.DockPanel1_Container.Controls.Add(Me.cmbAttributeDate) + Me.DockPanel1_Container.Controls.Add(Me.Label2) + Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchToday) + Me.DockPanel1_Container.Location = New System.Drawing.Point(0, 0) + Me.DockPanel1_Container.Name = "DockPanel1_Container" + Me.DockPanel1_Container.Size = New System.Drawing.Size(195, 421) + Me.DockPanel1_Container.TabIndex = 0 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.ForeColor = System.Drawing.Color.White + Me.Label3.Location = New System.Drawing.Point(9, 197) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(75, 17) + Me.Label3.TabIndex = 16 + Me.Label3.Text = "Kategorien:" + ' + 'CheckedListBoxCategories + ' + Me.CheckedListBoxCategories.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.CheckedListBoxCategories.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CheckedListBoxCategories.Appearance.Options.UseFont = True + Me.CheckedListBoxCategories.CheckOnClick = True + Me.CheckedListBoxCategories.Location = New System.Drawing.Point(12, 217) + Me.CheckedListBoxCategories.Name = "CheckedListBoxCategories" + Me.CheckedListBoxCategories.Size = New System.Drawing.Size(174, 201) + Me.CheckedListBoxCategories.TabIndex = 15 + ' + 'ToggleSwitchLastMonth + ' + Me.ToggleSwitchLastMonth.Location = New System.Drawing.Point(12, 175) + Me.ToggleSwitchLastMonth.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchLastMonth.Name = "ToggleSwitchLastMonth" + Me.ToggleSwitchLastMonth.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToggleSwitchLastMonth.Properties.Appearance.ForeColor = System.Drawing.Color.White + Me.ToggleSwitchLastMonth.Properties.Appearance.Options.UseFont = True + Me.ToggleSwitchLastMonth.Properties.Appearance.Options.UseForeColor = True + Me.ToggleSwitchLastMonth.Properties.OffText = "Letzter Monat" + Me.ToggleSwitchLastMonth.Properties.OnText = "Letzter Monat" + Me.ToggleSwitchLastMonth.Size = New System.Drawing.Size(151, 19) + Me.ToggleSwitchLastMonth.TabIndex = 14 + ' + 'ToggleSwitchCurrentMonth + ' + Me.ToggleSwitchCurrentMonth.Location = New System.Drawing.Point(12, 150) + Me.ToggleSwitchCurrentMonth.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchCurrentMonth.Name = "ToggleSwitchCurrentMonth" + Me.ToggleSwitchCurrentMonth.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToggleSwitchCurrentMonth.Properties.Appearance.ForeColor = System.Drawing.Color.White + Me.ToggleSwitchCurrentMonth.Properties.Appearance.Options.UseFont = True + Me.ToggleSwitchCurrentMonth.Properties.Appearance.Options.UseForeColor = True + Me.ToggleSwitchCurrentMonth.Properties.OffText = "Aktueller Monat" + Me.ToggleSwitchCurrentMonth.Properties.OnText = "Aktueller Monat" + Me.ToggleSwitchCurrentMonth.Size = New System.Drawing.Size(174, 19) + Me.ToggleSwitchCurrentMonth.TabIndex = 13 + ' + 'ToggleSwitchLastYear + ' + Me.ToggleSwitchLastYear.Location = New System.Drawing.Point(12, 125) + Me.ToggleSwitchLastYear.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchLastYear.Name = "ToggleSwitchLastYear" + Me.ToggleSwitchLastYear.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToggleSwitchLastYear.Properties.Appearance.ForeColor = System.Drawing.Color.White + Me.ToggleSwitchLastYear.Properties.Appearance.Options.UseFont = True + Me.ToggleSwitchLastYear.Properties.Appearance.Options.UseForeColor = True + Me.ToggleSwitchLastYear.Properties.OffText = "Letztes Jahr" + Me.ToggleSwitchLastYear.Properties.OnText = "Letztes Jahr" + Me.ToggleSwitchLastYear.Size = New System.Drawing.Size(151, 19) + Me.ToggleSwitchLastYear.TabIndex = 5 + ' + 'ToggleSwitchCurrentYear + ' + Me.ToggleSwitchCurrentYear.Location = New System.Drawing.Point(12, 100) + Me.ToggleSwitchCurrentYear.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchCurrentYear.Name = "ToggleSwitchCurrentYear" + Me.ToggleSwitchCurrentYear.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToggleSwitchCurrentYear.Properties.Appearance.ForeColor = System.Drawing.Color.White + Me.ToggleSwitchCurrentYear.Properties.Appearance.Options.UseFont = True + Me.ToggleSwitchCurrentYear.Properties.Appearance.Options.UseForeColor = True + Me.ToggleSwitchCurrentYear.Properties.OffText = "Aktuelles Jahr" + Me.ToggleSwitchCurrentYear.Properties.OnText = "Aktuelles Jahr" + Me.ToggleSwitchCurrentYear.Size = New System.Drawing.Size(151, 19) + Me.ToggleSwitchCurrentYear.TabIndex = 4 + ' + 'ToggleSwitchYesterday + ' + Me.ToggleSwitchYesterday.Location = New System.Drawing.Point(12, 75) + Me.ToggleSwitchYesterday.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchYesterday.Name = "ToggleSwitchYesterday" + Me.ToggleSwitchYesterday.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToggleSwitchYesterday.Properties.Appearance.ForeColor = System.Drawing.Color.White + Me.ToggleSwitchYesterday.Properties.Appearance.Options.UseFont = True + Me.ToggleSwitchYesterday.Properties.Appearance.Options.UseForeColor = True + Me.ToggleSwitchYesterday.Properties.OffText = "Gestern" + Me.ToggleSwitchYesterday.Properties.OnText = "Gestern" + Me.ToggleSwitchYesterday.Size = New System.Drawing.Size(115, 19) + Me.ToggleSwitchYesterday.TabIndex = 3 + ' + 'cmbAttributeDate + ' + Me.cmbAttributeDate.FormattingEnabled = True + Me.cmbAttributeDate.Location = New System.Drawing.Point(12, 25) + Me.cmbAttributeDate.Name = "cmbAttributeDate" + Me.cmbAttributeDate.Size = New System.Drawing.Size(174, 21) + Me.cmbAttributeDate.TabIndex = 1 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.ForeColor = System.Drawing.Color.White + Me.Label2.Location = New System.Drawing.Point(9, 7) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(135, 15) + Me.Label2.TabIndex = 0 + Me.Label2.Text = "Datum-Attribut wählen:" + ' + 'ToggleSwitchToday + ' + Me.ToggleSwitchToday.Location = New System.Drawing.Point(12, 50) + Me.ToggleSwitchToday.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchToday.Name = "ToggleSwitchToday" + Me.ToggleSwitchToday.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToggleSwitchToday.Properties.Appearance.ForeColor = System.Drawing.Color.White + Me.ToggleSwitchToday.Properties.Appearance.Options.UseFont = True + Me.ToggleSwitchToday.Properties.Appearance.Options.UseForeColor = True + Me.ToggleSwitchToday.Properties.OffText = "Heute" + Me.ToggleSwitchToday.Properties.OnText = "Heute" + Me.ToggleSwitchToday.Size = New System.Drawing.Size(102, 19) + Me.ToggleSwitchToday.TabIndex = 2 + ' + 'DockPanel3 + ' + Me.DockPanel3.Appearance.BackColor = System.Drawing.Color.DarkGray + Me.DockPanel3.Appearance.Options.UseBackColor = True + Me.DockPanel3.Controls.Add(Me.DockPanel3_Container) + Me.DockPanel3.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill + Me.DockPanel3.ID = New System.Guid("08fbe6c7-4310-499d-bd16-beeb37a1d906") + Me.DockPanel3.Location = New System.Drawing.Point(3, 46) + Me.DockPanel3.Name = "DockPanel3" + Me.DockPanel3.Options.AllowFloating = False + Me.DockPanel3.OriginalSize = New System.Drawing.Size(220, 421) + Me.DockPanel3.Size = New System.Drawing.Size(195, 421) + Me.DockPanel3.Text = "Attribute" + ' + 'DockPanel3_Container + ' + Me.DockPanel3_Container.Location = New System.Drawing.Point(0, 0) + Me.DockPanel3_Container.Name = "DockPanel3_Container" + Me.DockPanel3_Container.Size = New System.Drawing.Size(195, 421) + Me.DockPanel3_Container.TabIndex = 0 + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.DarkGray + Me.Panel1.Controls.Add(Me.CheckButton1) + Me.Panel1.Controls.Add(Me.txtSearchTerm) + Me.Panel1.Controls.Add(Me.lblFoundResult) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(202, 146) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1035, 66) + Me.Panel1.TabIndex = 0 + ' + 'Panel3 + ' + Me.Panel3.BackColor = System.Drawing.Color.Transparent + Me.Panel3.Controls.Add(Me.TileControlMatch) + Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel3.Location = New System.Drawing.Point(202, 212) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(1035, 415) + Me.Panel3.TabIndex = 9 + ' 'frmFlowSearch ' Me.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) @@ -327,26 +449,38 @@ Partial Class frmFlowSearch Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1237, 667) - Me.Controls.Add(Me.TileControlMatch) - Me.Controls.Add(Me.Panel2) + Me.Controls.Add(Me.Panel3) Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.Panel2) + Me.Controls.Add(Me.panelContainer1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) - Me.IconOptions.SvgImage = CType(resources.GetObject("frmFlowSearch.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.IconOptions.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.Flow Me.Name = "frmFlowSearch" Me.Ribbon = Me.RibbonControl1 Me.StatusBar = Me.RibbonStatusBar1 Me.Text = "FlowSearch" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit() + Me.panelContainer1.ResumeLayout(False) + Me.DockPanel1.ResumeLayout(False) + Me.DockPanel1_Container.ResumeLayout(False) + Me.DockPanel1_Container.PerformLayout() + CType(Me.CheckedListBoxCategories, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchLastMonth.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchCurrentMonth.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchLastYear.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchCurrentYear.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchYesterday.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchToday.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.DockPanel3.ResumeLayout(False) Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel3.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() End Sub - - Friend WithEvents Panel1 As Panel Friend WithEvents txtSearchTerm As TextBox Friend WithEvents Label1 As Label Friend WithEvents lblFoundResult As Label @@ -358,23 +492,26 @@ Partial Class frmFlowSearch Friend WithEvents TileGroup3 As DevExpress.XtraEditors.TileGroup Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents BarToggleSwitchItemDateALL As DevExpress.XtraBars.BarToggleSwitchItem - Friend WithEvents BarToggleSwitchItemCURRENTYEAR As DevExpress.XtraBars.BarToggleSwitchItem - Friend WithEvents BarToggleSwitchItemLASTYEAR As DevExpress.XtraBars.BarToggleSwitchItem - Friend WithEvents BarToggleSwitchItemCURRENTMONTH As DevExpress.XtraBars.BarToggleSwitchItem - Friend WithEvents BarToggleSwitchItemLASTMONTH As DevExpress.XtraBars.BarToggleSwitchItem - Friend WithEvents BarButtonGroup1 As DevExpress.XtraBars.BarButtonGroup - Friend WithEvents BarToggleSwitchItemTODAY As DevExpress.XtraBars.BarToggleSwitchItem - Friend WithEvents BarToggleSwitchItemYESTERDAY As DevExpress.XtraBars.BarToggleSwitchItem - Friend WithEvents BarCheckItem1 As DevExpress.XtraBars.BarCheckItem - Friend WithEvents BarToggleSwitchItem1 As DevExpress.XtraBars.BarToggleSwitchItem - Friend WithEvents BarToggleSwitchItem2 As DevExpress.XtraBars.BarToggleSwitchItem Friend WithEvents CheckButton1 As DevExpress.XtraEditors.CheckButton - Friend WithEvents BarEditItemDate As DevExpress.XtraBars.BarEditItem - Friend WithEvents RepositoryItemComboBox1 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox Friend WithEvents ToolTipController1 As DevExpress.Utils.ToolTipController + Friend WithEvents DockManager1 As DevExpress.XtraBars.Docking.DockManager + Friend WithEvents DockPanel1 As DevExpress.XtraBars.Docking.DockPanel + Friend WithEvents DockPanel1_Container As DevExpress.XtraBars.Docking.ControlContainer + Friend WithEvents Label2 As Label + Friend WithEvents panelContainer1 As DevExpress.XtraBars.Docking.DockPanel + Friend WithEvents DockPanel3 As DevExpress.XtraBars.Docking.DockPanel + Friend WithEvents DockPanel3_Container As DevExpress.XtraBars.Docking.ControlContainer + Friend WithEvents Panel3 As Panel + Friend WithEvents Panel1 As Panel + Friend WithEvents cmbAttributeDate As ComboBox + Friend WithEvents ToggleSwitchToday As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents ToggleSwitchYesterday As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents ToggleSwitchLastYear As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents ToggleSwitchCurrentYear As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents ToggleSwitchLastMonth As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents ToggleSwitchCurrentMonth As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents CheckedListBoxCategories As DevExpress.XtraEditors.CheckedListBoxControl + Friend WithEvents Label3 As Label End Class diff --git a/GUIs.ZooFlow/Search/frmFlowSearch.resx b/GUIs.ZooFlow/Search/frmFlowSearch.resx index 6376c2b5..20caa60e 100644 --- a/GUIs.ZooFlow/Search/frmFlowSearch.resx +++ b/GUIs.ZooFlow/Search/frmFlowSearch.resx @@ -141,24 +141,13 @@ 17, 17 - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANoCAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z - ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz - OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp - dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9Ilpvb20iPg0KICAgIDxwYXRoIGQ9Ik0yNy43LDI1LjNM - MjAuNSwxOGMxLTEuNCwxLjUtMy4yLDEuNS01YzAtNS00LTktOS05cy05LDQtOSw5YzAsNSw0LDksOSw5 - YzEuOSwwLDMuNi0wLjYsNS0xLjVsNy4zLDcuMyAgIGMwLjMsMC4zLDAuOSwwLjMsMS4yLDBsMS4yLTEu - MkMyOC4xLDI2LjIsMjguMSwyNS42LDI3LjcsMjUuM3ogTTYsMTNjMC0zLjksMy4xLTcsNy03czcsMy4x - LDcsN2MwLDMuOS0zLjEsNy03LDdTNiwxNi45LDYsMTN6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4N - Cjwvc3ZnPgs= - - + + 170, 17 + + + True + + + True + \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/frmFlowSearch.vb b/GUIs.ZooFlow/Search/frmFlowSearch.vb index 1002f810..79400573 100644 --- a/GUIs.ZooFlow/Search/frmFlowSearch.vb +++ b/GUIs.ZooFlow/Search/frmFlowSearch.vb @@ -22,6 +22,9 @@ Public Class frmFlowSearch Private SEARCH_FACT_DATE As String = "MONTH(OBJ.ADDED_WHEN) <> 13" Private SEARCH_FACT_DATE_ATTRIBUTE = "ADDED_WHEN" Private Language_Term_Object As String + Private LIMITATION_DATE As Boolean = False + Private TOGGLE_Change As Boolean = False + Private CATEGORIES_SELECTED As String = "" Public Sub New(pBaseSearchSql As String) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() @@ -37,25 +40,31 @@ Public Class frmFlowSearch End Sub Private Sub frmFlowSearch_Load(sender As Object, e As EventArgs) Handles Me.Load Try + RibbonControl1.Minimized = True TileControlMatch.Groups.Clear() - Dim oDT As DataTable = ASorDB.GetDatatable("IDB", $"SELECT * FROM VWIDB_BE_ATTRIBUTE", "VWIDB_BE_ATTRIBUTE", "", "ATTR_TITLE") - If My.Application.User.Language = "de-DE" Then - RepositoryItemComboBox1.Items.Add(IDB_ADDED_WHEN_String_German) - Else - RepositoryItemComboBox1.Items.Add(IDB_ADDED_WHEN_String_Englisch) - End If + Dim oDTCategory As DataTable = ASorDB.GetDatatable("IDB", $"SELECT 'NONE' as CATEGORY", "VWAPPSERV_CATEGORIES", "", "CATEGORY") + If Not IsNothing(oDTCategory) Then + CheckedListBoxCategories.DataSource = oDTCategory + CheckedListBoxCategories.DisplayMember = "CATEGORY" + End If + If My.Application.User.Language = "de-DE" Then + cmbAttributeDate.Items.Add(IDB_ADDED_WHEN_String_German) + Else + cmbAttributeDate.Items.Add(IDB_ADDED_WHEN_String_Englisch) + End If + Dim oDT As DataTable = ASorDB.GetDatatable("IDB", $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE TYPE_ID = 5 AND LANG_ID = {My.Application.User.LanguageID}", "VWIDB_BE_ATTRIBUTE", $"TYPE_ID = 5 AND LANG_ID = {My.Application.User.LanguageID}") For Each oRow As DataRow In oDT.Rows - If oRow.Item("TYPE_ID") = 5 Then - RepositoryItemComboBox1.Items.Add(oRow.Item("ATTR_TITLE")) - End If + cmbAttributeDate.Items.Add(oRow.Item("ATTR_TITLE")) Next 'Dim editor As BarEditItem = BarEditItemDate ' editor = TryCast(BarEditItemDate, ComboBoxEdit) If My.Application.User.Language = "de-DE" Then - BarEditItemDate.EditValue = "Erstellt Wann" + cmbAttributeDate.SelectedIndex = 0 + ' BarEditItemDate.EditValue = "Erstellt Wann" Else - BarEditItemDate.EditValue = "Added when" + cmbAttributeDate.SelectedIndex = 1 + ' BarEditItemDate.EditValue = "Added when" End If Catch ex As Exception @@ -64,25 +73,7 @@ Public Class frmFlowSearch End Try End Sub - Private Sub RepositoryItemComboBox1_EditValueChanged(sender As Object, e As EventArgs) Handles RepositoryItemComboBox1.EditValueChanged - Try - Dim oEditor As ComboBoxEdit - Dim oEditValue As String - oEditor = TryCast(RibbonControl1.Manager.ActiveEditor, ComboBoxEdit) - oEditValue = oEditor.EditValue - If oEditValue = IDB_ADDED_WHEN_String_German Or oEditValue = IDB_ADDED_WHEN_String_Englisch Then - SEARCH_FACT_DATE_ATTRIBUTE = "ADDED_WHEN" - Else - SEARCH_FACT_DATE_ATTRIBUTE = oEditValue - SEARCH_FACT_DATE = $"MONTH(GRPDATE.[{SEARCH_FACT_DATE_ATTRIBUTE}]) <> 13" - End If - SearchContent() - Catch ex As Exception - Logger.Error(ex) - End Try - - End Sub Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearchTerm.TextChanged Try @@ -108,6 +99,8 @@ Public Class frmFlowSearch If txtSearchTerm.Text = String.Empty Then Exit Sub End If + GET_SELECTED_CATEGORIES() + Dim oSearchValue = Trim(txtSearchTerm.Text) oLastAttribute = "" Dim oSQL = BASE_SEARCHCommand.Replace("@SEARCH_STRING", oSearchValue) @@ -183,6 +176,8 @@ Public Class frmFlowSearch End If Catch ex As Exception Logger.Error(ex) + lblFoundResult.Text = $"Unexpected Error in SearchContent {ex.Message}" + lblFoundResult.Visible = True End Try @@ -335,16 +330,33 @@ Public Class frmFlowSearch End Function - Private Sub txtSearch_Enter(sender As Object, e As EventArgs) Handles txtSearchTerm.GotFocus + Private Sub txtSearch_GotFocus(sender As Object, e As EventArgs) Handles txtSearchTerm.GotFocus Label1.Visible = True Dim oTEXTBOX As TextBox = CType(sender, TextBox) oTEXTBOX.BackColor = Color.FromArgb(255, 214, 47) + + End Sub Private Sub txtSearchTerm_Leave(sender As Object, e As EventArgs) Handles txtSearchTerm.Leave Dim oTEXTBOX As TextBox = CType(sender, TextBox) oTEXTBOX.BackColor = Color.White End Sub + Sub GET_SELECTED_CATEGORIES() + CATEGORIES_SELECTED = "" + Dim i As Integer = 0 + For Each item As Object In CheckedListBoxCategories.CheckedItems + Dim row As DataRowView = TryCast(item, DataRowView) + Dim oItem = $"'{row("CATEGORY")}'" + If i = 0 Then + CATEGORIES_SELECTED = oItem + End If + If Not CATEGORIES_SELECTED.StartsWith(oItem) Then + CATEGORIES_SELECTED &= String.Format(",{0}", oItem) + End If + i += 1 + Next item + End Sub Private Sub TileControlMatch_ItemClick(sender As Object, e As TileItemEventArgs) Handles TileControlMatch.ItemClick Try @@ -356,7 +368,7 @@ Public Class frmFlowSearch Dim oSplit = oItem.Tag.ToString.Split("|") Try oHandle = SplashScreenManager.ShowOverlayForm(Me) - Dim oDT As DataTable = ASorDB.GetDatatable("IDB", $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = {oSplit(1)}", "VWIDB_BE_ATTRIBUTE", $"ATTR_ID = {oSplit(1)}") + Dim oDT As DataTable = ASorDB.GetDatatable("IDB", $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = {oSplit(1)} AND LANG_ID = {My.Application.User.LanguageID}", "VWIDB_BE_ATTRIBUTE", $"ATTR_ID = {oSplit(1)} AND LANG_ID = {My.Application.User.LanguageID}") Dim oType = oDT.Rows(0).Item("TYPE_NAME") Dim oEXECSQL = $"EXEC PRFLOW_SEARCH_GET_RESULT_PER_TILE {oSplit(0)},{My.Application.User.UserId},'{oType}',{oSplit(1)},'{My.Application.User.Language}'" Dim oDTOBJECT_RESULT As DataTable = My.DatabaseIDB.GetDatatable(oEXECSQL) @@ -391,88 +403,8 @@ Public Class frmFlowSearch Logger.Error(ex) End Try End Function - Private Sub BarToggleSwitchItem_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarToggleSwitchItemCURRENTYEAR.CheckedChanged, BarToggleSwitchItemLASTYEAR.CheckedChanged, BarToggleSwitchItemCURRENTMONTH.CheckedChanged, - BarToggleSwitchItemLASTMONTH.CheckedChanged, BarToggleSwitchItemTODAY.CheckedChanged, BarToggleSwitchItemYESTERDAY.CheckedChanged - Dim btsi As BarToggleSwitchItem = TryCast(sender, BarToggleSwitchItem) - If btsi.Checked = True Then - BarToggleSwitchItemDateALL.Checked = False - Dim oWHENDATE As String - Select Case btsi.Name - Case "BarToggleSwitchItemCURRENTYEAR" - oWHENDATE = GET_DATE_LIMITATION("YEAR(@ATTRIBUTE) = YEAR(GETDATE())") - Case "BarToggleSwitchItemLASTYEAR" - oWHENDATE = GET_DATE_LIMITATION("YEAR(@ATTRIBUTE) = (YEAR(GETDATE()) -1)") - Case "BarToggleSwitchItemCURRENTMONTH" - oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = MONTH(GETDATE())") - Case "BarToggleSwitchItemLASTMONTH" - Dim currentDate As DateTime = DateTime.Now - If currentDate.Month = 1 Then - oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = 12 " & vbNewLine & "AND YEAR(@ATTRIBUTE) = (YEAR(GETDATE()) -1)") - Else - oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = (MONTH(GETDATE()) -1)") - End If - Case "BarToggleSwitchItemTODAY" - oWHENDATE = GET_DATE_LIMITATION("convert(DATE,@ATTRIBUTE) = convert(DATE,GETDATE())") - Case "BarToggleSwitchItemYESTERDAY" - oWHENDATE = GET_DATE_LIMITATION("convert(DATE,@ATTRIBUTE) = convert(DATE,GETDATE()-1)") - End Select - SEARCH_FACT_DATE = oWHENDATE - Select Case btsi.Name - Case "BarToggleSwitchItemCURRENTYEAR" - BarToggleSwitchItemLASTYEAR.Checked = False - BarToggleSwitchItemCURRENTMONTH.Checked = False - BarToggleSwitchItemLASTMONTH.Checked = False - BarToggleSwitchItemTODAY.Checked = False - BarToggleSwitchItemYESTERDAY.Checked = False - Case "BarToggleSwitchItemLASTYEAR" - BarToggleSwitchItemCURRENTYEAR.Checked = False - BarToggleSwitchItemCURRENTMONTH.Checked = False - BarToggleSwitchItemLASTMONTH.Checked = False - BarToggleSwitchItemTODAY.Checked = False - BarToggleSwitchItemYESTERDAY.Checked = False - Case "BarToggleSwitchItemCURRENTMONTH" - BarToggleSwitchItemCURRENTYEAR.Checked = False - BarToggleSwitchItemLASTYEAR.Checked = False - BarToggleSwitchItemLASTMONTH.Checked = False - BarToggleSwitchItemTODAY.Checked = False - BarToggleSwitchItemYESTERDAY.Checked = False - Case "BarToggleSwitchItemLASTMONTH" - BarToggleSwitchItemCURRENTYEAR.Checked = False - BarToggleSwitchItemLASTYEAR.Checked = False - BarToggleSwitchItemCURRENTMONTH.Checked = False - BarToggleSwitchItemTODAY.Checked = False - BarToggleSwitchItemYESTERDAY.Checked = False - Case "BarToggleSwitchItemTODAY" - BarToggleSwitchItemCURRENTYEAR.Checked = False - BarToggleSwitchItemLASTYEAR.Checked = False - BarToggleSwitchItemCURRENTMONTH.Checked = False - BarToggleSwitchItemYESTERDAY.Checked = False - Case "BarToggleSwitchItemYESTERDAY" - BarToggleSwitchItemCURRENTYEAR.Checked = False - BarToggleSwitchItemLASTYEAR.Checked = False - BarToggleSwitchItemCURRENTMONTH.Checked = False - BarToggleSwitchItemTODAY.Checked = False - End Select - Start_FlowSearch() - End If - End Sub - - Private Sub BarToggleSwitchItemDateALL_CheckedChanged(sender As Object, e As ItemClickEventArgs) Handles BarToggleSwitchItemDateALL.CheckedChanged - Dim btn As BarToggleSwitchItem = TryCast(sender, BarToggleSwitchItem) - If btn.Checked = True Then - BarToggleSwitchItemCURRENTYEAR.Checked = False - BarToggleSwitchItemLASTYEAR.Checked = False - BarToggleSwitchItemCURRENTMONTH.Checked = False - BarToggleSwitchItemLASTMONTH.Checked = False - BarToggleSwitchItemCURRENTMONTH.Checked = False - BarToggleSwitchItemTODAY.Checked = False - 'SEARCH_FACT_DATE = "MONTH(OBJ.ADDED_WHEN) <> 13" - End If - Start_FlowSearch() - - End Sub Sub Start_FlowSearch(Optional AllOver As Boolean = False) If txtSearchTerm.Text <> String.Empty Or AllOver = True Then SearchContent() @@ -484,7 +416,7 @@ Public Class frmFlowSearch End Sub Private Sub CheckButton1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckButton1.CheckedChanged - If BarToggleSwitchItemDateALL.Checked = True Then + If LIMITATION_DATE = True Then Dim result As MsgBoxResult If My.Application.User.Language = "de-DE" Then result = MessageBox.Show("Wollen Sie wirklich eine Suche über alle Objekte starten?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) @@ -508,5 +440,99 @@ Public Class frmFlowSearch End If End Sub + Private Sub cmbAttributeDate_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbAttributeDate.SelectedIndexChanged + If cmbAttributeDate.SelectedIndex <> -1 Then + Try + + Dim oEditValue As String = cmbAttributeDate.SelectedItem.ToString + + If oEditValue = IDB_ADDED_WHEN_String_German Or oEditValue = IDB_ADDED_WHEN_String_Englisch Then + SEARCH_FACT_DATE_ATTRIBUTE = "ADDED_WHEN" + Else + SEARCH_FACT_DATE_ATTRIBUTE = oEditValue + SEARCH_FACT_DATE = $"MONTH(GRPDATE.[{SEARCH_FACT_DATE_ATTRIBUTE}]) <> 13" + End If + SearchContent() + Catch ex As Exception + Logger.Error(ex) + End Try + End If + End Sub + + Private Sub DockManager1_StartDocking(sender As Object, e As Docking.DockPanelCancelEventArgs) Handles DockManager1.StartDocking + e.Cancel = True + End Sub + + + + Private Sub ToggleSwitchDate_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchToday.Toggled, ToggleSwitchYesterday.Toggled, ToggleSwitchCurrentYear.Toggled, ToggleSwitchLastYear.Toggled, + ToggleSwitchLastMonth.Toggled, ToggleSwitchCurrentMonth.Toggled + If TOGGLE_Change = True Then + Exit Sub + End If + Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch) + + If oToggle.IsOn Then + TOGGLE_Change = True + LIMITATION_DATE = True + Dim oWHENDATE As String + Select Case oToggle.Name + Case "ToggleSwitchCurrentYear" + ToggleSwitchLastYear.IsOn = False + ToggleSwitchCurrentMonth.IsOn = False + ToggleSwitchLastMonth.IsOn = False + ToggleSwitchToday.IsOn = False + ToggleSwitchYesterday.IsOn = False + oWHENDATE = GET_DATE_LIMITATION("YEAR(@ATTRIBUTE) = YEAR(GETDATE())") + Case "ToggleSwitchLastYear" + ToggleSwitchCurrentYear.IsOn = False + ToggleSwitchCurrentMonth.IsOn = False + ToggleSwitchLastMonth.IsOn = False + ToggleSwitchToday.IsOn = False + ToggleSwitchYesterday.IsOn = False + oWHENDATE = GET_DATE_LIMITATION("YEAR(@ATTRIBUTE) = (YEAR(GETDATE()) -1)") + Case "ToggleSwitchCurrentMonth" + ToggleSwitchCurrentYear.IsOn = False + ToggleSwitchLastYear.IsOn = False + ToggleSwitchToday.IsOn = False + ToggleSwitchYesterday.IsOn = False + ToggleSwitchLastMonth.IsOn = False + oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = MONTH(GETDATE())") + Case "ToggleSwitchLastMonth" + ToggleSwitchCurrentYear.IsOn = False + ToggleSwitchLastYear.IsOn = False + ToggleSwitchCurrentMonth.IsOn = False + ToggleSwitchToday.IsOn = False + ToggleSwitchYesterday.IsOn = False + Dim currentDate As DateTime = DateTime.Now + If currentDate.Month = 1 Then + oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = 12 " & vbNewLine & "AND YEAR(@ATTRIBUTE) = (YEAR(GETDATE()) -1)") + Else + oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = (MONTH(GETDATE()) -1)") + End If + Case "ToggleSwitchToday" + ToggleSwitchCurrentYear.IsOn = False + ToggleSwitchLastYear.IsOn = False + ToggleSwitchCurrentMonth.IsOn = False + ToggleSwitchYesterday.IsOn = False + oWHENDATE = GET_DATE_LIMITATION("convert(DATE,@ATTRIBUTE) = convert(DATE,GETDATE())") + Case "ToggleSwitchYesterday" + ToggleSwitchCurrentYear.IsOn = False + ToggleSwitchLastYear.IsOn = False + ToggleSwitchCurrentMonth.IsOn = False + ToggleSwitchToday.IsOn = False + oWHENDATE = GET_DATE_LIMITATION("convert(DATE,@ATTRIBUTE) = convert(DATE,GETDATE()-1)") + End Select + SEARCH_FACT_DATE = oWHENDATE + TOGGLE_Change = False + Else + If ToggleSwitchToday.IsOn = False And ToggleSwitchYesterday.IsOn = False And ToggleSwitchCurrentYear.IsOn = False And ToggleSwitchLastYear.IsOn = False And ToggleSwitchLastMonth.IsOn = False And ToggleSwitchCurrentMonth.IsOn = False Then + LIMITATION_DATE = False + + End If + End If + Start_FlowSearch() + End Sub + End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/frmFlowForm.Designer.vb b/GUIs.ZooFlow/frmFlowForm.Designer.vb index 3d523a42..547f3a9e 100644 --- a/GUIs.ZooFlow/frmFlowForm.Designer.vb +++ b/GUIs.ZooFlow/frmFlowForm.Designer.vb @@ -46,6 +46,7 @@ Partial Class frmFlowForm Me.ToastNotificationsManager1 = New DevExpress.XtraBars.ToastNotifications.ToastNotificationsManager(Me.components) Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.PictureBoxGlobix = New System.Windows.Forms.PictureBox() + Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ContextMenuSystray.SuspendLayout() CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBoxDragDrop, System.ComponentModel.ISupportInitialize).BeginInit() @@ -69,16 +70,16 @@ Partial Class frmFlowForm ' 'ContextMenuSystray ' - Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GlobixToolStripMenuItem, Me.UserKonfigurationToolStripMenuItem, Me.ToolStripSeparator1, Me.VerwaltungToolStripMenuItem, Me.ZooFlowBeendenToolStripMenuItem}) + Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GlobixToolStripMenuItem, Me.UserKonfigurationToolStripMenuItem, Me.ToolStripSeparator1, Me.VerwaltungToolStripMenuItem, Me.ZooFlowBeendenToolStripMenuItem, Me.TestToolStripMenuItem}) Me.ContextMenuSystray.Name = "ContextMenuSystray" - Me.ContextMenuSystray.Size = New System.Drawing.Size(174, 98) + Me.ContextMenuSystray.Size = New System.Drawing.Size(181, 142) ' 'GlobixToolStripMenuItem ' Me.GlobixToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsiGlobixConfig}) Me.GlobixToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.GLOBIX_short Me.GlobixToolStripMenuItem.Name = "GlobixToolStripMenuItem" - Me.GlobixToolStripMenuItem.Size = New System.Drawing.Size(173, 22) + Me.GlobixToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.GlobixToolStripMenuItem.Text = "Globix" Me.GlobixToolStripMenuItem.Visible = False ' @@ -92,7 +93,7 @@ Partial Class frmFlowForm ' Me.UserKonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DatenbankverbindungToolStripMenuItem}) Me.UserKonfigurationToolStripMenuItem.Name = "UserKonfigurationToolStripMenuItem" - Me.UserKonfigurationToolStripMenuItem.Size = New System.Drawing.Size(173, 22) + Me.UserKonfigurationToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.UserKonfigurationToolStripMenuItem.Text = "User Konfiguration" ' 'DatenbankverbindungToolStripMenuItem @@ -104,18 +105,18 @@ Partial Class frmFlowForm 'ToolStripSeparator1 ' Me.ToolStripSeparator1.Name = "ToolStripSeparator1" - Me.ToolStripSeparator1.Size = New System.Drawing.Size(170, 6) + Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6) ' 'VerwaltungToolStripMenuItem ' Me.VerwaltungToolStripMenuItem.Name = "VerwaltungToolStripMenuItem" - Me.VerwaltungToolStripMenuItem.Size = New System.Drawing.Size(173, 22) + Me.VerwaltungToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.VerwaltungToolStripMenuItem.Text = "Verwaltung" ' 'ZooFlowBeendenToolStripMenuItem ' Me.ZooFlowBeendenToolStripMenuItem.Name = "ZooFlowBeendenToolStripMenuItem" - Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(173, 22) + Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden" ' 'PictureBoxAbo @@ -208,6 +209,12 @@ Partial Class frmFlowForm Me.PictureBoxGlobix.TabIndex = 9 Me.PictureBoxGlobix.TabStop = False ' + 'TestToolStripMenuItem + ' + Me.TestToolStripMenuItem.Name = "TestToolStripMenuItem" + Me.TestToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.TestToolStripMenuItem.Text = "Test" + ' 'frmFlowForm ' Me.AllowDrop = True @@ -263,4 +270,5 @@ Partial Class frmFlowForm Friend WithEvents GlobixToolStripMenuItem As ToolStripMenuItem Friend WithEvents TsiGlobixConfig As ToolStripMenuItem Friend WithEvents ToastNotificationsManager1 As DevExpress.XtraBars.ToastNotifications.ToastNotificationsManager + Friend WithEvents TestToolStripMenuItem As ToolStripMenuItem End Class diff --git a/GUIs.ZooFlow/frmFlowForm.vb b/GUIs.ZooFlow/frmFlowForm.vb index b67defcd..121655d5 100644 --- a/GUIs.ZooFlow/frmFlowForm.vb +++ b/GUIs.ZooFlow/frmFlowForm.vb @@ -408,6 +408,7 @@ Public Class frmFlowForm For Each oRow As DataRow In My.DTCOMMON_SQL.Rows If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH_LOWER_LIMIT Then oSQLFlowSearch = oRow.Item("SQL_COMMAND") + End If Next If oSQLFlowSearch <> String.Empty Then @@ -990,7 +991,12 @@ Public Class frmFlowForm End Sub Private Sub PictureBoxPM_Click(sender As Object, e As EventArgs) Handles PictureBoxPM.Click - ToastNotificationsManager1.ShowNotification(ToastNotificationsManager1.Notifications(3)) + ToastNotificationsManager1.ShowNotification(ToastNotificationsManager1.Notifications(1)) + End Sub + + Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TestToolStripMenuItem.Click + + frmtest.Show() End Sub End Class diff --git a/GUIs.ZooFlow/frmtest.Designer.vb b/GUIs.ZooFlow/frmtest.Designer.vb new file mode 100644 index 00000000..14930530 --- /dev/null +++ b/GUIs.ZooFlow/frmtest.Designer.vb @@ -0,0 +1,104 @@ + _ +Partial Class frmtest + Inherits System.Windows.Forms.Form + + '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() + Me.txtIDBOBJID = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtFilestoreType = New System.Windows.Forms.TextBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.txtResult = New System.Windows.Forms.TextBox() + Me.txtDate = New System.Windows.Forms.TextBox() + Me.SuspendLayout() + ' + 'txtIDBOBJID + ' + Me.txtIDBOBJID.Location = New System.Drawing.Point(27, 29) + Me.txtIDBOBJID.Name = "txtIDBOBJID" + Me.txtIDBOBJID.Size = New System.Drawing.Size(100, 20) + Me.txtIDBOBJID.TabIndex = 0 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(24, 13) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(61, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "IDB ObJ ID" + ' + 'txtFilestoreType + ' + Me.txtFilestoreType.Location = New System.Drawing.Point(157, 29) + Me.txtFilestoreType.Name = "txtFilestoreType" + Me.txtFilestoreType.Size = New System.Drawing.Size(100, 20) + Me.txtFilestoreType.TabIndex = 2 + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(293, 25) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(75, 23) + Me.Button1.TabIndex = 3 + Me.Button1.Text = "getFileName" + Me.Button1.UseVisualStyleBackColor = True + ' + 'txtResult + ' + Me.txtResult.Location = New System.Drawing.Point(293, 54) + Me.txtResult.Name = "txtResult" + Me.txtResult.ReadOnly = True + Me.txtResult.Size = New System.Drawing.Size(495, 20) + Me.txtResult.TabIndex = 4 + ' + 'txtDate + ' + Me.txtDate.Location = New System.Drawing.Point(157, 55) + Me.txtDate.Name = "txtDate" + Me.txtDate.Size = New System.Drawing.Size(100, 20) + Me.txtDate.TabIndex = 5 + ' + 'frmtest + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.txtDate) + Me.Controls.Add(Me.txtResult) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.txtFilestoreType) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.txtIDBOBJID) + Me.Name = "frmtest" + Me.Text = "frmtest" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents txtIDBOBJID As TextBox + Friend WithEvents Label1 As Label + Friend WithEvents txtFilestoreType As TextBox + Friend WithEvents Button1 As Button + Friend WithEvents txtResult As TextBox + Friend WithEvents txtDate As TextBox +End Class diff --git a/GUIs.ZooFlow/frmtest.resx b/GUIs.ZooFlow/frmtest.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/GUIs.ZooFlow/frmtest.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/frmtest.vb b/GUIs.ZooFlow/frmtest.vb new file mode 100644 index 00000000..7078a161 --- /dev/null +++ b/GUIs.ZooFlow/frmtest.vb @@ -0,0 +1,10 @@ + +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.EDMI.API +Public Class frmtest + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Dim oString As String + oString = _Client.NewFileStoreObject(txtIDBOBJID.Text, txtFilestoreType.Text, txtDate.Text) + txtResult.Text = oString + End Sub +End Class \ No newline at end of file diff --git a/Modules.EDMIAPI/Client.vb b/Modules.EDMIAPI/Client.vb index 8e0da08b..c7a2e033 100644 --- a/Modules.EDMIAPI/Client.vb +++ b/Modules.EDMIAPI/Client.vb @@ -281,4 +281,13 @@ Public Class Client Throw ex End Try End Function + Public Function NewFileStoreObject(IDB_OBJ_ID As Long, Optional pStoreType As String = "", Optional pDate As String = "") As String + Try + Dim oResponse = _channel.New_FileStore_Object(IDB_OBJ_ID, pStoreType, pDate) + Return oResponse + Catch ex As Exception + _logger.Error(ex) + Throw ex + End Try + End Function End Class diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService.wsdl b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService.wsdl index b1d36f6e..a8ddd74d 100644 --- a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService.wsdl +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService.wsdl @@ -151,6 +151,15 @@ + + + + + + + + + @@ -228,5 +237,10 @@ + + + + + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService.xsd b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService.xsd index d67b55ef..e1afd00e 100644 --- a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService.xsd +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService.xsd @@ -226,4 +226,20 @@ + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/Reference.vb b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/Reference.vb index ba1f7fdb..9c121b2e 100644 --- a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/Reference.vb +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/Reference.vb @@ -443,6 +443,17 @@ Namespace EDMIServiceReference _ Function ListFilesForUserAsync(ByVal request As EDMIServiceReference.ListFilesForUserRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentListResponse) + + _ + Function New_FileStore_Object(ByVal IDB_OBJ_ID As Long, ByVal pStoreType As String, ByVal pDate As String) As String + + _ + Function New_FileStore_ObjectAsync(ByVal IDB_OBJ_ID As Long, ByVal pStoreType As String, ByVal pDate As String) As System.Threading.Tasks.Task(Of String) End Interface - + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/configuration91.svcinfo b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/configuration91.svcinfo index d8e67e9c..fe0f5a59 100644 --- a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/configuration91.svcinfo +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/configuration91.svcinfo @@ -1,5 +1,5 @@ - + @@ -150,14 +150,14 @@ System.ServiceModel.Configuration.UserPrincipalNameElement - - + + Administrator@dd-san01.dd-gan.local.digitaldata.works System.ServiceModel.Configuration.ServicePrincipalNameElement - - host/sDD-VMP03-VM09.dd-san01.dd-gan.local.digitaldata.works + + System.ServiceModel.Configuration.DnsElement diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/service.wsdl b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/service.wsdl index 7331e682..adb07e09 100644 --- a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/service.wsdl +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/service.wsdl @@ -225,6 +225,18 @@ + + + + + + + + + + + + @@ -232,7 +244,7 @@ net.tcp://localhost:9000/DigitalData/Services/Main - host/sDD-VMP03-VM09.dd-san01.dd-gan.local.digitaldata.works + Administrator@dd-san01.dd-gan.local.digitaldata.works diff --git a/Modules.EDMIAPI/app.config b/Modules.EDMIAPI/app.config index 2f4d378a..aa8c85fa 100644 --- a/Modules.EDMIAPI/app.config +++ b/Modules.EDMIAPI/app.config @@ -37,7 +37,7 @@ binding="netTcpBinding" bindingConfiguration="NetTcpBinding_IEDMIService" contract="EDMIServiceReference.IEDMIService" name="NetTcpBinding_IEDMIService"> - + diff --git a/Service.EDMIService/ClassConstants.vb b/Service.EDMIService/ClassConstants.vb new file mode 100644 index 00000000..3f13d982 --- /dev/null +++ b/Service.EDMIService/ClassConstants.vb @@ -0,0 +1,4 @@ +Public Class ClassConstants + Public Const FileStoreWork = "WORK" + Public Const FileStoreArchive = "ARCHIVE" +End Class diff --git a/Service.EDMIService/EDMIService.vb b/Service.EDMIService/EDMIService.vb index 4d8f5345..e61b6539 100644 --- a/Service.EDMIService/EDMIService.vb +++ b/Service.EDMIService/EDMIService.vb @@ -10,6 +10,7 @@ Imports DigitalData.Services.EDMIService.Messages Imports DigitalData.Modules.EDMI.API.Rights Imports DigitalData.Services.EDMIService.Exceptions + Public Class EDMIService Implements IEDMIService @@ -518,5 +519,85 @@ Public Class EDMIService Return AccessRight.VIEW_ONLY End Try End Function + Public Function New_FileStore_Object(IDB_OBJ_ID As Long, pStoreType As String, pDate As String) As String Implements IEDMIService.New_FileStore_Object + Try + Dim oRelpath As String + If pStoreType = String.Empty Then + pStoreType = ClassConstants.FileStoreWork + End If + oRelpath = GetFileStorePraefix(pStoreType) + If pDate = String.Empty Then + oRelpath = GetFolderToday(oRelpath) + Else + Try + Dim odate = CDate(pDate) + oRelpath = GetFolderDate(oRelpath, odate) + Catch ex As Exception + Return "" + End Try + End If + Dim oIDB_FileObject As String + If oRelpath = String.Empty Then + Return "ERROR" + Else + _Logger.Debug($"oRelpath is [{oRelpath}]") + + oIDB_FileObject = Path.Combine(oRelpath, GetDigitalDataFileObject(IDB_OBJ_ID)) + End If + + Return oIDB_FileObject + Catch ex As Exception + _Logger.Error(ex) + Return "" + End Try + End Function + Private Function GetDigitalDataFileObject(IDB_OBJ_ID As Long) As String + Return $"{IDB_OBJ_ID}.ddfo" + End Function + Private Function GetFileStorePraefix(pStoreType As String) As String + Dim oObjectStore + Dim EDMIPath As String + If pStoreType = ClassConstants.FileStoreArchive Then + oObjectStore = GlobalState.ObjectStores.Item(0) + Else pStoreType = ClassConstants.FileStoreWork + oObjectStore = GlobalState.ObjectStores.Item(1) + End If + _Logger.Debug($"oObjectStore is [{oObjectStore.Path}]") + Return oObjectStore.Path + + End Function + Private Function GetFolderToday(pRelationalPath As String) As String + Dim oDateSubDirectoryName As String = Now.ToString("yyyy-MM-dd") + Dim oFolderToday As String = Path.Combine(pRelationalPath, oDateSubDirectoryName) + ' Create the destination directory if it does not exist + If Not Directory.Exists(oFolderToday) Then + Try + Directory.CreateDirectory(oFolderToday) + _Logger.Debug($"created NEW todayFolder [{oFolderToday}]") + Catch ex As Exception + _Logger.Error(ex) + Return "" + End Try + End If + Return oFolderToday + End Function + Private Function GetFolderDate(pRelationalPath As String, pDate As Date) As String + Dim oDateSubDirectoryName As String = pDate.ToString("yyyy-MM-dd") + Dim oFolderDateSepecial As String = Path.Combine(pRelationalPath, oDateSubDirectoryName) + ' Create the destination directory if it does not exist + If Not Directory.Exists(oFolderDateSepecial) Then + Try + Directory.CreateDirectory(oFolderDateSepecial) + _Logger.Debug($"created NEW DateSpecialFolder [{oFolderDateSepecial}]") + Catch ex As Exception + _Logger.Error(ex) + Return "" + End Try + End If + Return oFolderDateSepecial + End Function + + + #End Region End Class \ No newline at end of file diff --git a/Service.EDMIService/EDMIService.vbproj b/Service.EDMIService/EDMIService.vbproj index 244edba0..3950b04c 100644 --- a/Service.EDMIService/EDMIService.vbproj +++ b/Service.EDMIService/EDMIService.vbproj @@ -124,6 +124,7 @@ + diff --git a/Service.EDMIService/IEDMIService.vb b/Service.EDMIService/IEDMIService.vb index 8aa325d3..f266c362 100644 --- a/Service.EDMIService/IEDMIService.vb +++ b/Service.EDMIService/IEDMIService.vb @@ -78,6 +78,10 @@ Interface IEDMIService Function ListFilesForUser() As DocumentListResponse + + + + Function New_FileStore_Object(IDB_OBJ_ID As Long, pStoreType As String, pDate As String) As String #End Region End Interface \ No newline at end of file diff --git a/Service.EDMIService/My Project/AssemblyInfo.vb b/Service.EDMIService/My Project/AssemblyInfo.vb index 46d10a23..83ec6135 100644 --- a/Service.EDMIService/My Project/AssemblyInfo.vb +++ b/Service.EDMIService/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +