diff --git a/GUIs.Common/Common.vbproj b/GUIs.Common/Common.vbproj index 59ef84e8..4df82507 100644 --- a/GUIs.Common/Common.vbproj +++ b/GUIs.Common/Common.vbproj @@ -312,5 +312,8 @@ + + + \ No newline at end of file diff --git a/GUIs.Common/My Project/Resources.Designer.vb b/GUIs.Common/My Project/Resources.Designer.vb index 1f5bff43..4326f9be 100644 --- a/GUIs.Common/My Project/Resources.Designer.vb +++ b/GUIs.Common/My Project/Resources.Designer.vb @@ -250,6 +250,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property save() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("save", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' diff --git a/GUIs.Common/My Project/Resources.resx b/GUIs.Common/My Project/Resources.resx index 4885af69..763c2ef8 100644 --- a/GUIs.Common/My Project/Resources.resx +++ b/GUIs.Common/My Project/Resources.resx @@ -118,80 +118,35 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ..\Resources\Open_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\tiff.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\_blank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\ZooFlow-Vergroessern.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\Article_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\_page.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\dwg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\zoom_less.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\doc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Copy_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\categorize.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ..\Resources\open.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ..\Resources\txt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\zoom_less.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\jpg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ..\Resources\png.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\zoom_more.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\actions_question.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ZooFlow-Vergroessern.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\Open_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\grid.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\dxf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\editcolors.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\jpg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\singlepageview1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\copy.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -199,4 +154,52 @@ ..\Resources\refreshallpivottable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\singlepageview1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\txt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\_blank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\_page.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\categorize.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\tiff.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\open.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\editcolors.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\dwg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\png.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Copy_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\zoom_more.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Article_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + \ No newline at end of file diff --git a/GUIs.Common/ObjectPropertyDialog/PropertyControls.vb b/GUIs.Common/ObjectPropertyDialog/PropertyControls.vb index 6588de42..24dbf077 100644 --- a/GUIs.Common/ObjectPropertyDialog/PropertyControls.vb +++ b/GUIs.Common/ObjectPropertyDialog/PropertyControls.vb @@ -85,6 +85,8 @@ Public Class PropertyControls End Select + oControl.Tag = pAttribute + Return oControl End Function End Class diff --git a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb index 8adbae39..597bf3a3 100644 --- a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb +++ b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb @@ -32,6 +32,7 @@ Partial Class frmObjectPropertyDialog Me.TabFormControl1 = New DevExpress.XtraBars.TabFormControl() Me.cmbBusinessEntity = New DevExpress.XtraBars.BarEditItem() Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem() + Me.btnSave = New DevExpress.XtraBars.BarButtonItem() Me.TabPageAttributes = New DevExpress.XtraBars.TabFormPage() Me.TabFormContentContainer1 = New DevExpress.XtraBars.TabFormContentContainer() Me.LayoutControlAttributes = New DevExpress.XtraLayout.LayoutControl() @@ -39,6 +40,10 @@ Partial Class frmObjectPropertyDialog Me.TabPageObject = New DevExpress.XtraBars.TabFormPage() Me.TabFormContentContainer2 = New DevExpress.XtraBars.TabFormContentContainer() Me.LayoutControlObject = New DevExpress.XtraLayout.LayoutControl() + Me.GridObjectHistory = New DevExpress.XtraGrid.GridControl() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridColumn6 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn7 = New DevExpress.XtraGrid.Columns.GridColumn() Me.GroupControl1 = New DevExpress.XtraEditors.GroupControl() Me.progressLifecycle = New DevExpress.XtraEditors.ProgressBarControl() Me.lbLifecycleEnd = New DevExpress.XtraEditors.LabelControl() @@ -51,16 +56,18 @@ Partial Class frmObjectPropertyDialog Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit() Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() Me.LayoutObject = New DevExpress.XtraLayout.LayoutControlGroup() - Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() Me.txtAccessedWho = New DevExpress.XtraLayout.LayoutControlItem() - Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() - Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() Me.TabPageHistory = New DevExpress.XtraBars.TabFormPage() Me.TabFormContentContainer4 = New DevExpress.XtraBars.TabFormContentContainer() Me.GridValueHistory = New DevExpress.XtraGrid.GridControl() @@ -79,6 +86,8 @@ Partial Class frmObjectPropertyDialog Me.TabFormContentContainer2.SuspendLayout() CType(Me.LayoutControlObject, System.ComponentModel.ISupportInitialize).BeginInit() Me.LayoutControlObject.SuspendLayout() + CType(Me.GridObjectHistory, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupControl1.SuspendLayout() CType(Me.progressLifecycle.Properties, System.ComponentModel.ISupportInitialize).BeginInit() @@ -90,16 +99,18 @@ Partial Class frmObjectPropertyDialog CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutObject, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabFormContentContainer4.SuspendLayout() CType(Me.GridValueHistory, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ViewValueHistory, System.ComponentModel.ISupportInitialize).BeginInit() @@ -118,13 +129,13 @@ Partial Class frmObjectPropertyDialog ' 'TabFormControl1 ' - Me.TabFormControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.cmbBusinessEntity, Me.BarStaticItem1}) + Me.TabFormControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.cmbBusinessEntity, Me.BarStaticItem1, Me.btnSave}) Me.TabFormControl1.Location = New System.Drawing.Point(0, 0) Me.TabFormControl1.Name = "TabFormControl1" Me.TabFormControl1.Pages.Add(Me.TabPageAttributes) Me.TabFormControl1.Pages.Add(Me.TabPageObject) Me.TabFormControl1.Pages.Add(Me.TabPageHistory) - Me.TabFormControl1.SelectedPage = Me.TabPageAttributes + Me.TabFormControl1.SelectedPage = Me.TabPageObject Me.TabFormControl1.ShowAddPageButton = False Me.TabFormControl1.ShowTabCloseButtons = False Me.TabFormControl1.Size = New System.Drawing.Size(572, 71) @@ -133,6 +144,7 @@ Partial Class frmObjectPropertyDialog Me.TabFormControl1.TabRightItemLinks.Add(Me.BarStaticItem1) Me.TabFormControl1.TabRightItemLinks.Add(Me.cmbBusinessEntity) Me.TabFormControl1.TabStop = False + Me.TabFormControl1.TitleItemLinks.Add(Me.btnSave) ' 'cmbBusinessEntity ' @@ -149,6 +161,13 @@ Partial Class frmObjectPropertyDialog Me.BarStaticItem1.Name = "BarStaticItem1" Me.BarStaticItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing ' + 'btnSave + ' + Me.btnSave.Caption = "BarButtonItem1" + Me.btnSave.Id = 0 + Me.btnSave.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.save + Me.btnSave.Name = "btnSave" + ' 'TabPageAttributes ' Me.TabPageAttributes.ContentContainer = Me.TabFormContentContainer1 @@ -199,6 +218,7 @@ Partial Class frmObjectPropertyDialog ' 'LayoutControlObject ' + Me.LayoutControlObject.Controls.Add(Me.GridObjectHistory) Me.LayoutControlObject.Controls.Add(Me.GroupControl1) Me.LayoutControlObject.Controls.Add(Me.txtCreatedWhen) Me.LayoutControlObject.Controls.Add(Me.txtChangedWhen) @@ -215,14 +235,47 @@ Partial Class frmObjectPropertyDialog Me.LayoutControlObject.TabIndex = 0 Me.LayoutControlObject.Text = "LayoutControl1" ' + 'GridObjectHistory + ' + Me.GridObjectHistory.Location = New System.Drawing.Point(24, 211) + Me.GridObjectHistory.MainView = Me.GridView1 + Me.GridObjectHistory.Name = "GridObjectHistory" + Me.GridObjectHistory.Size = New System.Drawing.Size(524, 199) + Me.GridObjectHistory.TabIndex = 11 + Me.GridObjectHistory.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'GridView1 + ' + Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn6, Me.GridColumn7}) + Me.GridView1.GridControl = Me.GridObjectHistory + Me.GridView1.Name = "GridView1" + ' + 'GridColumn6 + ' + Me.GridColumn6.Caption = "Status" + Me.GridColumn6.FieldName = "STATE_LANG" + Me.GridColumn6.Name = "GridColumn6" + Me.GridColumn6.Visible = True + Me.GridColumn6.VisibleIndex = 0 + ' + 'GridColumn7 + ' + Me.GridColumn7.Caption = "Datum " + Me.GridColumn7.FieldName = "ADDED_WHEN" + Me.GridColumn7.Name = "GridColumn7" + Me.GridColumn7.Visible = True + Me.GridColumn7.VisibleIndex = 1 + ' 'GroupControl1 ' Me.GroupControl1.Controls.Add(Me.progressLifecycle) Me.GroupControl1.Controls.Add(Me.lbLifecycleEnd) Me.GroupControl1.Controls.Add(Me.lbLifecycleStart) - Me.GroupControl1.Location = New System.Drawing.Point(12, 428) + Me.GroupControl1.Location = New System.Drawing.Point(12, 426) + Me.GroupControl1.MaximumSize = New System.Drawing.Size(0, 96) + Me.GroupControl1.MinimumSize = New System.Drawing.Size(0, 96) Me.GroupControl1.Name = "GroupControl1" - Me.GroupControl1.Size = New System.Drawing.Size(548, 94) + Me.GroupControl1.Size = New System.Drawing.Size(548, 96) Me.GroupControl1.TabIndex = 2 Me.GroupControl1.Text = "Lebenszyklus" ' @@ -230,15 +283,17 @@ Partial Class frmObjectPropertyDialog ' Me.progressLifecycle.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.progressLifecycle.Location = New System.Drawing.Point(5, 49) + Me.progressLifecycle.Location = New System.Drawing.Point(5, 51) Me.progressLifecycle.Name = "progressLifecycle" Me.progressLifecycle.Size = New System.Drawing.Size(538, 40) Me.progressLifecycle.TabIndex = 0 ' 'lbLifecycleEnd ' + Me.lbLifecycleEnd.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lbLifecycleEnd.LineVisible = True - Me.lbLifecycleEnd.Location = New System.Drawing.Point(489, 30) + Me.lbLifecycleEnd.Location = New System.Drawing.Point(487, 30) Me.lbLifecycleEnd.Name = "lbLifecycleEnd" Me.lbLifecycleEnd.Size = New System.Drawing.Size(56, 13) Me.lbLifecycleEnd.TabIndex = 1 @@ -255,78 +310,78 @@ Partial Class frmObjectPropertyDialog ' 'txtCreatedWhen ' - Me.txtCreatedWhen.Location = New System.Drawing.Point(94, 37) + Me.txtCreatedWhen.Location = New System.Drawing.Point(109, 78) Me.txtCreatedWhen.Name = "txtCreatedWhen" Me.txtCreatedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.txtCreatedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.txtCreatedWhen.Properties.ReadOnly = True - Me.txtCreatedWhen.Size = New System.Drawing.Size(190, 20) + Me.txtCreatedWhen.Size = New System.Drawing.Size(172, 20) Me.txtCreatedWhen.StyleController = Me.LayoutControlObject Me.txtCreatedWhen.TabIndex = 4 ' 'txtChangedWhen ' - Me.txtChangedWhen.Location = New System.Drawing.Point(94, 61) + Me.txtChangedWhen.Location = New System.Drawing.Point(109, 108) Me.txtChangedWhen.Name = "txtChangedWhen" Me.txtChangedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.txtChangedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.txtChangedWhen.Properties.ReadOnly = True - Me.txtChangedWhen.Size = New System.Drawing.Size(190, 20) + Me.txtChangedWhen.Size = New System.Drawing.Size(172, 20) Me.txtChangedWhen.StyleController = Me.LayoutControlObject Me.txtChangedWhen.TabIndex = 5 ' 'txtAccessedWhen ' - Me.txtAccessedWhen.Location = New System.Drawing.Point(94, 85) + Me.txtAccessedWhen.Location = New System.Drawing.Point(109, 138) Me.txtAccessedWhen.Name = "txtAccessedWhen" Me.txtAccessedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.txtAccessedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.txtAccessedWhen.Properties.ReadOnly = True - Me.txtAccessedWhen.Size = New System.Drawing.Size(190, 20) + Me.txtAccessedWhen.Size = New System.Drawing.Size(172, 20) Me.txtAccessedWhen.StyleController = Me.LayoutControlObject Me.txtAccessedWhen.TabIndex = 6 ' 'txtObjectId ' - Me.txtObjectId.Location = New System.Drawing.Point(94, 12) + Me.txtObjectId.Location = New System.Drawing.Point(109, 48) Me.txtObjectId.Name = "txtObjectId" Me.txtObjectId.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.txtObjectId.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.txtObjectId.Properties.ReadOnly = True - Me.txtObjectId.Size = New System.Drawing.Size(466, 20) + Me.txtObjectId.Size = New System.Drawing.Size(436, 20) Me.txtObjectId.StyleController = Me.LayoutControlObject Me.txtObjectId.TabIndex = 7 ' 'txtCreatedWho ' - Me.txtCreatedWho.Location = New System.Drawing.Point(370, 37) + Me.txtCreatedWho.Location = New System.Drawing.Point(373, 78) Me.txtCreatedWho.Name = "txtCreatedWho" Me.txtCreatedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.txtCreatedWho.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.txtCreatedWho.Properties.ReadOnly = True - Me.txtCreatedWho.Size = New System.Drawing.Size(190, 20) + Me.txtCreatedWho.Size = New System.Drawing.Size(172, 20) Me.txtCreatedWho.StyleController = Me.LayoutControlObject Me.txtCreatedWho.TabIndex = 8 ' 'txtChangedWho ' - Me.txtChangedWho.Location = New System.Drawing.Point(370, 61) + Me.txtChangedWho.Location = New System.Drawing.Point(373, 108) Me.txtChangedWho.Name = "txtChangedWho" Me.txtChangedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.txtChangedWho.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.txtChangedWho.Properties.ReadOnly = True - Me.txtChangedWho.Size = New System.Drawing.Size(190, 20) + Me.txtChangedWho.Size = New System.Drawing.Size(172, 20) Me.txtChangedWho.StyleController = Me.LayoutControlObject Me.txtChangedWho.TabIndex = 9 ' 'TextEdit1 ' - Me.TextEdit1.Location = New System.Drawing.Point(370, 85) + Me.TextEdit1.Location = New System.Drawing.Point(373, 138) 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(190, 20) + Me.TextEdit1.Size = New System.Drawing.Size(172, 20) Me.TextEdit1.StyleController = Me.LayoutControlObject Me.TextEdit1.TabIndex = 10 ' @@ -334,99 +389,123 @@ Partial Class frmObjectPropertyDialog ' Me.LayoutObject.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.LayoutObject.GroupBordersVisible = False - Me.LayoutObject.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.SimpleSeparator1, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.txtAccessedWho, Me.EmptySpaceItem1, Me.LayoutControlItem7}) + Me.LayoutObject.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.SimpleSeparator1, Me.LayoutControlItem7, Me.LayoutControlGroup1, Me.LayoutControlGroup2}) Me.LayoutObject.Name = "LayoutObject" Me.LayoutObject.Size = New System.Drawing.Size(572, 534) Me.LayoutObject.TextVisible = False ' - 'LayoutControlItem1 + 'SimpleSeparator1 ' - Me.LayoutControlItem1.Control = Me.txtCreatedWhen - Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 25) - Me.LayoutControlItem1.Name = "LayoutControlItem1" - Me.LayoutControlItem1.Size = New System.Drawing.Size(276, 24) - Me.LayoutControlItem1.Text = "Erstellt" - Me.LayoutControlItem1.TextSize = New System.Drawing.Size(70, 13) + Me.SimpleSeparator1.AllowHotTrack = False + Me.SimpleSeparator1.Location = New System.Drawing.Point(0, 165) + Me.SimpleSeparator1.Name = "SimpleSeparator1" + Me.SimpleSeparator1.Size = New System.Drawing.Size(552, 1) ' - 'LayoutControlItem2 + 'LayoutControlItem7 ' - Me.LayoutControlItem2.Control = Me.txtChangedWhen - Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 49) - Me.LayoutControlItem2.Name = "LayoutControlItem2" - Me.LayoutControlItem2.Size = New System.Drawing.Size(276, 24) - Me.LayoutControlItem2.Text = "Geändert" - Me.LayoutControlItem2.TextSize = New System.Drawing.Size(70, 13) + Me.LayoutControlItem7.Control = Me.GroupControl1 + Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 414) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Size = New System.Drawing.Size(552, 100) + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem7.TextVisible = False ' - 'LayoutControlItem3 + 'LayoutControlGroup1 ' - Me.LayoutControlItem3.Control = Me.txtAccessedWhen - Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 73) - Me.LayoutControlItem3.Name = "LayoutControlItem3" - Me.LayoutControlItem3.Size = New System.Drawing.Size(276, 24) - Me.LayoutControlItem3.Text = "Letzter Zugriff" - Me.LayoutControlItem3.TextSize = New System.Drawing.Size(70, 13) + Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem8}) + Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 166) + Me.LayoutControlGroup1.Name = "LayoutControlGroup1" + Me.LayoutControlGroup1.Size = New System.Drawing.Size(552, 248) + Me.LayoutControlGroup1.Text = "Objekt Historie" + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.GridObjectHistory + Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Size = New System.Drawing.Size(528, 203) + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem8.TextVisible = False + ' + 'LayoutControlGroup2 + ' + Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem4, Me.LayoutControlItem1, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.txtAccessedWho}) + Me.LayoutControlGroup2.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlGroup2.Name = "LayoutControlGroup2" + Me.LayoutControlGroup2.Size = New System.Drawing.Size(552, 165) + Me.LayoutControlGroup2.Text = "Eigenschaften" ' 'LayoutControlItem4 ' Me.LayoutControlItem4.Control = Me.txtObjectId Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 0) Me.LayoutControlItem4.Name = "LayoutControlItem4" - Me.LayoutControlItem4.Size = New System.Drawing.Size(552, 24) + Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem4.Size = New System.Drawing.Size(528, 30) Me.LayoutControlItem4.Text = "Objekt Id" Me.LayoutControlItem4.TextSize = New System.Drawing.Size(70, 13) ' - 'SimpleSeparator1 + 'LayoutControlItem1 ' - Me.SimpleSeparator1.AllowHotTrack = False - Me.SimpleSeparator1.Location = New System.Drawing.Point(0, 24) - Me.SimpleSeparator1.Name = "SimpleSeparator1" - Me.SimpleSeparator1.Size = New System.Drawing.Size(552, 1) + Me.LayoutControlItem1.Control = Me.txtCreatedWhen + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 30) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem1.Size = New System.Drawing.Size(264, 30) + Me.LayoutControlItem1.Text = "Erstellt" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(70, 13) ' 'LayoutControlItem5 ' Me.LayoutControlItem5.Control = Me.txtCreatedWho - Me.LayoutControlItem5.Location = New System.Drawing.Point(276, 25) + Me.LayoutControlItem5.Location = New System.Drawing.Point(264, 30) Me.LayoutControlItem5.Name = "LayoutControlItem5" - Me.LayoutControlItem5.Size = New System.Drawing.Size(276, 24) + Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem5.Size = New System.Drawing.Size(264, 30) Me.LayoutControlItem5.Text = "von" Me.LayoutControlItem5.TextSize = New System.Drawing.Size(70, 13) ' 'LayoutControlItem6 ' Me.LayoutControlItem6.Control = Me.txtChangedWho - Me.LayoutControlItem6.Location = New System.Drawing.Point(276, 49) + Me.LayoutControlItem6.Location = New System.Drawing.Point(264, 60) Me.LayoutControlItem6.Name = "LayoutControlItem6" - Me.LayoutControlItem6.Size = New System.Drawing.Size(276, 24) + Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem6.Size = New System.Drawing.Size(264, 30) Me.LayoutControlItem6.Text = "von" Me.LayoutControlItem6.TextSize = New System.Drawing.Size(70, 13) ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.txtChangedWhen + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 60) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem2.Size = New System.Drawing.Size(264, 30) + Me.LayoutControlItem2.Text = "Geändert" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(70, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.txtAccessedWhen + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 90) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(264, 30) + Me.LayoutControlItem3.Text = "Letzter Zugriff" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(70, 13) + ' 'txtAccessedWho ' Me.txtAccessedWho.Control = Me.TextEdit1 Me.txtAccessedWho.CustomizationFormText = "von" - Me.txtAccessedWho.Location = New System.Drawing.Point(276, 73) + Me.txtAccessedWho.Location = New System.Drawing.Point(264, 90) Me.txtAccessedWho.Name = "txtAccessedWho" - Me.txtAccessedWho.Size = New System.Drawing.Size(276, 24) + Me.txtAccessedWho.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.txtAccessedWho.Size = New System.Drawing.Size(264, 30) Me.txtAccessedWho.Text = "von" Me.txtAccessedWho.TextSize = New System.Drawing.Size(70, 13) ' - 'EmptySpaceItem1 - ' - Me.EmptySpaceItem1.AllowHotTrack = False - Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 97) - Me.EmptySpaceItem1.Name = "EmptySpaceItem1" - Me.EmptySpaceItem1.Size = New System.Drawing.Size(552, 319) - Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) - ' - 'LayoutControlItem7 - ' - Me.LayoutControlItem7.Control = Me.GroupControl1 - Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 416) - Me.LayoutControlItem7.Name = "LayoutControlItem7" - Me.LayoutControlItem7.Size = New System.Drawing.Size(552, 98) - Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem7.TextVisible = False - ' 'TabPageHistory ' Me.TabPageHistory.ContentContainer = Me.TabFormContentContainer4 @@ -514,7 +593,7 @@ Partial Class frmObjectPropertyDialog Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(572, 605) - Me.Controls.Add(Me.TabFormContentContainer1) + Me.Controls.Add(Me.TabFormContentContainer2) Me.Controls.Add(Me.TabFormControl1) Me.IconOptions.SvgImage = CType(resources.GetObject("frmObjectPropertyDialog.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.Name = "frmObjectPropertyDialog" @@ -528,6 +607,8 @@ Partial Class frmObjectPropertyDialog Me.TabFormContentContainer2.ResumeLayout(False) CType(Me.LayoutControlObject, System.ComponentModel.ISupportInitialize).EndInit() Me.LayoutControlObject.ResumeLayout(False) + CType(Me.GridObjectHistory, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupControl1.ResumeLayout(False) Me.GroupControl1.PerformLayout() @@ -540,16 +621,18 @@ Partial Class frmObjectPropertyDialog CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutObject, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() Me.TabFormContentContainer4.ResumeLayout(False) CType(Me.GridValueHistory, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ViewValueHistory, System.ComponentModel.ISupportInitialize).EndInit() @@ -584,21 +667,28 @@ Partial Class frmObjectPropertyDialog Friend WithEvents txtChangedWhen As DevExpress.XtraEditors.TextEdit Friend WithEvents txtAccessedWhen As DevExpress.XtraEditors.TextEdit Friend WithEvents txtObjectId As DevExpress.XtraEditors.TextEdit - Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents SimpleSeparator1 As DevExpress.XtraLayout.SimpleSeparator Friend WithEvents txtCreatedWho As DevExpress.XtraEditors.TextEdit Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit - Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit - Friend WithEvents txtAccessedWho As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem Friend WithEvents lbLifecycleStart As DevExpress.XtraEditors.LabelControl Friend WithEvents lbLifecycleEnd As DevExpress.XtraEditors.LabelControl Friend WithEvents progressLifecycle As DevExpress.XtraEditors.ProgressBarControl Friend WithEvents GroupControl1 As DevExpress.XtraEditors.GroupControl Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents GridObjectHistory As GridControl + Friend WithEvents GridView1 As GridView + Friend WithEvents LayoutControlItem4 As LayoutControlItem + Friend WithEvents LayoutControlItem1 As LayoutControlItem + Friend WithEvents LayoutControlItem2 As LayoutControlItem + Friend WithEvents LayoutControlItem5 As LayoutControlItem + Friend WithEvents LayoutControlItem6 As LayoutControlItem + Friend WithEvents LayoutControlItem3 As LayoutControlItem + Friend WithEvents txtAccessedWho As LayoutControlItem + Friend WithEvents LayoutControlItem8 As LayoutControlItem + Friend WithEvents btnSave As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControlGroup1 As LayoutControlGroup + Friend WithEvents LayoutControlGroup2 As LayoutControlGroup + Friend WithEvents GridColumn6 As Columns.GridColumn + Friend WithEvents GridColumn7 As Columns.GridColumn End Class diff --git a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb index 163be21a..3d74de96 100644 --- a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb +++ b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb @@ -9,28 +9,37 @@ Imports DigitalData.Modules.ZooFlow Imports DigitalData.Modules.Language Imports DevExpress.XtraGrid Imports DigitalData.Modules.EDMI.API +Imports DigitalData.GUIs.Common.Base +Imports DigitalData.Modules.Base Public Class frmObjectPropertyDialog - Private _LogConfig As LogConfig - Private _Logger As Logger - Private _Environment As Environment - Private ReadOnly _Client As Client - Private _ObjectId As Int64 - Private _Db As MSSQLServer - Private _Controls As PropertyControls + Implements IBaseForm - Public Sub New(LogConfig As LogConfig, Environment As Environment, Client As Client, ObjectId As Long) + Private ReadOnly Environment As Environment + Private ReadOnly Client As Client + Private ReadOnly ObjectId As Int64 + Private ReadOnly DatabaseIDB As MSSQLServer + Private ReadOnly ControlManager As PropertyControls + + Private ReadOnly Property LogConfig As LogConfig Implements IBaseForm.LogConfig + Private ReadOnly Property Logger As Logger Implements IBaseForm.Logger + Private ReadOnly Property ErrorHandler As BaseErrorHandler Implements IBaseForm.ErrorHandler + + Private ReadOnly Changes As New Dictionary(Of String, Object) + + Public Sub New(pLogConfig As LogConfig, pEnvironment As Environment, pClient As Client, pObjectId As Long) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. - _LogConfig = LogConfig - _Logger = LogConfig.GetLogger() - _Environment = Environment - _Client = Client - _ObjectId = ObjectId - _Db = _Environment.DatabaseIDB - _Controls = New PropertyControls(_LogConfig, _Db) + LogConfig = pLogConfig + Logger = pLogConfig.GetLogger() + Environment = pEnvironment + Client = pClient + ObjectId = pObjectId + DatabaseIDB = Environment.DatabaseIDB + ControlManager = New PropertyControls(LogConfig, DatabaseIDB) + ErrorHandler = New BaseErrorHandler(LogConfig, Me) End Sub Private Async Sub frmObjectPropertyDialog_Load(sender As Object, e As EventArgs) Handles MyBase.Load @@ -39,31 +48,27 @@ Public Class frmObjectPropertyDialog Try oHandle = SplashScreenManager.ShowOverlayForm(Me) - If IsNothing(_ObjectId) Then + If IsNothing(ObjectId) Then Throw New ApplicationException("No valid Object Id supplied!") End If - Dim oEntityIds = Await GetBusinessEntitiesForObjectId(_ObjectId) - Dim oHistoryDataTable = Await GetValueHistoryForObjectId(_ObjectId) - Dim oObjectProperties = Await GetPropertiesForObjectId(_ObjectId) + Dim oEntityIds = Await GetBusinessEntitiesForObjectId(ObjectId) + Dim oValueHistoryTable = Await GetValueHistoryForObjectId(ObjectId) + Dim oObjectHistoryTable = Await GetObjectHistoryForObjectID(ObjectId) + + Dim oObjectProperties = Await GetPropertiesForObjectId(ObjectId) Dim oCombobox As RepositoryItemComboBox = DirectCast(cmbBusinessEntity.Edit, RepositoryItemComboBox) oCombobox.Items.AddRange(oEntityIds) - ShowAttributeHistory(oHistoryDataTable) + ShowAttributeHistory(oValueHistoryTable) + ShowObjectHistory(oObjectHistoryTable) ShowObjectProperties(oObjectProperties) - 'If oEntityIds.Count = 1 Then - ' cmbBusinessEntity.EditValue = oEntityIds.First() - 'End If cmbBusinessEntity.EditValue = oEntityIds.First() - Catch ex As ApplicationException - _Logger.Error(ex) - MessageBox.Show(ex.Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Error) Catch ex As Exception - _Logger.Error(ex) - MessageBox.Show("Unhandled exception occurred. Please check the log." & vbNewLine & ex.Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + ErrorHandler.ShowErrorMessage(ex, "frmObjectPropertyDialog_Load") Finally - If oHandle IsNot Nothing + If oHandle IsNot Nothing Then SplashScreenManager.CloseOverlayForm(oHandle) End If End Try @@ -71,8 +76,8 @@ Public Class frmObjectPropertyDialog Private Async Function GetAttributesForBusinessEntity(EntityId As Long) As Task(Of List(Of Attribute)) Try - Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE BE_ID = {EntityId} AND LANG_CODE = '{_Environment.User.Language}'" - Dim oResult = Await _Client.GetDatatableFromIDBAsync(oSQL) + Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE BE_ID = {EntityId} AND LANG_CODE = '{Environment.User.Language}'" + Dim oResult = Await Client.GetDatatableFromIDBAsync(oSQL) If oResult.OK = False Then Throw New ApplicationException($"Attributes for Business Entity {EntityId} could not be retrieved!") @@ -96,7 +101,7 @@ Public Class frmObjectPropertyDialog Return oAttributes End If Catch ex As Exception - _Logger.Error(ex) + Logger.Error(ex) Return New List(Of Attribute) End Try End Function @@ -104,7 +109,7 @@ Public Class frmObjectPropertyDialog Private Async Function GetBusinessEntitiesForObjectId(ObjectId As Long) As Task(Of List(Of Long)) Try Dim oSQL = $"SELECT BE_ID FROM TBIDB_OBJECT_BE WHERE IDB_OBJ_ID = {ObjectId}" - Dim oResult = Await _Client.GetDatatableFromIDBAsync(oSQL) + Dim oResult = Await Client.GetDatatableFromIDBAsync(oSQL) If oResult.OK = False Then Throw New ApplicationException($"Business Entities could not be retrieved!") @@ -122,21 +127,36 @@ Public Class frmObjectPropertyDialog Return oEntities End If Catch ex As Exception - _Logger.Error(ex) + Logger.Error(ex) Return New List(Of Long) End Try End Function Private Async Function GetValueHistoryForObjectId(ObjectId As Long) As Task(Of DataTable) - Dim oSQL As String = $"SELECT * FROM VWIDB_CHANGE_LOG WHERE IDB_OBJ_ID = {ObjectId} ORDER BY ChangeID DESC" - Dim oResult = Await _Client.GetDatatableFromIDBAsync(oSQL) + Dim oSQL As String = $" + SELECT * FROM VWIDB_CHANGE_LOG + WHERE IDB_OBJ_ID = {ObjectId} AND + ORDER BY ChangeID DESC + " + Dim oResult = Await Client.GetDatatableFromIDBAsync(oSQL) + + Return oResult.Table + End Function + + Private Async Function GetObjectHistoryForObjectId(ObjectId As Long) As Task(Of DataTable) + Dim oSQL As String = $" + SELECT * FROM VWIDB_DOC_STATES + WHERE IDB_OBJ_ID = {ObjectId} AND LANG_CODE = '{Environment.User.Language}' + ORDER BY ADDED_WHEN DESC + " + Dim oResult = Await Client.GetDatatableFromIDBAsync(oSQL) Return oResult.Table End Function Private Async Function GetPropertiesForObjectId(ObjectId As Long) As Task(Of DataTable) Dim oSQL As String = $"SELECT * FROM TBIDB_OBJECT WHERE IDB_OBJ_ID = {ObjectId}" - Dim oResult = Await _Client.GetDatatableFromIDBAsync(oSQL) + Dim oResult = Await Client.GetDatatableFromIDBAsync(oSQL) Return oResult.Table End Function @@ -144,7 +164,7 @@ Public Class frmObjectPropertyDialog Private Async Function GetAttributeValue(AttributeName As String, ObjectId As Long, Optional LanguageCode As String = "de-DE", Optional IsForeign As Boolean = False) As Task(Of Object) Dim oIsForeign = IIf(IsForeign, 1, 0) Dim oSQL = $"SELECT TERM_VALUE FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({ObjectId}, '{AttributeName}', '{LanguageCode}', {oIsForeign})" - Dim oResult = Await _Client.GetScalarValueFromIDBAsync(oSQL) + Dim oResult = Await Client.GetScalarValueFromIDBAsync(oSQL) Return oResult.Scalar End Function @@ -152,12 +172,12 @@ Public Class frmObjectPropertyDialog Private Async Function GetAttributeValueAsTable(AttributeName As String, ObjectId As Long, Optional LanguageCode As String = "de-DE", Optional IsForeign As Boolean = False) As Task(Of DataTable) Dim oIsForeign = IIf(IsForeign, 1, 0) Dim oSQL = $"SELECT TERM_VALUE FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({ObjectId}, '{AttributeName}', '{LanguageCode}', {oIsForeign})" - Dim oResult = Await _Client.GetDatatableFromIDBAsync(oSQL) + Dim oResult = Await Client.GetDatatableFromIDBAsync(oSQL) Return oResult.Table End Function - Private Async Sub cmbBusinessEntity_EditValueChanged(sender As Object, e As EventArgs) Handles cmbBusinessEntity.EditValueChanged + Private Sub cmbBusinessEntity_EditValueChanged(sender As Object, e As EventArgs) Handles cmbBusinessEntity.EditValueChanged Load_Attributes() End Sub Private Async Sub Load_Attributes() @@ -172,12 +192,12 @@ Public Class frmObjectPropertyDialog Dim oAttributes = Await GetAttributesForBusinessEntity(oEntityId) If oAttributes.Count = 0 Then - MsgBox($"Es konnten keine Attribute für das Objekt '{_ObjectId}' geladen werden!", MsgBoxStyle.Critical, Text) + MsgBox($"Es konnten keine Attribute für das Objekt '{ObjectId}' geladen werden!", MsgBoxStyle.Critical, Text) End If For Each oAttribute As Attribute In oAttributes Dim oEditable = ShouldControlBeEditable(oAttribute) - Dim oControl = _Controls.GetControlForAttribute(oAttribute, Not oEditable) + Dim oControl = ControlManager.GetControlForAttribute(oAttribute, Not oEditable) Dim oItem As LayoutControlItem = AttributeLayout.AddItem() oItem.Text = oAttribute.Title @@ -187,12 +207,14 @@ Public Class frmObjectPropertyDialog For Each oItem As LayoutControlItem In AttributeLayout.Items If TypeOf oItem.Control Is BaseEdit Then - Dim oValue = Await GetAttributeValue(oItem.Name, _ObjectId) + Dim oValue = Await GetAttributeValue(oItem.Name, ObjectId) Dim oEdit = DirectCast(oItem.Control, BaseEdit) oEdit.EditValue = oValue + AddHandler oEdit.EditValueChanged, AddressOf BaseEdit_EditValueChanged + ElseIf TypeOf oItem.Control Is GridControl Then - Dim oValueTable = Await GetAttributeValueAsTable(oItem.Name, _ObjectId) + Dim oValueTable = Await GetAttributeValueAsTable(oItem.Name, ObjectId) Dim oGrid = DirectCast(oItem.Control, GridControl) oGrid.DataSource = oValueTable @@ -200,9 +222,22 @@ Public Class frmObjectPropertyDialog End If Next Catch ex As Exception - _Logger.Error(ex) + Logger.Error(ex) End Try + End Sub + Private Sub BaseEdit_EditValueChanged(sender As Object, e As EventArgs) + Dim oControl As BaseEdit = sender + Dim oAttribute As Attribute = oControl.Tag + Dim oValue = oControl.EditValue + Dim oKey = oAttribute.Title + + If Changes.ContainsKey(oKey) Then + Changes.Item(oKey) = oValue + Else + Changes.Add(oAttribute.Title, oValue) + + End If End Sub Private Function ShouldControlBeEditable(pAttribute As Attribute) As Boolean @@ -215,15 +250,22 @@ Public Class frmObjectPropertyDialog Private Function ShowAttributeHistory(pDatatable As DataTable) As Boolean Try - If pDatatable.Rows.Count > 0 - GridValueHistory.DataSource = pDatatable - Else - TabPageHistory.Visible = False - End If + GridValueHistory.DataSource = pDatatable Return True Catch ex As Exception - _Logger.Error(ex) + Logger.Error(ex) + Return False + End Try + End Function + + Private Function ShowObjectHistory(pDatatable As DataTable) As Boolean + Try + GridObjectHistory.DataSource = pDatatable + + Return True + Catch ex As Exception + Logger.Error(ex) Return False End Try End Function @@ -243,8 +285,39 @@ Public Class frmObjectPropertyDialog Return True Catch ex As Exception - _Logger.Error(ex) + Logger.Error(ex) Return False End Try End Function + + Private Async Sub btnSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnSave.ItemClick + Try + For Each oChange As KeyValuePair(Of String, Object) In Changes + Logger.Info("Updating Attribute [{0}] with value [{1}]", oChange.Key, oChange.Value.ToString) + + Await Client.SetAttributeValueAsync(ObjectId, oChange.Key, oChange.Value, New Options.SetAttributeValueOptions With { + .Language = Environment.User.Language, + .Username = Environment.User.UserName + }) + Logger.Info("Updating Object State for Object [{0}]", ObjectId) + Await Client.SetObjectStateAsync(ObjectId, IDB.FileStore.OBJECT_STATE_METADATA_CHANGED, New Options.SetObjectStateOptions With { + .Language = Environment.User.Language, + .Username = Environment.User.UserName + }) + Next + + ErrorHandler.ShowInfoMessage($"{Changes.Count} Änderungen gespeichert!") + Changes.Clear() + Catch ex As Exception + ErrorHandler.ShowErrorMessage(ex, "btnSave_ItemClick") + End Try + End Sub + + Private Sub TabFormControl1_Click(sender As Object, e As EventArgs) Handles TabFormControl1.Click + + End Sub + + Private Sub GroupControl1_Paint(sender As Object, e As PaintEventArgs) Handles GroupControl1.Paint + + End Sub End Class \ No newline at end of file diff --git a/GUIs.Common/Resources/save.svg b/GUIs.Common/Resources/save.svg new file mode 100644 index 00000000..b09d6ee8 --- /dev/null +++ b/GUIs.Common/Resources/save.svg @@ -0,0 +1,16 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/frmFlowSearch1.vb b/GUIs.ZooFlow/Search/frmFlowSearch1.vb index fb0ac1bb..79a643b6 100644 --- a/GUIs.ZooFlow/Search/frmFlowSearch1.vb +++ b/GUIs.ZooFlow/Search/frmFlowSearch1.vb @@ -40,11 +40,20 @@ Public Class frmFlowSearch1 TOGGLE_Change = False End Sub - Private Sub ToggleSwitchToday_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchToday.Toggled, ToggleSwitchYesterday.Toggled, ToggleSwitchYear.Toggled, ToggleSwitchYear_Last.Toggled, - ToggleSwitchMonth_Last.Toggled, ToggleSwitchMonth.Toggled, ToggleSwitchLastWeek.Toggled, ToggleSwitchTomorrow.Toggled + Private Sub ToggleSwitchToday_Toggled(sender As Object, e As EventArgs) Handles _ + ToggleSwitchToday.Toggled, + ToggleSwitchYesterday.Toggled, + ToggleSwitchYear.Toggled, + ToggleSwitchYear_Last.Toggled, + ToggleSwitchMonth_Last.Toggled, + ToggleSwitchMonth.Toggled, + ToggleSwitchLastWeek.Toggled, + ToggleSwitchTomorrow.Toggled + If TOGGLE_Change = True Then Exit Sub End If + Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch) If oToggle.IsOn Then @@ -268,6 +277,9 @@ Public Class frmFlowSearch1 .Datatable = oDTDocResult }) Dim oForm As New frmDocumentResultList(My.LogConfig, _Environment, oParams) + + AddHandler oForm.NeedsRefresh, AddressOf Form_NeedsRefresh + oForm.Show() Else bsiStatus.Caption = "No Results" @@ -277,6 +289,10 @@ Public Class frmFlowSearch1 End If End Function + Private Sub Form_NeedsRefresh(sender As Object, e As Integer) + + End Sub + Private Async Function txtSearchInput_KeyUp(sender As Object, e As KeyEventArgs) As Threading.Tasks.Task Handles txtSearchInput.KeyUp If e.KeyCode = Keys.Return Then If txtSearchInput.Text = String.Empty Then @@ -347,8 +363,4 @@ Public Class frmFlowSearch1 End If End Sub - - Private Sub DockPanel1_Click(sender As Object, e As EventArgs) Handles DockPanel1.Click - - End Sub End Class \ No newline at end of file diff --git a/Modules.Database/Adapters/MSSQLServer.vb b/Modules.Database/Adapters/MSSQLServer.vb index e8bd14d5..85c89657 100644 --- a/Modules.Database/Adapters/MSSQLServer.vb +++ b/Modules.Database/Adapters/MSSQLServer.vb @@ -382,6 +382,8 @@ Public Class MSSQLServer Dim oTransaction As SqlTransaction = MaybeGetTransaction(SqlConnection, TransactionMode, Transaction) Try + _Logger.Debug("ExecuteNonQueryWithConnectionObject: Running Command [{0}]", SqlCommand) + Using oSQLCOmmand = SqlConnection.CreateCommand() oSQLCOmmand.CommandText = SqlCommand oSQLCOmmand.CommandTimeout = Timeout diff --git a/Modules.EDMIAPI/Client.vb b/Modules.EDMIAPI/Client.vb index 6ece987d..0b597322 100644 --- a/Modules.EDMIAPI/Client.vb +++ b/Modules.EDMIAPI/Client.vb @@ -224,6 +224,18 @@ Public Class Client End Try End Function + Public Async Function SetAttributeValueAsync(pObjectId As Long, pName As String, pValue As Object, Optional pOptions As Options.SetAttributeValueOptions = Nothing) As Task(Of Boolean) + Try + Dim oSetAttributeValue As New Modules.IDB.SetAttributeValue(LogConfig, Channel) + Return Await oSetAttributeValue.RunAsync(pObjectId, pName, pValue, pOptions) + + Catch ex As Exception + Logger.Error(ex) + Return False + + End Try + End Function + Public Async Function Globix_ImportFileAsync( pFilePath As String, pProfileId As Integer, @@ -273,115 +285,115 @@ Public Class Client ''' ''' ''' - Public Function SetVariableValue(pObjectId As Long, pAttributeName As String, pValue As Object, Optional pOptions As Options.SetVariableValueOptions = Nothing) As Boolean - Try - ' Set default options - If pOptions Is Nothing Then - pOptions = New Options.SetVariableValueOptions() - End If + 'Public Function SetVariableValue(pObjectId As Long, pAttributeName As String, pValue As Object, Optional pOptions As Options.SetVariableValueOptions = Nothing) As Boolean + ' Try + ' ' Set default options + ' If pOptions Is Nothing Then + ' pOptions = New Options.SetVariableValueOptions() + ' End If - Dim oOptions As New Options.GetVariableValueOptions With { - .Language = pOptions.Language, - .Username = pOptions.Username - } + ' Dim oOptions As New Options.GetVariableValueOptions With { + ' .Language = pOptions.Language, + ' .Username = pOptions.Username + ' } - Try - Dim oResponse = Channel.TestObjectIdExists(New TestObjectIdExistsRequest With {.ObjectId = pObjectId}) - If oResponse.Exists = False Then - Return False - End If + ' Try + ' Dim oResponse = Channel.TestObjectIdExists(New TestObjectIdExistsRequest With {.ObjectId = pObjectId}) + ' If oResponse.Exists = False Then + ' Return False + ' End If - Catch ex As Exception - Logger.Error(ex) - Return False - End Try + ' Catch ex As Exception + ' Logger.Error(ex) + ' Return False + ' End Try - Dim oType = pValue.GetType.Name + ' Dim oType = pValue.GetType.Name - If oType = GetType(DataTable).Name Then - Dim oValueTable As DataTable = pValue - Dim oCurrentValue As VariableValue + ' If oType = GetType(DataTable).Name Then + ' Dim oValueTable As DataTable = pValue + ' Dim oCurrentValue As VariableValue - ' Get current value - oCurrentValue = GetVariableValue(pObjectId, pAttributeName, oOptions) + ' ' Get current value + ' oCurrentValue = GetVariableValue(pObjectId, pAttributeName, oOptions) - ' If current value is datatable - If oCurrentValue.Type = GetType(DataTable) Then + ' ' If current value is datatable + ' If oCurrentValue.Type = GetType(DataTable) Then - ' Convert value to Datatable - Dim oTable As DataTable = oCurrentValue.Value + ' ' Convert value to Datatable + ' Dim oTable As DataTable = oCurrentValue.Value - If oTable.Rows.Count > 1 Then + ' If oTable.Rows.Count > 1 Then - 'now Checking whether the old row still remains in Vector? If not it will be deleted as it cannot be replaced in multivalues - For Each oRow As DataRow In oTable.Rows - Dim oExists As Boolean = False - For Each oNewValueRow As DataRow In oValueTable.Rows - Logger.Debug($"Checking oldValue[{oCurrentValue}] vs NewValue [{oNewValueRow.Item(1)}]") + ' 'now Checking whether the old row still remains in Vector? If not it will be deleted as it cannot be replaced in multivalues + ' For Each oRow As DataRow In oTable.Rows + ' Dim oExists As Boolean = False + ' For Each oNewValueRow As DataRow In oValueTable.Rows + ' Logger.Debug($"Checking oldValue[{oCurrentValue}] vs NewValue [{oNewValueRow.Item(1)}]") - If oNewValueRow.Item(1).ToString.ToUpper = oRow.Item(0).ToString.ToUpper Then - oExists = True - Exit For - End If - Next + ' If oNewValueRow.Item(1).ToString.ToUpper = oRow.Item(0).ToString.ToUpper Then + ' oExists = True + ' Exit For + ' End If + ' Next - If oExists = False Then - Logger.Debug($"Value [{oRow.Item(0)}] no longer existing in Vector-Attribute [{pAttributeName}] - will be deleted!") - DeleteTermObjectFromMetadata(pObjectId, pAttributeName, oRow.Item(0)) - End If + ' If oExists = False Then + ' Logger.Debug($"Value [{oRow.Item(0)}] no longer existing in Vector-Attribute [{pAttributeName}] - will be deleted!") + ' DeleteTermObjectFromMetadata(pObjectId, pAttributeName, oRow.Item(0)) + ' End If - Next - End If - Else - If oValueTable.Rows.Count > 1 Then + ' Next + ' End If + ' Else + ' If oValueTable.Rows.Count > 1 Then - 'now Checking whether the old row still remains in Vector? If not it will be deleted as it cannot be replaced in multivalues - Dim oExists As Boolean = False - For Each oNewValueRow As DataRow In oValueTable.Rows - Logger.Debug($"Checking oldValue[{oCurrentValue}] vs NewValue [{oNewValueRow.Item(1)}]") + ' 'now Checking whether the old row still remains in Vector? If not it will be deleted as it cannot be replaced in multivalues + ' Dim oExists As Boolean = False + ' For Each oNewValueRow As DataRow In oValueTable.Rows + ' Logger.Debug($"Checking oldValue[{oCurrentValue}] vs NewValue [{oNewValueRow.Item(1)}]") - If oNewValueRow.Item(1).ToString.ToUpper = oCurrentValue.ToString.ToUpper Then - oExists = True - Exit For - End If + ' If oNewValueRow.Item(1).ToString.ToUpper = oCurrentValue.ToString.ToUpper Then + ' oExists = True + ' Exit For + ' End If - Next - If oExists = False Then - Logger.Debug($"Value [{oCurrentValue}] no longer existing in Vector-Attribute [{pAttributeName}] - will be deleted!") - DeleteTermObjectFromMetadata(pObjectId, pAttributeName, oCurrentValue.Value) - End If + ' Next + ' If oExists = False Then + ' Logger.Debug($"Value [{oCurrentValue}] no longer existing in Vector-Attribute [{pAttributeName}] - will be deleted!") + ' DeleteTermObjectFromMetadata(pObjectId, pAttributeName, oCurrentValue.Value) + ' End If - Else - Logger.Debug($"Value [{oCurrentValue}] of Attribute [{pAttributeName}] obviously was updated during runtime - will be deleted!") - DeleteTermObjectFromMetadata(pObjectId, pAttributeName, oCurrentValue.Value) + ' Else + ' Logger.Debug($"Value [{oCurrentValue}] of Attribute [{pAttributeName}] obviously was updated during runtime - will be deleted!") + ' DeleteTermObjectFromMetadata(pObjectId, pAttributeName, oCurrentValue.Value) - End If + ' End If - End If + ' End If - For Each oNewValueRow As DataRow In oValueTable.Rows - Dim oResult As Boolean = NewObjectData(pObjectId, pAttributeName, pValue, New Options.NewObjectOptions With { - .Language = pOptions.Language, - .Username = pOptions.Username - }) + ' For Each oNewValueRow As DataRow In oValueTable.Rows + ' Dim oResult As Boolean = NewObjectData(pObjectId, pAttributeName, pValue, New Options.NewObjectOptions With { + ' .Language = pOptions.Language, + ' .Username = pOptions.Username + ' }) - If oResult = False Then - Return False - End If - Next - Return True - Else - Return NewObjectData(pObjectId, pAttributeName, pValue, New Options.NewObjectOptions With { - .Language = pOptions.Language, - .Username = pOptions.Username - }) - End If + ' If oResult = False Then + ' Return False + ' End If + ' Next + ' Return True + ' Else + ' Return NewObjectData(pObjectId, pAttributeName, pValue, New Options.NewObjectOptions With { + ' .Language = pOptions.Language, + ' .Username = pOptions.Username + ' }) + ' End If - Catch ex As Exception - Logger.Error(ex) - Return False - End Try - End Function + ' Catch ex As Exception + ' Logger.Error(ex) + ' Return False + ' End Try + 'End Function ''' ''' diff --git a/Modules.EDMIAPI/Client/Options.vb b/Modules.EDMIAPI/Client/Options.vb index c16fdaed..f894a8cc 100644 --- a/Modules.EDMIAPI/Client/Options.vb +++ b/Modules.EDMIAPI/Client/Options.vb @@ -52,6 +52,10 @@ Public Property DateImported As Date = Date.Now End Class + Public Class SetAttributeValueOptions + Inherits BaseOptions + End Class + Public Class GetVariableValueOptions Inherits BaseOptions diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.DocumentInfoResponse1.datasource b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.DocumentInfoResponse1.datasource new file mode 100644 index 00000000..0f899425 --- /dev/null +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.DocumentInfoResponse1.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.Modules.EDMI.API.EDMIServiceReference.DocumentInfoResponse, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.DocumentListResponse1.datasource b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.DocumentListResponse1.datasource new file mode 100644 index 00000000..ba63f700 --- /dev/null +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.DocumentListResponse1.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.Modules.EDMI.API.EDMIServiceReference.DocumentListResponse, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.DocumentStreamResponse1.datasource b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.DocumentStreamResponse1.datasource new file mode 100644 index 00000000..9c6b26fa --- /dev/null +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.DocumentStreamResponse1.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.Modules.EDMI.API.EDMIServiceReference.DocumentStreamResponse, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.ExecuteNonQueryResponse1.datasource b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.ExecuteNonQueryResponse1.datasource new file mode 100644 index 00000000..8bb4d79f --- /dev/null +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.ExecuteNonQueryResponse1.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.Modules.EDMI.API.EDMIServiceReference.ExecuteNonQueryResponse, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.GetAttributeValueResponse1.datasource b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.GetAttributeValueResponse1.datasource new file mode 100644 index 00000000..396f87b7 --- /dev/null +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.GetAttributeValueResponse1.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.Modules.EDMI.API.EDMIServiceReference.GetAttributeValueResponse, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.GetClientConfigResponse1.datasource b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.GetClientConfigResponse1.datasource new file mode 100644 index 00000000..8d9e62a6 --- /dev/null +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.GetClientConfigResponse1.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.Modules.EDMI.API.EDMIServiceReference.GetClientConfigResponse, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.GetDatatableResponse1.datasource b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.GetDatatableResponse1.datasource new file mode 100644 index 00000000..47b7add3 --- /dev/null +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.GetDatatableResponse1.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.Modules.EDMI.API.EDMIServiceReference.GetDatatableResponse, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.GetFileObjectResponse1.datasource b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.GetFileObjectResponse1.datasource new file mode 100644 index 00000000..df13dd7d --- /dev/null +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.GetFileObjectResponse1.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.Modules.EDMI.API.EDMIServiceReference.GetFileObjectResponse, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.GetScalarValueResponse1.datasource b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.GetScalarValueResponse1.datasource new file mode 100644 index 00000000..4df80cb8 --- /dev/null +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.GetScalarValueResponse1.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.Modules.EDMI.API.EDMIServiceReference.GetScalarValueResponse, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.ImportFileResponse1.datasource b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.ImportFileResponse1.datasource new file mode 100644 index 00000000..d3e7710e --- /dev/null +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.ImportFileResponse1.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.Modules.EDMI.API.EDMIServiceReference.ImportFileResponse, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.NewFileResponse1.datasource b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.NewFileResponse1.datasource new file mode 100644 index 00000000..bebd9f37 --- /dev/null +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.NewFileResponse1.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.Modules.EDMI.API.EDMIServiceReference.NewFileResponse, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.NonQueryResult1.datasource b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.NonQueryResult1.datasource new file mode 100644 index 00000000..08cbd66d --- /dev/null +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.NonQueryResult1.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.Modules.EDMI.API.EDMIServiceReference.NonQueryResult, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.RightsAccessRight1.datasource b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.RightsAccessRight1.datasource new file mode 100644 index 00000000..b7dc0d4c --- /dev/null +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.RightsAccessRight1.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.Modules.EDMI.API.EDMIServiceReference.RightsAccessRight, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.ScalarResult1.datasource b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.ScalarResult1.datasource new file mode 100644 index 00000000..b025563c --- /dev/null +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.ScalarResult1.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.Modules.EDMI.API.EDMIServiceReference.ScalarResult, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.SetAttributeValueResponse1.datasource b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.SetAttributeValueResponse1.datasource new file mode 100644 index 00000000..f00b50c6 --- /dev/null +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.SetAttributeValueResponse1.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.Modules.EDMI.API.EDMIServiceReference.SetAttributeValueResponse, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.TableResult1.datasource b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.TableResult1.datasource new file mode 100644 index 00000000..ec10938e --- /dev/null +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.TableResult1.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.Modules.EDMI.API.EDMIServiceReference.TableResult, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.TestObjectIdExistsResponse1.datasource b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.TestObjectIdExistsResponse1.datasource new file mode 100644 index 00000000..d646db66 --- /dev/null +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.TestObjectIdExistsResponse1.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.Modules.EDMI.API.EDMIServiceReference.TestObjectIdExistsResponse, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.UpdateFileResponse1.datasource b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.UpdateFileResponse1.datasource new file mode 100644 index 00000000..e22df5f3 --- /dev/null +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.UpdateFileResponse1.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.Modules.EDMI.API.EDMIServiceReference.UpdateFileResponse, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService.Methods.IDB.SetAttributeValue.xsd b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService.Methods.IDB.SetAttributeValue.xsd index e8b79472..1e183ac1 100644 --- a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService.Methods.IDB.SetAttributeValue.xsd +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService.Methods.IDB.SetAttributeValue.xsd @@ -7,7 +7,7 @@ - + diff --git a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/Reference.vb b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/Reference.vb index eaaa60f0..6161b094 100644 --- a/Modules.EDMIAPI/Connected Services/EDMIServiceReference/Reference.vb +++ b/Modules.EDMIAPI/Connected Services/EDMIServiceReference/Reference.vb @@ -1810,7 +1810,7 @@ Namespace EDMIServiceReference Private ObjectIdField As Long _ - Private WhoField As Long + Private WhoField As String _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData @@ -1875,12 +1875,12 @@ Namespace EDMIServiceReference End Property _ - Public Property Who() As Long + Public Property Who() As String Get Return Me.WhoField End Get Set - If (Me.WhoField.Equals(value) <> true) Then + If (Object.ReferenceEquals(Me.WhoField, value) <> true) Then Me.WhoField = value Me.RaisePropertyChanged("Who") End If diff --git a/Modules.EDMIAPI/EDMI.API.vbproj b/Modules.EDMIAPI/EDMI.API.vbproj index 5cca3097..2724259e 100644 --- a/Modules.EDMIAPI/EDMI.API.vbproj +++ b/Modules.EDMIAPI/EDMI.API.vbproj @@ -80,6 +80,7 @@ + @@ -120,58 +121,58 @@ Designer - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap diff --git a/Modules.EDMIAPI/Modules/IDB/SetAttributeValue.vb b/Modules.EDMIAPI/Modules/IDB/SetAttributeValue.vb new file mode 100644 index 00000000..2504720e --- /dev/null +++ b/Modules.EDMIAPI/Modules/IDB/SetAttributeValue.vb @@ -0,0 +1,38 @@ +Imports DigitalData.Modules.EDMI.API.EDMIServiceReference +Imports DigitalData.Modules.EDMI.API.Options +Imports DigitalData.Modules.Logging + +Namespace Modules.IDB + Public Class SetAttributeValue + Inherits BaseMethod + + Public Sub New(pLogConfig As LogConfig, pChannel As IEDMIServiceChannel) + MyBase.New(pLogConfig, pChannel) + End Sub + + Public Async Function RunAsync(pObjectId As String, pAttributeName As String, pAttributeValue As Object, Optional pOptions As SetAttributeValueOptions = Nothing) As Task(Of Boolean) + Try + Dim oParams As New SetAttributeValueRequest With { + .ObjectId = pObjectId, + .Language = pOptions.Language, + .Who = pOptions.Username, + .AttributeName = pAttributeName, + .AttributeValue = pAttributeValue + } + Dim oResponse As SetAttributeValueResponse = Await Channel.SetAttributeValueAsync(oParams) + + If oResponse.OK Then + Return True + End If + + Logger.Warn("Error while setting Attribute Value: [{0}]", oResponse.ErrorMessage) + Return False + + Catch ex As Exception + Logger.Error(ex) + Return False + + End Try + End Function + End Class +End Namespace \ No newline at end of file diff --git a/Service.EDMIService/IDB/Helpers.vb b/Service.EDMIService/IDB/Helpers.vb index d529624f..e8ea5513 100644 --- a/Service.EDMIService/IDB/Helpers.vb +++ b/Service.EDMIService/IDB/Helpers.vb @@ -198,6 +198,7 @@ Namespace IDB 'End Function Public Function SetAttributeValue(pConnection As SqlConnection, pTransaction As SqlTransaction, pObjectId As Long, pAttributeName As String, pValue As String, pLanguage As String, pWho As String) As Boolean + Logger.Info("Setting value of Attribute [{0}]", pAttributeName) Dim oSql = $" DECLARE @NEW_OBJ_MD_ID BIGINT EXEC PRIDB_NEW_OBJ_DATA {pObjectId}, '{pAttributeName}', '{pWho}', '{pValue}', '{pLanguage}', 0, @OMD_ID = @NEW_OBJ_MD_ID OUTPUT" diff --git a/Service.EDMIService/Methods/IDB/SetAttributeValue/SetAttributeValueMethod.vb b/Service.EDMIService/Methods/IDB/SetAttributeValue/SetAttributeValueMethod.vb index f6185daf..7e372a22 100644 --- a/Service.EDMIService/Methods/IDB/SetAttributeValue/SetAttributeValueMethod.vb +++ b/Service.EDMIService/Methods/IDB/SetAttributeValue/SetAttributeValueMethod.vb @@ -23,6 +23,8 @@ Namespace Methods.IDB.SetAttributeValue LogAndThrow("ObjectId does not exist!") End If + Logger.Debug("Setting value of Attribute [{0}]", pData.AttributeName) + Dim oResult = Helpers.SetAttributeValue(Connection, Transaction, pData.ObjectId, pData.AttributeName, pData.AttributeValue, pData.Language, pData.Who) @@ -30,9 +32,19 @@ Namespace Methods.IDB.SetAttributeValue LogAndThrow("Attribute value could not be set!") End If + Logger.Debug("Attribute value set!") + + ' Finally, commit the transaction + Transaction?.Commit() + Return New SetAttributeValueResponse(pData.ObjectId) Catch ex As Exception Logger.Warn("Error occurred while setting attribute value!") + Logger.Error(ex) + + Logger.Info("Rolling back transaction.") + Transaction?.Rollback() + Return New SetAttributeValueResponse(ex) End Try End Function diff --git a/Service.EDMIService/Methods/IDB/SetAttributeValue/SetAttributeValueRequest.vb b/Service.EDMIService/Methods/IDB/SetAttributeValue/SetAttributeValueRequest.vb index 04085ee9..1d1c58f1 100644 --- a/Service.EDMIService/Methods/IDB/SetAttributeValue/SetAttributeValueRequest.vb +++ b/Service.EDMIService/Methods/IDB/SetAttributeValue/SetAttributeValueRequest.vb @@ -14,7 +14,7 @@ Namespace Methods.IDB.SetAttributeValue Public Property AttributeValue As String - Public Property Who As Long + Public Property Who As String Public Property Language As String End Class