diff --git a/GUIs.ZooFlow/Administration/ClassConstants.vb b/GUIs.ZooFlow/Administration/ClassConstants.vb index 41dd99e1..f919f5bd 100644 --- a/GUIs.ZooFlow/Administration/ClassConstants.vb +++ b/GUIs.ZooFlow/Administration/ClassConstants.vb @@ -7,6 +7,7 @@ Public Const PAGE_IDB_SOURCE_SQL = "IDB_SOURCE_SQL" Public Const PAGE_IDB_OBJECT_STORES = "IDB_OBJECT_STORES" Public Const PAGE_IDB_DOCTYPE_CONFIG = "IDB_DOCTYPE_CONFIG" + Public Const PAGE_IDB_DOCTYPE = "DOCTYPE_DEF" Public Const MODULE_GI = "GLOBIX" Public Const PAGE_GI_PROFILES = "GI_PROFILES" diff --git a/GUIs.ZooFlow/Administration/ClassDetailForm.vb b/GUIs.ZooFlow/Administration/ClassDetailForm.vb index 67d22f31..a33b0882 100644 --- a/GUIs.ZooFlow/Administration/ClassDetailForm.vb +++ b/GUIs.ZooFlow/Administration/ClassDetailForm.vb @@ -57,8 +57,14 @@ Public Class ClassDetailForm .[Module] = MODULE_GI, .Entity = PAGE_GI_RELATIONS }}, - {PAGE_IDB_DOCTYPE_CONFIG, New DetailSettings With { + {PAGE_IDB_DOCTYPE, New DetailSettings With { .GridTitle = "Doctype Configuration", + .NewRecordTitle = "New Doctype", + .[Module] = MODULE_IDB, + .Entity = PAGE_IDB_DOCTYPE + }}, + {PAGE_IDB_DOCTYPE_CONFIG, New DetailSettings With { + .GridTitle = "Detail Doctype Configuration", .NewRecordTitle = "New Configuration", .[Module] = MODULE_IDB, .Entity = PAGE_IDB_DOCTYPE_CONFIG @@ -152,7 +158,10 @@ Public Class ClassDetailForm Dim oForm As New frmAdmin_DoctypeConfig(PrimaryKey) With {.IsInsert = IsInsert} oForm.ShowDialog() Return True - + Case PAGE_IDB_DOCTYPE + Dim oForm As New frmAdmin_Doctype(0) + oForm.ShowDialog() + Return True Case Else Return False End Select diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.Designer.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.Designer.vb new file mode 100644 index 00000000..77856184 --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.Designer.vb @@ -0,0 +1,458 @@ + _ +Partial Class frmAdmin_Doctype + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim RibbonPageGroupSave As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_Doctype)) + Me.BarButtonItemSaveChange = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItemCancel = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItemDTsave = 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.pnlAddDoctype = New DevExpress.XtraEditors.PanelControl() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.ComboBoxEditLanguage = New DevExpress.XtraEditors.ComboBoxEdit() + Me.TextEditDoctypeTranslate = New DevExpress.XtraEditors.TextEdit() + Me.TextEditDoctypeSys = New DevExpress.XtraEditors.TextEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TBIDB_LANGUAGEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() + Me.VirtualServerModeSource1 = New DevExpress.Data.VirtualServerModeSource(Me.components) + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.VWIDB_DOCTYPE_LANGUAGEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSystemTitle = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDoctype = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colLanguage = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colAddedWhen = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colChangedWhen = New DevExpress.XtraGrid.Columns.GridColumn() + Me.TBIDB_LANGUAGETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_LANGUAGETableAdapter() + Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() + Me.VWIDB_DOCTYPE_LANGUAGETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPE_LANGUAGETableAdapter() + RibbonPageGroupSave = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnlAddDoctype, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlAddDoctype.SuspendLayout() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.ComboBoxEditLanguage.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditDoctypeTranslate.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditDoctypeSys.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBIDB_LANGUAGEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VirtualServerModeSource1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWIDB_DOCTYPE_LANGUAGEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonPageGroupSave + ' + RibbonPageGroupSave.AllowTextClipping = False + RibbonPageGroupSave.ItemLinks.Add(Me.BarButtonItemSaveChange) + RibbonPageGroupSave.Name = "RibbonPageGroupSave" + RibbonPageGroupSave.Text = "Aktualisierung" + ' + 'BarButtonItemSaveChange + ' + Me.BarButtonItemSaveChange.Caption = "Speichern" + Me.BarButtonItemSaveChange.Enabled = False + Me.BarButtonItemSaveChange.Id = 6 + Me.BarButtonItemSaveChange.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemSaveChange.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItemSaveChange.Name = "BarButtonItemSaveChange" + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItemCancel, Me.BarButtonItemDTsave, Me.labelStatus, Me.BarButtonItemSaveChange}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 7 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowDisplayOptionsMenuButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.Size = New System.Drawing.Size(980, 158) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Hinzufügen" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItemCancel + ' + Me.BarButtonItemCancel.Caption = "Abbrechen" + Me.BarButtonItemCancel.Id = 3 + Me.BarButtonItemCancel.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemCancel.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItemCancel.Name = "BarButtonItemCancel" + Me.BarButtonItemCancel.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'BarButtonItemDTsave + ' + Me.BarButtonItemDTsave.Caption = "Speichern" + Me.BarButtonItemDTsave.Id = 4 + Me.BarButtonItemDTsave.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemDTsave.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItemDTsave.Name = "BarButtonItemDTsave" + Me.BarButtonItemDTsave.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'labelStatus + ' + Me.labelStatus.Caption = "BarStaticItem1" + Me.labelStatus.Id = 5 + Me.labelStatus.ImageOptions.SvgImage = CType(resources.GetObject("labelStatus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.labelStatus.Name = "labelStatus" + Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, RibbonPageGroupSave}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Start" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItemCancel) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItemDTsave) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Dokumentart" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 681) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(980, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'pnlAddDoctype + ' + Me.pnlAddDoctype.Controls.Add(Me.LayoutControl1) + Me.pnlAddDoctype.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlAddDoctype.Location = New System.Drawing.Point(0, 158) + Me.pnlAddDoctype.Name = "pnlAddDoctype" + Me.pnlAddDoctype.Size = New System.Drawing.Size(980, 89) + Me.pnlAddDoctype.TabIndex = 2 + Me.pnlAddDoctype.Visible = False + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.ComboBoxEditLanguage) + Me.LayoutControl1.Controls.Add(Me.TextEditDoctypeTranslate) + Me.LayoutControl1.Controls.Add(Me.TextEditDoctypeSys) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(2, 2) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(976, 85) + Me.LayoutControl1.TabIndex = 0 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'ComboBoxEditLanguage + ' + Me.ComboBoxEditLanguage.Location = New System.Drawing.Point(200, 45) + Me.ComboBoxEditLanguage.MenuManager = Me.RibbonControl1 + Me.ComboBoxEditLanguage.Name = "ComboBoxEditLanguage" + Me.ComboBoxEditLanguage.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.ComboBoxEditLanguage.Size = New System.Drawing.Size(335, 20) + Me.ComboBoxEditLanguage.StyleController = Me.LayoutControl1 + Me.ComboBoxEditLanguage.TabIndex = 8 + ' + 'TextEditDoctypeTranslate + ' + Me.TextEditDoctypeTranslate.Location = New System.Drawing.Point(723, 15) + Me.TextEditDoctypeTranslate.MenuManager = Me.RibbonControl1 + Me.TextEditDoctypeTranslate.Name = "TextEditDoctypeTranslate" + Me.TextEditDoctypeTranslate.Size = New System.Drawing.Size(238, 20) + Me.TextEditDoctypeTranslate.StyleController = Me.LayoutControl1 + Me.TextEditDoctypeTranslate.TabIndex = 5 + ' + 'TextEditDoctypeSys + ' + Me.TextEditDoctypeSys.Location = New System.Drawing.Point(200, 15) + Me.TextEditDoctypeSys.MenuManager = Me.RibbonControl1 + Me.TextEditDoctypeSys.Name = "TextEditDoctypeSys" + Me.TextEditDoctypeSys.Size = New System.Drawing.Size(335, 20) + Me.TextEditDoctypeSys.StyleController = Me.LayoutControl1 + Me.TextEditDoctypeSys.TabIndex = 4 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.EmptySpaceItem1, Me.LayoutControlItem2, Me.LayoutControlItem3}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(976, 85) + Me.Root.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.TextEditDoctypeSys + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem1.Size = New System.Drawing.Size(530, 30) + Me.LayoutControlItem1.Text = "Systembezeichnung Dokumentart" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(173, 13) + ' + 'EmptySpaceItem1 + ' + Me.EmptySpaceItem1.AllowHotTrack = False + Me.EmptySpaceItem1.Location = New System.Drawing.Point(530, 30) + Me.EmptySpaceItem1.Name = "EmptySpaceItem1" + Me.EmptySpaceItem1.Size = New System.Drawing.Size(426, 35) + Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.TextEditDoctypeTranslate + Me.LayoutControlItem2.Location = New System.Drawing.Point(530, 0) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem2.Size = New System.Drawing.Size(426, 30) + Me.LayoutControlItem2.Text = "Übersetzung" + Me.LayoutControlItem2.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.CustomSize + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(173, 13) + Me.LayoutControlItem2.TextToControlDistance = 5 + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.ComboBoxEditLanguage + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 30) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(530, 35) + Me.LayoutControlItem3.Text = "Sprache" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(173, 13) + ' + 'TBIDB_LANGUAGEBindingSource + ' + Me.TBIDB_LANGUAGEBindingSource.DataMember = "TBIDB_LANGUAGE" + Me.TBIDB_LANGUAGEBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'DSIDB_Stammdaten + ' + Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten" + Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'GridControl1 + ' + Me.GridControl1.DataSource = Me.VWIDB_DOCTYPE_LANGUAGEBindingSource + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GridControl1.Location = New System.Drawing.Point(0, 247) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.MenuManager = Me.RibbonControl1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(980, 434) + Me.GridControl1.TabIndex = 3 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'VWIDB_DOCTYPE_LANGUAGEBindingSource + ' + Me.VWIDB_DOCTYPE_LANGUAGEBindingSource.DataMember = "VWIDB_DOCTYPE_LANGUAGE" + Me.VWIDB_DOCTYPE_LANGUAGEBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'GridView1 + ' + Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colID, Me.colSystemTitle, Me.colDoctype, Me.colLanguage, Me.colAddedWhen, Me.colChangedWhen}) + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + Me.GridView1.OptionsView.ShowFilterPanelMode = DevExpress.XtraGrid.Views.Base.ShowFilterPanelMode.ShowAlways + ' + 'colID + ' + Me.colID.FieldName = "ID" + Me.colID.Name = "colID" + Me.colID.OptionsColumn.AllowEdit = False + Me.colID.OptionsColumn.AllowFocus = False + Me.colID.Visible = True + Me.colID.VisibleIndex = 0 + ' + 'colSystemTitle + ' + Me.colSystemTitle.FieldName = "SystemTitle" + Me.colSystemTitle.Name = "colSystemTitle" + Me.colSystemTitle.OptionsColumn.AllowEdit = False + Me.colSystemTitle.OptionsColumn.AllowFocus = False + Me.colSystemTitle.Visible = True + Me.colSystemTitle.VisibleIndex = 1 + ' + 'colDoctype + ' + Me.colDoctype.FieldName = "Doctype" + Me.colDoctype.Name = "colDoctype" + Me.colDoctype.Visible = True + Me.colDoctype.VisibleIndex = 2 + ' + 'colLanguage + ' + Me.colLanguage.FieldName = "Language" + Me.colLanguage.Name = "colLanguage" + Me.colLanguage.OptionsColumn.AllowEdit = False + Me.colLanguage.OptionsColumn.AllowFocus = False + Me.colLanguage.Visible = True + Me.colLanguage.VisibleIndex = 3 + ' + 'colAddedWhen + ' + Me.colAddedWhen.DisplayFormat.FormatString = "dd/MM/yyyy HH:mm" + Me.colAddedWhen.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.colAddedWhen.FieldName = "Added When" + Me.colAddedWhen.Name = "colAddedWhen" + Me.colAddedWhen.OptionsColumn.AllowEdit = False + Me.colAddedWhen.OptionsColumn.AllowFocus = False + Me.colAddedWhen.Visible = True + Me.colAddedWhen.VisibleIndex = 4 + ' + 'colChangedWhen + ' + Me.colChangedWhen.DisplayFormat.FormatString = "dd/MM/yyyy HH:mm" + Me.colChangedWhen.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.colChangedWhen.FieldName = "Changed When" + Me.colChangedWhen.Name = "colChangedWhen" + Me.colChangedWhen.OptionsColumn.AllowEdit = False + Me.colChangedWhen.OptionsColumn.AllowFocus = False + Me.colChangedWhen.Visible = True + Me.colChangedWhen.VisibleIndex = 5 + ' + 'TBIDB_LANGUAGETableAdapter + ' + Me.TBIDB_LANGUAGETableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOG_USERTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_LANGUAGETableAdapter = Me.TBIDB_LANGUAGETableAdapter + Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing + Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.VWIDB_BE_ATTRIBUTETableAdapter = Nothing + ' + 'VWIDB_DOCTYPE_LANGUAGETableAdapter + ' + Me.VWIDB_DOCTYPE_LANGUAGETableAdapter.ClearBeforeFill = True + ' + 'frmAdmin_Doctype + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(980, 705) + Me.Controls.Add(Me.GridControl1) + Me.Controls.Add(Me.pnlAddDoctype) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmAdmin_Doctype" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Doctypes" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnlAddDoctype, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlAddDoctype.ResumeLayout(False) + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.ComboBoxEditLanguage.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditDoctypeTranslate.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditDoctypeSys.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBIDB_LANGUAGEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VirtualServerModeSource1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWIDB_DOCTYPE_LANGUAGEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents pnlAddDoctype As DevExpress.XtraEditors.PanelControl + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents TextEditDoctypeTranslate As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEditDoctypeSys As DevExpress.XtraEditors.TextEdit + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents VirtualServerModeSource1 As DevExpress.Data.VirtualServerModeSource + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten + Friend WithEvents TBIDB_LANGUAGEBindingSource As BindingSource + Friend WithEvents TBIDB_LANGUAGETableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_LANGUAGETableAdapter + Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents BarButtonItemCancel As DevExpress.XtraBars.BarButtonItem + Friend WithEvents ComboBoxEditLanguage As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents BarButtonItemDTsave As DevExpress.XtraBars.BarButtonItem + Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem + Friend WithEvents VWIDB_DOCTYPE_LANGUAGEBindingSource As BindingSource + Friend WithEvents VWIDB_DOCTYPE_LANGUAGETableAdapter As DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPE_LANGUAGETableAdapter + Friend WithEvents colID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSystemTitle As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDoctype As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colLanguage As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colAddedWhen As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents BarButtonItemSaveChange As DevExpress.XtraBars.BarButtonItem + Friend WithEvents colChangedWhen As DevExpress.XtraGrid.Columns.GridColumn +End Class diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.resx b/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.resx new file mode 100644 index 00000000..16ae6247 --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.resx @@ -0,0 +1,254 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANwDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iU2F2ZUFzIj4NCiAgICA8cGF0aCBk + PSJNMTYsOWMwLTEuMSwwLjItMi4xLDAuNS0zSDh2OGg5LjVDMTYuNiwxMi42LDE2LDEwLjksMTYsOXog + TTEyLDEyaC0yVjhoMlYxMnogTTI2LDE4djExYzAsMC42LTAuNCwxLTEsMUgzICAgYy0wLjYsMC0xLTAu + NC0xLTFWN2MwLTAuNiwwLjQtMSwxLTFoM3YxMGgxMy4zYzAuMiwwLjIsMC40LDAuMywwLjcsMC41VjIw + SDZ2NmgxNnYtOEgyNnoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICA8cGF0aCBkPSJNMjUsMmMtMy45LDAt + NywzLjEtNyw3YzAsMy45LDMuMSw3LDcsN3M3LTMuMSw3LTdDMzIsNS4xLDI4LjksMiwyNSwyeiBNMjIs + MTBoLTJWOGgyVjEweiBNMjYsMTBoLTJWOGgyVjEweiAgICBNMjgsMTBWOGgydjJIMjh6IiBjbGFzcz0i + R3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZCI+DQogICAgPHBhdGggZD0iTTI3LDE0aC05VjVj + MC0wLjUtMC41LTEtMS0xaC0yYy0wLjUsMC0xLDAuNS0xLDF2OUg1Yy0wLjUsMC0xLDAuNS0xLDF2MmMw + LDAuNSwwLjUsMSwxLDFoOXY5ICAgYzAsMC41LDAuNSwxLDEsMWgyYzAuNSwwLDEtMC41LDEtMXYtOWg5 + YzAuNSwwLDEtMC41LDEtMXYtMkMyOCwxNC41LDI3LjUsMTQsMjcsMTR6IiBjbGFzcz0iR3JlZW4iIC8+ + DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGkEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iU2F2ZUFuZENsb3NlIj4NCiAgICA8 + cGF0aCBkPSJNNiwxNlY2SDNDMi40LDYsMiw2LjQsMiw3djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYs + MCwxLTAuNCwxLTFWMTZINnogTTYsMjZ2LTZoMTZ2Nkg2eiBNMTYsNkg4djhoOFY2eiAgICBNMTIsMTJo + LTJWOGgyVjEyeiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxwYXRoIGQ9Ik0yOSwySDE5Yy0wLjUsMC0x + LDAuNS0xLDF2MTBjMCwwLjUsMC41LDEsMSwxaDEwYzAuNSwwLDEtMC41LDEtMVYzQzMwLDIuNSwyOS41 + LDIsMjksMnogTTI3LjcsMTAuNCAgIGMwLjQsMC40LDAuNCwxLDAsMS4zYy0wLjQsMC40LTEsMC40LTEu + MywwTDI0LDkuM2wtMi40LDIuNGMtMC40LDAuNC0xLDAuNC0xLjMsMGMtMC40LTAuNC0wLjQtMSwwLTEu + M0wyMi43LDhsLTIuNC0yLjQgICBjLTAuNC0wLjQtMC40LTEsMC0xLjNjMC40LTAuNCwxLTAuNCwxLjMs + MEwyNCw2LjdsMi40LTIuNGMwLjQtMC40LDEtMC40LDEuMywwYzAuNCwwLjQsMC40LDEsMCwxLjNMMjUu + Myw4TDI3LjcsMTAuNHoiIGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzczNzM3NDt9Cgku + WWVsbG93e2ZpbGw6I0ZDQjAxQjt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5CbHVle2ZpbGw6IzM4 + N0NCNzt9CgkuUmVke2ZpbGw6I0QwMjEyNzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tk + aXNwbGF5Om5vbmU7ZmlsbDojNzM3Mzc0O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRoLTN2MTBI + OFY0SDVDNC40LDQsNCw0LjQsNCw1djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTFW + NUMyOCw0LjQsMjcuNiw0LDI3LDR6IE0yNCwyNEg4di02ICBoMTZWMjR6IE0xMCw0djhoMTBWNEgxMHog + TTE0LDEwaC0yVjZoMlYxMHoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9 + Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs + MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs + NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg + PC9nPg0KPC9zdmc+Cw== + + + + 374, 17 + + + 214, 17 + + + 17, 17 + + + 17, 56 + + + 605, 17 + + + 830, 17 + + + 311, 56 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.vb new file mode 100644 index 00000000..cffafd0a --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.vb @@ -0,0 +1,95 @@ +Imports DevExpress.XtraEditors +Imports DevExpress.XtraGrid.Views.Grid + +Public Class frmAdmin_Doctype + + Public Property HasChanges As Boolean = False + Public Property IsInsert As Boolean = False + Public Property PrimaryKey As Integer + Dim SelSystitle As String + Dim SelLanguage As String + Dim SelChangedTerm As String + + Private Sub frmAdmin_Doctype_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGE". Sie können sie bei Bedarf verschieben oder entfernen. + + TBIDB_LANGUAGETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + Me.TBIDB_LANGUAGETableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_LANGUAGE) + For Each orow As DataRow In DSIDB_Stammdaten.TBIDB_LANGUAGE + ComboBoxEditLanguage.Properties.Items.Add(orow.Item("LANG_CODE")) + Next + Load_Doctypes() + End Sub + Sub Load_Doctypes() + Try + VWIDB_DOCTYPE_LANGUAGETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + Me.VWIDB_DOCTYPE_LANGUAGETableAdapter.Fill(Me.DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGE) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + pnlAddDoctype.Visible = True + BarButtonItemCancel.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + BarButtonItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + BarButtonItemDTsave.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End Sub + + Public Sub New(PrimaryKey As Integer) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.PrimaryKey = PrimaryKey + Me.IsInsert = IsInsert + End Sub + + Private Sub BarButtonItemCancel_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemCancel.ItemClick + pnlAddDoctype.Visible = True + BarButtonItemCancel.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + BarButtonItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + BarButtonItemDTsave.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End Sub + + Private Sub BarButtonItemDTsave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemDTsave.ItemClick + If NewUpdateDoctype(TextEditDoctypeSys.EditValue, TextEditDoctypeTranslate.EditValue, ComboBoxEditLanguage.EditValue) = True Then + ShowStatus("Sys Doctype successfully added/updated") + End If + End Sub + Private Function NewUpdateDoctype(DoctypeSys As String, Term As String, Language As String) As Boolean + Try + Dim oSQL = $"EXEC PRIDB_NEW_DOCTYPE '{DoctypeSys}','{Term}','{My.Application.User.UserName}','{Language}'" + + If My.DatabaseIDB.ExecuteNonQuery(oSQL) = True Then + Load_Doctypes() + Return True + End If + Catch ex As Exception + + End Try + End Function + Private Sub ShowStatus(Message As String) + labelStatus.Caption = Message + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End Sub + + Private Sub GridView1_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) Handles GridView1.CellValueChanged + Dim oView As GridView = sender + Dim cellValue As String = e.Value.ToString() + SelChangedTerm = cellValue + BarButtonItemSaveChange.Enabled = True + End Sub + + Private Sub GridView1_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView1.FocusedRowChanged + Dim oView As GridView = sender + SelSystitle = oView.GetFocusedRowCellValue(oView.Columns(2)).ToString() + SelLanguage = oView.GetFocusedRowCellValue(oView.Columns("Language")).ToString() + BarButtonItemSaveChange.Enabled = False + End Sub + + Private Sub BarButtonItemSaveChange_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemSaveChange.ItemClick + If NewUpdateDoctype(SelSystitle, SelChangedTerm, SelLanguage) = True Then + ShowStatus("Doctype Translation successfully added/updated") + End If + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.Designer.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.Designer.vb index 7e8cdcb5..db735307 100644 --- a/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.Designer.vb +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.Designer.vb @@ -33,10 +33,8 @@ Partial Class frmAdmin_DoctypeConfig Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() - Me.LookUpEdit1 = New DevExpress.XtraEditors.LookUpEdit() Me.TBIDB_DOCTYPE_HANDLINGBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() - Me.VWIDB_DOCTYPES_DEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit() Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit() Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() @@ -51,18 +49,18 @@ Partial Class frmAdmin_DoctypeConfig Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() Me.TBIDB_DOCTYPE_HANDLINGTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_DOCTYPE_HANDLINGTableAdapter() Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() Me.TBIDB_CATALOGTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_CATALOGTableAdapter() - Me.VWIDB_DOCTYPES_DETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPES_DETableAdapter() + Me.TBIDB_DOCTYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBIDB_DOCTYPETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_DOCTYPETableAdapter() + Me.DOCTYPEComboBox = New System.Windows.Forms.ComboBox() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.LayoutControl1.SuspendLayout() - CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBIDB_DOCTYPE_HANDLINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.VWIDB_DOCTYPES_DEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() @@ -76,7 +74,8 @@ Partial Class frmAdmin_DoctypeConfig CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBIDB_DOCTYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'RibbonControl1 @@ -88,7 +87,7 @@ Partial Class frmAdmin_DoctypeConfig Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] - Me.RibbonControl1.Size = New System.Drawing.Size(874, 160) + Me.RibbonControl1.Size = New System.Drawing.Size(948, 158) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' 'BarButtonItem1 @@ -129,10 +128,10 @@ Partial Class frmAdmin_DoctypeConfig 'RibbonStatusBar1 ' Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 502) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 574) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(874, 22) + Me.RibbonStatusBar1.Size = New System.Drawing.Size(948, 24) ' 'RibbonPage2 ' @@ -141,7 +140,7 @@ Partial Class frmAdmin_DoctypeConfig ' 'LayoutControl1 ' - Me.LayoutControl1.Controls.Add(Me.LookUpEdit1) + Me.LayoutControl1.Controls.Add(Me.DOCTYPEComboBox) Me.LayoutControl1.Controls.Add(Me.TextEdit5) Me.LayoutControl1.Controls.Add(Me.TextEdit4) Me.LayoutControl1.Controls.Add(Me.TextEdit3) @@ -149,27 +148,13 @@ Partial Class frmAdmin_DoctypeConfig Me.LayoutControl1.Controls.Add(Me.CHANGED_ACTIONComboBox) Me.LayoutControl1.Controls.Add(Me.TextEdit1) Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.LayoutControl1.Location = New System.Drawing.Point(0, 160) + Me.LayoutControl1.Location = New System.Drawing.Point(0, 158) Me.LayoutControl1.Name = "LayoutControl1" Me.LayoutControl1.Root = Me.Root - Me.LayoutControl1.Size = New System.Drawing.Size(874, 342) + Me.LayoutControl1.Size = New System.Drawing.Size(948, 416) Me.LayoutControl1.TabIndex = 2 Me.LayoutControl1.Text = "LayoutControl1" ' - 'LookUpEdit1 - ' - Me.LookUpEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "DOCTYPE", True)) - Me.LookUpEdit1.Location = New System.Drawing.Point(400, 15) - Me.LookUpEdit1.MenuManager = Me.RibbonControl1 - Me.LookUpEdit1.Name = "LookUpEdit1" - Me.LookUpEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.LookUpEdit1.Properties.DataSource = Me.VWIDB_DOCTYPES_DEBindingSource - Me.LookUpEdit1.Properties.DisplayMember = "Doctype" - Me.LookUpEdit1.Properties.ValueMember = "Doctype" - Me.LookUpEdit1.Size = New System.Drawing.Size(459, 20) - Me.LookUpEdit1.StyleController = Me.LayoutControl1 - Me.LookUpEdit1.TabIndex = 11 - ' 'TBIDB_DOCTYPE_HANDLINGBindingSource ' Me.TBIDB_DOCTYPE_HANDLINGBindingSource.DataMember = "TBIDB_DOCTYPE_HANDLING" @@ -180,52 +165,47 @@ Partial Class frmAdmin_DoctypeConfig Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten" Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' - 'VWIDB_DOCTYPES_DEBindingSource - ' - Me.VWIDB_DOCTYPES_DEBindingSource.DataMember = "VWIDB_DOCTYPES_DE" - Me.VWIDB_DOCTYPES_DEBindingSource.DataSource = Me.DSIDB_Stammdaten - ' 'TextEdit5 ' Me.TextEdit5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "CHANGED_WHEN", True)) - Me.TextEdit5.Location = New System.Drawing.Point(586, 106) + Me.TextEdit5.Location = New System.Drawing.Point(619, 107) Me.TextEdit5.MenuManager = Me.RibbonControl1 Me.TextEdit5.Name = "TextEdit5" Me.TextEdit5.Properties.ReadOnly = True - Me.TextEdit5.Size = New System.Drawing.Size(273, 20) + Me.TextEdit5.Size = New System.Drawing.Size(314, 20) Me.TextEdit5.StyleController = Me.LayoutControl1 Me.TextEdit5.TabIndex = 5 ' 'TextEdit4 ' Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "CHANGED_WHO", True)) - Me.TextEdit4.Location = New System.Drawing.Point(160, 106) + Me.TextEdit4.Location = New System.Drawing.Point(157, 107) Me.TextEdit4.MenuManager = Me.RibbonControl1 Me.TextEdit4.Name = "TextEdit4" Me.TextEdit4.Properties.ReadOnly = True - Me.TextEdit4.Size = New System.Drawing.Size(271, 20) + Me.TextEdit4.Size = New System.Drawing.Size(310, 20) Me.TextEdit4.StyleController = Me.LayoutControl1 Me.TextEdit4.TabIndex = 10 ' 'TextEdit3 ' Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "ADDED_WHEN", True)) - Me.TextEdit3.Location = New System.Drawing.Point(586, 76) + Me.TextEdit3.Location = New System.Drawing.Point(619, 77) Me.TextEdit3.MenuManager = Me.RibbonControl1 Me.TextEdit3.Name = "TextEdit3" Me.TextEdit3.Properties.ReadOnly = True - Me.TextEdit3.Size = New System.Drawing.Size(273, 20) + Me.TextEdit3.Size = New System.Drawing.Size(314, 20) Me.TextEdit3.StyleController = Me.LayoutControl1 Me.TextEdit3.TabIndex = 9 ' 'TextEdit2 ' Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "ADDED_WHO", True)) - Me.TextEdit2.Location = New System.Drawing.Point(160, 76) + Me.TextEdit2.Location = New System.Drawing.Point(157, 77) Me.TextEdit2.MenuManager = Me.RibbonControl1 Me.TextEdit2.Name = "TextEdit2" Me.TextEdit2.Properties.ReadOnly = True - Me.TextEdit2.Size = New System.Drawing.Size(271, 20) + Me.TextEdit2.Size = New System.Drawing.Size(310, 20) Me.TextEdit2.StyleController = Me.LayoutControl1 Me.TextEdit2.TabIndex = 8 ' @@ -235,9 +215,9 @@ Partial Class frmAdmin_DoctypeConfig Me.CHANGED_ACTIONComboBox.DataSource = Me.TBIDB_CATALOGBindingSource Me.CHANGED_ACTIONComboBox.DisplayMember = "CAT_STRING" Me.CHANGED_ACTIONComboBox.FormattingEnabled = True - Me.CHANGED_ACTIONComboBox.Location = New System.Drawing.Point(160, 45) + Me.CHANGED_ACTIONComboBox.Location = New System.Drawing.Point(157, 46) Me.CHANGED_ACTIONComboBox.Name = "CHANGED_ACTIONComboBox" - Me.CHANGED_ACTIONComboBox.Size = New System.Drawing.Size(699, 21) + Me.CHANGED_ACTIONComboBox.Size = New System.Drawing.Size(776, 21) Me.CHANGED_ACTIONComboBox.TabIndex = 7 Me.CHANGED_ACTIONComboBox.ValueMember = "GUID" ' @@ -249,13 +229,13 @@ Partial Class frmAdmin_DoctypeConfig 'TextEdit1 ' Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "GUID", True)) - Me.TextEdit1.Location = New System.Drawing.Point(160, 15) + Me.TextEdit1.Location = New System.Drawing.Point(157, 15) Me.TextEdit1.MenuManager = Me.RibbonControl1 Me.TextEdit1.Name = "TextEdit1" Me.TextEdit1.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.TextEdit1.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.TextEdit1.Properties.ReadOnly = True - Me.TextEdit1.Size = New System.Drawing.Size(85, 20) + Me.TextEdit1.Size = New System.Drawing.Size(157, 20) Me.TextEdit1.StyleController = Me.LayoutControl1 Me.TextEdit1.TabIndex = 4 ' @@ -263,9 +243,9 @@ Partial Class frmAdmin_DoctypeConfig ' Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.Root.GroupBordersVisible = False - Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem4, Me.LayoutControlItem2, Me.LayoutControlItem5, Me.LayoutControlItem3, Me.LayoutControlItem6, Me.LayoutControlItem7}) + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem4, Me.LayoutControlItem2, Me.LayoutControlItem5, Me.LayoutControlItem3, Me.LayoutControlItem6, Me.LayoutControlItem9}) Me.Root.Name = "Root" - Me.Root.Size = New System.Drawing.Size(874, 342) + Me.Root.Size = New System.Drawing.Size(948, 416) Me.Root.TextVisible = False ' 'LayoutControlItem1 @@ -274,70 +254,60 @@ Partial Class frmAdmin_DoctypeConfig Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) Me.LayoutControlItem1.Name = "LayoutControlItem1" Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem1.Size = New System.Drawing.Size(240, 30) + Me.LayoutControlItem1.Size = New System.Drawing.Size(309, 31) Me.LayoutControlItem1.Text = "ID" - Me.LayoutControlItem1.TextSize = New System.Drawing.Size(133, 13) + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(130, 13) ' 'LayoutControlItem4 ' Me.LayoutControlItem4.Control = Me.CHANGED_ACTIONComboBox - Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 30) + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 31) Me.LayoutControlItem4.Name = "LayoutControlItem4" Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem4.Size = New System.Drawing.Size(854, 31) - Me.LayoutControlItem4.Text = "Verhalten Datei geändert:" - Me.LayoutControlItem4.TextSize = New System.Drawing.Size(133, 13) + Me.LayoutControlItem4.Size = New System.Drawing.Size(928, 31) + Me.LayoutControlItem4.Text = "Verhalten Datei geändert" + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(130, 13) ' 'LayoutControlItem2 ' Me.LayoutControlItem2.Control = Me.TextEdit2 Me.LayoutControlItem2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "ADDED_WHO", True)) - Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 61) + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 62) Me.LayoutControlItem2.Name = "LayoutControlItem2" Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem2.Size = New System.Drawing.Size(426, 30) + Me.LayoutControlItem2.Size = New System.Drawing.Size(462, 30) Me.LayoutControlItem2.Text = "Erstellt wer" - Me.LayoutControlItem2.TextSize = New System.Drawing.Size(133, 13) + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(130, 13) ' 'LayoutControlItem5 ' Me.LayoutControlItem5.Control = Me.TextEdit4 - Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 91) + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 92) Me.LayoutControlItem5.Name = "LayoutControlItem5" Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem5.Size = New System.Drawing.Size(426, 231) + Me.LayoutControlItem5.Size = New System.Drawing.Size(462, 304) Me.LayoutControlItem5.Text = "Geändert wer" - Me.LayoutControlItem5.TextSize = New System.Drawing.Size(133, 13) + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(130, 13) ' 'LayoutControlItem3 ' Me.LayoutControlItem3.Control = Me.TextEdit3 - Me.LayoutControlItem3.Location = New System.Drawing.Point(426, 61) + Me.LayoutControlItem3.Location = New System.Drawing.Point(462, 62) Me.LayoutControlItem3.Name = "LayoutControlItem3" Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem3.Size = New System.Drawing.Size(428, 30) + Me.LayoutControlItem3.Size = New System.Drawing.Size(466, 30) Me.LayoutControlItem3.Text = "Erstellt wann" - Me.LayoutControlItem3.TextSize = New System.Drawing.Size(133, 13) + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(130, 13) ' 'LayoutControlItem6 ' Me.LayoutControlItem6.Control = Me.TextEdit5 - Me.LayoutControlItem6.Location = New System.Drawing.Point(426, 91) + Me.LayoutControlItem6.Location = New System.Drawing.Point(462, 92) Me.LayoutControlItem6.Name = "LayoutControlItem6" Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem6.Size = New System.Drawing.Size(428, 231) + Me.LayoutControlItem6.Size = New System.Drawing.Size(466, 304) Me.LayoutControlItem6.Text = "Geändert wann" - Me.LayoutControlItem6.TextSize = New System.Drawing.Size(133, 13) - ' - 'LayoutControlItem7 - ' - Me.LayoutControlItem7.Control = Me.LookUpEdit1 - Me.LayoutControlItem7.Location = New System.Drawing.Point(240, 0) - Me.LayoutControlItem7.Name = "LayoutControlItem7" - Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem7.Size = New System.Drawing.Size(614, 30) - Me.LayoutControlItem7.Text = "Dokumentart" - Me.LayoutControlItem7.TextSize = New System.Drawing.Size(133, 13) + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(130, 13) ' 'TBIDB_DOCTYPE_HANDLINGTableAdapter ' @@ -349,8 +319,11 @@ Partial Class frmAdmin_DoctypeConfig Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOG_USERTableAdapter = Nothing Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Me.TBIDB_DOCTYPE_HANDLINGTableAdapter + Me.TableAdapterManager.TBIDB_DOCTYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_LANGUAGETableAdapter = Nothing Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete @@ -360,15 +333,41 @@ Partial Class frmAdmin_DoctypeConfig ' Me.TBIDB_CATALOGTableAdapter.ClearBeforeFill = True ' - 'VWIDB_DOCTYPES_DETableAdapter + 'TBIDB_DOCTYPEBindingSource ' - Me.VWIDB_DOCTYPES_DETableAdapter.ClearBeforeFill = True + Me.TBIDB_DOCTYPEBindingSource.DataMember = "TBIDB_DOCTYPE" + Me.TBIDB_DOCTYPEBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'TBIDB_DOCTYPETableAdapter + ' + Me.TBIDB_DOCTYPETableAdapter.ClearBeforeFill = True + ' + 'DOCTYPEComboBox + ' + Me.DOCTYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "DOCTYPE", True)) + Me.DOCTYPEComboBox.DataSource = Me.TBIDB_DOCTYPEBindingSource + Me.DOCTYPEComboBox.DisplayMember = "TITLE" + Me.DOCTYPEComboBox.FormattingEnabled = True + Me.DOCTYPEComboBox.Location = New System.Drawing.Point(466, 15) + Me.DOCTYPEComboBox.Name = "DOCTYPEComboBox" + Me.DOCTYPEComboBox.Size = New System.Drawing.Size(467, 21) + Me.DOCTYPEComboBox.TabIndex = 12 + ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.Control = Me.DOCTYPEComboBox + Me.LayoutControlItem9.Location = New System.Drawing.Point(309, 0) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem9.Size = New System.Drawing.Size(619, 31) + Me.LayoutControlItem9.Text = "Dokumentart" + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(130, 13) ' 'frmAdmin_DoctypeConfig ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(874, 524) + Me.ClientSize = New System.Drawing.Size(948, 598) Me.Controls.Add(Me.LayoutControl1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) @@ -380,10 +379,8 @@ Partial Class frmAdmin_DoctypeConfig CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.LayoutControl1.ResumeLayout(False) - CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBIDB_DOCTYPE_HANDLINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.VWIDB_DOCTYPES_DEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() @@ -397,7 +394,8 @@ Partial Class frmAdmin_DoctypeConfig CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBIDB_DOCTYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -430,9 +428,9 @@ Partial Class frmAdmin_DoctypeConfig Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents VWIDB_DOCTYPES_DEBindingSource As BindingSource - Friend WithEvents VWIDB_DOCTYPES_DETableAdapter As DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPES_DETableAdapter - Friend WithEvents LookUpEdit1 As DevExpress.XtraEditors.LookUpEdit - Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents TBIDB_DOCTYPEBindingSource As BindingSource + Friend WithEvents TBIDB_DOCTYPETableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_DOCTYPETableAdapter + Friend WithEvents DOCTYPEComboBox As ComboBox + Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem End Class diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.resx b/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.resx index e2d20fdb..f45177ba 100644 --- a/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.resx +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.resx @@ -183,12 +183,15 @@ 17, 17 - + 233, 56 918, 17 + + 17, 17 + 464, 17 @@ -198,8 +201,8 @@ 17, 56 - - 485, 56 + + 453, 56 diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.vb index 3d76943d..cc78a52d 100644 --- a/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.vb +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.vb @@ -31,15 +31,17 @@ End Sub Private Sub frmAdmin_DoctypeConfig_Load(sender As Object, e As EventArgs) Handles Me.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DSIDB_Stammdaten.TBIDB_DOCTYPE". Sie können sie bei Bedarf verschieben oder entfernen. + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DSIDB_Stammdaten.VWIDB_DOCTYPES_DE". Sie können sie bei Bedarf verschieben oder entfernen. Try TBIDB_CATALOGTableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString TBIDB_DOCTYPE_HANDLINGTableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString - VWIDB_DOCTYPES_DETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + TBIDB_DOCTYPETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString Me.TBIDB_CATALOGTableAdapter.FillByDOCTYPE_CHANGED(Me.DSIDB_Stammdaten.TBIDB_CATALOG) Me.TBIDB_DOCTYPE_HANDLINGTableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLING, PrimaryKey) - Me.VWIDB_DOCTYPES_DETableAdapter.Fill(Me.DSIDB_Stammdaten.VWIDB_DOCTYPES_DE) + Me.TBIDB_DOCTYPETableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_DOCTYPE) If IsInsert Then Me.DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLING.ADDED_WHOColumn.DefaultValue = My.Application.User.UserName TBIDB_DOCTYPE_HANDLINGBindingSource.AddNew() diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb index 680afd09..5d37ceca 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb @@ -62,7 +62,6 @@ Partial Class frmAdmin_Start Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonPageGroup20 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.TreeListMenu = New DevExpress.XtraTreeList.TreeList() @@ -367,7 +366,7 @@ Partial Class frmAdmin_Start ' 'RibbonPage1 ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1, Me.RibbonPageGroup20}) + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1}) Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Text = "Start" ' @@ -380,18 +379,13 @@ Partial Class frmAdmin_Start ' 'RibbonPageGroup1 ' + Me.RibbonPageGroup1.AllowTextClipping = False Me.RibbonPageGroup1.Enabled = False Me.RibbonPageGroup1.ItemLinks.Add(Me.btnAddRecord) Me.RibbonPageGroup1.ItemLinks.Add(Me.btnEditRecord) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "Datensätze" ' - 'RibbonPageGroup20 - ' - Me.RibbonPageGroup20.ItemLinks.Add(Me.BarButtonItem26) - Me.RibbonPageGroup20.Name = "RibbonPageGroup20" - Me.RibbonPageGroup20.Text = "RibbonPageGroup20" - ' 'RibbonStatusBar1 ' Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) @@ -419,20 +413,21 @@ Partial Class frmAdmin_Start Me.TreeListMenu.Name = "TreeListMenu" Me.TreeListMenu.BeginUnboundLoad() Me.TreeListMenu.AppendNode(New Object() {"Configurations IM"}, -1, "") - Me.TreeListMenu.AppendNode(New Object() {"Attribute"}, 0, 2, 2, -1, "IDB_ATTRIBUTES") + Me.TreeListMenu.AppendNode(New Object() {"Attributes"}, 0, 2, 2, -1, "IDB_ATTRIBUTES") Me.TreeListMenu.AppendNode(New Object() {"Attribute Relations"}, 1, 9, 9, -1, "ATTRIBUTE_RELATIONS") Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_BUSINESS_ENTITIES") - Me.TreeListMenu.AppendNode(New Object() {"Doctype Config"}, 0, 10, 0, -1, "IDB_DOCTYPE_CONFIG") Me.TreeListMenu.AppendNode(New Object() {"Object Stores"}, 0, "IDB_OBJECT_STORES") + Me.TreeListMenu.AppendNode(New Object() {"Doctypes"}, 0, 10, 10, -1, "DOCTYPE_DEF") + Me.TreeListMenu.AppendNode(New Object() {"Doctype Config"}, 5, 10, 10, -1, "IDB_DOCTYPE_CONFIG") Me.TreeListMenu.AppendNode(New Object() {"Global Indexer"}, -1, 6, 6, -1, "") - Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 6, 4, 4, -1, "GI_PROFILES") - Me.TreeListMenu.AppendNode(New Object() {"Profile Relations"}, 7, 9, 9, -1, "GI_RELATIONS") + Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 7, 4, 4, -1, "GI_PROFILES") + Me.TreeListMenu.AppendNode(New Object() {"Profile Relations"}, 8, 9, 9, -1, "GI_RELATIONS") Me.TreeListMenu.AppendNode(New Object() {"Clipboard Watcher"}, -1, 7, 7, -1, "") - Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 9, 4, 4, -1, "CW_PROFILES") + Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 10, 4, 4, -1, "CW_PROFILES") Me.TreeListMenu.AppendNode(New Object() {"Administration"}, -1) - Me.TreeListMenu.AppendNode(New Object() {"Source SQL"}, 11, 3, 3, -1, "META_SOURCE_SQL") + Me.TreeListMenu.AppendNode(New Object() {"Source SQL"}, 12, 3, 3, -1, "META_SOURCE_SQL") Me.TreeListMenu.AppendNode(New Object() {"User Management"}, -1, 11, 11, -1) - Me.TreeListMenu.AppendNode(New Object() {"User List"}, 13, 5, 5, -1, "USER_OVERVIEW") + Me.TreeListMenu.AppendNode(New Object() {"User List"}, 14, 5, 5, -1, "USER_OVERVIEW") Me.TreeListMenu.EndUnboundLoad() Me.TreeListMenu.OptionsBehavior.Editable = False Me.TreeListMenu.OptionsView.ShowColumns = False @@ -511,6 +506,7 @@ Partial Class frmAdmin_Start Me.TableAdapterManager.TBIDB_CATALOG_USERTableAdapter = Nothing Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_LANGUAGETableAdapter = Nothing Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete @@ -930,5 +926,4 @@ Partial Class frmAdmin_Start Friend WithEvents RibbonGroup_ClipboardWatcher_Profile As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPage_ClipboardWatcher As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents BarButtonItem26 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents RibbonPageGroup20 As DevExpress.XtraBars.Ribbon.RibbonPageGroup End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb index 4822e66a..b811ee18 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb @@ -91,6 +91,13 @@ Public Class frmAdmin_Start If Handle_LoadPage(e.Node.Tag.ToString) Then RibbonPageGroup1.Enabled = True CurrentPage = e.Node.Tag.ToString + btnAddRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Select Case CurrentPage + Case PAGE_IDB_DOCTYPE + btnAddRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + + + End Select End If Catch ex As Exception diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb index 02cdd0d7..3bb1eec4 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb @@ -49,6 +49,12 @@ Partial Public Class DSIDB_Stammdaten Private tableTBIDB_CATALOG_USER As TBIDB_CATALOG_USERDataTable + Private tableTBIDB_LANGUAGE As TBIDB_LANGUAGEDataTable + + Private tableVWIDB_DOCTYPE_LANGUAGE As VWIDB_DOCTYPE_LANGUAGEDataTable + + Private tableTBIDB_DOCTYPE As TBIDB_DOCTYPEDataTable + Private relationFK_TYP_ID As Global.System.Data.DataRelation Private relationFK_OS_CAT_ID As Global.System.Data.DataRelation @@ -120,6 +126,15 @@ Partial Public Class DSIDB_Stammdaten If (Not (ds.Tables("TBIDB_CATALOG_USER")) Is Nothing) Then MyBase.Tables.Add(New TBIDB_CATALOG_USERDataTable(ds.Tables("TBIDB_CATALOG_USER"))) End If + If (Not (ds.Tables("TBIDB_LANGUAGE")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_LANGUAGEDataTable(ds.Tables("TBIDB_LANGUAGE"))) + End If + If (Not (ds.Tables("VWIDB_DOCTYPE_LANGUAGE")) Is Nothing) Then + MyBase.Tables.Add(New VWIDB_DOCTYPE_LANGUAGEDataTable(ds.Tables("VWIDB_DOCTYPE_LANGUAGE"))) + End If + If (Not (ds.Tables("TBIDB_DOCTYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_DOCTYPEDataTable(ds.Tables("TBIDB_DOCTYPE"))) + End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace @@ -257,6 +272,36 @@ Partial Public Class DSIDB_Stammdaten End Get End Property + _ + Public ReadOnly Property TBIDB_LANGUAGE() As TBIDB_LANGUAGEDataTable + Get + Return Me.tableTBIDB_LANGUAGE + End Get + End Property + + _ + Public ReadOnly Property VWIDB_DOCTYPE_LANGUAGE() As VWIDB_DOCTYPE_LANGUAGEDataTable + Get + Return Me.tableVWIDB_DOCTYPE_LANGUAGE + End Get + End Property + + _ + Public ReadOnly Property TBIDB_DOCTYPE() As TBIDB_DOCTYPEDataTable + Get + Return Me.tableTBIDB_DOCTYPE + End Get + End Property + _ + Private Function ShouldSerializeTBIDB_LANGUAGE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWIDB_DOCTYPE_LANGUAGE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBIDB_DOCTYPE() As Boolean + Return false + End Function + _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) @@ -675,6 +771,15 @@ Partial Public Class DSIDB_Stammdaten _ Public Delegate Sub TBIDB_CATALOG_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_CATALOG_USERRowChangeEvent) + _ + Public Delegate Sub TBIDB_LANGUAGERowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_LANGUAGERowChangeEvent) + + _ + Public Delegate Sub VWIDB_DOCTYPE_LANGUAGERowChangeEventHandler(ByVal sender As Object, ByVal e As VWIDB_DOCTYPE_LANGUAGERowChangeEvent) + + _ + Public Delegate Sub TBIDB_DOCTYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_DOCTYPERowChangeEvent) + ''' '''Represents the strongly named DataTable class. ''' @@ -5148,6 +5253,1049 @@ Partial Public Class DSIDB_Stammdaten End Function End Class + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBIDB_LANGUAGEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBIDB_LANGUAGERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnLANG_CODE As Global.System.Data.DataColumn + + Private columnCREATE_DEFAULT_ENTRY As Global.System.Data.DataColumn + + Private columnCOMMENT 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 + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBIDB_LANGUAGE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property LANG_CODEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLANG_CODE + End Get + End Property + + _ + Public ReadOnly Property CREATE_DEFAULT_ENTRYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCREATE_DEFAULT_ENTRY + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + 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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBIDB_LANGUAGERow + Get + Return CType(Me.Rows(index),TBIDB_LANGUAGERow) + End Get + End Property + + _ + Public Event TBIDB_LANGUAGERowChanging As TBIDB_LANGUAGERowChangeEventHandler + + _ + Public Event TBIDB_LANGUAGERowChanged As TBIDB_LANGUAGERowChangeEventHandler + + _ + Public Event TBIDB_LANGUAGERowDeleting As TBIDB_LANGUAGERowChangeEventHandler + + _ + Public Event TBIDB_LANGUAGERowDeleted As TBIDB_LANGUAGERowChangeEventHandler + + _ + Public Overloads Sub AddTBIDB_LANGUAGERow(ByVal row As TBIDB_LANGUAGERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBIDB_LANGUAGERow(ByVal GUID As Byte, ByVal LANG_CODE As String, ByVal CREATE_DEFAULT_ENTRY As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBIDB_LANGUAGERow + Dim rowTBIDB_LANGUAGERow As TBIDB_LANGUAGERow = CType(Me.NewRow,TBIDB_LANGUAGERow) + Dim columnValuesArray() As Object = New Object() {GUID, LANG_CODE, CREATE_DEFAULT_ENTRY, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBIDB_LANGUAGERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBIDB_LANGUAGERow) + Return rowTBIDB_LANGUAGERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Byte) As TBIDB_LANGUAGERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_LANGUAGERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBIDB_LANGUAGEDataTable = CType(MyBase.Clone,TBIDB_LANGUAGEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBIDB_LANGUAGEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnLANG_CODE = MyBase.Columns("LANG_CODE") + Me.columnCREATE_DEFAULT_ENTRY = MyBase.Columns("CREATE_DEFAULT_ENTRY") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + 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 + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnLANG_CODE = New Global.System.Data.DataColumn("LANG_CODE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLANG_CODE) + Me.columnCREATE_DEFAULT_ENTRY = New Global.System.Data.DataColumn("CREATE_DEFAULT_ENTRY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCREATE_DEFAULT_ENTRY) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + 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.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnLANG_CODE.AllowDBNull = false + Me.columnLANG_CODE.MaxLength = 10 + Me.columnCREATE_DEFAULT_ENTRY.AllowDBNull = false + Me.columnCOMMENT.MaxLength = 1000 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 30 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 30 + End Sub + + _ + Public Function NewTBIDB_LANGUAGERow() As TBIDB_LANGUAGERow + Return CType(Me.NewRow,TBIDB_LANGUAGERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBIDB_LANGUAGERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBIDB_LANGUAGERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBIDB_LANGUAGERowChangedEvent) Is Nothing) Then + RaiseEvent TBIDB_LANGUAGERowChanged(Me, New TBIDB_LANGUAGERowChangeEvent(CType(e.Row,TBIDB_LANGUAGERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBIDB_LANGUAGERowChangingEvent) Is Nothing) Then + RaiseEvent TBIDB_LANGUAGERowChanging(Me, New TBIDB_LANGUAGERowChangeEvent(CType(e.Row,TBIDB_LANGUAGERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBIDB_LANGUAGERowDeletedEvent) Is Nothing) Then + RaiseEvent TBIDB_LANGUAGERowDeleted(Me, New TBIDB_LANGUAGERowChangeEvent(CType(e.Row,TBIDB_LANGUAGERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBIDB_LANGUAGERowDeletingEvent) Is Nothing) Then + RaiseEvent TBIDB_LANGUAGERowDeleting(Me, New TBIDB_LANGUAGERowChangeEvent(CType(e.Row,TBIDB_LANGUAGERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBIDB_LANGUAGERow(ByVal row As TBIDB_LANGUAGERow) + 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 DSIDB_Stammdaten = New DSIDB_Stammdaten() + 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 = "TBIDB_LANGUAGEDataTable" + 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 VWIDB_DOCTYPE_LANGUAGEDataTable + Inherits Global.System.Data.TypedTableBase(Of VWIDB_DOCTYPE_LANGUAGERow) + + Private columnID As Global.System.Data.DataColumn + + Private columnSystemTitle As Global.System.Data.DataColumn + + Private columnDoctype As Global.System.Data.DataColumn + + Private columnLanguage As Global.System.Data.DataColumn + + Private columnAdded_When As Global.System.Data.DataColumn + + Private columnChanged_When As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWIDB_DOCTYPE_LANGUAGE" + 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 IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnID + End Get + End Property + + _ + Public ReadOnly Property SystemTitleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSystemTitle + End Get + End Property + + _ + Public ReadOnly Property DoctypeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDoctype + End Get + End Property + + _ + Public ReadOnly Property LanguageColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLanguage + 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_WhenColumn() As Global.System.Data.DataColumn + Get + Return Me.columnChanged_When + 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 VWIDB_DOCTYPE_LANGUAGERow + Get + Return CType(Me.Rows(index),VWIDB_DOCTYPE_LANGUAGERow) + End Get + End Property + + _ + Public Event VWIDB_DOCTYPE_LANGUAGERowChanging As VWIDB_DOCTYPE_LANGUAGERowChangeEventHandler + + _ + Public Event VWIDB_DOCTYPE_LANGUAGERowChanged As VWIDB_DOCTYPE_LANGUAGERowChangeEventHandler + + _ + Public Event VWIDB_DOCTYPE_LANGUAGERowDeleting As VWIDB_DOCTYPE_LANGUAGERowChangeEventHandler + + _ + Public Event VWIDB_DOCTYPE_LANGUAGERowDeleted As VWIDB_DOCTYPE_LANGUAGERowChangeEventHandler + + _ + Public Overloads Sub AddVWIDB_DOCTYPE_LANGUAGERow(ByVal row As VWIDB_DOCTYPE_LANGUAGERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWIDB_DOCTYPE_LANGUAGERow(ByVal ID As Long, ByVal SystemTitle As String, ByVal Doctype As String, ByVal Language As String, ByVal Added_When As Date, ByVal Changed_When As Date) As VWIDB_DOCTYPE_LANGUAGERow + Dim rowVWIDB_DOCTYPE_LANGUAGERow As VWIDB_DOCTYPE_LANGUAGERow = CType(Me.NewRow,VWIDB_DOCTYPE_LANGUAGERow) + Dim columnValuesArray() As Object = New Object() {ID, SystemTitle, Doctype, Language, Added_When, Changed_When} + rowVWIDB_DOCTYPE_LANGUAGERow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWIDB_DOCTYPE_LANGUAGERow) + Return rowVWIDB_DOCTYPE_LANGUAGERow + End Function + + _ + Public Function FindByID(ByVal ID As Long) As VWIDB_DOCTYPE_LANGUAGERow + Return CType(Me.Rows.Find(New Object() {ID}),VWIDB_DOCTYPE_LANGUAGERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWIDB_DOCTYPE_LANGUAGEDataTable = CType(MyBase.Clone,VWIDB_DOCTYPE_LANGUAGEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWIDB_DOCTYPE_LANGUAGEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnID = MyBase.Columns("ID") + Me.columnSystemTitle = MyBase.Columns("SystemTitle") + Me.columnDoctype = MyBase.Columns("Doctype") + Me.columnLanguage = MyBase.Columns("Language") + Me.columnAdded_When = MyBase.Columns("Added When") + Me.columnChanged_When = MyBase.Columns("Changed When") + End Sub + + _ + Private Sub InitClass() + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnSystemTitle = New Global.System.Data.DataColumn("SystemTitle", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSystemTitle) + Me.columnDoctype = New Global.System.Data.DataColumn("Doctype", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDoctype) + Me.columnLanguage = New Global.System.Data.DataColumn("Language", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLanguage) + 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_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.columnID}, true)) + Me.columnID.AllowDBNull = false + Me.columnID.Unique = true + Me.columnSystemTitle.AllowDBNull = false + Me.columnSystemTitle.MaxLength = 100 + Me.columnDoctype.AllowDBNull = false + Me.columnDoctype.MaxLength = 900 + Me.columnLanguage.AllowDBNull = false + Me.columnLanguage.MaxLength = 10 + Me.columnAdded_When.AllowDBNull = false + End Sub + + _ + Public Function NewVWIDB_DOCTYPE_LANGUAGERow() As VWIDB_DOCTYPE_LANGUAGERow + Return CType(Me.NewRow,VWIDB_DOCTYPE_LANGUAGERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWIDB_DOCTYPE_LANGUAGERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWIDB_DOCTYPE_LANGUAGERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWIDB_DOCTYPE_LANGUAGERowChangedEvent) Is Nothing) Then + RaiseEvent VWIDB_DOCTYPE_LANGUAGERowChanged(Me, New VWIDB_DOCTYPE_LANGUAGERowChangeEvent(CType(e.Row,VWIDB_DOCTYPE_LANGUAGERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWIDB_DOCTYPE_LANGUAGERowChangingEvent) Is Nothing) Then + RaiseEvent VWIDB_DOCTYPE_LANGUAGERowChanging(Me, New VWIDB_DOCTYPE_LANGUAGERowChangeEvent(CType(e.Row,VWIDB_DOCTYPE_LANGUAGERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWIDB_DOCTYPE_LANGUAGERowDeletedEvent) Is Nothing) Then + RaiseEvent VWIDB_DOCTYPE_LANGUAGERowDeleted(Me, New VWIDB_DOCTYPE_LANGUAGERowChangeEvent(CType(e.Row,VWIDB_DOCTYPE_LANGUAGERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWIDB_DOCTYPE_LANGUAGERowDeletingEvent) Is Nothing) Then + RaiseEvent VWIDB_DOCTYPE_LANGUAGERowDeleting(Me, New VWIDB_DOCTYPE_LANGUAGERowChangeEvent(CType(e.Row,VWIDB_DOCTYPE_LANGUAGERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWIDB_DOCTYPE_LANGUAGERow(ByVal row As VWIDB_DOCTYPE_LANGUAGERow) + 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 DSIDB_Stammdaten = New DSIDB_Stammdaten() + 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 = "VWIDB_DOCTYPE_LANGUAGEDataTable" + 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 TBIDB_DOCTYPEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBIDB_DOCTYPERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnTITLE As Global.System.Data.DataColumn + + Private columnCOMMENT 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 + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBIDB_DOCTYPE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTITLE + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + 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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBIDB_DOCTYPERow + Get + Return CType(Me.Rows(index),TBIDB_DOCTYPERow) + End Get + End Property + + _ + Public Event TBIDB_DOCTYPERowChanging As TBIDB_DOCTYPERowChangeEventHandler + + _ + Public Event TBIDB_DOCTYPERowChanged As TBIDB_DOCTYPERowChangeEventHandler + + _ + Public Event TBIDB_DOCTYPERowDeleting As TBIDB_DOCTYPERowChangeEventHandler + + _ + Public Event TBIDB_DOCTYPERowDeleted As TBIDB_DOCTYPERowChangeEventHandler + + _ + Public Overloads Sub AddTBIDB_DOCTYPERow(ByVal row As TBIDB_DOCTYPERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBIDB_DOCTYPERow(ByVal TITLE As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBIDB_DOCTYPERow + Dim rowTBIDB_DOCTYPERow As TBIDB_DOCTYPERow = CType(Me.NewRow,TBIDB_DOCTYPERow) + Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBIDB_DOCTYPERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBIDB_DOCTYPERow) + Return rowTBIDB_DOCTYPERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Long) As TBIDB_DOCTYPERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_DOCTYPERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBIDB_DOCTYPEDataTable = CType(MyBase.Clone,TBIDB_DOCTYPEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBIDB_DOCTYPEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnTITLE = MyBase.Columns("TITLE") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + 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 + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + 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.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 100 + Me.columnCOMMENT.MaxLength = 500 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 100 + Me.columnCHANGED_WHO.MaxLength = 100 + End Sub + + _ + Public Function NewTBIDB_DOCTYPERow() As TBIDB_DOCTYPERow + Return CType(Me.NewRow,TBIDB_DOCTYPERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBIDB_DOCTYPERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBIDB_DOCTYPERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBIDB_DOCTYPERowChangedEvent) Is Nothing) Then + RaiseEvent TBIDB_DOCTYPERowChanged(Me, New TBIDB_DOCTYPERowChangeEvent(CType(e.Row,TBIDB_DOCTYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBIDB_DOCTYPERowChangingEvent) Is Nothing) Then + RaiseEvent TBIDB_DOCTYPERowChanging(Me, New TBIDB_DOCTYPERowChangeEvent(CType(e.Row,TBIDB_DOCTYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBIDB_DOCTYPERowDeletedEvent) Is Nothing) Then + RaiseEvent TBIDB_DOCTYPERowDeleted(Me, New TBIDB_DOCTYPERowChangeEvent(CType(e.Row,TBIDB_DOCTYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBIDB_DOCTYPERowDeletingEvent) Is Nothing) Then + RaiseEvent TBIDB_DOCTYPERowDeleting(Me, New TBIDB_DOCTYPERowChangeEvent(CType(e.Row,TBIDB_DOCTYPERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBIDB_DOCTYPERow(ByVal row As TBIDB_DOCTYPERow) + 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 DSIDB_Stammdaten = New DSIDB_Stammdaten() + 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 = "TBIDB_DOCTYPEDataTable" + 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. ''' @@ -7267,6 +8415,413 @@ Partial Public Class DSIDB_Stammdaten End Property End Class + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBIDB_LANGUAGERow + Inherits Global.System.Data.DataRow + + Private tableTBIDB_LANGUAGE As TBIDB_LANGUAGEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIDB_LANGUAGE = CType(Me.Table,TBIDB_LANGUAGEDataTable) + End Sub + + _ + Public Property GUID() As Byte + Get + Return CType(Me(Me.tableTBIDB_LANGUAGE.GUIDColumn),Byte) + End Get + Set + Me(Me.tableTBIDB_LANGUAGE.GUIDColumn) = value + End Set + End Property + + _ + Public Property LANG_CODE() As String + Get + Return CType(Me(Me.tableTBIDB_LANGUAGE.LANG_CODEColumn),String) + End Get + Set + Me(Me.tableTBIDB_LANGUAGE.LANG_CODEColumn) = value + End Set + End Property + + _ + Public Property CREATE_DEFAULT_ENTRY() As Boolean + Get + Return CType(Me(Me.tableTBIDB_LANGUAGE.CREATE_DEFAULT_ENTRYColumn),Boolean) + End Get + Set + Me(Me.tableTBIDB_LANGUAGE.CREATE_DEFAULT_ENTRYColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBIDB_LANGUAGE.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_LANGUAGE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_LANGUAGE.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBIDB_LANGUAGE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBIDB_LANGUAGE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBIDB_LANGUAGE.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBIDB_LANGUAGE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBIDB_LANGUAGE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_LANGUAGE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_LANGUAGE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_LANGUAGE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_LANGUAGE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_LANGUAGE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_LANGUAGE.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBIDB_LANGUAGE.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_LANGUAGE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBIDB_LANGUAGE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_LANGUAGE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBIDB_LANGUAGE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWIDB_DOCTYPE_LANGUAGERow + Inherits Global.System.Data.DataRow + + Private tableVWIDB_DOCTYPE_LANGUAGE As VWIDB_DOCTYPE_LANGUAGEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWIDB_DOCTYPE_LANGUAGE = CType(Me.Table,VWIDB_DOCTYPE_LANGUAGEDataTable) + End Sub + + _ + Public Property ID() As Long + Get + Return CType(Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.IDColumn),Long) + End Get + Set + Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.IDColumn) = value + End Set + End Property + + _ + Public Property SystemTitle() As String + Get + Return CType(Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.SystemTitleColumn),String) + End Get + Set + Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.SystemTitleColumn) = value + End Set + End Property + + _ + Public Property Doctype() As String + Get + Return CType(Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.DoctypeColumn),String) + End Get + Set + Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.DoctypeColumn) = value + End Set + End Property + + _ + Public Property Language() As String + Get + Return CType(Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.LanguageColumn),String) + End Get + Set + Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.LanguageColumn) = value + End Set + End Property + + _ + Public Property Added_When() As Date + Get + Return CType(Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.Added_WhenColumn),Date) + End Get + Set + Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.Added_WhenColumn) = value + End Set + End Property + + _ + Public Property Changed_When() As Date + Get + Try + Return CType(Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.Changed_WhenColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Changed When in Tabelle VWIDB_DOCTYPE_LANGUAGE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.Changed_WhenColumn) = value + End Set + End Property + + _ + Public Function IsChanged_WhenNull() As Boolean + Return Me.IsNull(Me.tableVWIDB_DOCTYPE_LANGUAGE.Changed_WhenColumn) + End Function + + _ + Public Sub SetChanged_WhenNull() + Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.Changed_WhenColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBIDB_DOCTYPERow + Inherits Global.System.Data.DataRow + + Private tableTBIDB_DOCTYPE As TBIDB_DOCTYPEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIDB_DOCTYPE = CType(Me.Table,TBIDB_DOCTYPEDataTable) + End Sub + + _ + Public Property GUID() As Long + Get + Return CType(Me(Me.tableTBIDB_DOCTYPE.GUIDColumn),Long) + End Get + Set + Me(Me.tableTBIDB_DOCTYPE.GUIDColumn) = value + End Set + End Property + + _ + Public Property TITLE() As String + Get + Return CType(Me(Me.tableTBIDB_DOCTYPE.TITLEColumn),String) + End Get + Set + Me(Me.tableTBIDB_DOCTYPE.TITLEColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBIDB_DOCTYPE.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_DOCTYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_DOCTYPE.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBIDB_DOCTYPE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBIDB_DOCTYPE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_DOCTYPE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_DOCTYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_DOCTYPE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBIDB_DOCTYPE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_DOCTYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_DOCTYPE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_DOCTYPE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_DOCTYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_DOCTYPE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_DOCTYPE.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBIDB_DOCTYPE.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_DOCTYPE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBIDB_DOCTYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_DOCTYPE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBIDB_DOCTYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_DOCTYPE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBIDB_DOCTYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + ''' '''Row event argument class ''' @@ -7698,6 +9253,114 @@ Partial Public Class DSIDB_Stammdaten End Get End Property End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBIDB_LANGUAGERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIDB_LANGUAGERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBIDB_LANGUAGERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBIDB_LANGUAGERow + 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 VWIDB_DOCTYPE_LANGUAGERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWIDB_DOCTYPE_LANGUAGERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWIDB_DOCTYPE_LANGUAGERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWIDB_DOCTYPE_LANGUAGERow + 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 TBIDB_DOCTYPERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIDB_DOCTYPERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBIDB_DOCTYPERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBIDB_DOCTYPERow + 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 DSIDB_StammdatenTableAdapters @@ -11503,6 +13166,1150 @@ Namespace DSIDB_StammdatenTableAdapters End Function End Class + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIDB_LANGUAGETableAdapter + 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 = "TBIDB_LANGUAGE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("LANG_CODE", "LANG_CODE") + tableMapping.ColumnMappings.Add("CREATE_DEFAULT_ENTRY", "CREATE_DEFAULT_ENTRY") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + 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 [TBIDB_LANGUAGE] WHERE (([GUID] = @Original_GUID) AND ([LANG_CODE] = "& _ + "@Original_LANG_CODE) AND ([CREATE_DEFAULT_ENTRY] = @Original_CREATE_DEFAULT_ENTR"& _ + "Y) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_CO"& _ + "MMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_AD"& _ + "DED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_"& _ + "WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN]"& _ + " IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + 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.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANG_CODE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_CODE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CREATE_DEFAULT_ENTRY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CREATE_DEFAULT_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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 [TBIDB_LANGUAGE] ([LANG_CODE], [CREATE_DEFAULT_ENTRY], [COMMENT], [AD"& _ + "DED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@LANG_CODE, @CREA"& _ + "TE_DEFAULT_ENTRY, @COMMENT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN"& _ + ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LANG_CODE, CREATE_DEFAULT_ENTRY, COMMENT, ADDED_WHO, ADDED_WHEN"& _ + ", CHANGED_WHO, CHANGED_WHEN FROM TBIDB_LANGUAGE WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANG_CODE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_CODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CREATE_DEFAULT_ENTRY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CREATE_DEFAULT_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, 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("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, 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("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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 [TBIDB_LANGUAGE] SET [LANG_CODE] = @LANG_CODE, [CREATE_DEFAULT_ENTRY] = @C"& _ + "REATE_DEFAULT_ENTRY, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN"& _ + "] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WH"& _ + "ERE (([GUID] = @Original_GUID) AND ([LANG_CODE] = @Original_LANG_CODE) AND ([CRE"& _ + "ATE_DEFAULT_ENTRY] = @Original_CREATE_DEFAULT_ENTRY) AND ((@IsNull_COMMENT = 1 A"& _ + "ND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ADDED_WHO] = @Or"& _ + "iginal_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGE"& _ + "D_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO))"& _ + " AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] ="& _ + " @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LANG_CODE, CREATE_DEFAULT_ENTRY, COMME"& _ + "NT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_LANGUAGE WHERE ("& _ + "GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANG_CODE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_CODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CREATE_DEFAULT_ENTRY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CREATE_DEFAULT_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, 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("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", 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, 0, 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("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 0, 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("@Original_LANG_CODE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_CODE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CREATE_DEFAULT_ENTRY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CREATE_DEFAULT_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBIDB_LANGUAGE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_LANGUAGE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_LANGUAGEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + 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() As DSIDB_Stammdaten.TBIDB_LANGUAGEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSIDB_Stammdaten.TBIDB_LANGUAGEDataTable = New DSIDB_Stammdaten.TBIDB_LANGUAGEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_LANGUAGEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBIDB_LANGUAGE") + 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 Byte, ByVal Original_LANG_CODE As String, ByVal Original_CREATE_DEFAULT_ENTRY As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) + If (Original_LANG_CODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LANG_CODE") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_LANG_CODE,String) + End If + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CREATE_DEFAULT_ENTRY,Boolean) + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_COMMENT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + 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 LANG_CODE As String, ByVal CREATE_DEFAULT_ENTRY As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (LANG_CODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANG_CODE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(LANG_CODE,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(CREATE_DEFAULT_ENTRY,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + 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 LANG_CODE As String, _ + ByVal CREATE_DEFAULT_ENTRY As Boolean, _ + ByVal COMMENT As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Byte, _ + ByVal Original_LANG_CODE As String, _ + ByVal Original_CREATE_DEFAULT_ENTRY As Boolean, _ + ByVal Original_COMMENT As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Byte) As Integer + If (LANG_CODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANG_CODE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LANG_CODE,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CREATE_DEFAULT_ENTRY,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Byte) + If (Original_LANG_CODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LANG_CODE") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_LANG_CODE,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_CREATE_DEFAULT_ENTRY,Boolean) + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_COMMENT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(GUID,Byte) + 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 + + _ + Public Overloads Overridable Function Update(ByVal LANG_CODE As String, ByVal CREATE_DEFAULT_ENTRY As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Byte, ByVal Original_LANG_CODE As String, ByVal Original_CREATE_DEFAULT_ENTRY As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(LANG_CODE, CREATE_DEFAULT_ENTRY, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_LANG_CODE, Original_CREATE_DEFAULT_ENTRY, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWIDB_DOCTYPE_LANGUAGETableAdapter + 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 = "VWIDB_DOCTYPE_LANGUAGE" + tableMapping.ColumnMappings.Add("ID", "ID") + tableMapping.ColumnMappings.Add("SystemTitle", "SystemTitle") + tableMapping.ColumnMappings.Add("Doctype", "Doctype") + tableMapping.ColumnMappings.Add("Language", "Language") + tableMapping.ColumnMappings.Add("Added When", "Added When") + tableMapping.ColumnMappings.Add("Changed When", "Changed When") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT ID, SYS_TITLE AS SystemTitle, Doctype, LANG_CODE AS Language, ADDED"& _ + "_WHEN AS [Added When], CHANGED_WHEN AS [Changed When]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_DOC"& _ + "TYPE_LANGUAGE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + 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() As DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGEDataTable = New DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIDB_DOCTYPETableAdapter + 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 = "TBIDB_DOCTYPE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + 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 [TBIDB_DOCTYPE] WHERE (([GUID] = @Original_GUID) AND ([TITLE] = @Orig"& _ + "inal_TITLE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Or"& _ + "iginal_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHE"& _ + "N = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (("& _ + "@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original"& _ + "_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([C"& _ + "HANGED_WHEN] = @Original_CHANGED_WHEN)))" + 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.BigInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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 [TBIDB_DOCTYPE] ([TITLE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHAN"& _ + "GED_WHO], [CHANGED_WHEN]) VALUES (@TITLE, @COMMENT, @ADDED_WHO, @ADDED_WHEN, @CH"& _ + "ANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, "& _ + "CHANGED_WHO, CHANGED_WHEN FROM TBIDB_DOCTYPE WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, 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("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, 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("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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 [TBIDB_DOCTYPE] SET [TITLE] = @TITLE, [COMMENT] = @COMMENT, [ADDED_WHO] = "& _ + "@ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_W"& _ + "HEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([TITLE] = @Original_T"& _ + "ITLE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original"& _ + "_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 "& _ + "AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNul"& _ + "l_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANG"& _ + "ED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED"& _ + "_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADD"& _ + "ED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_DOCTYPE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, 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("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", 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, 0, 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("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.BigInt, 0, 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("@Original_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.BigInt, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBIDB_DOCTYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_DOCTYPE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_DOCTYPEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + 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() As DSIDB_Stammdaten.TBIDB_DOCTYPEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSIDB_Stammdaten.TBIDB_DOCTYPEDataTable = New DSIDB_Stammdaten.TBIDB_DOCTYPEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_DOCTYPEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBIDB_DOCTYPE") + 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 Long, ByVal Original_TITLE As String, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Long) + If (Original_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TITLE") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_TITLE,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_COMMENT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + 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 TITLE As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + 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 TITLE As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Long, ByVal Original_TITLE As String, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Long) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Long) + If (Original_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_TITLE,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_COMMENT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(GUID,Long) + 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 + + _ + Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Long, ByVal Original_TITLE As String, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_TITLE, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' @@ -11534,6 +14341,10 @@ Namespace DSIDB_StammdatenTableAdapters Private _tBIDB_CATALOG_USERTableAdapter As TBIDB_CATALOG_USERTableAdapter + Private _tBIDB_LANGUAGETableAdapter As TBIDB_LANGUAGETableAdapter + + Private _tBIDB_DOCTYPETableAdapter As TBIDB_DOCTYPETableAdapter + Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection @@ -11675,6 +14486,34 @@ Namespace DSIDB_StammdatenTableAdapters End Set End Property + _ + Public Property TBIDB_LANGUAGETableAdapter() As TBIDB_LANGUAGETableAdapter + Get + Return Me._tBIDB_LANGUAGETableAdapter + End Get + Set + Me._tBIDB_LANGUAGETableAdapter = value + End Set + End Property + + _ + Public Property TBIDB_DOCTYPETableAdapter() As TBIDB_DOCTYPETableAdapter + Get + Return Me._tBIDB_DOCTYPETableAdapter + End Get + Set + Me._tBIDB_DOCTYPETableAdapter = value + End Set + End Property + _ Public Property BackupDataSetBeforeUpdate() As Boolean @@ -11730,6 +14569,14 @@ Namespace DSIDB_StammdatenTableAdapters AndAlso (Not (Me._tBIDB_CATALOG_USERTableAdapter.Connection) Is Nothing)) Then Return Me._tBIDB_CATALOG_USERTableAdapter.Connection End If + If ((Not (Me._tBIDB_LANGUAGETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBIDB_LANGUAGETableAdapter.Connection) Is Nothing)) Then + Return Me._tBIDB_LANGUAGETableAdapter.Connection + End If + If ((Not (Me._tBIDB_DOCTYPETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBIDB_DOCTYPETableAdapter.Connection) Is Nothing)) Then + Return Me._tBIDB_DOCTYPETableAdapter.Connection + End If Return Nothing End Get Set @@ -11770,6 +14617,12 @@ Namespace DSIDB_StammdatenTableAdapters If (Not (Me._tBIDB_CATALOG_USERTableAdapter) Is Nothing) Then count = (count + 1) End If + If (Not (Me._tBIDB_LANGUAGETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBIDB_DOCTYPETableAdapter) Is Nothing) Then + count = (count + 1) + End If Return count End Get End Property @@ -11862,6 +14715,24 @@ Namespace DSIDB_StammdatenTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBIDB_LANGUAGETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_LANGUAGE.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._tBIDB_LANGUAGETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBIDB_DOCTYPETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_DOCTYPE.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._tBIDB_DOCTYPETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If Return result End Function @@ -11944,6 +14815,22 @@ Namespace DSIDB_StammdatenTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBIDB_LANGUAGETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_LANGUAGE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBIDB_LANGUAGETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBIDB_DOCTYPETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_DOCTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBIDB_DOCTYPETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If Return result End Function @@ -11954,6 +14841,22 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DSIDB_Stammdaten, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 + If (Not (Me._tBIDB_DOCTYPETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_DOCTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBIDB_DOCTYPETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBIDB_LANGUAGETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_LANGUAGE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBIDB_LANGUAGETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBIDB_CATALOG_USERTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_CATALOG_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -12112,6 +15015,16 @@ Namespace DSIDB_StammdatenTableAdapters 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._tBIDB_LANGUAGETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_LANGUAGETableAdapter.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._tBIDB_DOCTYPETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_DOCTYPETableAdapter.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"& _ @@ -12227,6 +15140,24 @@ Namespace DSIDB_StammdatenTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_CATALOG_USERTableAdapter.Adapter) End If End If + If (Not (Me._tBIDB_LANGUAGETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBIDB_LANGUAGETableAdapter, Me._tBIDB_LANGUAGETableAdapter.Connection) + Me._tBIDB_LANGUAGETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_LANGUAGETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBIDB_LANGUAGETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBIDB_LANGUAGETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_LANGUAGETableAdapter.Adapter) + End If + End If + If (Not (Me._tBIDB_DOCTYPETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBIDB_DOCTYPETableAdapter, Me._tBIDB_DOCTYPETableAdapter.Connection) + Me._tBIDB_DOCTYPETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_DOCTYPETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBIDB_DOCTYPETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBIDB_DOCTYPETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_DOCTYPETableAdapter.Adapter) + End If + End If ' '---- Perform updates ----------- ' @@ -12323,6 +15254,14 @@ Namespace DSIDB_StammdatenTableAdapters Me._tBIDB_CATALOG_USERTableAdapter.Connection = CType(revertConnections(Me._tBIDB_CATALOG_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBIDB_CATALOG_USERTableAdapter.Transaction = Nothing End If + If (Not (Me._tBIDB_LANGUAGETableAdapter) Is Nothing) Then + Me._tBIDB_LANGUAGETableAdapter.Connection = CType(revertConnections(Me._tBIDB_LANGUAGETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_LANGUAGETableAdapter.Transaction = Nothing + End If + If (Not (Me._tBIDB_DOCTYPETableAdapter) Is Nothing) Then + Me._tBIDB_DOCTYPETableAdapter.Connection = CType(revertConnections(Me._tBIDB_DOCTYPETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_DOCTYPETableAdapter.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/DSIDB_Stammdaten.xsc b/GUIs.ZooFlow/DSIDB_Stammdaten.xsc index a99687e5..f103d8cb 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.xsc +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xsc @@ -39,5 +39,25 @@ + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.xsd b/GUIs.ZooFlow/DSIDB_Stammdaten.xsd index 206c4e6d..d3645242 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.xsd +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xsd @@ -738,6 +738,193 @@ SELECT GUID, CAT_TITLE, CAT_STRING FROM TBIDB_CATALOG_USER WHERE (GUID = @GUID)< + + + + + + DELETE FROM [TBIDB_LANGUAGE] WHERE (([GUID] = @Original_GUID) AND ([LANG_CODE] = @Original_LANG_CODE) AND ([CREATE_DEFAULT_ENTRY] = @Original_CREATE_DEFAULT_ENTRY) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + INSERT INTO [TBIDB_LANGUAGE] ([LANG_CODE], [CREATE_DEFAULT_ENTRY], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@LANG_CODE, @CREATE_DEFAULT_ENTRY, @COMMENT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, LANG_CODE, CREATE_DEFAULT_ENTRY, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_LANGUAGE WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + SELECT TBIDB_LANGUAGE.* +FROM TBIDB_LANGUAGE + + + + + + UPDATE [TBIDB_LANGUAGE] SET [LANG_CODE] = @LANG_CODE, [CREATE_DEFAULT_ENTRY] = @CREATE_DEFAULT_ENTRY, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([LANG_CODE] = @Original_LANG_CODE) AND ([CREATE_DEFAULT_ENTRY] = @Original_CREATE_DEFAULT_ENTRY) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, LANG_CODE, CREATE_DEFAULT_ENTRY, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_LANGUAGE WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT ID, SYS_TITLE AS SystemTitle, Doctype, LANG_CODE AS Language, ADDED_WHEN AS [Added When], CHANGED_WHEN AS [Changed When] +FROM VWIDB_DOCTYPE_LANGUAGE + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBIDB_DOCTYPE] WHERE (([GUID] = @Original_GUID) AND ([TITLE] = @Original_TITLE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + INSERT INTO [TBIDB_DOCTYPE] ([TITLE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@TITLE, @COMMENT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_DOCTYPE WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + SELECT TBIDB_DOCTYPE.* +FROM TBIDB_DOCTYPE + + + + + + UPDATE [TBIDB_DOCTYPE] SET [TITLE] = @TITLE, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([TITLE] = @Original_TITLE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_DOCTYPE WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -746,7 +933,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING FROM TBIDB_CATALOG_USER WHERE (GUID = @GUID)< - + @@ -785,7 +972,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING FROM TBIDB_CATALOG_USER WHERE (GUID = @GUID)< - + @@ -844,7 +1031,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING FROM TBIDB_CATALOG_USER WHERE (GUID = @GUID)< - + @@ -901,7 +1088,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING FROM TBIDB_CATALOG_USER WHERE (GUID = @GUID)< - + @@ -942,7 +1129,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING FROM TBIDB_CATALOG_USER WHERE (GUID = @GUID)< - + @@ -1001,7 +1188,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING FROM TBIDB_CATALOG_USER WHERE (GUID = @GUID)< - + @@ -1054,7 +1241,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING FROM TBIDB_CATALOG_USER WHERE (GUID = @GUID)< - + @@ -1091,7 +1278,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING FROM TBIDB_CATALOG_USER WHERE (GUID = @GUID)< - + @@ -1105,7 +1292,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING FROM TBIDB_CATALOG_USER WHERE (GUID = @GUID)< - + @@ -1143,7 +1330,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING FROM TBIDB_CATALOG_USER WHERE (GUID = @GUID)< - + @@ -1156,7 +1343,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING FROM TBIDB_CATALOG_USER WHERE (GUID = @GUID)< - + @@ -1195,7 +1382,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING FROM TBIDB_CATALOG_USER WHERE (GUID = @GUID)< - + @@ -1216,6 +1403,111 @@ SELECT GUID, CAT_TITLE, CAT_STRING FROM TBIDB_CATALOG_USER WHERE (GUID = @GUID)< + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -1258,12 +1550,24 @@ SELECT GUID, CAT_TITLE, CAT_STRING FROM TBIDB_CATALOG_USER WHERE (GUID = @GUID)< + + + + + + + + + + + + - - - + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.xss b/GUIs.ZooFlow/DSIDB_Stammdaten.xss index a488d767..9a16153f 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.xss +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xss @@ -4,23 +4,25 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - + + + + + + + + + + + + + + - + 677 @@ -32,7 +34,7 @@ - + 896 @@ -44,7 +46,7 @@ - + 913 diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb index d428938a..e7cf3ce3 100644 --- a/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb @@ -761,6 +761,7 @@ Public Class frmGlobix_Index Dim oObjectStore As String = SelectedDocType.ObjectStore Dim oObjectKind As String = "DOC" Dim oBusinessEntity As String = "DEFAULT" + sd Dim oProfileId As Integer = SelectedDocType.Guid Dim oAttributes As List(Of UserAttributeValue) = oValues Dim oOptions As New Options.ImportFileOptions diff --git a/GUIs.ZooFlow/ZooFlow.vbproj b/GUIs.ZooFlow/ZooFlow.vbproj index ae5953bc..baed3d0a 100644 --- a/GUIs.ZooFlow/ZooFlow.vbproj +++ b/GUIs.ZooFlow/ZooFlow.vbproj @@ -157,6 +157,12 @@ + + frmAdmin_Doctype.vb + + + Form + frmAdmin_DoctypeConfig.vb @@ -405,6 +411,9 @@ frmAdmin_ClipboardWatcher.vb + + frmAdmin_Doctype.vb + frmAdmin_DoctypeConfig.vb diff --git a/GUIs.ZooFlow/frmConfigBasic.Designer.vb b/GUIs.ZooFlow/frmConfigBasic.Designer.vb index fc3b3375..0efc3b77 100644 --- a/GUIs.ZooFlow/frmConfigBasic.Designer.vb +++ b/GUIs.ZooFlow/frmConfigBasic.Designer.vb @@ -36,26 +36,27 @@ Partial Class frmConfigBasic Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.ToggleSwitchDebug = New DevExpress.XtraEditors.ToggleSwitch() Me.Quicksearch1CB_Pos = New DevExpress.XtraEditors.ComboBoxEdit() Me.Quicksearch1TitleTextBox = New DevExpress.XtraEditors.TextEdit() - Me.CheckButtonDEBUG = New DevExpress.XtraEditors.CheckButton() Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() - Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.LayoutControl1.SuspendLayout() + CType(Me.ToggleSwitchDebug.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Quicksearch1CB_Pos.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Quicksearch1TitleTextBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'RibbonControl1 @@ -146,9 +147,9 @@ Partial Class frmConfigBasic ' 'LayoutControl1 ' + Me.LayoutControl1.Controls.Add(Me.ToggleSwitchDebug) Me.LayoutControl1.Controls.Add(Me.Quicksearch1CB_Pos) Me.LayoutControl1.Controls.Add(Me.Quicksearch1TitleTextBox) - Me.LayoutControl1.Controls.Add(Me.CheckButtonDEBUG) Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.LayoutControl1.Location = New System.Drawing.Point(0, 158) Me.LayoutControl1.Name = "LayoutControl1" @@ -158,9 +159,20 @@ Partial Class frmConfigBasic Me.LayoutControl1.TabIndex = 2 Me.LayoutControl1.Text = "LayoutControl1" ' + 'ToggleSwitchDebug + ' + Me.ToggleSwitchDebug.Location = New System.Drawing.Point(12, 12) + Me.ToggleSwitchDebug.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchDebug.Name = "ToggleSwitchDebug" + Me.ToggleSwitchDebug.Properties.OffText = "DEBUG not active" + Me.ToggleSwitchDebug.Properties.OnText = "DEBUG is active" + Me.ToggleSwitchDebug.Size = New System.Drawing.Size(536, 19) + Me.ToggleSwitchDebug.StyleController = Me.LayoutControl1 + Me.ToggleSwitchDebug.TabIndex = 8 + ' 'Quicksearch1CB_Pos ' - Me.Quicksearch1CB_Pos.Location = New System.Drawing.Point(181, 114) + Me.Quicksearch1CB_Pos.Location = New System.Drawing.Point(181, 101) Me.Quicksearch1CB_Pos.MenuManager = Me.RibbonControl1 Me.Quicksearch1CB_Pos.Name = "Quicksearch1CB_Pos" Me.Quicksearch1CB_Pos.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) @@ -171,40 +183,38 @@ Partial Class frmConfigBasic ' 'Quicksearch1TitleTextBox ' - Me.Quicksearch1TitleTextBox.Location = New System.Drawing.Point(181, 84) + Me.Quicksearch1TitleTextBox.Location = New System.Drawing.Point(181, 71) Me.Quicksearch1TitleTextBox.MenuManager = Me.RibbonControl1 Me.Quicksearch1TitleTextBox.Name = "Quicksearch1TitleTextBox" Me.Quicksearch1TitleTextBox.Size = New System.Drawing.Size(592, 20) Me.Quicksearch1TitleTextBox.StyleController = Me.LayoutControl1 Me.Quicksearch1TitleTextBox.TabIndex = 6 ' - 'CheckButtonDEBUG - ' - Me.CheckButtonDEBUG.Location = New System.Drawing.Point(12, 12) - Me.CheckButtonDEBUG.Name = "CheckButtonDEBUG" - Me.CheckButtonDEBUG.Padding = New System.Windows.Forms.Padding(5) - Me.CheckButtonDEBUG.Size = New System.Drawing.Size(386, 32) - Me.CheckButtonDEBUG.StyleController = Me.LayoutControl1 - Me.CheckButtonDEBUG.TabIndex = 5 - Me.CheckButtonDEBUG.Text = "DEBUG not active" - ' 'Root ' Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.Root.GroupBordersVisible = False - Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2, Me.EmptySpaceItem1, Me.LayoutControlGroup1}) + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.EmptySpaceItem1, Me.LayoutControlGroup1, Me.LayoutControlItem4}) Me.Root.Name = "Root" Me.Root.Size = New System.Drawing.Size(800, 268) Me.Root.TextVisible = False ' - 'LayoutControlItem2 + 'EmptySpaceItem1 ' - Me.LayoutControlItem2.Control = Me.CheckButtonDEBUG - Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0) - Me.LayoutControlItem2.Name = "LayoutControlItem2" - Me.LayoutControlItem2.Size = New System.Drawing.Size(390, 36) - Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem2.TextVisible = False + Me.EmptySpaceItem1.AllowHotTrack = False + Me.EmptySpaceItem1.Location = New System.Drawing.Point(540, 0) + Me.EmptySpaceItem1.Name = "EmptySpaceItem1" + Me.EmptySpaceItem1.Size = New System.Drawing.Size(240, 23) + Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlGroup1 + ' + Me.LayoutControlGroup1.CustomizationFormText = "Schnellsuche 1" + Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem3}) + Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 23) + Me.LayoutControlGroup1.Name = "LayoutControlGroup1" + Me.LayoutControlGroup1.Size = New System.Drawing.Size(780, 225) + Me.LayoutControlGroup1.Text = "Konfiguration Schnellsuche 1" ' 'LayoutControlItem1 ' @@ -222,26 +232,20 @@ Partial Class frmConfigBasic Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 30) Me.LayoutControlItem3.Name = "LayoutControlItem3" Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem3.Size = New System.Drawing.Size(756, 137) + Me.LayoutControlItem3.Size = New System.Drawing.Size(756, 150) Me.LayoutControlItem3.Text = "Docking der Schnellsuche 1" Me.LayoutControlItem3.TextSize = New System.Drawing.Size(142, 13) ' - 'EmptySpaceItem1 + 'LayoutControlItem4 ' - Me.EmptySpaceItem1.AllowHotTrack = False - Me.EmptySpaceItem1.Location = New System.Drawing.Point(390, 0) - Me.EmptySpaceItem1.Name = "EmptySpaceItem1" - Me.EmptySpaceItem1.Size = New System.Drawing.Size(390, 36) - Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) - ' - 'LayoutControlGroup1 - ' - Me.LayoutControlGroup1.CustomizationFormText = "Schnellsuche 1" - Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem3}) - Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 36) - Me.LayoutControlGroup1.Name = "LayoutControlGroup1" - Me.LayoutControlGroup1.Size = New System.Drawing.Size(780, 212) - Me.LayoutControlGroup1.Text = "Konfiguration Schnellsuche 1" + Me.LayoutControlItem4.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem4.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem4.Control = Me.ToggleSwitchDebug + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Size = New System.Drawing.Size(540, 23) + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem4.TextVisible = False ' 'frmConfigBasic ' @@ -259,14 +263,15 @@ Partial Class frmConfigBasic CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.LayoutControl1.ResumeLayout(False) + CType(Me.ToggleSwitchDebug.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Quicksearch1CB_Pos.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Quicksearch1TitleTextBox.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -281,17 +286,17 @@ Partial Class frmConfigBasic Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents CheckButtonDEBUG As DevExpress.XtraEditors.CheckButton Friend WithEvents Quicksearch1CB_Pos As DevExpress.XtraEditors.ComboBoxEdit Friend WithEvents Quicksearch1TitleTextBox As DevExpress.XtraEditors.TextEdit Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem Friend WithEvents bsiInfo As DevExpress.XtraBars.BarStaticItem - Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents SkinPaletteRibbonGalleryBarItem1 As DevExpress.XtraBars.SkinPaletteRibbonGalleryBarItem Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents SkinRibbonGalleryBarItem1 As DevExpress.XtraBars.SkinRibbonGalleryBarItem Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents ToggleSwitchDebug As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem End Class diff --git a/GUIs.ZooFlow/frmConfigBasic.vb b/GUIs.ZooFlow/frmConfigBasic.vb index 7bf65196..8de1a8fc 100644 --- a/GUIs.ZooFlow/frmConfigBasic.vb +++ b/GUIs.ZooFlow/frmConfigBasic.vb @@ -1,13 +1,15 @@ -Imports DigitalData.Modules.Language +Imports DevExpress.XtraEditors +Imports DigitalData.Modules.Language Imports DigitalData.Modules.Logging Public Class frmConfigBasic Private FormLoaded As Boolean = False Private Logger As Logger + Dim oFormLoaded As Boolean = False Private Sub frmConfigBasic_Load(sender As Object, e As EventArgs) Handles MyBase.Load LoadScreens() - CheckButtonDEBUG.Checked = My.LogConfig.Debug + ToggleSwitchDebug.IsOn = My.LogConfig.Debug For Each orow As DataRow In My.Tables.DTIDB_CATALOG_USER.Rows Select Case orow.Item("CAT_TITLE") Case ClassConstants.USER_CATALOG_QUICKSEARCH1_TITLE @@ -31,6 +33,7 @@ Public Class frmConfigBasic End Select Next + oFormLoaded = True End Sub Private Sub LoadScreens() @@ -53,16 +56,6 @@ Public Class frmConfigBasic Process.Start(System.Windows.Forms.Application.LocalUserAppDataPath) End Sub - Private Sub CheckButtonDEBUG_CheckedChanged(sender As Object, e As EventArgs) Handles CheckButtonDEBUG.CheckedChanged - If CheckButtonDEBUG.Checked Then - CheckButtonDEBUG.Text = "DEBUG is active" - My.LogConfig.Debug = True - Else - CheckButtonDEBUG.Text = "DEBUG not active" - My.LogConfig.Debug = False - End If - My.UIConfigManager.Save() - End Sub Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick Try @@ -145,4 +138,19 @@ Public Class frmConfigBasic MsgBox(ex.Message, MsgBoxStyle.Critical, Text) End Try End Sub + + Private Sub ToggleSwitchDebug_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchDebug.Toggled + If oFormLoaded = False Then + Exit Sub + End If + Dim oSwitch As ToggleSwitch = sender + If oSwitch.IsOn Then + My.LogConfig.Debug = True + Else + My.LogConfig.Debug = False + End If + + My.UIConfigManager.Save() + bsiInfo.Caption = "DEBUG saved!" + End Sub End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/frmFlowForm.Designer.vb b/GUIs.ZooFlow/frmFlowForm.Designer.vb index 171c0d43..659f729a 100644 --- a/GUIs.ZooFlow/frmFlowForm.Designer.vb +++ b/GUIs.ZooFlow/frmFlowForm.Designer.vb @@ -54,10 +54,10 @@ Partial Class frmFlowForm Me.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components) Me.Bar3 = New DevExpress.XtraBars.Bar() Me.BarSubItem1 = New DevExpress.XtraBars.BarSubItem() + Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItemGlobixGE = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.buttonExitZooflow = New DevExpress.XtraBars.BarButtonItem() Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() @@ -161,7 +161,6 @@ Partial Class frmFlowForm Me.PictureBoxPM.TabIndex = 14 Me.PictureBoxPM.Text = "SvgImageBox1" Me.ToolTip1.SetToolTip(Me.PictureBoxPM, "ProcessManager - Workflow") - Me.PictureBoxPM.Visible = False ' 'PictureBoxDragDrop ' @@ -275,9 +274,9 @@ Partial Class frmFlowForm Me.Panel2.Controls.Add(Me.PictureBoxGlobix) Me.Panel2.Controls.Add(Me.PictureBoxAbo) Me.Panel2.Controls.Add(Me.PictureBoxPM) - Me.Panel2.Location = New System.Drawing.Point(3, 126) + Me.Panel2.Location = New System.Drawing.Point(3, 92) Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(196, 330) + Me.Panel2.Size = New System.Drawing.Size(196, 364) Me.Panel2.TabIndex = 17 ' 'PopupMenu1 @@ -323,11 +322,18 @@ Partial Class frmFlowForm Me.BarSubItem1.Name = "BarSubItem1" Me.BarSubItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph ' + 'BarButtonItem8 + ' + Me.BarButtonItem8.Caption = "Grundeinstellungen" + Me.BarButtonItem8.Id = 9 + Me.BarButtonItem8.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.properties + Me.BarButtonItem8.Name = "BarButtonItem8" + ' 'BarButtonItemGlobixGE ' Me.BarButtonItemGlobixGE.Caption = "Grundeinstellungen Globix" Me.BarButtonItemGlobixGE.Id = 10 - Me.BarButtonItemGlobixGE.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem9.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItemGlobixGE.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemGlobixGE.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItemGlobixGE.Name = "BarButtonItemGlobixGE" ' 'BarButtonItem6 @@ -344,13 +350,6 @@ Partial Class frmFlowForm Me.BarButtonItem7.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.managedatasource2 Me.BarButtonItem7.Name = "BarButtonItem7" ' - 'BarButtonItem8 - ' - Me.BarButtonItem8.Caption = "Grundeinstellungen" - Me.BarButtonItem8.Id = 9 - Me.BarButtonItem8.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.properties - Me.BarButtonItem8.Name = "BarButtonItem8" - ' 'BarButtonItem1 ' Me.BarButtonItem1.Caption = "Zooflow neustarten" @@ -445,7 +444,7 @@ Partial Class frmFlowForm Me.IconOptions.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZOO_FLOW__sysicon_256 Me.Name = "frmFlowForm" Me.Text = "ZooFlow" - Me.TopMost = True + Me.TransparencyKey = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) Me.ContextMenuSystray.ResumeLayout(False) CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBoxPM, System.ComponentModel.ISupportInitialize).EndInit() diff --git a/GUIs.ZooFlow/frmFlowForm.resx b/GUIs.ZooFlow/frmFlowForm.resx index c1498dd6..7bc7faeb 100644 --- a/GUIs.ZooFlow/frmFlowForm.resx +++ b/GUIs.ZooFlow/frmFlowForm.resx @@ -2022,7 +2022,7 @@ LDIwLDE2LDIweiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs= - + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl diff --git a/GUIs.ZooFlow/frmFlowForm.vb b/GUIs.ZooFlow/frmFlowForm.vb index f3d12b91..f01c401e 100644 --- a/GUIs.ZooFlow/frmFlowForm.vb +++ b/GUIs.ZooFlow/frmFlowForm.vb @@ -74,13 +74,18 @@ Public Class frmFlowForm #End Region #Region "Sidebar Enum Properties Register" Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) - If m.Msg = uCallBack Then - Select Case m.WParam.ToInt32() - Case CInt(ABNotify.ABN_POSCHANGED) - ABSetPos(ABEdge.ABE_RIGHT) - End Select - End If - MyBase.WndProc(m) + Try + If m.Msg = uCallBack Then + Select Case m.WParam.ToInt32() + Case CInt(ABNotify.ABN_POSCHANGED) + ABSetPos(ABEdge.ABE_RIGHT) + End Select + End If + MyBase.WndProc(m) + Catch ex As Exception + + End Try + End Sub Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams Get diff --git a/Modules.Messaging/Limilab.vb b/Modules.Messaging/Limilab.vb index 257c839c..c48632f9 100644 --- a/Modules.Messaging/Limilab.vb +++ b/Modules.Messaging/Limilab.vb @@ -256,6 +256,7 @@ Public Class Limilab Logger.Debug($"mailsmtp [{mailsmtp}]") Logger.Debug($"mailport [{mailport}]") Logger.Debug($"mailSubject [{mailSubject}]") + Dim oMailBuilder As New MailBuilder() oMailBuilder.From.Add(New MailBox(mailfrom)) oMailBuilder.[To].Add(New MailBox(oMailReceipiant))