From 7fb03fd9a22201b8cd0e6c66e1d64f12a07c4a33 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Tue, 6 Apr 2021 13:03:49 +0200 Subject: [PATCH] MS Admin Globix --- ...esigner.vb => frmAdmin_Globix.Designer.vb} | 342 +- ..._Dokumentart.resx => frmAdmin_Globix.resx} | 0 ...obix_Dokumentart.vb => frmAdmin_Globix.vb} | 10 +- GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb | 3917 ++++++++++++++--- GUIs.ZooFlow/Globix/GlobixDataset.xsc | 84 +- GUIs.ZooFlow/Globix/GlobixDataset.xsd | 359 +- GUIs.ZooFlow/Globix/GlobixDataset.xss | 33 +- .../frmGlobixAdministration.Designer.vb | 1387 +++++- .../Globix/frmGlobixAdministration.resx | 238 +- .../Globix/frmGlobixAdministration.vb | 116 +- GUIs.ZooFlow/My Project/Resources.Designer.vb | 10 + GUIs.ZooFlow/My Project/Resources.resx | 27 +- GUIs.ZooFlow/Resources/Datasource_16x16.png | Bin 0 -> 646 bytes GUIs.ZooFlow/ZooFlow.vbproj | 13 +- GUIs.ZooFlow/frmFlowForm.vb | 11 +- GUIs.ZooFlow/frmtest.vb | 2 +- 16 files changed, 5747 insertions(+), 802 deletions(-) rename GUIs.ZooFlow/Administration/{frmGlobix_Dokumentart.Designer.vb => frmAdmin_Globix.Designer.vb} (95%) rename GUIs.ZooFlow/Administration/{frmGlobix_Dokumentart.resx => frmAdmin_Globix.resx} (100%) rename GUIs.ZooFlow/Administration/{frmGlobix_Dokumentart.vb => frmAdmin_Globix.vb} (89%) create mode 100644 GUIs.ZooFlow/Resources/Datasource_16x16.png diff --git a/GUIs.ZooFlow/Administration/frmGlobix_Dokumentart.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_Globix.Designer.vb similarity index 95% rename from GUIs.ZooFlow/Administration/frmGlobix_Dokumentart.Designer.vb rename to GUIs.ZooFlow/Administration/frmAdmin_Globix.Designer.vb index c67e6fbd..dd2eeeda 100644 --- a/GUIs.ZooFlow/Administration/frmGlobix_Dokumentart.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Globix.Designer.vb @@ -1,5 +1,5 @@  -Partial Class frmGlobix_Dokumentart +Partial Class frmAdmin_Globix Inherits frmAdmin_Base 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -24,17 +24,21 @@ Partial Class frmGlobix_Dokumentart 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.BarButtonSaveExit = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonSave = 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.BESCHREIBUNGTextBox = New System.Windows.Forms.TextBox() Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.GlobixDataset = New DigitalData.GUIs.ZooFlow.GlobixDataset() + Me.ZIEL_PFADTextBox = New System.Windows.Forms.TextBox() + Me.NAMENKONVENTIONTextBox = New System.Windows.Forms.TextBox() + Me.DUPLICATE_HANDLINGComboBox = New System.Windows.Forms.ComboBox() + Me.KURZNAMETextBox = New System.Windows.Forms.TextBox() Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() Me.SpinEdit1 = New DevExpress.XtraEditors.SpinEdit() @@ -43,32 +47,28 @@ Partial Class frmGlobix_Dokumentart Me.txtAddedWhen = New DevExpress.XtraEditors.TextEdit() Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit() Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton() 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.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem10 = 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.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem() - Me.BESCHREIBUNGTextBox = New System.Windows.Forms.TextBox() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem16 = 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() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.LayoutControl1.SuspendLayout() @@ -85,27 +85,27 @@ Partial Class frmGlobix_Dokumentart 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.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem10, 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.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSIDB_Stammdaten, 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.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonSaveExit, Me.BarButtonSave, Me.labelStatus}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) Me.RibbonControl1.MaxItemId = 6 Me.RibbonControl1.Name = "RibbonControl1" @@ -115,19 +115,19 @@ Partial Class frmGlobix_Dokumentart Me.RibbonControl1.Size = New System.Drawing.Size(1199, 66) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' - 'BarButtonItem1 + 'BarButtonSaveExit ' - 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" + Me.BarButtonSaveExit.Caption = "Speichern und Schließen" + Me.BarButtonSaveExit.Id = 1 + Me.BarButtonSaveExit.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check + Me.BarButtonSaveExit.Name = "BarButtonSaveExit" ' - 'BarButtonItem2 + 'BarButtonSave ' - Me.BarButtonItem2.Caption = "Speichern" - Me.BarButtonItem2.Id = 3 - Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save - Me.BarButtonItem2.Name = "BarButtonItem2" + Me.BarButtonSave.Caption = "Speichern" + Me.BarButtonSave.Id = 3 + Me.BarButtonSave.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save + Me.BarButtonSave.Name = "BarButtonSave" ' 'labelStatus ' @@ -146,8 +146,8 @@ Partial Class frmGlobix_Dokumentart ' 'RibbonPageGroup1 ' - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonSaveExit) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonSave) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "Daten" ' @@ -189,13 +189,13 @@ Partial Class frmGlobix_Dokumentart Me.LayoutControl1.TabIndex = 2 Me.LayoutControl1.Text = "LayoutControl1" ' - 'KURZNAMETextBox + 'BESCHREIBUNGTextBox ' - 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 + 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 ' 'TBDD_DOKUMENTARTBindingSource ' @@ -207,6 +207,40 @@ Partial Class frmGlobix_Dokumentart Me.GlobixDataset.DataSetName = "GlobixDataset" Me.GlobixDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' + '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 + ' + '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 + ' + '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 + ' + '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 + ' 'TextEdit1 ' Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "GUID", True)) @@ -214,7 +248,7 @@ Partial Class frmGlobix_Dokumentart 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.Size = New System.Drawing.Size(65, 20) Me.TextEdit1.StyleController = Me.LayoutControl1 Me.TextEdit1.TabIndex = 4 ' @@ -232,22 +266,22 @@ Partial Class frmGlobix_Dokumentart ' 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.Location = New System.Drawing.Point(669, 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.Size = New System.Drawing.Size(510, 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.Location = New System.Drawing.Point(228, 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.Size = New System.Drawing.Size(298, 18) Me.CheckEdit2.StyleController = Me.LayoutControl1 Me.CheckEdit2.TabIndex = 8 ' @@ -295,6 +329,24 @@ Partial Class frmGlobix_Dokumentart Me.txtChangedWhen.StyleController = Me.LayoutControl1 Me.txtChangedWhen.TabIndex = 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" + ' + '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" + ' 'Root ' Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] @@ -324,26 +376,6 @@ Partial Class frmGlobix_Dokumentart 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 @@ -357,10 +389,10 @@ Partial Class frmGlobix_Dokumentart 'LayoutControlItem5 ' Me.LayoutControlItem5.Control = Me.CheckEdit2 - Me.LayoutControlItem5.Location = New System.Drawing.Point(601, 0) + Me.LayoutControlItem5.Location = New System.Drawing.Point(208, 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.Size = New System.Drawing.Size(318, 40) Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem5.TextVisible = False ' @@ -371,7 +403,7 @@ Partial Class frmGlobix_Dokumentart 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.Size = New System.Drawing.Size(208, 40) Me.LayoutControlItem1.Text = "GUID" Me.LayoutControlItem1.TextSize = New System.Drawing.Size(120, 13) ' @@ -379,13 +411,33 @@ Partial Class frmGlobix_Dokumentart ' Me.LayoutControlItem3.Control = Me.SpinEdit1 Me.LayoutControlItem3.CustomizationFormText = "Anzeige Reihenfolge" - Me.LayoutControlItem3.Location = New System.Drawing.Point(850, 0) + Me.LayoutControlItem3.Location = New System.Drawing.Point(526, 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.Size = New System.Drawing.Size(653, 40) Me.LayoutControlItem3.Text = "Reihenfolge" Me.LayoutControlItem3.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) + ' 'LayoutControlItem12 ' Me.LayoutControlItem12.Control = Me.KURZNAMETextBox @@ -395,40 +447,6 @@ Partial Class frmGlobix_Dokumentart 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.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 @@ -438,31 +456,6 @@ Partial Class frmGlobix_Dokumentart 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 @@ -472,32 +465,14 @@ Partial Class frmGlobix_Dokumentart 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 + 'LayoutControlItem11 ' - 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" + 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) ' 'LayoutControlItem14 ' @@ -508,13 +483,14 @@ Partial Class frmGlobix_Dokumentart Me.LayoutControlItem14.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem14.TextVisible = False ' - 'BESCHREIBUNGTextBox + 'LayoutControlItem4 ' - 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 + 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 ' 'LayoutControlItem16 ' @@ -525,7 +501,31 @@ Partial Class frmGlobix_Dokumentart Me.LayoutControlItem16.Text = "Beschreibung:" Me.LayoutControlItem16.TextSize = New System.Drawing.Size(120, 13) ' - 'frmGlobix_Dokumentart + '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.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 + ' + 'frmAdmin_Globix ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font @@ -533,7 +533,7 @@ Partial Class frmGlobix_Dokumentart Me.Controls.Add(Me.LayoutControl1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) - Me.Name = "frmGlobix_Dokumentart" + Me.Name = "frmAdmin_Globix" Me.Ribbon = Me.RibbonControl1 Me.StatusBar = Me.RibbonStatusBar1 Me.Text = "frmAdmin_Attribute" @@ -553,20 +553,20 @@ Partial Class frmGlobix_Dokumentart 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.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem10, 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.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -577,7 +577,7 @@ Partial Class frmGlobix_Dokumentart 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 BarButtonSaveExit 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 @@ -598,7 +598,7 @@ Partial Class frmGlobix_Dokumentart 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 BarButtonSave As DevExpress.XtraBars.BarButtonItem Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem Friend WithEvents GlobixDataset As GlobixDataset Friend WithEvents TBDD_DOKUMENTARTBindingSource As BindingSource diff --git a/GUIs.ZooFlow/Administration/frmGlobix_Dokumentart.resx b/GUIs.ZooFlow/Administration/frmAdmin_Globix.resx similarity index 100% rename from GUIs.ZooFlow/Administration/frmGlobix_Dokumentart.resx rename to GUIs.ZooFlow/Administration/frmAdmin_Globix.resx diff --git a/GUIs.ZooFlow/Administration/frmGlobix_Dokumentart.vb b/GUIs.ZooFlow/Administration/frmAdmin_Globix.vb similarity index 89% rename from GUIs.ZooFlow/Administration/frmGlobix_Dokumentart.vb rename to GUIs.ZooFlow/Administration/frmAdmin_Globix.vb index 7320dc7c..0d351c91 100644 --- a/GUIs.ZooFlow/Administration/frmGlobix_Dokumentart.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Globix.vb @@ -1,6 +1,6 @@ Imports DigitalData.Modules.Logging -Public Class frmGlobix_Dokumentart +Public Class frmAdmin_Globix Inherits frmAdmin_Base Implements frmAdmin_Interface Public Property HasChanges As Boolean = False Implements frmAdmin_Interface.HasChanges @@ -26,7 +26,7 @@ Public Class frmGlobix_Dokumentart End Try End Sub - Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonSave.ItemClick ResetMessages() If SaveData() And HasChanges Then @@ -43,7 +43,7 @@ Public Class frmGlobix_Dokumentart labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always End Sub - Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonSaveExit.ItemClick ResetMessages() If SaveData() Then @@ -74,4 +74,8 @@ Public Class frmGlobix_Dokumentart Return False End Try End Function + + Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click + + End Sub End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb b/GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb index 666a8218..fad7ca74 100644 --- a/GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb +++ b/GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb @@ -27,8 +27,16 @@ Partial Public Class GlobixDataset Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable + Private tableTBDD_INDEX_MAN As TBDD_INDEX_MANDataTable + + Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable + Private tableTBTEMP_INDEXRESULTS As TBTEMP_INDEXRESULTSDataTable + Private relationFK_TBDD_INDEX_MAN_DAID As Global.System.Data.DataRelation + + Private relationFK_TBDD_INDEX_AUTOM_DOCID As Global.System.Data.DataRelation + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Public ReadOnly Property TBDD_INDEX_MAN() As TBDD_INDEX_MANDataTable + Get + Return Me.tableTBDD_INDEX_MAN + End Get + End Property + + _ + Public ReadOnly Property TBDD_INDEX_AUTOM() As TBDD_INDEX_AUTOMDataTable + Get + Return Me.tableTBDD_INDEX_AUTOM + End Get + End Property + _ + Private Function ShouldSerializeTBDD_INDEX_MAN() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_INDEX_AUTOM() As Boolean + Return false + End Function + _ Private Function ShouldSerializeTBTEMP_INDEXRESULTS() As Boolean @@ -307,6 +381,12 @@ Partial Public Class GlobixDataset _ Public Delegate Sub TBDD_DOKUMENTARTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_DOKUMENTARTRowChangeEvent) + _ + Public Delegate Sub TBDD_INDEX_MANRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_MANRowChangeEvent) + + _ + Public Delegate Sub TBDD_INDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_AUTOMRowChangeEvent) + _ Public Delegate Sub TBTEMP_INDEXRESULTSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBTEMP_INDEXRESULTSRowChangeEvent) @@ -842,20 +922,58 @@ Partial Public Class GlobixDataset ''' _ - Partial Public Class TBTEMP_INDEXRESULTSDataTable - Inherits Global.System.Data.TypedTableBase(Of TBTEMP_INDEXRESULTSRow) + Partial Public Class TBDD_INDEX_MANDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_INDEX_MANRow) - Private columnIndexname As Global.System.Data.DataColumn + Private columnGUID As Global.System.Data.DataColumn - Private columnValue As Global.System.Data.DataColumn + Private columnDOK_ID As Global.System.Data.DataColumn - Private columnDokumentart As Global.System.Data.DataColumn + Private columnNAME As Global.System.Data.DataColumn + + Private columnWD_INDEX As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnDATATYPE As Global.System.Data.DataColumn + + Private columnSUGGESTION As Global.System.Data.DataColumn + + Private columnDEFAULT_VALUE As Global.System.Data.DataColumn + + Private columnCONNECTION_ID As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnSQL_RESULT As Global.System.Data.DataColumn + + Private columnSQL_CHECK As Global.System.Data.DataColumn + + Private columnOPTIONAL As Global.System.Data.DataColumn + + Private columnSAVE_VALUE As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnMULTISELECT As Global.System.Data.DataColumn + + Private columnVKT_ADD_ITEM As Global.System.Data.DataColumn + + Private columnVKT_PREVENT_MULTIPLE_VALUES As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBTEMP_INDEXRESULTS" + Me.TableName = "TBDD_INDEX_MAN" Me.BeginInit Me.InitClass Me.EndInit @@ -888,25 +1006,177 @@ Partial Public Class GlobixDataset _ - Public ReadOnly Property IndexnameColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return Me.columnIndexname + Return Me.columnGUID End Get End Property _ - Public ReadOnly Property ValueColumn() As Global.System.Data.DataColumn + Public ReadOnly Property DOK_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnValue + Return Me.columnDOK_ID End Get End Property _ - Public ReadOnly Property DokumentartColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnDokumentart + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property WD_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWD_INDEX + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property DATATYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATATYPE + End Get + End Property + + _ + Public ReadOnly Property SUGGESTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUGGESTION + End Get + End Property + + _ + Public ReadOnly Property DEFAULT_VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEFAULT_VALUE + End Get + End Property + + _ + Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONNECTION_ID + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_RESULT + End Get + End Property + + _ + Public ReadOnly Property SQL_CHECKColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_CHECK + End Get + End Property + + _ + Public ReadOnly Property OPTIONALColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOPTIONAL + End Get + End Property + + _ + Public ReadOnly Property SAVE_VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSAVE_VALUE + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property MULTISELECTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMULTISELECT + End Get + End Property + + _ + Public ReadOnly Property VKT_ADD_ITEMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVKT_ADD_ITEM + End Get + End Property + + _ + Public ReadOnly Property VKT_PREVENT_MULTIPLE_VALUESColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVKT_PREVENT_MULTIPLE_VALUES End Get End Property @@ -921,44 +1191,74 @@ Partial Public Class GlobixDataset _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBTEMP_INDEXRESULTSRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_INDEX_MANRow Get - Return CType(Me.Rows(index),TBTEMP_INDEXRESULTSRow) + Return CType(Me.Rows(index),TBDD_INDEX_MANRow) End Get End Property _ - Public Event TBTEMP_INDEXRESULTSRowChanging As TBTEMP_INDEXRESULTSRowChangeEventHandler + Public Event TBDD_INDEX_MANRowChanging As TBDD_INDEX_MANRowChangeEventHandler _ - Public Event TBTEMP_INDEXRESULTSRowChanged As TBTEMP_INDEXRESULTSRowChangeEventHandler + Public Event TBDD_INDEX_MANRowChanged As TBDD_INDEX_MANRowChangeEventHandler _ - Public Event TBTEMP_INDEXRESULTSRowDeleting As TBTEMP_INDEXRESULTSRowChangeEventHandler + Public Event TBDD_INDEX_MANRowDeleting As TBDD_INDEX_MANRowChangeEventHandler _ - Public Event TBTEMP_INDEXRESULTSRowDeleted As TBTEMP_INDEXRESULTSRowChangeEventHandler + Public Event TBDD_INDEX_MANRowDeleted As TBDD_INDEX_MANRowChangeEventHandler _ - Public Overloads Sub AddTBTEMP_INDEXRESULTSRow(ByVal row As TBTEMP_INDEXRESULTSRow) + Public Overloads Sub AddTBDD_INDEX_MANRow(ByVal row As TBDD_INDEX_MANRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBTEMP_INDEXRESULTSRow(ByVal Indexname As String, ByVal Value As String, ByVal Dokumentart As String) As TBTEMP_INDEXRESULTSRow - Dim rowTBTEMP_INDEXRESULTSRow As TBTEMP_INDEXRESULTSRow = CType(Me.NewRow,TBTEMP_INDEXRESULTSRow) - Dim columnValuesArray() As Object = New Object() {Indexname, Value, Dokumentart} - rowTBTEMP_INDEXRESULTSRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBTEMP_INDEXRESULTSRow) - Return rowTBTEMP_INDEXRESULTSRow + Public Overloads Function AddTBDD_INDEX_MANRow( _ + ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID As TBDD_DOKUMENTARTRow, _ + ByVal NAME As String, _ + ByVal WD_INDEX As String, _ + ByVal COMMENT As String, _ + ByVal DATATYPE As String, _ + ByVal SUGGESTION As Boolean, _ + ByVal DEFAULT_VALUE As String, _ + ByVal CONNECTION_ID As Short, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_RESULT As String, _ + ByVal SQL_CHECK As String, _ + ByVal _OPTIONAL As Boolean, _ + ByVal SAVE_VALUE As Boolean, _ + ByVal ACTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal MULTISELECT As Boolean, _ + ByVal VKT_ADD_ITEM As Boolean, _ + ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean) As TBDD_INDEX_MANRow + Dim rowTBDD_INDEX_MANRow As TBDD_INDEX_MANRow = CType(Me.NewRow,TBDD_INDEX_MANRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, _OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES} + If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID(0) + End If + rowTBDD_INDEX_MANRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_INDEX_MANRow) + Return rowTBDD_INDEX_MANRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_MANRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_MANRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBTEMP_INDEXRESULTSDataTable = CType(MyBase.Clone,TBTEMP_INDEXRESULTSDataTable) + Dim cln As TBDD_INDEX_MANDataTable = CType(MyBase.Clone,TBDD_INDEX_MANDataTable) cln.InitVars Return cln End Function @@ -966,52 +1266,143 @@ Partial Public Class GlobixDataset _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBTEMP_INDEXRESULTSDataTable() + Return New TBDD_INDEX_MANDataTable() End Function _ Friend Sub InitVars() - Me.columnIndexname = MyBase.Columns("Indexname") - Me.columnValue = MyBase.Columns("Value") - Me.columnDokumentart = MyBase.Columns("Dokumentart") + Me.columnGUID = MyBase.Columns("GUID") + Me.columnDOK_ID = MyBase.Columns("DOK_ID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnWD_INDEX = MyBase.Columns("WD_INDEX") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnDATATYPE = MyBase.Columns("DATATYPE") + Me.columnSUGGESTION = MyBase.Columns("SUGGESTION") + Me.columnDEFAULT_VALUE = MyBase.Columns("DEFAULT_VALUE") + Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT") + Me.columnSQL_CHECK = MyBase.Columns("SQL_CHECK") + Me.columnOPTIONAL = MyBase.Columns("OPTIONAL") + Me.columnSAVE_VALUE = MyBase.Columns("SAVE_VALUE") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnMULTISELECT = MyBase.Columns("MULTISELECT") + Me.columnVKT_ADD_ITEM = MyBase.Columns("VKT_ADD_ITEM") + Me.columnVKT_PREVENT_MULTIPLE_VALUES = MyBase.Columns("VKT_PREVENT_MULTIPLE_VALUES") End Sub _ Private Sub InitClass() - Me.columnIndexname = New Global.System.Data.DataColumn("Indexname", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnIndexname) - Me.columnValue = New Global.System.Data.DataColumn("Value", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnValue) - Me.columnDokumentart = New Global.System.Data.DataColumn("Dokumentart", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDokumentart) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnDOK_ID = New Global.System.Data.DataColumn("DOK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOK_ID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnWD_INDEX = New Global.System.Data.DataColumn("WD_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWD_INDEX) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnDATATYPE = New Global.System.Data.DataColumn("DATATYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATATYPE) + Me.columnSUGGESTION = New Global.System.Data.DataColumn("SUGGESTION", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUGGESTION) + Me.columnDEFAULT_VALUE = New Global.System.Data.DataColumn("DEFAULT_VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDEFAULT_VALUE) + Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONNECTION_ID) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnSQL_RESULT = New Global.System.Data.DataColumn("SQL_RESULT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_RESULT) + Me.columnSQL_CHECK = New Global.System.Data.DataColumn("SQL_CHECK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_CHECK) + Me.columnOPTIONAL = New Global.System.Data.DataColumn("OPTIONAL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me.columnOPTIONAL.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "OPTIONALColumn") + Me.columnOPTIONAL.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnOPTIONAL") + Me.columnOPTIONAL.ExtendedProperties.Add("Generator_UserColumnName", "OPTIONAL") + MyBase.Columns.Add(Me.columnOPTIONAL) + Me.columnSAVE_VALUE = New Global.System.Data.DataColumn("SAVE_VALUE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSAVE_VALUE) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnMULTISELECT = New Global.System.Data.DataColumn("MULTISELECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMULTISELECT) + Me.columnVKT_ADD_ITEM = New Global.System.Data.DataColumn("VKT_ADD_ITEM", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVKT_ADD_ITEM) + Me.columnVKT_PREVENT_MULTIPLE_VALUES = New Global.System.Data.DataColumn("VKT_PREVENT_MULTIPLE_VALUES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVKT_PREVENT_MULTIPLE_VALUES) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnDOK_ID.AllowDBNull = false + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 50 + Me.columnWD_INDEX.MaxLength = 50 + Me.columnCOMMENT.MaxLength = 150 + Me.columnDATATYPE.MaxLength = 50 + Me.columnSUGGESTION.AllowDBNull = false + Me.columnDEFAULT_VALUE.AllowDBNull = false + Me.columnDEFAULT_VALUE.MaxLength = 50 + Me.columnSEQUENCE.AllowDBNull = false + Me.columnSEQUENCE.DefaultValue = CType(1,Integer) + Me.columnSQL_RESULT.AllowDBNull = false + Me.columnSQL_RESULT.MaxLength = 2000 + Me.columnSQL_CHECK.AllowDBNull = false + Me.columnSQL_CHECK.MaxLength = 2000 + Me.columnOPTIONAL.AllowDBNull = false + Me.columnSAVE_VALUE.AllowDBNull = false + Me.columnACTIVE.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnMULTISELECT.AllowDBNull = false + Me.columnVKT_ADD_ITEM.AllowDBNull = false + Me.columnVKT_ADD_ITEM.DefaultValue = CType(false,Boolean) + Me.columnVKT_PREVENT_MULTIPLE_VALUES.AllowDBNull = false + Me.columnVKT_PREVENT_MULTIPLE_VALUES.DefaultValue = CType(false,Boolean) End Sub _ - Public Function NewTBTEMP_INDEXRESULTSRow() As TBTEMP_INDEXRESULTSRow - Return CType(Me.NewRow,TBTEMP_INDEXRESULTSRow) + Public Function NewTBDD_INDEX_MANRow() As TBDD_INDEX_MANRow + Return CType(Me.NewRow,TBDD_INDEX_MANRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBTEMP_INDEXRESULTSRow(builder) + Return New TBDD_INDEX_MANRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBTEMP_INDEXRESULTSRow) + Return GetType(TBDD_INDEX_MANRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBTEMP_INDEXRESULTSRowChangedEvent) Is Nothing) Then - RaiseEvent TBTEMP_INDEXRESULTSRowChanged(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) + If (Not (Me.TBDD_INDEX_MANRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_MANRowChanged(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action)) End If End Sub @@ -1019,8 +1410,8 @@ Partial Public Class GlobixDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBTEMP_INDEXRESULTSRowChangingEvent) Is Nothing) Then - RaiseEvent TBTEMP_INDEXRESULTSRowChanging(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) + If (Not (Me.TBDD_INDEX_MANRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_MANRowChanging(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action)) End If End Sub @@ -1028,8 +1419,8 @@ Partial Public Class GlobixDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBTEMP_INDEXRESULTSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBTEMP_INDEXRESULTSRowDeleted(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) + If (Not (Me.TBDD_INDEX_MANRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_MANRowDeleted(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action)) End If End Sub @@ -1037,14 +1428,14 @@ Partial Public Class GlobixDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBTEMP_INDEXRESULTSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBTEMP_INDEXRESULTSRowDeleting(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) + If (Not (Me.TBDD_INDEX_MANRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_MANRowDeleting(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action)) End If End Sub _ - Public Sub RemoveTBTEMP_INDEXRESULTSRow(ByVal row As TBTEMP_INDEXRESULTSRow) + Public Sub RemoveTBDD_INDEX_MANRow(ByVal row As TBDD_INDEX_MANRow) Me.Rows.Remove(row) End Sub @@ -1071,7 +1462,7 @@ Partial Public Class GlobixDataset type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBTEMP_INDEXRESULTSDataTable" + attribute2.FixedValue = "TBDD_INDEX_MANDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -1116,454 +1507,2938 @@ Partial Public Class GlobixDataset End Class ''' - '''Represents strongly named DataRow class. + '''Represents the strongly named DataTable class. ''' - Partial Public Class TBDD_DOKUMENTARTRow - Inherits Global.System.Data.DataRow - - Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable + _ + Partial Public Class TBDD_INDEX_AUTOMDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_INDEX_AUTOMRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnDOCTYPE_ID As Global.System.Data.DataColumn + + Private columnENTITY_ID As Global.System.Data.DataColumn + + Private columnINDEXNAME As Global.System.Data.DataColumn + + Private columnVALUE As Global.System.Data.DataColumn + + Private columnCONNECTION_ID As Global.System.Data.DataColumn + + Private columnSQL_RESULT As Global.System.Data.DataColumn + + Private columnSQL_ACTIVE As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBDD_DOKUMENTART = CType(Me.Table,TBDD_DOKUMENTARTDataTable) + Public Sub New() + MyBase.New + Me.TableName = "TBDD_INDEX_AUTOM" + Me.BeginInit + Me.InitClass + Me.EndInit 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 + 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 _ - Public Property BEZEICHNUNG() As String + 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 CType(Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn),String) + Return Me.columnGUID End Get - Set - Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn) = value - End Set End Property _ - Public Property OBJEKTTYP() As String + Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn),String) + Return Me.columnDOCTYPE_ID End Get - Set - Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = value - End Set End Property _ - Public Property EINGANGSART_ID() As Byte + Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn),Byte) + Return Me.columnENTITY_ID End Get - Set - Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn) = value - End Set End Property _ - Public Property KURZNAME() As String + Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn),String) + Return Me.columnINDEXNAME End Get - Set - Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn) = value - End Set End Property _ - Public Property ZIEL_PFAD() As String + Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn),String) + Return Me.columnVALUE End Get - Set - Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn) = value - End Set End Property _ - Public Property BESCHREIBUNG() As String + Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn 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 + Return Me.columnCONNECTION_ID End Get - Set - Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = value - End Set End Property _ - Public Property WINDREAM_DIRECT() As Boolean + Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn),Boolean) + Return Me.columnSQL_RESULT End Get - Set - Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn) = value - End Set End Property _ - Public Property FOLDER_FOR_INDEX() As String + Public ReadOnly Property SQL_ACTIVEColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn),String) + Return Me.columnSQL_ACTIVE End Get - Set - Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn) = value - End Set End Property _ - Public Property DUPLICATE_HANDLING() As String + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn),String) + Return Me.columnCOMMENT End Get - Set - Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn) = value - End Set End Property _ - Public Property AKTIV() As Boolean + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn),Boolean) + Return Me.columnACTIVE End Get - Set - Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn) = value - End Set End Property _ - Public Property LANGUAGE() As String + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.LANGUAGEColumn),String) + Return Me.columnSEQUENCE End Get - Set - Me(Me.tableTBDD_DOKUMENTART.LANGUAGEColumn) = value - End Set End Property _ - Public Property SEQUENCE() As Integer + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn),Integer) + Return Me.columnADDED_WHO End Get - Set - Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn) = value - End Set End Property _ - Public Property NAMENKONVENTION() As String + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn),String) + Return Me.columnADDED_WHEN End Get - Set - Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = value - End Set End Property _ - Public Property ERSTELLTWER() As String + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn),String) + Return Me.columnCHANGED_WHO End Get - Set - Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn) = value - End Set End Property _ - Public Property ERSTELLTWANN() As Date + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn 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 + Return Me.columnCHANGED_WHEN End Get - Set - Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = value - End Set End Property _ - Public Property GEANDERTWER() As String + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer 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 + Return Me.Rows.Count End Get - Set - Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = value - End Set End Property _ - Public Property GEAENDERTWANN() As Date + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_INDEX_AUTOMRow 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 + Return CType(Me.Rows(index),TBDD_INDEX_AUTOMRow) End Get - Set - Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = value - End Set End Property + _ + Public Event TBDD_INDEX_AUTOMRowChanging As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Event TBDD_INDEX_AUTOMRowChanged As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Event TBDD_INDEX_AUTOMRowDeleting As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Event TBDD_INDEX_AUTOMRowDeleted As TBDD_INDEX_AUTOMRowChangeEventHandler + _ - Public Function IsBESCHREIBUNGNull() As Boolean - Return Me.IsNull(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) + Public Overloads Sub AddTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal ENTITY_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_INDEX_AUTOMRow + Dim rowTBDD_INDEX_AUTOMRow As TBDD_INDEX_AUTOMRow = CType(Me.NewRow,TBDD_INDEX_AUTOMRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID(0) + End If + rowTBDD_INDEX_AUTOMRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_INDEX_AUTOMRow) + Return rowTBDD_INDEX_AUTOMRow End Function _ - Public Sub SetBESCHREIBUNGNull() - Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = Global.System.Convert.DBNull - End Sub + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_AUTOMRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_AUTOMRow) + End Function _ - Public Function IsERSTELLTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_INDEX_AUTOMDataTable = CType(MyBase.Clone,TBDD_INDEX_AUTOMDataTable) + cln.InitVars + Return cln End Function _ - Public Sub SetERSTELLTWANNNull() - Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_INDEX_AUTOMDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") + Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") + Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") + Me.columnVALUE = MyBase.Columns("VALUE") + Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") + Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT") + Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ - Public Function IsGEANDERTWERNull() As Boolean - Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) + 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.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOCTYPE_ID) + Me.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnENTITY_ID) + Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnINDEXNAME) + Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVALUE) + Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONNECTION_ID) + Me.columnSQL_RESULT = New Global.System.Data.DataColumn("SQL_RESULT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_RESULT) + Me.columnSQL_ACTIVE = New Global.System.Data.DataColumn("SQL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_ACTIVE) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnDOCTYPE_ID.AllowDBNull = false + Me.columnENTITY_ID.AllowDBNull = false + Me.columnINDEXNAME.AllowDBNull = false + Me.columnINDEXNAME.MaxLength = 50 + Me.columnVALUE.MaxLength = 2000 + Me.columnCONNECTION_ID.AllowDBNull = false + Me.columnSQL_RESULT.AllowDBNull = false + Me.columnSQL_RESULT.MaxLength = 2000 + Me.columnSQL_ACTIVE.AllowDBNull = false + Me.columnCOMMENT.MaxLength = 400 + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(true,Boolean) + Me.columnSEQUENCE.AllowDBNull = false + Me.columnSEQUENCE.DefaultValue = CType(1,Byte) + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_INDEX_AUTOMRow() As TBDD_INDEX_AUTOMRow + Return CType(Me.NewRow,TBDD_INDEX_AUTOMRow) End Function _ - Public Sub SetGEANDERTWERNull() - Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = Global.System.Convert.DBNull - End Sub + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_INDEX_AUTOMRow(builder) + End Function _ - Public Function IsGEAENDERTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_INDEX_AUTOMRow) End Function _ - Public Sub SetGEAENDERTWANNNull() - Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_INDEX_AUTOMRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowChanged(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBTEMP_INDEXRESULTSRow - Inherits Global.System.Data.DataRow - Private tableTBTEMP_INDEXRESULTS As TBTEMP_INDEXRESULTSDataTable + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_INDEX_AUTOMRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowChanging(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If + End Sub _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBTEMP_INDEXRESULTS = CType(Me.Table,TBTEMP_INDEXRESULTSDataTable) + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_INDEX_AUTOMRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowDeleted(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If End Sub _ - Public Property Indexname() As String - Get - Try - Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexname in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_INDEX_AUTOMRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowDeleting(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) + 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_INDEX_AUTOMDataTable" + 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. + ''' + _ + Partial Public Class TBTEMP_INDEXRESULTSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBTEMP_INDEXRESULTSRow) + + Private columnIndexname As Global.System.Data.DataColumn + + Private columnValue As Global.System.Data.DataColumn + + Private columnDokumentart As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBTEMP_INDEXRESULTS" + 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 IndexnameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIndexname + End Get + End Property + + _ + Public ReadOnly Property ValueColumn() As Global.System.Data.DataColumn + Get + Return Me.columnValue + End Get + End Property + + _ + Public ReadOnly Property DokumentartColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDokumentart + 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 TBTEMP_INDEXRESULTSRow + Get + Return CType(Me.Rows(index),TBTEMP_INDEXRESULTSRow) + End Get + End Property + + _ + Public Event TBTEMP_INDEXRESULTSRowChanging As TBTEMP_INDEXRESULTSRowChangeEventHandler + + _ + Public Event TBTEMP_INDEXRESULTSRowChanged As TBTEMP_INDEXRESULTSRowChangeEventHandler + + _ + Public Event TBTEMP_INDEXRESULTSRowDeleting As TBTEMP_INDEXRESULTSRowChangeEventHandler + + _ + Public Event TBTEMP_INDEXRESULTSRowDeleted As TBTEMP_INDEXRESULTSRowChangeEventHandler + + _ + Public Overloads Sub AddTBTEMP_INDEXRESULTSRow(ByVal row As TBTEMP_INDEXRESULTSRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBTEMP_INDEXRESULTSRow(ByVal Indexname As String, ByVal Value As String, ByVal Dokumentart As String) As TBTEMP_INDEXRESULTSRow + Dim rowTBTEMP_INDEXRESULTSRow As TBTEMP_INDEXRESULTSRow = CType(Me.NewRow,TBTEMP_INDEXRESULTSRow) + Dim columnValuesArray() As Object = New Object() {Indexname, Value, Dokumentart} + rowTBTEMP_INDEXRESULTSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBTEMP_INDEXRESULTSRow) + Return rowTBTEMP_INDEXRESULTSRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBTEMP_INDEXRESULTSDataTable = CType(MyBase.Clone,TBTEMP_INDEXRESULTSDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBTEMP_INDEXRESULTSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnIndexname = MyBase.Columns("Indexname") + Me.columnValue = MyBase.Columns("Value") + Me.columnDokumentart = MyBase.Columns("Dokumentart") + End Sub + + _ + Private Sub InitClass() + Me.columnIndexname = New Global.System.Data.DataColumn("Indexname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIndexname) + Me.columnValue = New Global.System.Data.DataColumn("Value", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnValue) + Me.columnDokumentart = New Global.System.Data.DataColumn("Dokumentart", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDokumentart) + End Sub + + _ + Public Function NewTBTEMP_INDEXRESULTSRow() As TBTEMP_INDEXRESULTSRow + Return CType(Me.NewRow,TBTEMP_INDEXRESULTSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBTEMP_INDEXRESULTSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBTEMP_INDEXRESULTSRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBTEMP_INDEXRESULTSRowChangedEvent) Is Nothing) Then + RaiseEvent TBTEMP_INDEXRESULTSRowChanged(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBTEMP_INDEXRESULTSRowChangingEvent) Is Nothing) Then + RaiseEvent TBTEMP_INDEXRESULTSRowChanging(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBTEMP_INDEXRESULTSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBTEMP_INDEXRESULTSRowDeleted(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBTEMP_INDEXRESULTSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBTEMP_INDEXRESULTSRowDeleting(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBTEMP_INDEXRESULTSRow(ByVal row As TBTEMP_INDEXRESULTSRow) + 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 = "TBTEMP_INDEXRESULTSDataTable" + 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 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 + + _ + Public Function GetTBDD_INDEX_MANRows() As TBDD_INDEX_MANRow() + If (Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_DAID") Is Nothing) Then + Return New TBDD_INDEX_MANRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_DAID")),TBDD_INDEX_MANRow()) + End If + End Function + + _ + Public Function GetTBDD_INDEX_AUTOMRows() As TBDD_INDEX_AUTOMRow() + If (Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID") Is Nothing) Then + Return New TBDD_INDEX_AUTOMRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_INDEX_AUTOMRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_INDEX_MANRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_INDEX_MAN As TBDD_INDEX_MANDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_INDEX_MAN = CType(Me.Table,TBDD_INDEX_MANDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.GUIDColumn) = value + End Set + End Property + + _ + Public Property DOK_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.DOK_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.DOK_IDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.NAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.NAMEColumn) = value + End Set + End Property + + _ + Public Property WD_INDEX() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WD_INDEX in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn) = value + End Set + End Property + + _ + Public Property DATATYPE() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATATYPE in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) = value + End Set + End Property + + _ + Public Property SUGGESTION() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SUGGESTIONColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SUGGESTIONColumn) = value + End Set + End Property + + _ + Public Property DEFAULT_VALUE() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.DEFAULT_VALUEColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.DEFAULT_VALUEColumn) = value + End Set + End Property + + _ + Public Property CONNECTION_ID() As Short + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property SQL_RESULT() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SQL_RESULTColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SQL_RESULTColumn) = value + End Set + End Property + + _ + Public Property SQL_CHECK() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SQL_CHECKColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SQL_CHECKColumn) = value + End Set + End Property + + _ + Public Property _OPTIONAL() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.OPTIONALColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.OPTIONALColumn) = value + End Set + End Property + + _ + Public Property SAVE_VALUE() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SAVE_VALUEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SAVE_VALUEColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property MULTISELECT() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn) = value + End Set + End Property + + _ + Public Property VKT_ADD_ITEM() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.VKT_ADD_ITEMColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.VKT_ADD_ITEMColumn) = value + End Set + End Property + + _ + Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.VKT_PREVENT_MULTIPLE_VALUESColumn) = value + End Set + End Property + + _ + Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_DAID")),TBDD_DOKUMENTARTRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_DAID")) + End Set + End Property + + _ + Public Function IsWD_INDEXNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) + End Function + + _ + Public Sub SetWD_INDEXNull() + Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATATYPENull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) + End Function + + _ + Public Sub SetDATATYPENull() + Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCONNECTION_IDNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) + End Function + + _ + Public Sub SetCONNECTION_IDNull() + Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_INDEX_AUTOMRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_INDEX_AUTOM = CType(Me.Table,TBDD_INDEX_AUTOMDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn) = value + End Set + End Property + + _ + Public Property DOCTYPE_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn) = value + End Set + End Property + + _ + Public Property ENTITY_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ENTITY_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ENTITY_IDColumn) = value + End Set + End Property + + _ + Public Property INDEXNAME() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn) = value + End Set + End Property + + _ + Public Property VALUE() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = value + End Set + End Property + + _ + Public Property CONNECTION_ID() As Short + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn),Short) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = value + End Set + End Property + + _ + Public Property SQL_RESULT() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) = value + End Set + End Property + + _ + Public Property SQL_ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Byte + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SEQUENCEColumn),Byte) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_DOKUMENTARTRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")) + End Set + End Property + + _ + Public Function IsVALUENull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) + End Function + + _ + Public Sub SetVALUENull() + Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBTEMP_INDEXRESULTSRow + Inherits Global.System.Data.DataRow + + Private tableTBTEMP_INDEXRESULTS As TBTEMP_INDEXRESULTSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBTEMP_INDEXRESULTS = CType(Me.Table,TBTEMP_INDEXRESULTSDataTable) + End Sub + + _ + Public Property Indexname() As String + Get + Try + Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexname in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) = value + End Set + End Property + + _ + Public Property Value() As String + Get + Try + Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Value in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) = value + End Set + End Property + + _ + Public Property Dokumentart() As String + Get + Try + Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Dokumentart in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) = value + End Set + End Property + + _ + Public Function IsIndexnameNull() As Boolean + Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) + End Function + + _ + Public Sub SetIndexnameNull() + Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsValueNull() As Boolean + Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) + End Function + + _ + Public Sub SetValueNull() + Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDokumentartNull() As Boolean + Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) + End Function + + _ + Public Sub SetDokumentartNull() + Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) = Global.System.Convert.DBNull + 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 + ''' + _ + Public Class TBDD_INDEX_MANRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_INDEX_MANRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_INDEX_MANRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_INDEX_MANRow + 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 + ''' + _ + Public Class TBDD_INDEX_AUTOMRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_INDEX_AUTOMRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_INDEX_AUTOMRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_INDEX_AUTOMRow + 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 + ''' + _ + Public Class TBTEMP_INDEXRESULTSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBTEMP_INDEXRESULTSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBTEMP_INDEXRESULTSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBTEMP_INDEXRESULTSRow + 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 +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(1) {} + 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, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT TBDD_DOKUMENTART.GUID, TBDD_DOKUMENTART.BEZEICHNUNG, TBDD_DOKUMENTA"& _ + "RT.OBJEKTTYP, TBDD_DOKUMENTART.EINGANGSART_ID, TBDD_DOKUMENTART.KURZNAME, TBDD_D"& _ + "OKUMENTART.ZIEL_PFAD, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTART.BESCHREIBUNG, "& _ + "TBDD_DOKUMENTART.WINDREAM_DIRECT, TBDD_DOKUMENTART.FOLDER_FOR_INDEX, TBDD_DOKUME"& _ + "NTART.DUPLICATE_HANDLING, TBDD_DOKUMENTART.AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBD"& _ + "D_DOKUMENTART.LANGUAGE, TBDD_DOKUMENTART.SEQUENCE, TBDD_DOKUMENTART.NAMENKONVENT"& _ + "ION, TBDD_DOKUMENTART.ERSTELLTWER, TBDD_DOKUMENTART.ERSTELLTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_DOKUMENTART.GEANDERTWER, TBDD_DOKUMENTART.GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBDD_DOKUMENTART INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTAR"& _ + "T_MODULE ON TBDD_DOKUMENTART.GUID = TBDD_DOKUMENTART_MODULE.DOKART_ID INNER JOIN"& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_MODULES ON TBDD_DOKUMENTART_MODULE.MODULE_ID = T"& _ + "BDD_MODULES.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBDD_MODULES.SHORT_NAME = 'GLOBIX')"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TB"& _ + "DD_DOKUMENTART.BEZEICHNUNG" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + 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 FillAllDoctypes(ByVal dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + 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 GetDataDoctypes() As GlobixDataset.TBDD_DOKUMENTARTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + 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 + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_INDEX_MANTableAdapter + 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 - Set - Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) = value - End Set End Property _ - Public Property Value() As String + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get - Try - Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Value in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) - End Try + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection End Get Set - Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) = value + 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 _ - Public Property Dokumentart() As String + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get - Try - Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Dokumentart in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) - End Try + Return Me._transaction End Get Set - Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) = value + 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 _ - Public Function IsIndexnameNull() As Boolean - Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) - End Function + 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 _ - Public Sub SetIndexnameNull() - Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) = Global.System.Convert.DBNull + 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_INDEX_MAN" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("DOK_ID", "DOK_ID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("WD_INDEX", "WD_INDEX") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("DATATYPE", "DATATYPE") + tableMapping.ColumnMappings.Add("SUGGESTION", "SUGGESTION") + tableMapping.ColumnMappings.Add("DEFAULT_VALUE", "DEFAULT_VALUE") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") + tableMapping.ColumnMappings.Add("SQL_CHECK", "SQL_CHECK") + tableMapping.ColumnMappings.Add("OPTIONAL", "OPTIONAL") + tableMapping.ColumnMappings.Add("SAVE_VALUE", "SAVE_VALUE") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("MULTISELECT", "MULTISELECT") + tableMapping.ColumnMappings.Add("VKT_ADD_ITEM", "VKT_ADD_ITEM") + tableMapping.ColumnMappings.Add("VKT_PREVENT_MULTIPLE_VALUES", "VKT_PREVENT_MULTIPLE_VALUES") + 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_INDEX_MAN"&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_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOK_ID, NAME, WD_INDEX, COM"& _ + "MENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, "& _ + "SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, MULTISELECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID,@"& _ + "NAME,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQ"& _ + "UENCE,@SQL_RESULT,@SQL_CHECK,@OPTIONAL,@SAVE_VALUE,@ACTIVE,@ADDED_WHO,@MULTISELE"& _ + "CT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOK_ID, NAME, WD_"& _ + "INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQ"& _ + "L_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGE"& _ + "D_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FROM"& _ + " TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATATYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DATATYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUGGESTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUGGESTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", 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("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_CHECK", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_CHECK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SAVE_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SAVE_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTISELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_ADD_ITEM", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_ADD_ITEM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", 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_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOK_ID = @DOK_ID, NAME = @NAME, W"& _ + "D_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = @SUG"& _ + "GESTION, DEFAULT_VALUE = @DEFAULT_VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONNECTION_I"& _ + "D = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = "& _ + "@SQL_CHECK, OPTIONAL = @OPTIONAL, SAVE_VALUE = @SAVE_VALUE, ACTIVE = @ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + " CHANGED_WHO = @CHANGED_WHO, MULTISELECT = @MULTISELECT,"& _ + " VKT_ADD_ITEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIP"& _ + "LE_VALUES"&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, DOK_ID, NAME, WD"& _ + "_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, S"& _ + "QL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANG"& _ + "ED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FRO"& _ + "M TBDD_INDEX_MAN WHERE (GUID = @GUID) ORDER BY SEQUENCE" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATATYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DATATYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUGGESTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUGGESTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", 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("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_CHECK", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_CHECK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SAVE_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SAVE_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTISELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_ADD_ITEM", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_ADD_ITEM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", 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 _ - Public Function IsValueNull() As Boolean - Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) - End Function + 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 _ - Public Sub SetValueNull() - Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) = Global.System.Convert.DBNull + 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, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAUL"& _ + "T_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, A"& _ + "CTIVE, ADDED_WHO, ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO, CHANGED_WH"& _ + "EN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD"& _ + "_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = @DOKID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Function IsDokumentartNull() As Boolean - Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ + Public Overloads Overridable Function Fill(ByVal dataTable As GlobixDataset.TBDD_INDEX_MANDataTable, ByVal DOKID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue End Function _ - Public Sub SetDokumentartNull() - Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) = Global.System.Convert.DBNull - 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 + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ + Public Overloads Overridable Function GetData(ByVal DOKID As Integer) As GlobixDataset.TBDD_INDEX_MANDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKID,Integer) + Dim dataTable As GlobixDataset.TBDD_INDEX_MANDataTable = New GlobixDataset.TBDD_INDEX_MANDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function _ - 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 + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function Update(ByVal dataTable As GlobixDataset.TBDD_INDEX_MANDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function _ - Public ReadOnly Property Row() As TBDD_DOKUMENTARTRow - Get - Return Me.eventRow - End Get - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function Update(ByVal dataSet As GlobixDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_INDEX_MAN") + End Function _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBTEMP_INDEXRESULTSRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBTEMP_INDEXRESULTSRow + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + 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 - Private eventAction As Global.System.Data.DataRowAction + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function _ - Public Sub New(ByVal row As TBTEMP_INDEXRESULTSRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _ + 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 ReadOnly Property Row() As TBTEMP_INDEXRESULTSRow - Get - Return Me.eventRow - End Get - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ + Public Overloads Overridable Function Insert( _ + ByVal DOK_ID As Integer, _ + ByVal NAME As String, _ + ByVal WD_INDEX As String, _ + ByVal COMMENT As String, _ + ByVal DATATYPE As String, _ + ByVal SUGGESTION As Boolean, _ + ByVal DEFAULT_VALUE As String, _ + ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_RESULT As String, _ + ByVal SQL_CHECK As String, _ + ByVal _OPTIONAL As Boolean, _ + ByVal SAVE_VALUE As Boolean, _ + ByVal ACTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal MULTISELECT As Boolean, _ + ByVal VKT_ADD_ITEM As Boolean, _ + ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOK_ID,Integer) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) + End If + If (WD_INDEX Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_INDEX,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) + End If + If (DATATYPE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(DATATYPE,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(SUGGESTION,Boolean) + If (DEFAULT_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("DEFAULT_VALUE") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(DEFAULT_VALUE,String) + End If + If (CONNECTION_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(CONNECTION_ID.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(8).Value = CType(SEQUENCE,Integer) + If (SQL_RESULT Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RESULT") + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(SQL_RESULT,String) + End If + If (SQL_CHECK Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_CHECK") + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(SQL_CHECK,String) + End If + Me.Adapter.InsertCommand.Parameters(11).Value = CType(_OPTIONAL,Boolean) + Me.Adapter.InsertCommand.Parameters(12).Value = CType(SAVE_VALUE,Boolean) + Me.Adapter.InsertCommand.Parameters(13).Value = CType(ACTIVE,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(15).Value = CType(MULTISELECT,Boolean) + Me.Adapter.InsertCommand.Parameters(16).Value = CType(VKT_ADD_ITEM,Boolean) + Me.Adapter.InsertCommand.Parameters(17).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean) + 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 ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update( _ + ByVal DOK_ID As Integer, _ + ByVal NAME As String, _ + ByVal WD_INDEX As String, _ + ByVal COMMENT As String, _ + ByVal DATATYPE As String, _ + ByVal SUGGESTION As Boolean, _ + ByVal DEFAULT_VALUE As String, _ + ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_RESULT As String, _ + ByVal SQL_CHECK As String, _ + ByVal _OPTIONAL As Boolean, _ + ByVal SAVE_VALUE As Boolean, _ + ByVal ACTIVE As Boolean, _ + ByVal CHANGED_WHO As String, _ + ByVal MULTISELECT As Boolean, _ + ByVal VKT_ADD_ITEM As Boolean, _ + ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, _ + ByVal Original_GUID As Integer, _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOK_ID,Integer) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) + End If + If (WD_INDEX Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_INDEX,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) + End If + If (DATATYPE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DATATYPE,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SUGGESTION,Boolean) + If (DEFAULT_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("DEFAULT_VALUE") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DEFAULT_VALUE,String) + End If + If (CONNECTION_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CONNECTION_ID.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SEQUENCE,Integer) + If (SQL_RESULT Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RESULT") + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SQL_RESULT,String) + End If + If (SQL_CHECK Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_CHECK") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(SQL_CHECK,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(_OPTIONAL,Boolean) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SAVE_VALUE,Boolean) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(ACTIVE,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(MULTISELECT,Boolean) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(VKT_ADD_ITEM,Boolean) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(19).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 -End Class - -Namespace GlobixDatasetTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. @@ -1574,7 +4449,7 @@ Namespace GlobixDatasetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_DOKUMENTARTTableAdapter + Partial Public Class TBDD_INDEX_AUTOMTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -1691,84 +4566,71 @@ Namespace GlobixDatasetTableAdapters 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.DataSetTable = "TBDD_INDEX_AUTOM" 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("DOCTYPE_ID", "DOCTYPE_ID") + tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") + tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") + tableMapping.ColumnMappings.Add("VALUE", "VALUE") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") + tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") 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") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") 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.CommandText = "DELETE FROM TBDD_INDEX_AUTOM"&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.CommandText = "INSERT INTO TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, ENTITY_ID, IN"& _ + "DEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE"& _ + ", ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE_ID,@ENTITY_ID,@INDEXNAME,@VALUE,@CONNECTIO"& _ + "N_ID,@SQL_RESULT,@SQL_ACTIVE,@COMMENT,@ACTIVE,@SEQUENCE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _ + "ID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTI"& _ + "VE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ + "FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE" 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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 1, 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("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", 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.CommandText = "UPDATE TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE_ID = @DOCTYPE_ID, ENTIT"& _ + "Y_ID = @ENTITY_ID, INDEXNAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONN"& _ + "ECTION_ID, SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " COMMENT = @COMMENT, ACTIVE = @ACTIVE, SEQUENCE = @SEQUENCE, CHANGED_WH"& _ + "O = @CHANGED_WHO"&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, DOCTYPE_I"& _ + "D, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, "& _ + "ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_IND"& _ + "EX_AUTOM WHERE (GUID = @GUID) ORDER BY SEQUENCE" 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("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 1, 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("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", 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 @@ -1783,41 +4645,24 @@ Namespace GlobixDatasetTableAdapters _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + 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).CommandText = "SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_R"& _ + "ESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO"& _ + ", CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DO"& _ + "KID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE" 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, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT TBDD_DOKUMENTART.GUID, TBDD_DOKUMENTART.BEZEICHNUNG, TBDD_DOKUMENTA"& _ - "RT.OBJEKTTYP, TBDD_DOKUMENTART.EINGANGSART_ID, TBDD_DOKUMENTART.KURZNAME, TBDD_D"& _ - "OKUMENTART.ZIEL_PFAD, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTART.BESCHREIBUNG, "& _ - "TBDD_DOKUMENTART.WINDREAM_DIRECT, TBDD_DOKUMENTART.FOLDER_FOR_INDEX, TBDD_DOKUME"& _ - "NTART.DUPLICATE_HANDLING, TBDD_DOKUMENTART.AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBD"& _ - "D_DOKUMENTART.LANGUAGE, TBDD_DOKUMENTART.SEQUENCE, TBDD_DOKUMENTART.NAMENKONVENT"& _ - "ION, TBDD_DOKUMENTART.ERSTELLTWER, TBDD_DOKUMENTART.ERSTELLTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBDD_DOKUMENTART.GEANDERTWER, TBDD_DOKUMENTART.GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBDD_DOKUMENTART INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTAR"& _ - "T_MODULE ON TBDD_DOKUMENTART.GUID = TBDD_DOKUMENTART_MODULE.DOKART_ID INNER JOIN"& _ - ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_MODULES ON TBDD_DOKUMENTART_MODULE.MODULE_ID = T"& _ - "BDD_MODULES.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBDD_MODULES.SHORT_NAME = 'GLOBIX')"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TB"& _ - "DD_DOKUMENTART.BEZEICHNUNG" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", 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 + Public Overloads Overridable Function Fill(ByVal dataTable As GlobixDataset.TBDD_INDEX_AUTOMDataTable, ByVal DOKID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -1829,34 +4674,10 @@ Namespace GlobixDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal GUID As Integer) As GlobixDataset.TBDD_DOKUMENTARTDataTable + Public Overloads Overridable Function GetData(ByVal DOKID As Integer) As GlobixDataset.TBDD_INDEX_AUTOMDataTable 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 FillAllDoctypes(ByVal dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(1) - 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 GetDataDoctypes() As GlobixDataset.TBDD_DOKUMENTARTDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(1) - Dim dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable = New GlobixDataset.TBDD_DOKUMENTARTDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKID,Integer) + Dim dataTable As GlobixDataset.TBDD_INDEX_AUTOMDataTable = New GlobixDataset.TBDD_INDEX_AUTOMDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -1864,7 +4685,7 @@ Namespace GlobixDatasetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As GlobixDataset.TBDD_INDEX_AUTOMDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -1872,7 +4693,7 @@ Namespace GlobixDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As GlobixDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_DOKUMENTART") + Return Me.Adapter.Update(dataSet, "TBDD_INDEX_AUTOM") 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 + Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal ENTITY_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") 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) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(INDEXNAME,String) End If - If (ERSTELLTWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("ERSTELLTWER") + If (VALUE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ERSTELLTWER,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(VALUE,String) End If - If (OBJEKTTYP Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJEKTTYP") + Me.Adapter.InsertCommand.Parameters(4).Value = CType(CONNECTION_ID,Short) + If (SQL_RESULT Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RESULT") Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(OBJEKTTYP,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_RESULT,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") + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SQL_ACTIVE,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(COMMENT,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") + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ACTIVE,Boolean) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(SEQUENCE,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String) + Me.Adapter.InsertCommand.Parameters(10).Value = CType(ADDED_WHO,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) _ @@ -1983,58 +4786,40 @@ Namespace GlobixDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - 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") + Public Overloads Overridable Function Update(ByVal DOCTYPE_ID As Integer, ByVal ENTITY_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Integer, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") 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) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(INDEXNAME,String) End If - If (BESCHREIBUNG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + If (VALUE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(VALUE,String) End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(AKTIV,Boolean) - If (NAMENKONVENTION Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAMENKONVENTION") + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CONNECTION_ID,Short) + If (SQL_RESULT Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RESULT") Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_RESULT,String) End If - If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SQL_ACTIVE,Boolean) + If (COMMENT 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) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(COMMENT,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") + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ACTIVE,Boolean) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SEQUENCE,Integer) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(12).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 @@ -2066,6 +4851,10 @@ Namespace GlobixDatasetTableAdapters Private _tBDD_DOKUMENTARTTableAdapter As TBDD_DOKUMENTARTTableAdapter + Private _tBDD_INDEX_MANTableAdapter As TBDD_INDEX_MANTableAdapter + + Private _tBDD_INDEX_AUTOMTableAdapter As TBDD_INDEX_AUTOMTableAdapter + Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection @@ -2095,6 +4884,34 @@ Namespace GlobixDatasetTableAdapters End Set End Property + _ + Public Property TBDD_INDEX_MANTableAdapter() As TBDD_INDEX_MANTableAdapter + Get + Return Me._tBDD_INDEX_MANTableAdapter + End Get + Set + Me._tBDD_INDEX_MANTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_INDEX_AUTOMTableAdapter() As TBDD_INDEX_AUTOMTableAdapter + Get + Return Me._tBDD_INDEX_AUTOMTableAdapter + End Get + Set + Me._tBDD_INDEX_AUTOMTableAdapter = value + End Set + End Property + _ Public Property BackupDataSetBeforeUpdate() As Boolean @@ -2118,6 +4935,14 @@ Namespace GlobixDatasetTableAdapters AndAlso (Not (Me._tBDD_DOKUMENTARTTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_DOKUMENTARTTableAdapter.Connection End If + If ((Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_INDEX_MANTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_INDEX_MANTableAdapter.Connection + End If + If ((Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_INDEX_AUTOMTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_INDEX_AUTOMTableAdapter.Connection + End If Return Nothing End Get Set @@ -2134,6 +4959,12 @@ Namespace GlobixDatasetTableAdapters If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then count = (count + 1) End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + count = (count + 1) + End If Return count End Get End Property @@ -2154,6 +4985,24 @@ Namespace GlobixDatasetTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.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_INDEX_MANTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.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_INDEX_AUTOMTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If Return result End Function @@ -2172,6 +5021,22 @@ Namespace GlobixDatasetTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If Return result End Function @@ -2182,6 +5047,22 @@ Namespace GlobixDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If 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) _ @@ -2236,6 +5117,16 @@ Namespace GlobixDatasetTableAdapters Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If + If ((Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_INDEX_MANTableAdapter.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 + If ((Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_INDEX_AUTOMTableAdapter.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"& _ @@ -2279,6 +5170,24 @@ Namespace GlobixDatasetTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_DOKUMENTARTTableAdapter.Adapter) End If End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_INDEX_MANTableAdapter, Me._tBDD_INDEX_MANTableAdapter.Connection) + Me._tBDD_INDEX_MANTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_INDEX_MANTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_INDEX_MANTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_INDEX_MANTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_INDEX_MANTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_INDEX_AUTOMTableAdapter, Me._tBDD_INDEX_AUTOMTableAdapter.Connection) + Me._tBDD_INDEX_AUTOMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_INDEX_AUTOMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_INDEX_AUTOMTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_INDEX_AUTOMTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_INDEX_AUTOMTableAdapter.Adapter) + End If + End If ' '---- Perform updates ----------- ' @@ -2343,6 +5252,14 @@ Namespace GlobixDatasetTableAdapters Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(revertConnections(Me._tBDD_DOKUMENTARTTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_DOKUMENTARTTableAdapter.Transaction = Nothing End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + Me._tBDD_INDEX_MANTableAdapter.Connection = CType(revertConnections(Me._tBDD_INDEX_MANTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_INDEX_MANTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Me._tBDD_INDEX_AUTOMTableAdapter.Connection = CType(revertConnections(Me._tBDD_INDEX_AUTOMTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_INDEX_AUTOMTableAdapter.Transaction = Nothing + End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) diff --git a/GUIs.ZooFlow/Globix/GlobixDataset.xsc b/GUIs.ZooFlow/Globix/GlobixDataset.xsc index 00e2e4e4..d52a096c 100644 --- a/GUIs.ZooFlow/Globix/GlobixDataset.xsc +++ b/GUIs.ZooFlow/Globix/GlobixDataset.xsc @@ -9,9 +9,89 @@ - + + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/GUIs.ZooFlow/Globix/GlobixDataset.xsd b/GUIs.ZooFlow/Globix/GlobixDataset.xsd index 77614492..67ccd9e4 100644 --- a/GUIs.ZooFlow/Globix/GlobixDataset.xsd +++ b/GUIs.ZooFlow/Globix/GlobixDataset.xsd @@ -121,6 +121,208 @@ ORDER BY TBDD_DOKUMENTART.BEZEICHNUNG + + + + + + DELETE FROM TBDD_INDEX_MAN +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_INDEX_MAN + (DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, MULTISELECT, + VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES) +VALUES (@DOK_ID,@NAME,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQUENCE,@SQL_RESULT,@SQL_CHECK,@OPTIONAL,@SAVE_VALUE,@ACTIVE,@ADDED_WHO,@MULTISELECT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES); +SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, + CHANGED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES +FROM TBDD_INDEX_MAN +WHERE (DOK_ID = @DOKID) +ORDER BY SEQUENCE + + + + + + + + UPDATE TBDD_INDEX_MAN +SET DOK_ID = @DOK_ID, NAME = @NAME, WD_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = @SUGGESTION, DEFAULT_VALUE = @DEFAULT_VALUE, + CONNECTION_ID = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = @SQL_CHECK, OPTIONAL = @OPTIONAL, SAVE_VALUE = @SAVE_VALUE, ACTIVE = @ACTIVE, + CHANGED_WHO = @CHANGED_WHO, MULTISELECT = @MULTISELECT, VKT_ADD_ITEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIPLE_VALUES +WHERE (GUID = @Original_GUID); +SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FROM TBDD_INDEX_MAN WHERE (GUID = @GUID) ORDER BY SEQUENCE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBDD_INDEX_AUTOM +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_INDEX_AUTOM + (DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO) +VALUES (@DOCTYPE_ID,@ENTITY_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@SQL_RESULT,@SQL_ACTIVE,@COMMENT,@ACTIVE,@SEQUENCE,@ADDED_WHO); +SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE + + + + + + + + + + + + + + + + + + SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBDD_INDEX_AUTOM +WHERE (DOCTYPE_ID = @DOKID) +ORDER BY SEQUENCE + + + + + + + + UPDATE TBDD_INDEX_AUTOM +SET DOCTYPE_ID = @DOCTYPE_ID, ENTITY_ID = @ENTITY_ID, INDEXNAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, + COMMENT = @COMMENT, ACTIVE = @ACTIVE, SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID) ORDER BY SEQUENCE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -129,7 +331,7 @@ ORDER BY TBDD_DOKUMENTART.BEZEICHNUNG - + @@ -138,7 +340,7 @@ ORDER BY TBDD_DOKUMENTART.BEZEICHNUNG - + @@ -228,11 +430,164 @@ ORDER BY TBDD_DOKUMENTART.BEZEICHNUNG + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Globix/GlobixDataset.xss b/GUIs.ZooFlow/Globix/GlobixDataset.xss index 937e37e6..f51a6cc9 100644 --- a/GUIs.ZooFlow/Globix/GlobixDataset.xss +++ b/GUIs.ZooFlow/Globix/GlobixDataset.xss @@ -6,8 +6,35 @@ --> - - + + + + - + + + + + 540 + 303 + + + 618 + 303 + + + + + + + 540 + 247 + + + 1037 + 247 + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Globix/frmGlobixAdministration.Designer.vb b/GUIs.ZooFlow/Globix/frmGlobixAdministration.Designer.vb index 275e75d8..6262a360 100644 --- a/GUIs.ZooFlow/Globix/frmGlobixAdministration.Designer.vb +++ b/GUIs.ZooFlow/Globix/frmGlobixAdministration.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmGlobixAdministration Inherits DevExpress.XtraBars.Ribbon.RibbonForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,11 +20,14 @@ Partial Class frmGlobixAdministration '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() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGlobixAdministration)) Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BbtnitmRecordSave = New DevExpress.XtraBars.BarButtonItem() + Me.BbtnitmRecordDelete = New DevExpress.XtraBars.BarButtonItem() + Me.RecordAdd = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupManualIndex = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -35,9 +38,54 @@ Partial Class frmGlobixAdministration Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.BtnDateinamenKonvention = New DevExpress.XtraEditors.SimpleButton() Me.AKTIVCheckBox = New System.Windows.Forms.CheckBox() Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.GlobixDataset = New DigitalData.GUIs.ZooFlow.GlobixDataset() + Me.NAMENKONVENTIONTextBox = New System.Windows.Forms.TextBox() + Me.ComboBox3 = New System.Windows.Forms.ComboBox() + Me.BESCHREIBUNGTextBox = New System.Windows.Forms.TextBox() + Me.KURZNAMETextBox = New System.Windows.Forms.TextBox() + Me.BEZEICHNUNGTextBox = New System.Windows.Forms.TextBox() + Me.SEQUENCENumericUpDown = New System.Windows.Forms.NumericUpDown() + Me.DokartGUIDTextBox = New System.Windows.Forms.TextBox() + Me.ControlGroupProfile = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPageManIndexe = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControl2 = New DevExpress.XtraLayout.LayoutControl() + Me.Button1 = New System.Windows.Forms.Button() + Me.VKT_ADD_ITEMCheckBox = New System.Windows.Forms.CheckBox() + Me.TBDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DEFAULT_VALUETextBox = New System.Windows.Forms.TextBox() + Me.DATATYPEComboBox = New System.Windows.Forms.ComboBox() + Me.COMMENTTextBox = New System.Windows.Forms.TextBox() + Me.WD_INDEXComboBox = New System.Windows.Forms.ComboBox() + Me.NAMETextBox = New System.Windows.Forms.TextBox() + Me.SEQUENCENumericUpDown1 = New System.Windows.Forms.NumericUpDown() + Me.GUIDTextBox1 = New System.Windows.Forms.TextBox() + Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox() + Me.ControlGroupIndexeMan = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem13 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem15 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem17 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem18 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem21 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ListBoxControlmanIndex = New DevExpress.XtraEditors.ListBoxControl() + Me.XtraTabPageRework = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() Me.TBDD_DOKUMENTARTTableAdapter = New DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TBDD_DOKUMENTARTTableAdapter() Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TableAdapterManager() @@ -45,66 +93,211 @@ Partial Class frmGlobixAdministration Me.colBEZEICHNUNG = New DevExpress.XtraGrid.Columns.GridColumn() Me.colBESCHREIBUNG = New DevExpress.XtraGrid.Columns.GridColumn() Me.GridControl1 = New DevExpress.XtraGrid.GridControl() - Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() - Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage() - Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage() - Me.Label32 = New System.Windows.Forms.Label() - Me.ComboBox3 = New System.Windows.Forms.ComboBox() + Me.TBDD_INDEX_MANTableAdapter = New DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TBDD_INDEX_MANTableAdapter() + Me.LayoutControlItem16 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.EmptySpaceItem3 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.MULTISELECTCheckBox = New System.Windows.Forms.CheckBox() + Me.LayoutControlItem20 = New DevExpress.XtraLayout.LayoutControlItem() + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox = New System.Windows.Forms.CheckBox() + Me.LayoutControlItem22 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ERSTELLTWERTextBox = New System.Windows.Forms.TextBox() + Me.LayoutControlItem23 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ERSTELLTWANNTextBox = New System.Windows.Forms.TextBox() + Me.LayoutControlItem24 = New DevExpress.XtraLayout.LayoutControlItem() + Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox() + Me.LayoutControlItem25 = New DevExpress.XtraLayout.LayoutControlItem() + Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox() + Me.LayoutControlItem26 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.LayoutControlItem27 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.LayoutControlItem28 = New DevExpress.XtraLayout.LayoutControlItem() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.LayoutControlItem29 = New DevExpress.XtraLayout.LayoutControlItem() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.LayoutControlItem30 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ListBoxControl1 = New DevExpress.XtraEditors.ListBoxControl() + Me.LayoutControlItem19 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem4 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.LayoutControlItem31 = New DevExpress.XtraLayout.LayoutControlItem() + Me.XtraTabPageAutoIndexe = New DevExpress.XtraTab.XtraTabPage() + Me.RibbonPageGroupProfileRegex = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItemSaveMI = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem() + Me.ListBoxControl2 = New DevExpress.XtraEditors.ListBoxControl() + Me.LayoutControlAutoIndexe = New DevExpress.XtraLayout.LayoutControl() + Me.ControlGroupIndexeAuto = New DevExpress.XtraLayout.LayoutControlGroup() + Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBDD_INDEX_AUTOMTableAdapter = New DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TBDD_INDEX_AUTOMTableAdapter() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.LayoutControlItem33 = New DevExpress.XtraLayout.LayoutControlItem() + Me.SEQUENCENumericUpDown2 = New System.Windows.Forms.NumericUpDown() + Me.LayoutControlItem34 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ACTIVECheckBox1 = New System.Windows.Forms.CheckBox() + Me.LayoutControlItem35 = New DevExpress.XtraLayout.LayoutControlItem() + Me.INDEXNAMEComboBox = New System.Windows.Forms.ComboBox() + Me.LayoutControlItem36 = New DevExpress.XtraLayout.LayoutControlItem() + Me.VALUETextBox = New System.Windows.Forms.TextBox() + Me.LayoutControlItem37 = New DevExpress.XtraLayout.LayoutControlItem() + Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton() + Me.LayoutControlItem32 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ComboBoxParameterAutoIndex = New System.Windows.Forms.ComboBox() + Me.LayoutControlItem38 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem5 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.EmptySpaceItem6 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.bsiState = New DevExpress.XtraBars.BarStaticItem() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl1.SuspendLayout() Me.XtraTabPage1.SuspendLayout() + 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.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ControlGroupProfile, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl2.SuspendLayout() + Me.XtraTabPageManIndexe.SuspendLayout() + CType(Me.LayoutControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl2.SuspendLayout() + CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SEQUENCENumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ControlGroupIndexeMan, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem21, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ListBoxControlmanIndex, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem20, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem24, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem25, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem26, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem27, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem28, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem29, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem31, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageAutoIndexe.SuspendLayout() + CType(Me.ListBoxControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlAutoIndexe, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControlAutoIndexe.SuspendLayout() + CType(Me.ControlGroupIndexeAuto, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem33, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SEQUENCENumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem34, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem35, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem36, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem37, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem32, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem38, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem6, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BbtnitmRecordSave, Me.BbtnitmRecordDelete, Me.RecordAdd, Me.BarButtonItemSaveMI, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.bsiState}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 1 + Me.RibbonControl1.MaxItemId = 9 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) - Me.RibbonControl1.Size = New System.Drawing.Size(1243, 159) + Me.RibbonControl1.Size = New System.Drawing.Size(1360, 159) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' + 'BbtnitmRecordSave + ' + Me.BbtnitmRecordSave.Caption = "Speichern" + Me.BbtnitmRecordSave.Id = 1 + Me.BbtnitmRecordSave.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BbtnitmRecordSave.Name = "BbtnitmRecordSave" + ' + 'BbtnitmRecordDelete + ' + Me.BbtnitmRecordDelete.Caption = "Löschen" + Me.BbtnitmRecordDelete.Id = 2 + Me.BbtnitmRecordDelete.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BbtnitmRecordDelete.Name = "BbtnitmRecordDelete" + ' + 'RecordAdd + ' + Me.RecordAdd.Caption = "Hinzufügen" + Me.RecordAdd.Id = 3 + Me.RecordAdd.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.RecordAdd.Name = "RecordAdd" + ' 'RibbonPage1 ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroupManualIndex, Me.RibbonPageGroupManualIndexFunctions, Me.RibbonPageGroupAutoIndex}) + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroupManualIndex, Me.RibbonPageGroupManualIndexFunctions, Me.RibbonPageGroupAutoIndex, Me.RibbonPageGroupProfileRegex}) Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Text = "RibbonPage1" ' 'RibbonPageGroup1 ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BbtnitmRecordSave) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BbtnitmRecordDelete) + Me.RibbonPageGroup1.ItemLinks.Add(Me.RecordAdd) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "Profil-Verwaltung" ' 'RibbonPageGroupManualIndex ' + Me.RibbonPageGroupManualIndex.ItemLinks.Add(Me.BarButtonItemSaveMI) Me.RibbonPageGroupManualIndex.Name = "RibbonPageGroupManualIndex" Me.RibbonPageGroupManualIndex.Text = "Manuelle Indexe" ' 'RibbonPageGroupManualIndexFunctions ' + Me.RibbonPageGroupManualIndexFunctions.ItemLinks.Add(Me.BarButtonItem6) Me.RibbonPageGroupManualIndexFunctions.Name = "RibbonPageGroupManualIndexFunctions" Me.RibbonPageGroupManualIndexFunctions.Text = "Nachbearbeitungsfunktionen" ' 'RibbonPageGroupAutoIndex ' + Me.RibbonPageGroupAutoIndex.ItemLinks.Add(Me.BarButtonItem7) Me.RibbonPageGroupAutoIndex.Name = "RibbonPageGroupAutoIndex" Me.RibbonPageGroupAutoIndex.Text = "Automatische Indexe" ' 'RibbonStatusBar1 ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiState) Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 698) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(1243, 22) + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1360, 22) ' 'RibbonPage2 ' @@ -122,29 +315,60 @@ Partial Class frmGlobixAdministration Me.XtraTabControl1.Location = New System.Drawing.Point(174, 159) Me.XtraTabControl1.Name = "XtraTabControl1" Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 - Me.XtraTabControl1.Size = New System.Drawing.Size(1069, 539) + Me.XtraTabControl1.Size = New System.Drawing.Size(1186, 539) Me.XtraTabControl1.TabIndex = 3 Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) ' 'XtraTabPage1 ' - Me.XtraTabPage1.Controls.Add(Me.Label32) - Me.XtraTabPage1.Controls.Add(Me.ComboBox3) + Me.XtraTabPage1.AutoScroll = True + Me.XtraTabPage1.Controls.Add(Me.LayoutControl1) Me.XtraTabPage1.Controls.Add(Me.XtraTabControl2) - Me.XtraTabPage1.Controls.Add(Me.AKTIVCheckBox) Me.XtraTabPage1.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.XtraTabPage1.Name = "XtraTabPage1" - Me.XtraTabPage1.Size = New System.Drawing.Size(1067, 497) + Me.XtraTabPage1.Size = New System.Drawing.Size(1184, 497) Me.XtraTabPage1.Text = "Profil-Verwaltung" ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.GEAENDERTWANNTextBox) + Me.LayoutControl1.Controls.Add(Me.GEANDERTWERTextBox) + Me.LayoutControl1.Controls.Add(Me.ERSTELLTWANNTextBox) + Me.LayoutControl1.Controls.Add(Me.ERSTELLTWERTextBox) + Me.LayoutControl1.Controls.Add(Me.BtnDateinamenKonvention) + Me.LayoutControl1.Controls.Add(Me.AKTIVCheckBox) + Me.LayoutControl1.Controls.Add(Me.NAMENKONVENTIONTextBox) + Me.LayoutControl1.Controls.Add(Me.ComboBox3) + Me.LayoutControl1.Controls.Add(Me.BESCHREIBUNGTextBox) + Me.LayoutControl1.Controls.Add(Me.KURZNAMETextBox) + Me.LayoutControl1.Controls.Add(Me.BEZEICHNUNGTextBox) + Me.LayoutControl1.Controls.Add(Me.SEQUENCENumericUpDown) + Me.LayoutControl1.Controls.Add(Me.DokartGUIDTextBox) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.ControlGroupProfile + Me.LayoutControl1.Size = New System.Drawing.Size(1184, 193) + Me.LayoutControl1.TabIndex = 99 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'BtnDateinamenKonvention + ' + Me.BtnDateinamenKonvention.Location = New System.Drawing.Point(885, 85) + Me.BtnDateinamenKonvention.Name = "BtnDateinamenKonvention" + Me.BtnDateinamenKonvention.Size = New System.Drawing.Size(287, 22) + Me.BtnDateinamenKonvention.StyleController = Me.LayoutControl1 + Me.BtnDateinamenKonvention.TabIndex = 98 + Me.BtnDateinamenKonvention.Text = "Konvention bearbeiten" + ' 'AKTIVCheckBox ' Me.AKTIVCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_DOKUMENTARTBindingSource, "AKTIV", True)) - Me.AKTIVCheckBox.Location = New System.Drawing.Point(5, 3) + Me.AKTIVCheckBox.Location = New System.Drawing.Point(408, 12) Me.AKTIVCheckBox.Name = "AKTIVCheckBox" - Me.AKTIVCheckBox.Size = New System.Drawing.Size(104, 24) + Me.AKTIVCheckBox.Size = New System.Drawing.Size(98, 20) Me.AKTIVCheckBox.TabIndex = 1 - Me.AKTIVCheckBox.Text = "CheckBox1" + Me.AKTIVCheckBox.Text = "Aktiv" Me.AKTIVCheckBox.UseVisualStyleBackColor = True ' 'TBDD_DOKUMENTARTBindingSource @@ -157,10 +381,416 @@ Partial Class frmGlobixAdministration Me.GlobixDataset.DataSetName = "GlobixDataset" Me.GlobixDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' + 'NAMENKONVENTIONTextBox + ' + Me.NAMENKONVENTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "NAMENKONVENTION", True)) + Me.NAMENKONVENTIONTextBox.Location = New System.Drawing.Point(143, 85) + Me.NAMENKONVENTIONTextBox.Name = "NAMENKONVENTIONTextBox" + Me.NAMENKONVENTIONTextBox.Size = New System.Drawing.Size(738, 20) + Me.NAMENKONVENTIONTextBox.TabIndex = 11 + ' + 'ComboBox3 + ' + Me.ComboBox3.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_DOKUMENTARTBindingSource, "DUPLICATE_HANDLING", True)) + Me.ComboBox3.DisplayMember = "DISPLAY_TEXT" + Me.ComboBox3.FormattingEnabled = True + Me.ComboBox3.Items.AddRange(New Object() {"New version", "Default", "Question"}) + Me.ComboBox3.Location = New System.Drawing.Point(641, 12) + Me.ComboBox3.Name = "ComboBox3" + Me.ComboBox3.Size = New System.Drawing.Size(531, 21) + Me.ComboBox3.TabIndex = 97 + Me.ComboBox3.ValueMember = "VALUE_TEXT" + ' + 'BESCHREIBUNGTextBox + ' + Me.BESCHREIBUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ERSTELLTWER", True)) + Me.BESCHREIBUNGTextBox.Location = New System.Drawing.Point(143, 61) + Me.BESCHREIBUNGTextBox.Name = "BESCHREIBUNGTextBox" + Me.BESCHREIBUNGTextBox.Size = New System.Drawing.Size(1029, 20) + Me.BESCHREIBUNGTextBox.TabIndex = 10 + ' + 'KURZNAMETextBox + ' + Me.KURZNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "KURZNAME", True)) + Me.KURZNAMETextBox.Location = New System.Drawing.Point(763, 37) + Me.KURZNAMETextBox.Name = "KURZNAMETextBox" + Me.KURZNAMETextBox.Size = New System.Drawing.Size(409, 20) + Me.KURZNAMETextBox.TabIndex = 9 + ' + 'BEZEICHNUNGTextBox + ' + Me.BEZEICHNUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BEZEICHNUNG", True)) + Me.BEZEICHNUNGTextBox.Location = New System.Drawing.Point(143, 37) + Me.BEZEICHNUNGTextBox.Name = "BEZEICHNUNGTextBox" + Me.BEZEICHNUNGTextBox.Size = New System.Drawing.Size(485, 20) + Me.BEZEICHNUNGTextBox.TabIndex = 8 + ' + 'SEQUENCENumericUpDown + ' + Me.SEQUENCENumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_DOKUMENTARTBindingSource, "SEQUENCE", True)) + Me.SEQUENCENumericUpDown.Location = New System.Drawing.Point(342, 12) + Me.SEQUENCENumericUpDown.Name = "SEQUENCENumericUpDown" + Me.SEQUENCENumericUpDown.Size = New System.Drawing.Size(62, 22) + Me.SEQUENCENumericUpDown.TabIndex = 7 + ' + 'DokartGUIDTextBox + ' + Me.DokartGUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GUID", True)) + Me.DokartGUIDTextBox.Location = New System.Drawing.Point(143, 12) + Me.DokartGUIDTextBox.Name = "DokartGUIDTextBox" + Me.DokartGUIDTextBox.ReadOnly = True + Me.DokartGUIDTextBox.Size = New System.Drawing.Size(64, 20) + Me.DokartGUIDTextBox.TabIndex = 6 + ' + 'ControlGroupProfile + ' + Me.ControlGroupProfile.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.ControlGroupProfile.GroupBordersVisible = False + Me.ControlGroupProfile.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem2, Me.LayoutControlItem1, Me.LayoutControlItem9, Me.LayoutControlItem23, Me.LayoutControlItem24, Me.LayoutControlItem25, Me.LayoutControlItem26}) + Me.ControlGroupProfile.Name = "ControlGroupProfile" + Me.ControlGroupProfile.Size = New System.Drawing.Size(1184, 193) + Me.ControlGroupProfile.TextVisible = False + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.BEZEICHNUNGTextBox + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 25) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Size = New System.Drawing.Size(620, 24) + Me.LayoutControlItem5.Text = "Titel:" + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(128, 13) + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.KURZNAMETextBox + Me.LayoutControlItem6.Location = New System.Drawing.Point(620, 25) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Size = New System.Drawing.Size(544, 24) + Me.LayoutControlItem6.Text = "Kurzname:" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(128, 13) + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.BESCHREIBUNGTextBox + Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 49) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Size = New System.Drawing.Size(1164, 24) + Me.LayoutControlItem7.Text = "Beschreibung:" + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(128, 13) + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.NAMENKONVENTIONTextBox + Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 73) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Size = New System.Drawing.Size(873, 26) + Me.LayoutControlItem8.Text = "Dateinamen-Konvention:" + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(128, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.DokartGUIDTextBox + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Size = New System.Drawing.Size(199, 25) + Me.LayoutControlItem3.Text = "ID:" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(128, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.SEQUENCENumericUpDown + Me.LayoutControlItem4.Location = New System.Drawing.Point(199, 0) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Size = New System.Drawing.Size(197, 25) + Me.LayoutControlItem4.Text = "Reihenfolge:" + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(128, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.ComboBox3 + Me.LayoutControlItem2.Location = New System.Drawing.Point(498, 0) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Size = New System.Drawing.Size(666, 25) + Me.LayoutControlItem2.Text = "Wenn Datei vorhanden:" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(128, 13) + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.AKTIVCheckBox + Me.LayoutControlItem1.Location = New System.Drawing.Point(396, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Size = New System.Drawing.Size(102, 25) + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem1.TextVisible = False + ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.Control = Me.BtnDateinamenKonvention + Me.LayoutControlItem9.Location = New System.Drawing.Point(873, 73) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Size = New System.Drawing.Size(291, 26) + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem9.TextVisible = False + ' + 'XtraTabControl2 + ' + Me.XtraTabControl2.Dock = System.Windows.Forms.DockStyle.Bottom + Me.XtraTabControl2.Location = New System.Drawing.Point(0, 193) + Me.XtraTabControl2.Name = "XtraTabControl2" + Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPageManIndexe + Me.XtraTabControl2.Size = New System.Drawing.Size(1184, 304) + Me.XtraTabControl2.TabIndex = 2 + Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageManIndexe, Me.XtraTabPageRework, Me.XtraTabPageAutoIndexe}) + ' + 'XtraTabPageManIndexe + ' + Me.XtraTabPageManIndexe.Controls.Add(Me.LayoutControl2) + Me.XtraTabPageManIndexe.Controls.Add(Me.ListBoxControlmanIndex) + Me.XtraTabPageManIndexe.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.XtraTabPageManIndexe.ImeMode = System.Windows.Forms.ImeMode.Off + Me.XtraTabPageManIndexe.Name = "XtraTabPageManIndexe" + Me.XtraTabPageManIndexe.Size = New System.Drawing.Size(1182, 262) + Me.XtraTabPageManIndexe.Text = "Manuelle Werte/Metadaten" + ' + 'LayoutControl2 + ' + Me.LayoutControl2.Controls.Add(Me.SimpleButton1) + Me.LayoutControl2.Controls.Add(Me.ListBoxControl1) + Me.LayoutControl2.Controls.Add(Me.CHANGED_WHENTextBox) + Me.LayoutControl2.Controls.Add(Me.CHANGED_WHOTextBox) + Me.LayoutControl2.Controls.Add(Me.ADDED_WHENTextBox) + Me.LayoutControl2.Controls.Add(Me.ADDED_WHOTextBox) + Me.LayoutControl2.Controls.Add(Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox) + Me.LayoutControl2.Controls.Add(Me.MULTISELECTCheckBox) + Me.LayoutControl2.Controls.Add(Me.Button1) + Me.LayoutControl2.Controls.Add(Me.VKT_ADD_ITEMCheckBox) + Me.LayoutControl2.Controls.Add(Me.DEFAULT_VALUETextBox) + Me.LayoutControl2.Controls.Add(Me.DATATYPEComboBox) + Me.LayoutControl2.Controls.Add(Me.COMMENTTextBox) + Me.LayoutControl2.Controls.Add(Me.WD_INDEXComboBox) + Me.LayoutControl2.Controls.Add(Me.NAMETextBox) + Me.LayoutControl2.Controls.Add(Me.SEQUENCENumericUpDown1) + Me.LayoutControl2.Controls.Add(Me.GUIDTextBox1) + Me.LayoutControl2.Controls.Add(Me.ACTIVECheckBox) + Me.LayoutControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl2.Location = New System.Drawing.Point(163, 0) + Me.LayoutControl2.Name = "LayoutControl2" + Me.LayoutControl2.Root = Me.ControlGroupIndexeMan + Me.LayoutControl2.Size = New System.Drawing.Size(1019, 262) + Me.LayoutControl2.TabIndex = 1 + Me.LayoutControl2.Text = "LayoutControl2" + ' + 'Button1 + ' + Me.Button1.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.Datasource_16x16 + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(268, 85) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(148, 21) + Me.Button1.TabIndex = 16 + Me.Button1.Text = "Connector bearbeiten" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.UseVisualStyleBackColor = True + ' + 'VKT_ADD_ITEMCheckBox + ' + Me.VKT_ADD_ITEMCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "VKT_ADD_ITEM", True)) + Me.VKT_ADD_ITEMCheckBox.Location = New System.Drawing.Point(511, 206) + Me.VKT_ADD_ITEMCheckBox.Name = "VKT_ADD_ITEMCheckBox" + Me.VKT_ADD_ITEMCheckBox.Size = New System.Drawing.Size(246, 20) + Me.VKT_ADD_ITEMCheckBox.TabIndex = 15 + Me.VKT_ADD_ITEMCheckBox.Text = "Neueingabe erlauben" + Me.VKT_ADD_ITEMCheckBox.UseVisualStyleBackColor = True + ' + 'TBDD_INDEX_MANBindingSource + ' + Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN" + Me.TBDD_INDEX_MANBindingSource.DataSource = Me.GlobixDataset + ' + 'DEFAULT_VALUETextBox + ' + Me.DEFAULT_VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "DEFAULT_VALUE", True)) + Me.DEFAULT_VALUETextBox.Location = New System.Drawing.Point(98, 110) + Me.DEFAULT_VALUETextBox.Name = "DEFAULT_VALUETextBox" + Me.DEFAULT_VALUETextBox.Size = New System.Drawing.Size(362, 20) + Me.DEFAULT_VALUETextBox.TabIndex = 12 + ' + 'DATATYPEComboBox + ' + Me.DATATYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "DATATYPE", True)) + Me.DATATYPEComboBox.FormattingEnabled = True + Me.DATATYPEComboBox.Location = New System.Drawing.Point(98, 85) + Me.DATATYPEComboBox.Name = "DATATYPEComboBox" + Me.DATATYPEComboBox.Size = New System.Drawing.Size(166, 21) + Me.DATATYPEComboBox.TabIndex = 11 + ' + 'COMMENTTextBox + ' + Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "COMMENT", True)) + Me.COMMENTTextBox.Location = New System.Drawing.Point(98, 182) + Me.COMMENTTextBox.Name = "COMMENTTextBox" + Me.COMMENTTextBox.Size = New System.Drawing.Size(909, 20) + Me.COMMENTTextBox.TabIndex = 10 + ' + 'WD_INDEXComboBox + ' + Me.WD_INDEXComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "WD_INDEX", True)) + Me.WD_INDEXComboBox.FormattingEnabled = True + Me.WD_INDEXComboBox.Location = New System.Drawing.Point(98, 60) + Me.WD_INDEXComboBox.Name = "WD_INDEXComboBox" + Me.WD_INDEXComboBox.Size = New System.Drawing.Size(909, 21) + Me.WD_INDEXComboBox.TabIndex = 9 + ' + 'NAMETextBox + ' + Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "NAME", True)) + Me.NAMETextBox.Location = New System.Drawing.Point(98, 36) + Me.NAMETextBox.Name = "NAMETextBox" + Me.NAMETextBox.Size = New System.Drawing.Size(909, 20) + Me.NAMETextBox.TabIndex = 8 + ' + 'SEQUENCENumericUpDown1 + ' + Me.SEQUENCENumericUpDown1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_INDEX_MANBindingSource, "SEQUENCE", True)) + Me.SEQUENCENumericUpDown1.Location = New System.Drawing.Point(235, 12) + Me.SEQUENCENumericUpDown1.Name = "SEQUENCENumericUpDown1" + Me.SEQUENCENumericUpDown1.Size = New System.Drawing.Size(48, 22) + Me.SEQUENCENumericUpDown1.TabIndex = 7 + ' + 'GUIDTextBox1 + ' + Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "GUID", True)) + Me.GUIDTextBox1.Location = New System.Drawing.Point(98, 12) + Me.GUIDTextBox1.Name = "GUIDTextBox1" + Me.GUIDTextBox1.ReadOnly = True + Me.GUIDTextBox1.Size = New System.Drawing.Size(47, 20) + Me.GUIDTextBox1.TabIndex = 6 + ' + 'ACTIVECheckBox + ' + Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "ACTIVE", True)) + Me.ACTIVECheckBox.Location = New System.Drawing.Point(287, 12) + Me.ACTIVECheckBox.Name = "ACTIVECheckBox" + Me.ACTIVECheckBox.Size = New System.Drawing.Size(268, 20) + Me.ACTIVECheckBox.TabIndex = 5 + Me.ACTIVECheckBox.Text = "Aktiv" + Me.ACTIVECheckBox.UseVisualStyleBackColor = True + ' + 'ControlGroupIndexeMan + ' + Me.ControlGroupIndexeMan.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.ControlGroupIndexeMan.GroupBordersVisible = False + Me.ControlGroupIndexeMan.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem11, Me.LayoutControlItem14, Me.LayoutControlItem15, Me.LayoutControlItem17, Me.LayoutControlItem18, Me.LayoutControlItem12, Me.LayoutControlItem13, Me.LayoutControlItem10, Me.EmptySpaceItem1, Me.LayoutControlItem16, Me.EmptySpaceItem2, Me.EmptySpaceItem3, Me.LayoutControlItem27, Me.LayoutControlItem28, Me.LayoutControlItem29, Me.LayoutControlItem30, Me.LayoutControlItem20, Me.LayoutControlItem22, Me.LayoutControlItem21, Me.LayoutControlItem19, Me.EmptySpaceItem4, Me.LayoutControlItem31}) + Me.ControlGroupIndexeMan.Name = "ControlGroupIndexeMan" + Me.ControlGroupIndexeMan.Size = New System.Drawing.Size(1019, 262) + Me.ControlGroupIndexeMan.TextVisible = False + ' + 'LayoutControlItem11 + ' + Me.LayoutControlItem11.Control = Me.ACTIVECheckBox + Me.LayoutControlItem11.Location = New System.Drawing.Point(275, 0) + Me.LayoutControlItem11.Name = "LayoutControlItem11" + Me.LayoutControlItem11.Size = New System.Drawing.Size(272, 24) + Me.LayoutControlItem11.Text = "ACTIVE:" + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem11.TextVisible = False + ' + 'LayoutControlItem12 + ' + Me.LayoutControlItem12.Control = Me.GUIDTextBox1 + Me.LayoutControlItem12.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem12.Name = "LayoutControlItem12" + Me.LayoutControlItem12.Size = New System.Drawing.Size(137, 24) + Me.LayoutControlItem12.Text = "ID:" + Me.LayoutControlItem12.TextSize = New System.Drawing.Size(83, 13) + ' + 'LayoutControlItem13 + ' + Me.LayoutControlItem13.Control = Me.SEQUENCENumericUpDown1 + Me.LayoutControlItem13.Location = New System.Drawing.Point(137, 0) + Me.LayoutControlItem13.Name = "LayoutControlItem13" + Me.LayoutControlItem13.Size = New System.Drawing.Size(138, 24) + Me.LayoutControlItem13.Text = "Reihenfolge:" + Me.LayoutControlItem13.TextSize = New System.Drawing.Size(83, 13) + ' + 'LayoutControlItem14 + ' + Me.LayoutControlItem14.Control = Me.NAMETextBox + Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 24) + Me.LayoutControlItem14.Name = "LayoutControlItem14" + Me.LayoutControlItem14.Size = New System.Drawing.Size(999, 24) + Me.LayoutControlItem14.Text = "Bezeichnung:" + Me.LayoutControlItem14.TextSize = New System.Drawing.Size(83, 13) + ' + 'LayoutControlItem15 + ' + Me.LayoutControlItem15.Control = Me.WD_INDEXComboBox + Me.LayoutControlItem15.Location = New System.Drawing.Point(0, 48) + Me.LayoutControlItem15.Name = "LayoutControlItem15" + Me.LayoutControlItem15.Size = New System.Drawing.Size(999, 25) + Me.LayoutControlItem15.Text = "Attribut:" + Me.LayoutControlItem15.TextSize = New System.Drawing.Size(83, 13) + ' + 'LayoutControlItem17 + ' + Me.LayoutControlItem17.Control = Me.DATATYPEComboBox + Me.LayoutControlItem17.Location = New System.Drawing.Point(0, 73) + Me.LayoutControlItem17.Name = "LayoutControlItem17" + Me.LayoutControlItem17.Size = New System.Drawing.Size(256, 25) + Me.LayoutControlItem17.Text = "Datentyp:" + Me.LayoutControlItem17.TextSize = New System.Drawing.Size(83, 13) + ' + 'LayoutControlItem18 + ' + Me.LayoutControlItem18.Control = Me.DEFAULT_VALUETextBox + Me.LayoutControlItem18.Location = New System.Drawing.Point(0, 98) + Me.LayoutControlItem18.Name = "LayoutControlItem18" + Me.LayoutControlItem18.Size = New System.Drawing.Size(452, 26) + Me.LayoutControlItem18.Text = "Standard-Wert:" + Me.LayoutControlItem18.TextSize = New System.Drawing.Size(83, 13) + ' + 'LayoutControlItem21 + ' + Me.LayoutControlItem21.Control = Me.VKT_ADD_ITEMCheckBox + Me.LayoutControlItem21.Location = New System.Drawing.Point(499, 194) + Me.LayoutControlItem21.Name = "LayoutControlItem21" + Me.LayoutControlItem21.Size = New System.Drawing.Size(250, 24) + Me.LayoutControlItem21.Text = "VKT ADD ITEM:" + Me.LayoutControlItem21.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem21.TextVisible = False + ' + 'LayoutControlItem10 + ' + Me.LayoutControlItem10.Control = Me.Button1 + Me.LayoutControlItem10.Location = New System.Drawing.Point(256, 73) + Me.LayoutControlItem10.MinSize = New System.Drawing.Size(24, 24) + Me.LayoutControlItem10.Name = "LayoutControlItem10" + Me.LayoutControlItem10.Size = New System.Drawing.Size(152, 25) + Me.LayoutControlItem10.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem10.TextVisible = False + ' + 'ListBoxControlmanIndex + ' + Me.ListBoxControlmanIndex.DataSource = Me.TBDD_INDEX_MANBindingSource + Me.ListBoxControlmanIndex.DisplayMember = "NAME" + Me.ListBoxControlmanIndex.Dock = System.Windows.Forms.DockStyle.Left + Me.ListBoxControlmanIndex.Location = New System.Drawing.Point(0, 0) + Me.ListBoxControlmanIndex.Name = "ListBoxControlmanIndex" + Me.ListBoxControlmanIndex.Size = New System.Drawing.Size(163, 262) + Me.ListBoxControlmanIndex.TabIndex = 0 + ' + 'XtraTabPageRework + ' + Me.XtraTabPageRework.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.XtraTabPageRework.Name = "XtraTabPageRework" + Me.XtraTabPageRework.Size = New System.Drawing.Size(1182, 262) + Me.XtraTabPageRework.Text = "XtraTabPage4" + ' 'XtraTabPage2 ' Me.XtraTabPage2.Name = "XtraTabPage2" - Me.XtraTabPage2.Size = New System.Drawing.Size(624, 276) + Me.XtraTabPage2.Size = New System.Drawing.Size(1067, 497) Me.XtraTabPage2.Text = "XtraTabPage2" ' 'TBDD_DOKUMENTARTTableAdapter @@ -171,6 +801,8 @@ Partial Class frmGlobixAdministration ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Me.TBDD_DOKUMENTARTTableAdapter + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'GridView1 @@ -210,56 +842,513 @@ Partial Class frmGlobixAdministration Me.GridControl1.TabIndex = 2 Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) ' - 'XtraTabControl2 + 'TBDD_INDEX_MANTableAdapter ' - Me.XtraTabControl2.Dock = System.Windows.Forms.DockStyle.Bottom - Me.XtraTabControl2.Location = New System.Drawing.Point(0, 222) - Me.XtraTabControl2.Name = "XtraTabControl2" - Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage3 - Me.XtraTabControl2.Size = New System.Drawing.Size(1067, 275) - Me.XtraTabControl2.TabIndex = 2 - Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage3, Me.XtraTabPage4}) + Me.TBDD_INDEX_MANTableAdapter.ClearBeforeFill = True ' - 'XtraTabPage3 + 'LayoutControlItem16 ' - Me.XtraTabPage3.Name = "XtraTabPage3" - Me.XtraTabPage3.Size = New System.Drawing.Size(1065, 252) - Me.XtraTabPage3.Text = "XtraTabPage3" + Me.LayoutControlItem16.Control = Me.COMMENTTextBox + Me.LayoutControlItem16.Location = New System.Drawing.Point(0, 170) + Me.LayoutControlItem16.Name = "LayoutControlItem16" + Me.LayoutControlItem16.Size = New System.Drawing.Size(999, 24) + Me.LayoutControlItem16.Text = "Beschreibung:" + Me.LayoutControlItem16.TextSize = New System.Drawing.Size(83, 13) ' - 'XtraTabPage4 + 'EmptySpaceItem1 ' - Me.XtraTabPage4.Name = "XtraTabPage4" - Me.XtraTabPage4.Size = New System.Drawing.Size(298, 277) - Me.XtraTabPage4.Text = "XtraTabPage4" + Me.EmptySpaceItem1.AllowHotTrack = False + Me.EmptySpaceItem1.Location = New System.Drawing.Point(749, 194) + Me.EmptySpaceItem1.Name = "EmptySpaceItem1" + Me.EmptySpaceItem1.Size = New System.Drawing.Size(250, 24) + Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) ' - 'Label32 + 'EmptySpaceItem2 ' - Me.Label32.AutoSize = True - Me.Label32.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label32.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.Label32.Location = New System.Drawing.Point(448, 29) - Me.Label32.Name = "Label32" - Me.Label32.Size = New System.Drawing.Size(209, 13) - Me.Label32.TabIndex = 98 - Me.Label32.Text = "Verhalten, wenn Datei bereits vorhanden:" + Me.EmptySpaceItem2.AllowHotTrack = False + Me.EmptySpaceItem2.Location = New System.Drawing.Point(408, 73) + Me.EmptySpaceItem2.Name = "EmptySpaceItem2" + Me.EmptySpaceItem2.Size = New System.Drawing.Size(591, 25) + Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0) ' - 'ComboBox3 + 'EmptySpaceItem3 ' - Me.ComboBox3.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_DOKUMENTARTBindingSource, "DUPLICATE_HANDLING", True)) - Me.ComboBox3.DisplayMember = "DISPLAY_TEXT" - Me.ComboBox3.FormattingEnabled = True - Me.ComboBox3.Items.AddRange(New Object() {"New version", "Default", "Question"}) - Me.ComboBox3.Location = New System.Drawing.Point(451, 45) - Me.ComboBox3.Name = "ComboBox3" - Me.ComboBox3.Size = New System.Drawing.Size(235, 21) - Me.ComboBox3.TabIndex = 97 - Me.ComboBox3.ValueMember = "VALUE_TEXT" + Me.EmptySpaceItem3.AllowHotTrack = False + Me.EmptySpaceItem3.Location = New System.Drawing.Point(547, 0) + Me.EmptySpaceItem3.Name = "EmptySpaceItem3" + Me.EmptySpaceItem3.Size = New System.Drawing.Size(452, 24) + Me.EmptySpaceItem3.TextSize = New System.Drawing.Size(0, 0) + ' + 'MULTISELECTCheckBox + ' + Me.MULTISELECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "MULTISELECT", True)) + Me.MULTISELECTCheckBox.Location = New System.Drawing.Point(12, 206) + Me.MULTISELECTCheckBox.Name = "MULTISELECTCheckBox" + Me.MULTISELECTCheckBox.Size = New System.Drawing.Size(245, 20) + Me.MULTISELECTCheckBox.TabIndex = 17 + Me.MULTISELECTCheckBox.Text = "Mehrfachauswahl" + Me.MULTISELECTCheckBox.UseVisualStyleBackColor = True + ' + 'LayoutControlItem20 + ' + Me.LayoutControlItem20.Control = Me.MULTISELECTCheckBox + Me.LayoutControlItem20.Location = New System.Drawing.Point(0, 194) + Me.LayoutControlItem20.Name = "LayoutControlItem20" + Me.LayoutControlItem20.Size = New System.Drawing.Size(249, 24) + Me.LayoutControlItem20.Text = "MULTISELECT:" + Me.LayoutControlItem20.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem20.TextVisible = False + ' + 'VKT_PREVENT_MULTIPLE_VALUESCheckBox + ' + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "VKT_PREVENT_MULTIPLE_VALUES", True)) + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Location = New System.Drawing.Point(261, 206) + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Name = "VKT_PREVENT_MULTIPLE_VALUESCheckBox" + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Size = New System.Drawing.Size(246, 20) + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.TabIndex = 18 + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Text = "Doppelte Einträge verhindern" + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.UseVisualStyleBackColor = True + ' + 'LayoutControlItem22 + ' + Me.LayoutControlItem22.Control = Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox + Me.LayoutControlItem22.Location = New System.Drawing.Point(249, 194) + Me.LayoutControlItem22.Name = "LayoutControlItem22" + Me.LayoutControlItem22.Size = New System.Drawing.Size(250, 24) + Me.LayoutControlItem22.Text = "VKT PREVENT MULTIPLE VALUES:" + Me.LayoutControlItem22.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem22.TextVisible = False + ' + 'ERSTELLTWERTextBox + ' + Me.ERSTELLTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ERSTELLTWER", True)) + Me.ERSTELLTWERTextBox.Location = New System.Drawing.Point(143, 111) + Me.ERSTELLTWERTextBox.Name = "ERSTELLTWERTextBox" + Me.ERSTELLTWERTextBox.ReadOnly = True + Me.ERSTELLTWERTextBox.Size = New System.Drawing.Size(160, 20) + Me.ERSTELLTWERTextBox.TabIndex = 99 + ' + 'LayoutControlItem23 + ' + Me.LayoutControlItem23.Control = Me.ERSTELLTWERTextBox + Me.LayoutControlItem23.Location = New System.Drawing.Point(0, 99) + Me.LayoutControlItem23.Name = "LayoutControlItem23" + Me.LayoutControlItem23.Size = New System.Drawing.Size(295, 74) + Me.LayoutControlItem23.Text = "Erstellt wer:" + Me.LayoutControlItem23.TextSize = New System.Drawing.Size(128, 13) + ' + 'ERSTELLTWANNTextBox + ' + Me.ERSTELLTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ERSTELLTWANN", True)) + Me.ERSTELLTWANNTextBox.Location = New System.Drawing.Point(438, 111) + Me.ERSTELLTWANNTextBox.Name = "ERSTELLTWANNTextBox" + Me.ERSTELLTWANNTextBox.ReadOnly = True + Me.ERSTELLTWANNTextBox.Size = New System.Drawing.Size(135, 20) + Me.ERSTELLTWANNTextBox.TabIndex = 100 + ' + 'LayoutControlItem24 + ' + Me.LayoutControlItem24.Control = Me.ERSTELLTWANNTextBox + Me.LayoutControlItem24.Location = New System.Drawing.Point(295, 99) + Me.LayoutControlItem24.Name = "LayoutControlItem24" + Me.LayoutControlItem24.Size = New System.Drawing.Size(270, 74) + Me.LayoutControlItem24.Text = "Erstellt wann:" + Me.LayoutControlItem24.TextSize = New System.Drawing.Size(128, 13) + ' + 'GEANDERTWERTextBox + ' + Me.GEANDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GEANDERTWER", True)) + Me.GEANDERTWERTextBox.Location = New System.Drawing.Point(708, 111) + Me.GEANDERTWERTextBox.Name = "GEANDERTWERTextBox" + Me.GEANDERTWERTextBox.ReadOnly = True + Me.GEANDERTWERTextBox.Size = New System.Drawing.Size(173, 20) + Me.GEANDERTWERTextBox.TabIndex = 101 + ' + 'LayoutControlItem25 + ' + Me.LayoutControlItem25.Control = Me.GEANDERTWERTextBox + Me.LayoutControlItem25.Location = New System.Drawing.Point(565, 99) + Me.LayoutControlItem25.Name = "LayoutControlItem25" + Me.LayoutControlItem25.Size = New System.Drawing.Size(308, 74) + Me.LayoutControlItem25.Text = "Geändert wer:" + Me.LayoutControlItem25.TextSize = New System.Drawing.Size(128, 13) + ' + 'GEAENDERTWANNTextBox + ' + Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GEAENDERTWANN", True)) + Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(1016, 111) + Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox" + Me.GEAENDERTWANNTextBox.ReadOnly = True + Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(156, 20) + Me.GEAENDERTWANNTextBox.TabIndex = 102 + ' + 'LayoutControlItem26 + ' + Me.LayoutControlItem26.Control = Me.GEAENDERTWANNTextBox + Me.LayoutControlItem26.Location = New System.Drawing.Point(873, 99) + Me.LayoutControlItem26.Name = "LayoutControlItem26" + Me.LayoutControlItem26.Size = New System.Drawing.Size(291, 74) + Me.LayoutControlItem26.Text = "Geändert wann:" + Me.LayoutControlItem26.TextSize = New System.Drawing.Size(128, 13) + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(98, 230) + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.ReadOnly = True + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(149, 20) + Me.ADDED_WHOTextBox.TabIndex = 19 + ' + 'LayoutControlItem27 + ' + Me.LayoutControlItem27.Control = Me.ADDED_WHOTextBox + Me.LayoutControlItem27.Location = New System.Drawing.Point(0, 218) + Me.LayoutControlItem27.Name = "LayoutControlItem27" + Me.LayoutControlItem27.Size = New System.Drawing.Size(239, 24) + Me.LayoutControlItem27.Text = "Erstellt wer:" + Me.LayoutControlItem27.TextSize = New System.Drawing.Size(83, 13) + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(337, 230) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.ReadOnly = True + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(176, 20) + Me.ADDED_WHENTextBox.TabIndex = 20 + ' + 'LayoutControlItem28 + ' + Me.LayoutControlItem28.Control = Me.ADDED_WHENTextBox + Me.LayoutControlItem28.Location = New System.Drawing.Point(239, 218) + Me.LayoutControlItem28.Name = "LayoutControlItem28" + Me.LayoutControlItem28.Size = New System.Drawing.Size(266, 24) + Me.LayoutControlItem28.Text = "Erstellt wann:" + Me.LayoutControlItem28.TextSize = New System.Drawing.Size(83, 13) + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(603, 230) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.ReadOnly = True + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(181, 20) + Me.CHANGED_WHOTextBox.TabIndex = 21 + ' + 'LayoutControlItem29 + ' + Me.LayoutControlItem29.Control = Me.CHANGED_WHOTextBox + Me.LayoutControlItem29.Location = New System.Drawing.Point(505, 218) + Me.LayoutControlItem29.Name = "LayoutControlItem29" + Me.LayoutControlItem29.Size = New System.Drawing.Size(271, 24) + Me.LayoutControlItem29.Text = "Geändert wer:" + Me.LayoutControlItem29.TextSize = New System.Drawing.Size(83, 13) + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(874, 230) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.ReadOnly = True + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(133, 20) + Me.CHANGED_WHENTextBox.TabIndex = 22 + ' + 'LayoutControlItem30 + ' + Me.LayoutControlItem30.Control = Me.CHANGED_WHENTextBox + Me.LayoutControlItem30.Location = New System.Drawing.Point(776, 218) + Me.LayoutControlItem30.Name = "LayoutControlItem30" + Me.LayoutControlItem30.Size = New System.Drawing.Size(223, 24) + Me.LayoutControlItem30.Text = "Geändert wann:" + Me.LayoutControlItem30.TextSize = New System.Drawing.Size(83, 13) + ' + 'ListBoxControl1 + ' + Me.ListBoxControl1.Items.AddRange(New Object() {"Dateiname (mit Endung)", "Dateiname (ohne Endung)", "Dateiendung", "Datei Erstelldatum", "Datei Erstellt wer", "Aktuelles Datum (DD.MM.YYYY)", "Username", "Usercode", "NULL"}) + Me.ListBoxControl1.Location = New System.Drawing.Point(497, 110) + Me.ListBoxControl1.Name = "ListBoxControl1" + Me.ListBoxControl1.Size = New System.Drawing.Size(510, 68) + Me.ListBoxControl1.StyleController = Me.LayoutControl2 + Me.ListBoxControl1.TabIndex = 23 + ' + 'LayoutControlItem19 + ' + Me.LayoutControlItem19.Control = Me.ListBoxControl1 + Me.LayoutControlItem19.Location = New System.Drawing.Point(485, 98) + Me.LayoutControlItem19.Name = "LayoutControlItem19" + Me.LayoutControlItem19.Size = New System.Drawing.Size(514, 72) + Me.LayoutControlItem19.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem19.TextVisible = False + ' + 'EmptySpaceItem4 + ' + Me.EmptySpaceItem4.AllowHotTrack = False + Me.EmptySpaceItem4.Location = New System.Drawing.Point(0, 124) + Me.EmptySpaceItem4.Name = "EmptySpaceItem4" + Me.EmptySpaceItem4.Size = New System.Drawing.Size(485, 46) + Me.EmptySpaceItem4.TextSize = New System.Drawing.Size(0, 0) + ' + 'SimpleButton1 + ' + Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton1.Location = New System.Drawing.Point(464, 110) + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.Size = New System.Drawing.Size(29, 22) + Me.SimpleButton1.StyleController = Me.LayoutControl1 + Me.SimpleButton1.TabIndex = 24 + ' + 'LayoutControlItem31 + ' + Me.LayoutControlItem31.Control = Me.SimpleButton1 + Me.LayoutControlItem31.Location = New System.Drawing.Point(452, 98) + Me.LayoutControlItem31.Name = "LayoutControlItem31" + Me.LayoutControlItem31.Size = New System.Drawing.Size(33, 26) + Me.LayoutControlItem31.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem31.TextVisible = False + ' + 'XtraTabPageAutoIndexe + ' + Me.XtraTabPageAutoIndexe.Controls.Add(Me.LayoutControlAutoIndexe) + Me.XtraTabPageAutoIndexe.Controls.Add(Me.ListBoxControl2) + Me.XtraTabPageAutoIndexe.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPageAutoIndexe.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.XtraTabPageAutoIndexe.Name = "XtraTabPageAutoIndexe" + Me.XtraTabPageAutoIndexe.Size = New System.Drawing.Size(1182, 262) + Me.XtraTabPageAutoIndexe.Text = "Automatische Metadaten" + ' + 'RibbonPageGroupProfileRegex + ' + Me.RibbonPageGroupProfileRegex.ItemLinks.Add(Me.BarButtonItem8) + Me.RibbonPageGroupProfileRegex.Name = "RibbonPageGroupProfileRegex" + Me.RibbonPageGroupProfileRegex.Text = "RibbonPageGroup2" + ' + 'BarButtonItem4 + ' + Me.BarButtonItem4.Caption = "Speichern" + Me.BarButtonItem4.Id = 1 + Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem4.Name = "BarButtonItem4" + ' + 'BarButtonItemSaveMI + ' + Me.BarButtonItemSaveMI.Caption = "BarButtonItem5" + Me.BarButtonItemSaveMI.Id = 4 + Me.BarButtonItemSaveMI.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemSaveMI.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItemSaveMI.Name = "BarButtonItemSaveMI" + ' + 'BarButtonItem6 + ' + Me.BarButtonItem6.Caption = "BarButtonItem6" + Me.BarButtonItem6.Id = 5 + Me.BarButtonItem6.Name = "BarButtonItem6" + ' + 'BarButtonItem7 + ' + Me.BarButtonItem7.Caption = "BarButtonItem7" + Me.BarButtonItem7.Id = 6 + Me.BarButtonItem7.Name = "BarButtonItem7" + ' + 'BarButtonItem8 + ' + Me.BarButtonItem8.Caption = "BarButtonItem8" + Me.BarButtonItem8.Id = 7 + Me.BarButtonItem8.Name = "BarButtonItem8" + ' + 'ListBoxControl2 + ' + Me.ListBoxControl2.Dock = System.Windows.Forms.DockStyle.Left + Me.ListBoxControl2.Location = New System.Drawing.Point(0, 0) + Me.ListBoxControl2.Name = "ListBoxControl2" + Me.ListBoxControl2.Size = New System.Drawing.Size(166, 262) + Me.ListBoxControl2.TabIndex = 0 + ' + 'LayoutControlAutoIndexe + ' + Me.LayoutControlAutoIndexe.Controls.Add(Me.ComboBoxParameterAutoIndex) + Me.LayoutControlAutoIndexe.Controls.Add(Me.SimpleButton2) + Me.LayoutControlAutoIndexe.Controls.Add(Me.VALUETextBox) + Me.LayoutControlAutoIndexe.Controls.Add(Me.INDEXNAMEComboBox) + Me.LayoutControlAutoIndexe.Controls.Add(Me.ACTIVECheckBox1) + Me.LayoutControlAutoIndexe.Controls.Add(Me.SEQUENCENumericUpDown2) + Me.LayoutControlAutoIndexe.Controls.Add(Me.GUIDTextBox) + Me.LayoutControlAutoIndexe.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControlAutoIndexe.Location = New System.Drawing.Point(166, 0) + Me.LayoutControlAutoIndexe.Name = "LayoutControlAutoIndexe" + Me.LayoutControlAutoIndexe.Root = Me.ControlGroupIndexeAuto + Me.LayoutControlAutoIndexe.Size = New System.Drawing.Size(1016, 262) + Me.LayoutControlAutoIndexe.TabIndex = 1 + Me.LayoutControlAutoIndexe.Text = "LayoutControl3" + ' + 'ControlGroupIndexeAuto + ' + Me.ControlGroupIndexeAuto.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.ControlGroupIndexeAuto.GroupBordersVisible = False + Me.ControlGroupIndexeAuto.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem33, Me.LayoutControlItem36, Me.LayoutControlItem34, Me.LayoutControlItem35, Me.EmptySpaceItem5, Me.EmptySpaceItem6, Me.LayoutControlItem37, Me.LayoutControlItem32, Me.LayoutControlItem38}) + Me.ControlGroupIndexeAuto.Name = "ControlGroupIndexeAuto" + Me.ControlGroupIndexeAuto.Size = New System.Drawing.Size(1016, 262) + Me.ControlGroupIndexeAuto.TextVisible = False + ' + 'TBDD_INDEX_AUTOMBindingSource + ' + Me.TBDD_INDEX_AUTOMBindingSource.DataMember = "TBDD_INDEX_AUTOM" + Me.TBDD_INDEX_AUTOMBindingSource.DataSource = Me.GlobixDataset + ' + 'TBDD_INDEX_AUTOMTableAdapter + ' + Me.TBDD_INDEX_AUTOMTableAdapter.ClearBeforeFill = True + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "GUID", True)) + Me.GUIDTextBox.Location = New System.Drawing.Point(152, 12) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.Size = New System.Drawing.Size(42, 20) + Me.GUIDTextBox.TabIndex = 5 + ' + 'LayoutControlItem33 + ' + Me.LayoutControlItem33.Control = Me.GUIDTextBox + Me.LayoutControlItem33.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem33.Name = "LayoutControlItem33" + Me.LayoutControlItem33.Size = New System.Drawing.Size(186, 24) + Me.LayoutControlItem33.Text = "ID:" + Me.LayoutControlItem33.TextSize = New System.Drawing.Size(128, 13) + ' + 'SEQUENCENumericUpDown2 + ' + Me.SEQUENCENumericUpDown2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_INDEX_AUTOMBindingSource, "SEQUENCE", True)) + Me.SEQUENCENumericUpDown2.Location = New System.Drawing.Point(338, 12) + Me.SEQUENCENumericUpDown2.Name = "SEQUENCENumericUpDown2" + Me.SEQUENCENumericUpDown2.Size = New System.Drawing.Size(20, 22) + Me.SEQUENCENumericUpDown2.TabIndex = 6 + ' + 'LayoutControlItem34 + ' + Me.LayoutControlItem34.Control = Me.SEQUENCENumericUpDown2 + Me.LayoutControlItem34.Location = New System.Drawing.Point(186, 0) + Me.LayoutControlItem34.Name = "LayoutControlItem34" + Me.LayoutControlItem34.Size = New System.Drawing.Size(164, 24) + Me.LayoutControlItem34.Text = "Reihenfolge:" + Me.LayoutControlItem34.TextSize = New System.Drawing.Size(128, 13) + ' + 'ACTIVECheckBox1 + ' + Me.ACTIVECheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_AUTOMBindingSource, "ACTIVE", True)) + Me.ACTIVECheckBox1.Location = New System.Drawing.Point(362, 12) + Me.ACTIVECheckBox1.Name = "ACTIVECheckBox1" + Me.ACTIVECheckBox1.Size = New System.Drawing.Size(517, 20) + Me.ACTIVECheckBox1.TabIndex = 7 + Me.ACTIVECheckBox1.Text = "Aktiv" + Me.ACTIVECheckBox1.UseVisualStyleBackColor = True + ' + 'LayoutControlItem35 + ' + Me.LayoutControlItem35.Control = Me.ACTIVECheckBox1 + Me.LayoutControlItem35.Location = New System.Drawing.Point(350, 0) + Me.LayoutControlItem35.Name = "LayoutControlItem35" + Me.LayoutControlItem35.Size = New System.Drawing.Size(521, 24) + Me.LayoutControlItem35.Text = "ACTIVE:" + Me.LayoutControlItem35.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem35.TextVisible = False + ' + 'INDEXNAMEComboBox + ' + Me.INDEXNAMEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "INDEXNAME", True)) + Me.INDEXNAMEComboBox.FormattingEnabled = True + Me.INDEXNAMEComboBox.Location = New System.Drawing.Point(152, 36) + Me.INDEXNAMEComboBox.Name = "INDEXNAMEComboBox" + Me.INDEXNAMEComboBox.Size = New System.Drawing.Size(852, 21) + Me.INDEXNAMEComboBox.TabIndex = 8 + ' + 'LayoutControlItem36 + ' + Me.LayoutControlItem36.Control = Me.INDEXNAMEComboBox + Me.LayoutControlItem36.Location = New System.Drawing.Point(0, 24) + Me.LayoutControlItem36.Name = "LayoutControlItem36" + Me.LayoutControlItem36.Size = New System.Drawing.Size(996, 25) + Me.LayoutControlItem36.Text = "Attribut:" + Me.LayoutControlItem36.TextSize = New System.Drawing.Size(128, 13) + ' + 'VALUETextBox + ' + Me.VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "VALUE", True)) + Me.VALUETextBox.Location = New System.Drawing.Point(152, 61) + Me.VALUETextBox.Name = "VALUETextBox" + Me.VALUETextBox.Size = New System.Drawing.Size(21, 20) + Me.VALUETextBox.TabIndex = 9 + ' + 'LayoutControlItem37 + ' + Me.LayoutControlItem37.Control = Me.VALUETextBox + Me.LayoutControlItem37.Location = New System.Drawing.Point(0, 49) + Me.LayoutControlItem37.Name = "LayoutControlItem37" + Me.LayoutControlItem37.Size = New System.Drawing.Size(165, 26) + Me.LayoutControlItem37.Text = "Fester oder autom. Wert:" + Me.LayoutControlItem37.TextSize = New System.Drawing.Size(128, 13) + ' + 'SimpleButton2 + ' + Me.SimpleButton2.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton2.Location = New System.Drawing.Point(177, 61) + Me.SimpleButton2.Name = "SimpleButton2" + Me.SimpleButton2.Size = New System.Drawing.Size(34, 22) + Me.SimpleButton2.StyleController = Me.LayoutControlAutoIndexe + Me.SimpleButton2.TabIndex = 10 + ' + 'LayoutControlItem32 + ' + Me.LayoutControlItem32.Control = Me.SimpleButton2 + Me.LayoutControlItem32.Location = New System.Drawing.Point(165, 49) + Me.LayoutControlItem32.Name = "LayoutControlItem32" + Me.LayoutControlItem32.Size = New System.Drawing.Size(38, 26) + Me.LayoutControlItem32.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem32.TextVisible = False + ' + 'ComboBoxParameterAutoIndex + ' + Me.ComboBoxParameterAutoIndex.FormattingEnabled = True + Me.ComboBoxParameterAutoIndex.Items.AddRange(New Object() {"Dateiname (mit Endung)", "Dateiname (ohne Endung)", "Dateiendung", "Datei Erstelldatum", "Datei Erstellt wer", "Aktuelles Datum (DD.MM.YYYY)", "Username", "Usercode"}) + Me.ComboBoxParameterAutoIndex.Location = New System.Drawing.Point(355, 61) + Me.ComboBoxParameterAutoIndex.Name = "ComboBoxParameterAutoIndex" + Me.ComboBoxParameterAutoIndex.Size = New System.Drawing.Size(649, 21) + Me.ComboBoxParameterAutoIndex.TabIndex = 11 + ' + 'LayoutControlItem38 + ' + Me.LayoutControlItem38.Control = Me.ComboBoxParameterAutoIndex + Me.LayoutControlItem38.Location = New System.Drawing.Point(203, 49) + Me.LayoutControlItem38.Name = "LayoutControlItem38" + Me.LayoutControlItem38.Size = New System.Drawing.Size(793, 26) + Me.LayoutControlItem38.Text = "Parameter" + Me.LayoutControlItem38.TextSize = New System.Drawing.Size(128, 13) + ' + 'EmptySpaceItem5 + ' + Me.EmptySpaceItem5.AllowHotTrack = False + Me.EmptySpaceItem5.Location = New System.Drawing.Point(871, 0) + Me.EmptySpaceItem5.Name = "EmptySpaceItem5" + Me.EmptySpaceItem5.Size = New System.Drawing.Size(125, 24) + Me.EmptySpaceItem5.TextSize = New System.Drawing.Size(0, 0) + ' + 'EmptySpaceItem6 + ' + Me.EmptySpaceItem6.AllowHotTrack = False + Me.EmptySpaceItem6.Location = New System.Drawing.Point(0, 75) + Me.EmptySpaceItem6.Name = "EmptySpaceItem6" + Me.EmptySpaceItem6.Size = New System.Drawing.Size(996, 167) + Me.EmptySpaceItem6.TextSize = New System.Drawing.Size(0, 0) + ' + 'bsiState + ' + Me.bsiState.Caption = "BarStaticItem1" + Me.bsiState.Id = 8 + Me.bsiState.Name = "bsiState" ' 'frmGlobixAdministration ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1243, 720) + Me.ClientSize = New System.Drawing.Size(1360, 720) Me.Controls.Add(Me.XtraTabControl1) Me.Controls.Add(Me.GridControl1) Me.Controls.Add(Me.RibbonStatusBar1) @@ -272,13 +1361,75 @@ Partial Class frmGlobixAdministration CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabControl1.ResumeLayout(False) Me.XtraTabPage1.ResumeLayout(False) - Me.XtraTabPage1.PerformLayout() + 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.GridView1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ControlGroupProfile, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabControl2.ResumeLayout(False) + Me.XtraTabPageManIndexe.ResumeLayout(False) + CType(Me.LayoutControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl2.ResumeLayout(False) + CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SEQUENCENumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ControlGroupIndexeMan, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem21, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ListBoxControlmanIndex, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem20, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem24, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem25, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem26, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem27, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem28, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem29, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ListBoxControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem31, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageAutoIndexe.ResumeLayout(False) + CType(Me.ListBoxControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlAutoIndexe, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControlAutoIndexe.ResumeLayout(False) + CType(Me.ControlGroupIndexeAuto, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem33, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SEQUENCENumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem34, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem35, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem36, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem37, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem32, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem38, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem6, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -300,14 +1451,116 @@ Partial Class frmGlobixAdministration Friend WithEvents TBDD_DOKUMENTARTBindingSource As BindingSource Friend WithEvents TBDD_DOKUMENTARTTableAdapter As GlobixDatasetTableAdapters.TBDD_DOKUMENTARTTableAdapter Friend WithEvents TableAdapterManager As GlobixDatasetTableAdapters.TableAdapterManager - Friend WithEvents AKTIVCheckBox As CheckBox Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents colBEZEICHNUNG As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colBESCHREIBUNG As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl - Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage - Friend WithEvents XtraTabPage4 As DevExpress.XtraTab.XtraTabPage - Friend WithEvents Label32 As Label + Friend WithEvents XtraTabPageManIndexe As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPageRework As DevExpress.XtraTab.XtraTabPage Friend WithEvents ComboBox3 As ComboBox + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents AKTIVCheckBox As CheckBox + Friend WithEvents NAMENKONVENTIONTextBox As TextBox + Friend WithEvents BESCHREIBUNGTextBox As TextBox + Friend WithEvents KURZNAMETextBox As TextBox + Friend WithEvents BEZEICHNUNGTextBox As TextBox + Friend WithEvents SEQUENCENumericUpDown As NumericUpDown + Friend WithEvents DokartGUIDTextBox As TextBox + Friend WithEvents ControlGroupProfile As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents BtnDateinamenKonvention As DevExpress.XtraEditors.SimpleButton + Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents BbtnitmRecordSave As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BbtnitmRecordDelete As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RecordAdd As DevExpress.XtraBars.BarButtonItem + Friend WithEvents ListBoxControlmanIndex As DevExpress.XtraEditors.ListBoxControl + Friend WithEvents LayoutControl2 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents ControlGroupIndexeMan As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents TBDD_INDEX_MANBindingSource As BindingSource + Friend WithEvents TBDD_INDEX_MANTableAdapter As GlobixDatasetTableAdapters.TBDD_INDEX_MANTableAdapter + Friend WithEvents Button1 As Button + Friend WithEvents VKT_ADD_ITEMCheckBox As CheckBox + Friend WithEvents DEFAULT_VALUETextBox As TextBox + Friend WithEvents DATATYPEComboBox As ComboBox + Friend WithEvents COMMENTTextBox As TextBox + Friend WithEvents WD_INDEXComboBox As ComboBox + Friend WithEvents NAMETextBox As TextBox + Friend WithEvents SEQUENCENumericUpDown1 As NumericUpDown + Friend WithEvents GUIDTextBox1 As TextBox + Friend WithEvents ACTIVECheckBox As CheckBox + Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem13 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem14 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem15 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem17 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem18 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem21 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents GEAENDERTWANNTextBox As TextBox + Friend WithEvents GEANDERTWERTextBox As TextBox + Friend WithEvents ERSTELLTWANNTextBox As TextBox + Friend WithEvents ERSTELLTWERTextBox As TextBox + Friend WithEvents LayoutControlItem23 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem24 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem25 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem26 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents ListBoxControl1 As DevExpress.XtraEditors.ListBoxControl + Friend WithEvents CHANGED_WHENTextBox As TextBox + Friend WithEvents CHANGED_WHOTextBox As TextBox + Friend WithEvents ADDED_WHENTextBox As TextBox + Friend WithEvents ADDED_WHOTextBox As TextBox + Friend WithEvents VKT_PREVENT_MULTIPLE_VALUESCheckBox As CheckBox + Friend WithEvents MULTISELECTCheckBox As CheckBox + Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents LayoutControlItem16 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem2 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents EmptySpaceItem3 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents LayoutControlItem27 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem28 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem29 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem30 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem20 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem22 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem19 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem4 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents LayoutControlItem31 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents XtraTabPageAutoIndexe As DevExpress.XtraTab.XtraTabPage + Friend WithEvents BarButtonItemSaveMI As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroupProfileRegex As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents LayoutControlAutoIndexe As DevExpress.XtraLayout.LayoutControl + Friend WithEvents ControlGroupIndexeAuto As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents ListBoxControl2 As DevExpress.XtraEditors.ListBoxControl + Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents TBDD_INDEX_AUTOMBindingSource As BindingSource + Friend WithEvents TBDD_INDEX_AUTOMTableAdapter As GlobixDatasetTableAdapters.TBDD_INDEX_AUTOMTableAdapter + Friend WithEvents ComboBoxParameterAutoIndex As ComboBox + Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents VALUETextBox As TextBox + Friend WithEvents INDEXNAMEComboBox As ComboBox + Friend WithEvents ACTIVECheckBox1 As CheckBox + Friend WithEvents SEQUENCENumericUpDown2 As NumericUpDown + Friend WithEvents GUIDTextBox As TextBox + Friend WithEvents LayoutControlItem33 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem36 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem34 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem35 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem5 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents EmptySpaceItem6 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents LayoutControlItem37 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem32 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem38 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents bsiState As DevExpress.XtraBars.BarStaticItem End Class diff --git a/GUIs.ZooFlow/Globix/frmGlobixAdministration.resx b/GUIs.ZooFlow/Globix/frmGlobixAdministration.resx index 5cbd3e57..2d167f3b 100644 --- a/GUIs.ZooFlow/Globix/frmGlobixAdministration.resx +++ b/GUIs.ZooFlow/Globix/frmGlobixAdministration.resx @@ -117,13 +117,188 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iU2F2ZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5 + bGU+DQogIDxwYXRoIGQ9Ik0yNyw0aC0zdjEwSDhWNEg1QzQuNCw0LDQsNC40LDQsNXYyMmMwLDAuNiww + LjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjVDMjgsNC40LDI3LjYsNCwyNyw0eiBNMjQsMjRIOHYt + NiAgaDE2VjI0eiBNMTAsNHY4aDEwVjRIMTB6IE0xNCwxMGgtMlY2aDJWMTB6IiBjbGFzcz0iQmxhY2si + IC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAD0DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRGVsZXRlIj4N + CiAgICA8Zz4NCiAgICAgIDxwYXRoIGQ9Ik0xOC44LDE2bDYuOS02LjljMC40LTAuNCwwLjQtMSwwLTEu + NGwtMS40LTEuNGMtMC40LTAuNC0xLTAuNC0xLjQsMEwxNiwxMy4yTDkuMSw2LjNjLTAuNC0wLjQtMS0w + LjQtMS40LDAgICAgTDYuMyw3LjdjLTAuNCwwLjQtMC40LDEsMCwxLjRsNi45LDYuOWwtNi45LDYuOWMt + MC40LDAuNC0wLjQsMSwwLDEuNGwxLjQsMS40YzAuNCwwLjQsMSwwLjQsMS40LDBsNi45LTYuOWw2Ljks + Ni45ICAgIGMwLjQsMC40LDEsMC40LDEuNCwwbDEuNC0xLjRjMC40LTAuNCwwLjQtMSwwLTEuNEwxOC44 + LDE2eiIgY2xhc3M9IlJlZCIgLz4NCiAgICA8L2c+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZCI+DQogICAgPHBhdGggZD0iTTI3LDE0aC05VjVj + MC0wLjUtMC41LTEtMS0xaC0yYy0wLjUsMC0xLDAuNS0xLDF2OUg1Yy0wLjUsMC0xLDAuNS0xLDF2MmMw + LDAuNSwwLjUsMSwxLDFoOXY5ICAgYzAsMC41LDAuNSwxLDEsMWgyYzAuNSwwLDEtMC41LDEtMXYtOWg5 + YzAuNSwwLDEtMC41LDEtMXYtMkMyOCwxNC41LDI3LjUsMTQsMjcsMTR6IiBjbGFzcz0iR3JlZW4iIC8+ + DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iU2F2ZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5 + bGU+DQogIDxwYXRoIGQ9Ik0yNyw0aC0zdjEwSDhWNEg1QzQuNCw0LDQsNC40LDQsNXYyMmMwLDAuNiww + LjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjVDMjgsNC40LDI3LjYsNCwyNyw0eiBNMjQsMjRIOHYt + NiAgaDE2VjI0eiBNMTAsNHY4aDEwVjRIMTB6IE0xNCwxMGgtMlY2aDJWMTB6IiBjbGFzcz0iQmxhY2si + IC8+DQo8L3N2Zz4L + + 144, 17 - - 17, 17 + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFMCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAxMyAxMyIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MTMgMTMiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQXBwb2ludG1l + bnRFbmRDb250aW51ZUFycm93XzFfIj4NCiAgICA8cG9seWdvbiBwb2ludHM9IjIsNyA3LDIgNyw1IDEx + LDUgMTEsOSA3LDkgNywxMiAgIiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + 821, 17 - + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcFAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku + QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC + MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSXRlbVR5cGVD + aGVja2VkIj4NCiAgICA8Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lk + dGg9IjEwIiBoZWlnaHQ9IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8 + cmVjdCB4PSIyMCIgeT0iMjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNz + PSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMw + LDAuNSwwLjUsMSwxLDFoMTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHog + TTE0LDMwSDRWMjAgICAgIGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0i + TTE0LDEwLjhWMTRINFY0aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwx + aDEyYzAuNSwwLDEtMC41LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwv + Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lkdGg9IjEwIiBoZWlnaHQ9 + IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0i + MjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJCbGFjayIgLz4NCiAg + ICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMwLDAuNSwwLjUsMSwxLDFo + MTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHogTTE0LDMwSDRWMjAgICAg + IGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE0LDEwLjhWMTRINFY0 + aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwxaDEyYzAuNSwwLDEtMC41 + LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwvZz4NCiAgICA8L2c+DQog + ICAgPHBvbHlnb24gcG9pbnRzPSI2LDUgNiw4IDEwLDEyIDE4LDQgMTgsMSAxMCw5ICAiIGNsYXNzPSJH + cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANYDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3 + RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm + aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iVXBkYXRlIj4NCiAgICA8ZyBj + bGFzcz0ic3QxIj4NCiAgICAgIDxwYXRoIGQ9Ik0xNiw2aC02VjJoNlY2eiBNMTYsOGgtNnY0aDZWOHog + TTI0LDJoLTZ2NGg2VjJ6IE0yNCwxMlY4aC02djRIMjR6IE0yLDZoNlYySDJWNnogTTIsMThoNnYtNEgy + VjE4eiBNMTYsMTQgICAgTDE2LDE0bC02LDB2NGgyLjhDMTMuNSwxNi40LDE0LjYsMTUsMTYsMTR6IE0y + LDEyaDZWOEgyVjEyeiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDwvZz4NCiAgICA8cGF0aCBkPSJNMjcu + NywyMGgySDMwdi02bC0yLjMsMi4zQzI2LjIsMTQuOSwyNC4yLDE0LDIyLDE0Yy00LjQsMC04LDMuNi04 + LDhjMCw0LjQsMy42LDgsOCw4czgtMy42LDgtOGgtMiAgIGMwLDMuMy0yLjcsNi02LDZzLTYtMi43LTYt + NnMyLjctNiw2LTZjMS43LDAsMy4yLDAuNyw0LjIsMS44TDI0LDIwSDI3Ljd6IiBjbGFzcz0iR3JlZW4i + IC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsFAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3 + RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm + aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iQXV0b21hdGljVXBkYXRlcyI+ + DQogICAgPHBhdGggZD0iTTE1LjYsMjUuMUwxNC42LDI1Yy0xLTAuMi0xLjYtMS0xLjYtMnYtMS4xYy0w + LjMsMC0wLjcsMC4xLTEsMC4xYy00LjQsMC04LTMuNi04LThjMC00LjQsMy42LTgsOC04ICAgYzIuMiww + LDQuMiwwLjksNS42LDIuNEwxNCwxMmg1LjdIMjJoMS44SDI0VjJsLTMuNSwzLjVDMTguMywzLjMsMTUu + MywyLDEyLDJDNS40LDIsMCw3LjQsMCwxNGMwLDYuNiw1LjQsMTIsMTIsMTIgICBjMS4xLDAsMi4yLTAu + MiwzLjMtMC41TDE1LjYsMjUuMXoiIGNsYXNzPSJHcmVlbiIgLz4NCiAgICA8cGF0aCBkPSJNMzEsMjN2 + LTJsLTIuMi0wLjRjLTAuMi0wLjYtMC40LTEuMy0wLjgtMS44bDEuMy0xLjhsLTEuNC0xLjRsLTEuOCwx + LjNjLTAuNS0wLjMtMS4yLTAuNi0xLjgtMC43TDI0LDE0aC0yICAgbC0wLjQsMi4yYy0wLjYsMC4yLTEu + MywwLjQtMS44LDAuN0wxOCwxNS42TDE2LjYsMTdsMS4zLDEuOGMtMC4zLDAuNS0wLjYsMS4yLTAuOCwx + LjhMMTUsMjF2MmwyLjIsMC40YzAuMiwwLjYsMC40LDEuMywwLjgsMS44ICAgTDE2LjcsMjdsMS40LDEu + NGwxLjgtMS4zYzAuNSwwLjMsMS4yLDAuNiwxLjgsMC43TDIyLDMwaDJsMC40LTIuMmMwLjYtMC4yLDEu + My0wLjQsMS44LTAuN2wxLjgsMS4zbDEuNC0xLjRsLTEuMy0xLjggICBjMC4zLTAuNSwwLjYtMS4yLDAu + OC0xLjhMMzEsMjN6IE0yMywyNGMtMS4xLDAtMi0wLjktMi0yczAuOS0yLDItMnMyLDAuOSwyLDJTMjQu + MSwyNCwyMywyNHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z @@ -147,10 +322,67 @@ LjEsMjguMSwyNy42LDI3LjZ6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + 144, 17 + + + 17, 17 + + + 17, 17 + + + 821, 17 + 399, 17 648, 17 + + 1056, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iU2F2ZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5 + bGU+DQogIDxwYXRoIGQ9Ik0yNyw0aC0zdjEwSDhWNEg1QzQuNCw0LDQsNC40LDQsNXYyMmMwLDAuNiww + LjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjVDMjgsNC40LDI3LjYsNCwyNyw0eiBNMjQsMjRIOHYt + NiAgaDE2VjI0eiBNMTAsNHY4aDEwVjRIMTB6IE0xNCwxMGgtMlY2aDJWMTB6IiBjbGFzcz0iQmxhY2si + IC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFMCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAxMyAxMyIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MTMgMTMiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQXBwb2ludG1l + bnRFbmRDb250aW51ZUFycm93XzFfIj4NCiAgICA8cG9seWdvbiBwb2ludHM9IjIsNyA3LDIgNyw1IDEx + LDUgMTEsOSA3LDkgNywxMiAgIiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + 17, 56 + + + 17, 56 + + + 267, 56 + \ No newline at end of file diff --git a/GUIs.ZooFlow/Globix/frmGlobixAdministration.vb b/GUIs.ZooFlow/Globix/frmGlobixAdministration.vb index 90d09267..ba09be6f 100644 --- a/GUIs.ZooFlow/Globix/frmGlobixAdministration.vb +++ b/GUIs.ZooFlow/Globix/frmGlobixAdministration.vb @@ -1,4 +1,5 @@ -Imports DigitalData.Modules.Logging +Imports DevExpress.XtraLayout +Imports DigitalData.Modules.Logging Public Class frmGlobixAdministration Implements frmAdmin_Interface @@ -6,6 +7,7 @@ Public Class frmGlobixAdministration Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert Private Logger As Logger + Private CURRCOntrolGroup As LayoutControlGroup Public Sub New(PrimaryKey As Integer) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() @@ -101,46 +103,96 @@ Public Class frmGlobixAdministration MsgBox("Error in Load_Dokart: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) End Try End Sub + + + Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData + Throw New NotImplementedException() + End Function + + Private Sub BESCHREIBUNGTextBox_TextChanged(sender As Object, e As EventArgs) Handles BESCHREIBUNGTextBox.TextChanged + + End Sub + + + Private Sub Load_INDEXMAN(ProfileId As Integer) + Try + Me.TBDD_INDEX_MANTableAdapter.Fill(Me.GlobixDataset.TBDD_INDEX_MAN, CType(DokartGUIDTextBox.Text, Integer)) + If GlobixDataset.TBDD_INDEX_MAN.Rows.Count > 0 Then + EnableControls(XtraTabPageManIndexe) + End If + ClearStatus() + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load IndexeManuell: ") + End Try + End Sub + Private Sub ClearStatus() + bsiState.Caption = String.Empty + End Sub + Private Sub XtraTabControl2_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl2.SelectedPageChanged + Load_TabData() + End Sub Sub Load_TabData() If frmloaded = False Then Exit Sub End If - ' RibbonPageGroupProfileRegex.Enabled = False + RibbonPageGroupProfileRegex.Enabled = False RibbonPageGroupManualIndex.Enabled = False RibbonPageGroupManualIndexFunctions.Enabled = False RibbonPageGroupAutoIndex.Enabled = False - 'Select Case XtraTabControl2.SelectedTabPage.Name - ' Case XtraTabPageManualIndex.Name - ' RibbonPageGroupManualIndex.Enabled = True - - ' If DOKART_GUIDTextBox.Text <> "" Then - ' Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text) - ' End If - ' Case XtraTabPageManualIndexFunctions.Name - ' RibbonPageGroupManualIndexFunctions.Enabled = True - - ' Load_PostProcessing(Me.DOKART_GUIDTextBox.Text) - ' Case XtraTabPageAutoIndex.Name - ' Load_INDEXE_AUTO(Me.DOKART_GUIDTextBox.Text) - - ' RibbonPageGroupAutoIndex.Enabled = True - ' Case XtraTabPageFolderPath.Name - ' Try - ' Dim Dt As DataTable = ClassDatabase.Return_Datatable("select NAME from VWDDINDICES_MAN_AUTO_ACTIVE where DOCTYPE_ID = " & DOKART_GUIDTextBox.Text & " order by NAME") - ' cmbCrFolderIndex.DataSource = Dt - ' cmbCrFolderIndex.DisplayMember = Dt.Columns(0).ColumnName - ' Catch ex As Exception - ' MsgBox("Error in Load Data TabData 4: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) - ' End Try - ' Case XtraTabPageProfileRegex.Name - ' TBGI_REGEX_DOCTYPETableAdapter.Fill(MyDataset.TBGI_REGEX_DOCTYPE, DOKART_GUIDTextBox.Text) - ' RibbonPageGroupProfileRegex.Enabled = True - 'End Select + Select Case XtraTabControl2.SelectedTabPage.Name + Case XtraTabPageManIndexe.Name + RibbonPageGroupManualIndex.Enabled = True + + If DokartGUIDTextBox.Text <> "" Then + ' Load_INDEXMAN(Me.DokartGUIDTextBox.Text) + End If + Case XtraTabPageRework.Name + RibbonPageGroupManualIndexFunctions.Enabled = True + + 'Load_PostProcessing(Me.DOKART_GUIDTextBox.Text) + Case XtraTabPageAutoIndexe.Name + Load_INDEXE_AUTO(CType(DokartGUIDTextBox.Text, Integer)) + + RibbonPageGroupAutoIndex.Enabled = True + 'Case XtraTabPageFolderPath.Name + ' Try + ' Dim Dt As DataTable = ClassDatabase.Return_Datatable("select NAME from VWDDINDICES_MAN_AUTO_ACTIVE where DOCTYPE_ID = " & DokartGUIDTextBox.Text & " order by NAME") + ' cmbCrFolderIndex.DataSource = Dt + ' cmbCrFolderIndex.DisplayMember = Dt.Columns(0).ColumnName + ' Catch ex As Exception + ' MsgBox("Error in Load Data TabData 4: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + ' End Try + 'Case XtraTabPageProfileRegex.Name + ' TBGI_REGEX_DOCTYPETableAdapter.Fill(MyDataset.TBGI_REGEX_DOCTYPE, DOKART_GUIDTextBox.Text) + ' RibbonPageGroupProfileRegex.Enabled = True + End Select End Sub - Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData - Throw New NotImplementedException() - End Function + + Private Sub Load_INDEXE_AUTO(ProfileId As Integer) + Try + Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.GlobixDataset.TBDD_INDEX_AUTOM, CType(DokartGUIDTextBox.Text, Integer)) + If GlobixDataset.TBDD_INDEX_AUTOM.Rows.Count > 0 Then + EnableControls(XtraTabPageAutoIndexe) + End If + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Indexe Auto: ") + End Try + End Sub + + + + Sub EnableControls(Control As Control, Optional Value As Boolean = True) + For Each oSubControl As Control In Control.Controls + If oSubControl.Enabled <> Value Then + oSubControl.Enabled = Value + End If + Next + End Sub + + Private Sub Root_Click(sender As Object, e As EventArgs) Handles ControlGroupProfile.Click, ControlGroupIndexeMan.Click, ControlGroupIndexeAuto.Click + CURRCOntrolGroup = sender + End Sub End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/My Project/Resources.Designer.vb b/GUIs.ZooFlow/My Project/Resources.Designer.vb index cb4c270b..3f7c126a 100644 --- a/GUIs.ZooFlow/My Project/Resources.Designer.vb +++ b/GUIs.ZooFlow/My Project/Resources.Designer.vb @@ -500,6 +500,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Datasource_16x16() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Datasource_16x16", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/GUIs.ZooFlow/My Project/Resources.resx b/GUIs.ZooFlow/My Project/Resources.resx index 5869924d..d4c60aaf 100644 --- a/GUIs.ZooFlow/My Project/Resources.resx +++ b/GUIs.ZooFlow/My Project/Resources.resx @@ -127,6 +127,9 @@ ..\Resources\ZooflowTitle.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\renamedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\bo_appointment.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -148,9 +151,6 @@ ..\Resources\definednameuseinformula.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\about1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -214,9 +214,6 @@ ..\Resources\1_LOGO_ZOO_FLOW_DROP3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - ..\Resources\highimportance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -238,6 +235,9 @@ ..\Resources\DD_Icons_ICO_PMANAGER_256px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\save4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\ZooFlow-25.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -265,12 +265,15 @@ ..\Resources\bo_document.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\save4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\actions_deletecircled1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\save6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\actions_deletecircled4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -310,8 +313,8 @@ ..\Resources\3_PERSON_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\renamedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\2_LUPE_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -328,7 +331,7 @@ ..\Resources\GLOBIX_short.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\save6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\Datasource_16x16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/Datasource_16x16.png b/GUIs.ZooFlow/Resources/Datasource_16x16.png new file mode 100644 index 0000000000000000000000000000000000000000..3ac3370f1ca51b4a0cbb4ccf26b77602cab69f8b GIT binary patch literal 646 zcmV;10(t$3P)zkNK{k|e|%6*Op2 zcaqq^oJC`f(zh{iQ&*htVp5J3<`(5!fn1qERg8AwKxLJPta(R@7v3-jKy z*ZPCAK}G!7=WO`l|Mpt>{gKJhEM$EIkOWG1NeH-?0RS<^R|Ds}PfCg;$Ps=2oUM@n zrQarmfP4Q=9tT>0b%8r2jVR=TETr3o0+2GcH0+Ema(RpDE z2h5Gl)r;du zLO>P*l{}zS201;4s%0mH&;khXylGz69eDEM3kqRP(p{@!|9_DRwr0^ZxdU zZ_zZqwA>u5UmF|E6%8cZM7{qYxNxTwRf6&M-VF|)8=%^MmDcu7n#+qF3lon{&px=> z1suqW=m;>u<7ZQ8UqL{0)jDbXT%dj1XH@KB`NJDlXFd@YXUN?40eMD2NaO$9i@XD;@mzb&frI8)e<1@$*N6W)T+v&xfzq z>ymOHlwYD03`(t+dUv0io0-47jG4BFiFXQl9o*(^b literal 0 HcmV?d00001 diff --git a/GUIs.ZooFlow/ZooFlow.vbproj b/GUIs.ZooFlow/ZooFlow.vbproj index fa36f2ce..fa08c8f6 100644 --- a/GUIs.ZooFlow/ZooFlow.vbproj +++ b/GUIs.ZooFlow/ZooFlow.vbproj @@ -142,10 +142,10 @@ Form - - frmGlobix_Dokumentart.vb + + frmAdmin_Globix.vb - + Form @@ -320,8 +320,8 @@ frmAdmin_IDBEntity.vb - - frmGlobix_Dokumentart.vb + + frmAdmin_Globix.vb frmtest.vb @@ -696,6 +696,9 @@ + + +