diff --git a/GUIs.Common/Common.vbproj b/GUIs.Common/Common.vbproj index 61e7b302..c91db4eb 100644 --- a/GUIs.Common/Common.vbproj +++ b/GUIs.Common/Common.vbproj @@ -133,6 +133,12 @@ Form + + frmWorkflow_Adhoc_start.vb + + + Form + @@ -175,6 +181,9 @@ frmDocumentResultList.vb Designer + + frmWorkflow_Adhoc_start.vb + VbMyResourcesResXFileCodeGenerator diff --git a/GUIs.Common/My Project/licenses.licx b/GUIs.Common/My Project/licenses.licx index d7156af2..f75c037a 100644 --- a/GUIs.Common/My Project/licenses.licx +++ b/GUIs.Common/My Project/licenses.licx @@ -1,11 +1,12 @@ DevExpress.XtraEditors.Repository.RepositoryItemDateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/GUIs.Common/frmWorkflow_Adhoc_start.Designer.vb b/GUIs.Common/frmWorkflow_Adhoc_start.Designer.vb new file mode 100644 index 00000000..9ebffca2 --- /dev/null +++ b/GUIs.Common/frmWorkflow_Adhoc_start.Designer.vb @@ -0,0 +1,235 @@ + _ +Partial Class frmWorkflow_Adhoc_start + 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() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWorkflow_Adhoc_start)) + Dim ItemTemplateBase1 As DevExpress.XtraEditors.TableLayout.ItemTemplateBase = New DevExpress.XtraEditors.TableLayout.ItemTemplateBase() + Dim TableColumnDefinition1 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() + Dim TableColumnDefinition2 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() + Dim TemplatedItemElement1 As DevExpress.XtraEditors.TableLayout.TemplatedItemElement = New DevExpress.XtraEditors.TableLayout.TemplatedItemElement() + Dim TemplatedItemElement2 As DevExpress.XtraEditors.TableLayout.TemplatedItemElement = New DevExpress.XtraEditors.TableLayout.TemplatedItemElement() + Dim TableRowDefinition1 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TableRowDefinition2 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TableRowDefinition3 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.ComboBox1 = New System.Windows.Forms.ComboBox() + Me.LabelControl3 = New DevExpress.XtraEditors.LabelControl() + Me.LookUpEdit1 = New DevExpress.XtraEditors.LookUpEdit() + Me.GroupControl1 = New DevExpress.XtraEditors.GroupControl() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.GroupControl2 = New DevExpress.XtraEditors.GroupControl() + Me.ListBoxControl1 = New DevExpress.XtraEditors.ListBoxControl() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupControl1.SuspendLayout() + CType(Me.GroupControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupControl2.SuspendLayout() + CType(Me.ListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.EmptyAreaImageOptions.ImagePadding = New System.Windows.Forms.Padding(35, 39, 35, 39) + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.RibbonControl1.MaxItemId = 1 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.OptionsMenuMinWidth = 385 + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.Size = New System.Drawing.Size(933, 158) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "RibbonPageGroup2" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 706) + Me.RibbonStatusBar1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(933, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'ComboBox1 + ' + Me.ComboBox1.FormattingEnabled = True + Me.ComboBox1.Location = New System.Drawing.Point(5, 27) + Me.ComboBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.ComboBox1.Name = "ComboBox1" + Me.ComboBox1.Size = New System.Drawing.Size(337, 21) + Me.ComboBox1.TabIndex = 2 + ' + 'LabelControl3 + ' + Me.LabelControl3.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LabelControl3.Appearance.Options.UseFont = True + Me.LabelControl3.Location = New System.Drawing.Point(526, 649) + Me.LabelControl3.Name = "LabelControl3" + Me.LabelControl3.Size = New System.Drawing.Size(81, 17) + Me.LabelControl3.TabIndex = 7 + Me.LabelControl3.Text = "LabelControl3" + ' + 'LookUpEdit1 + ' + Me.LookUpEdit1.Location = New System.Drawing.Point(5, 30) + Me.LookUpEdit1.MenuManager = Me.RibbonControl1 + Me.LookUpEdit1.Name = "LookUpEdit1" + Me.LookUpEdit1.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LookUpEdit1.Properties.Appearance.Options.UseFont = True + Me.LookUpEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.LookUpEdit1.Size = New System.Drawing.Size(337, 24) + Me.LookUpEdit1.TabIndex = 8 + ' + 'GroupControl1 + ' + Me.GroupControl1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GroupControl1.Controls.Add(Me.SimpleButton1) + Me.GroupControl1.Controls.Add(Me.LookUpEdit1) + Me.GroupControl1.Location = New System.Drawing.Point(12, 242) + Me.GroupControl1.Name = "GroupControl1" + Me.GroupControl1.Size = New System.Drawing.Size(909, 70) + Me.GroupControl1.TabIndex = 10 + Me.GroupControl1.Text = "Benutzerauswahl" + ' + 'SimpleButton1 + ' + Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton1.Location = New System.Drawing.Point(348, 23) + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light + Me.SimpleButton1.Size = New System.Drawing.Size(108, 31) + Me.SimpleButton1.TabIndex = 9 + Me.SimpleButton1.Text = "Hinzufügen" + ' + 'GroupControl2 + ' + Me.GroupControl2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GroupControl2.Controls.Add(Me.ComboBox1) + Me.GroupControl2.Location = New System.Drawing.Point(12, 173) + Me.GroupControl2.Name = "GroupControl2" + Me.GroupControl2.Size = New System.Drawing.Size(909, 63) + Me.GroupControl2.TabIndex = 11 + Me.GroupControl2.Text = "Workflow-Layout Auswahl" + ' + 'ListBoxControl1 + ' + Me.ListBoxControl1.ItemHeight = 120 + Me.ListBoxControl1.Location = New System.Drawing.Point(17, 337) + Me.ListBoxControl1.Name = "ListBoxControl1" + Me.ListBoxControl1.Size = New System.Drawing.Size(561, 172) + Me.ListBoxControl1.TabIndex = 12 + ItemTemplateBase1.Columns.Add(TableColumnDefinition1) + ItemTemplateBase1.Columns.Add(TableColumnDefinition2) + TemplatedItemElement1.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + TemplatedItemElement1.Appearance.Normal.Options.UseFont = True + TemplatedItemElement1.FieldName = Nothing + TemplatedItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TemplatedItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TemplatedItemElement1.Text = "element1" + TemplatedItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TemplatedItemElement2.FieldName = Nothing + TemplatedItemElement2.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TemplatedItemElement2.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TemplatedItemElement2.RowIndex = 1 + TemplatedItemElement2.Text = "element2" + TemplatedItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + ItemTemplateBase1.Elements.Add(TemplatedItemElement1) + ItemTemplateBase1.Elements.Add(TemplatedItemElement2) + ItemTemplateBase1.Name = "template1" + ItemTemplateBase1.Rows.Add(TableRowDefinition1) + ItemTemplateBase1.Rows.Add(TableRowDefinition2) + ItemTemplateBase1.Rows.Add(TableRowDefinition3) + Me.ListBoxControl1.Templates.Add(ItemTemplateBase1) + ' + 'frmWorkflow_Adhoc_start + ' + Me.Appearance.Options.UseFont = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(933, 730) + Me.Controls.Add(Me.ListBoxControl1) + Me.Controls.Add(Me.GroupControl2) + Me.Controls.Add(Me.GroupControl1) + Me.Controls.Add(Me.LabelControl3) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.Name = "frmWorkflow_Adhoc_start" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Ad-hoc Workflow starten" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupControl1.ResumeLayout(False) + CType(Me.GroupControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupControl2.ResumeLayout(False) + CType(Me.ListBoxControl1, 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 RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents ComboBox1 As Windows.Forms.ComboBox + Friend WithEvents LabelControl3 As DevExpress.XtraEditors.LabelControl + Friend WithEvents LookUpEdit1 As DevExpress.XtraEditors.LookUpEdit + Friend WithEvents GroupControl1 As DevExpress.XtraEditors.GroupControl + Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents GroupControl2 As DevExpress.XtraEditors.GroupControl + Friend WithEvents ListBoxControl1 As DevExpress.XtraEditors.ListBoxControl +End Class diff --git a/GUIs.Common/frmWorkflow_Adhoc_start.resx b/GUIs.Common/frmWorkflow_Adhoc_start.resx new file mode 100644 index 00000000..cf5ad933 --- /dev/null +++ b/GUIs.Common/frmWorkflow_Adhoc_start.resx @@ -0,0 +1,139 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZENpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0xNiw0 + QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHogTTI0 + LDE4aC02djZoLTR2LTZIOHYtNGg2VjhoNHY2aDZWMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N + Cjwvc3ZnPgs= + + + \ No newline at end of file diff --git a/GUIs.Common/frmWorkflow_Adhoc_start.vb b/GUIs.Common/frmWorkflow_Adhoc_start.vb new file mode 100644 index 00000000..d01f2b14 --- /dev/null +++ b/GUIs.Common/frmWorkflow_Adhoc_start.vb @@ -0,0 +1,122 @@ +Imports DigitalData.Modules.ZooFlow +Imports DigitalData.Modules.Logging +Imports DigitalData.GUIs.Common.Base +Imports DigitalData.Modules.ZooFlow.Constants +Imports DigitalData.Modules.EDMI.API +Imports DevExpress.XtraEditors +Imports System.Drawing +Imports DigitalData.Modules.EDMI.API.EDMIServiceReference + +Public Class frmWorkflow_Adhoc_start + Private ReadOnly Property LogConfig As LogConfig + Private ReadOnly Property Logger As Logger + Private Property OperationMode As OperationMode + Private ReadOnly Environment As Environment + Private Client As Client + Private IsLoading As Boolean = True + Public Sub New(pLogConfig As LogConfig, pEnvironment As Environment, pObjectID As Long) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + LogConfig = pLogConfig + Logger = pLogConfig.GetLogger() + End Sub + Private Function GetOperationMode() As OperationMode + Dim oOperationMode As OperationMode + + If Environment.Service.Client.IsOnline AndAlso Environment.Service.Address <> String.Empty Then + oOperationMode = OperationMode.WithAppServer + Else + oOperationMode = OperationMode.NoAppServer + End If + + Return oOperationMode + End Function + Private Function InitAppServer() As Boolean + Dim oServerAddress = Client.ParseServiceAddress(Environment.Service.Client.ServerAddress) + Dim oAddress As String = oServerAddress.Item1 + Dim oPort As Integer = oServerAddress.Item2 + + Client = New Client(LogConfig, oAddress, oPort) + + If Not Client.Connect() Then + Logger.Warn("Client could not connect to Service at [{0}]", Environment.Service.Address) + Return False + End If + + Return True + End Function + Private Sub frmWorkflow_Adhoc_start_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + ' Operation mode is either guessed from service settings + ' or explictly set from OperationModeOverride in Params + OperationMode = GetOperationMode() + If OperationMode = OperationMode.WithAppServer Or OperationMode = OperationMode.ZooFlow Then + If InitAppServer() = False Then + Me.Close() + End If + + End If + + + ' Initialize Viewer with GDPicture.NET License + ' Hide options relating to a filepath for zooflow + If OperationMode = OperationMode.ZooFlow Then + ' RibbonPageGroupFilesystem.Visible = False + End If + + If OperationMode = OperationMode.NoAppServer Then + ' RibbonPageGroupCheckInOut.Visible = False + ' RibbonPageGroupWorkflow.Visible = False + ' RibbonPageGroupAttribute.Visible = False + Else + ' RibbonPageGroupFilesystem.Visible = False + End If + Dim oDatatableUserselect As DataTable + Dim oSQL = $"SELECT NAME + ', ' + PRENAME AS FULLNAME,EMAIL,USERNAME FROM TBDD_USER" + Dim oResult As GetDatatableResponse = Nothing + If OperationMode = OperationMode.ZooFlow Or OperationMode = OperationMode.WithAppServer Then + oResult = Client.GetDatatableFromECM(oSQL) + If oResult.OK = False Then + Throw New ApplicationException(oResult.ErrorMessage) + Else + oDatatableUserselect = oResult.Table + End If + + Else + oDatatableUserselect = Environment.Database.GetDatatable(oSQL) + End If + + If OperationMode = OperationMode.NoAppServer Then + ' panelContainerStatus.Visibility = Docking.DockVisibility.Hidden + End If + + ' Hide the complete Navigation Ribbon Group if desired + + Catch ex As Exception + Logger.Error(ex) + MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Error while loading form:") + + + Finally + IsLoading = False + + End Try + End Sub + + Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click + ListBoxControl1.Items.Add(New ListItem() With { + .Name = "Marlon Schreiber", + .email = "m.schreiber@digitaldata.works" + }) + ListBoxControl1.Items.Add(New ListItem() With { + .Name = "Jonathan Jenne", + .email = "j.jenner@digitaldata.works" + }) + End Sub + + Private Class ListItem + Public Name As String + Public email As String + End Class +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.Designer.vb b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.Designer.vb index cf91d165..68e5629a 100644 --- a/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.Designer.vb +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.Designer.vb @@ -295,7 +295,9 @@ Partial Class frmGlobix_Index ' 'SimpleButton1 ' - Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SimpleButton1.Appearance.BackColor = DevExpress.LookAndFeel.DXSkinColors.FillColors.Primary + Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SimpleButton1.Appearance.Options.UseBackColor = True Me.SimpleButton1.Appearance.Options.UseFont = True Me.SimpleButton1.Dock = System.Windows.Forms.DockStyle.Fill Me.SimpleButton1.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleRight diff --git a/GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb b/GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb index 236b224d..b8f3072a 100644 --- a/GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb +++ b/GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb @@ -58,8 +58,8 @@ Partial Class frmFlowSearch1 Me.Label1 = New System.Windows.Forms.Label() Me.cmbLimitationDateAttr = New System.Windows.Forms.ComboBox() Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit() - Me.txtSearchInput = New DevExpress.XtraEditors.TextEdit() Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.TextEditSearch = New DevExpress.XtraEditors.TextEdit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit() Me.DockPanel1.SuspendLayout() @@ -81,7 +81,7 @@ Partial Class frmFlowSearch1 CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtSearchInput.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditSearch.Properties, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'RibbonControl1 @@ -94,7 +94,7 @@ Partial Class frmFlowSearch1 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(936, 89) + Me.RibbonControl1.Size = New System.Drawing.Size(943, 89) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' 'BarButtonStartSearch @@ -170,10 +170,10 @@ Partial Class frmFlowSearch1 'RibbonStatusBar1 ' Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiStatus) - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 745) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 515) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(936, 24) + Me.RibbonStatusBar1.Size = New System.Drawing.Size(943, 24) ' 'RibbonPage2 ' @@ -197,7 +197,7 @@ Partial Class frmFlowSearch1 Me.DockPanel1.Location = New System.Drawing.Point(0, 89) Me.DockPanel1.Name = "DockPanel1" Me.DockPanel1.OriginalSize = New System.Drawing.Size(193, 200) - Me.DockPanel1.Size = New System.Drawing.Size(193, 656) + Me.DockPanel1.Size = New System.Drawing.Size(193, 426) Me.DockPanel1.Text = "Datum" ' 'DockPanel1_Container @@ -207,7 +207,7 @@ Partial Class frmFlowSearch1 Me.DockPanel1_Container.Controls.Add(Me.cmbLimitationDateAttr) Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 40) Me.DockPanel1_Container.Name = "DockPanel1_Container" - Me.DockPanel1_Container.Size = New System.Drawing.Size(186, 613) + Me.DockPanel1_Container.Size = New System.Drawing.Size(186, 383) Me.DockPanel1_Container.TabIndex = 0 ' 'XtraTabControl1 @@ -220,7 +220,7 @@ Partial Class frmFlowSearch1 Me.XtraTabControl1.Name = "XtraTabControl1" Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 Me.XtraTabControl1.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True] - Me.XtraTabControl1.Size = New System.Drawing.Size(171, 552) + Me.XtraTabControl1.Size = New System.Drawing.Size(171, 322) Me.XtraTabControl1.TabIndex = 10 Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) ' @@ -241,13 +241,13 @@ Partial Class frmFlowSearch1 Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYear_Last) Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYear) Me.XtraTabPage1.Name = "XtraTabPage1" - Me.XtraTabPage1.Size = New System.Drawing.Size(169, 527) + Me.XtraTabPage1.Size = New System.Drawing.Size(169, 297) Me.XtraTabPage1.Text = "Standard" ' 'DateEditTill ' Me.DateEditTill.EditValue = Nothing - Me.DateEditTill.Location = New System.Drawing.Point(3, 281) + Me.DateEditTill.Location = New System.Drawing.Point(3, 260) Me.DateEditTill.MenuManager = Me.RibbonControl1 Me.DateEditTill.Name = "DateEditTill" Me.DateEditTill.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) @@ -267,7 +267,7 @@ Partial Class frmFlowSearch1 ' 'ToggleSwitchDateto ' - Me.ToggleSwitchDateto.Location = New System.Drawing.Point(3, 256) + Me.ToggleSwitchDateto.Location = New System.Drawing.Point(3, 235) Me.ToggleSwitchDateto.MenuManager = Me.RibbonControl1 Me.ToggleSwitchDateto.Name = "ToggleSwitchDateto" Me.ToggleSwitchDateto.Properties.OffText = "Datum bis" @@ -277,7 +277,7 @@ Partial Class frmFlowSearch1 ' 'lblDatefrom ' - Me.lblDatefrom.Location = New System.Drawing.Point(3, 211) + Me.lblDatefrom.Location = New System.Drawing.Point(2, 190) Me.lblDatefrom.Name = "lblDatefrom" Me.lblDatefrom.Size = New System.Drawing.Size(34, 13) Me.lblDatefrom.TabIndex = 3 @@ -286,7 +286,7 @@ Partial Class frmFlowSearch1 'DateEditFrom ' Me.DateEditFrom.EditValue = Nothing - Me.DateEditFrom.Location = New System.Drawing.Point(3, 230) + Me.DateEditFrom.Location = New System.Drawing.Point(3, 209) Me.DateEditFrom.MenuManager = Me.RibbonControl1 Me.DateEditFrom.Name = "DateEditFrom" Me.DateEditFrom.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) @@ -370,7 +370,7 @@ Partial Class frmFlowSearch1 'XtraTabPage2 ' Me.XtraTabPage2.Name = "XtraTabPage2" - Me.XtraTabPage2.Size = New System.Drawing.Size(169, 527) + Me.XtraTabPage2.Size = New System.Drawing.Size(169, 297) Me.XtraTabPage2.Text = "...tbd" ' 'Label1 @@ -392,11 +392,9 @@ Partial Class frmFlowSearch1 ' 'PictureEdit1 ' - Me.PictureEdit1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.PictureEdit1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_CW_DevExpress - Me.PictureEdit1.Location = New System.Drawing.Point(709, 537) + Me.PictureEdit1.Location = New System.Drawing.Point(716, 307) Me.PictureEdit1.MenuManager = Me.RibbonControl1 Me.PictureEdit1.Name = "PictureEdit1" Me.PictureEdit1.Properties.Appearance.BackColor = System.Drawing.SystemColors.Control @@ -408,39 +406,35 @@ Partial Class frmFlowSearch1 Me.PictureEdit1.Size = New System.Drawing.Size(215, 202) Me.PictureEdit1.TabIndex = 8 ' - 'txtSearchInput - ' - Me.txtSearchInput.EditValue = "" - Me.txtSearchInput.Location = New System.Drawing.Point(206, 95) - Me.txtSearchInput.MenuManager = Me.RibbonControl1 - Me.txtSearchInput.Name = "txtSearchInput" - Me.txtSearchInput.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI Semibold", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSearchInput.Properties.Appearance.ForeColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(19, Byte), Integer)) - Me.txtSearchInput.Properties.Appearance.Options.UseFont = True - Me.txtSearchInput.Properties.Appearance.Options.UseForeColor = True - Me.txtSearchInput.Properties.NullText = "Suchbegriff eingeben" - Me.txtSearchInput.Properties.Padding = New System.Windows.Forms.Padding(10) - Me.txtSearchInput.Size = New System.Drawing.Size(673, 46) - Me.txtSearchInput.TabIndex = 12 - ' 'SimpleButton1 ' + Me.SimpleButton1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.SimpleButton1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_CW_DevExpress Me.SimpleButton1.ImageOptions.SvgImageSize = New System.Drawing.Size(40, 40) - Me.SimpleButton1.Location = New System.Drawing.Point(878, 95) + Me.SimpleButton1.Location = New System.Drawing.Point(885, 95) Me.SimpleButton1.Name = "SimpleButton1" Me.SimpleButton1.Size = New System.Drawing.Size(46, 46) Me.SimpleButton1.TabIndex = 16 ' + 'TextEditSearch + ' + Me.TextEditSearch.Location = New System.Drawing.Point(199, 95) + Me.TextEditSearch.MenuManager = Me.RibbonControl1 + Me.TextEditSearch.Name = "TextEditSearch" + Me.TextEditSearch.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 18.0!) + Me.TextEditSearch.Properties.Appearance.Options.UseFont = True + Me.TextEditSearch.Size = New System.Drawing.Size(680, 38) + Me.TextEditSearch.TabIndex = 20 + ' 'frmFlowSearch1 ' Me.Appearance.BackColor = System.Drawing.SystemColors.Control Me.Appearance.Options.UseBackColor = True Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(936, 769) + Me.ClientSize = New System.Drawing.Size(943, 539) + Me.Controls.Add(Me.TextEditSearch) Me.Controls.Add(Me.SimpleButton1) - Me.Controls.Add(Me.txtSearchInput) Me.Controls.Add(Me.PictureEdit1) Me.Controls.Add(Me.DockPanel1) Me.Controls.Add(Me.RibbonStatusBar1) @@ -473,7 +467,7 @@ Partial Class frmFlowSearch1 CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtSearchInput.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditSearch.Properties, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -513,6 +507,6 @@ Partial Class frmFlowSearch1 Friend WithEvents DateEditTill As DevExpress.XtraEditors.DateEdit Friend WithEvents DateEditFrom As DevExpress.XtraEditors.DateEdit Friend WithEvents ToggleSwitchDateto As DevExpress.XtraEditors.ToggleSwitch - Friend WithEvents txtSearchInput As DevExpress.XtraEditors.TextEdit Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents TextEditSearch As DevExpress.XtraEditors.TextEdit End Class diff --git a/GUIs.ZooFlow/Search/frmFlowSearch1.vb b/GUIs.ZooFlow/Search/frmFlowSearch1.vb index 210a1dcc..96b1d308 100644 --- a/GUIs.ZooFlow/Search/frmFlowSearch1.vb +++ b/GUIs.ZooFlow/Search/frmFlowSearch1.vb @@ -125,7 +125,6 @@ Public Class frmFlowSearch1 Else cmbLimitationDateAttr.Items.Add(IDB_ADDED_WHEN_String_Englisch) End If - 'Dim oDT As DataTable = My.DatabaseIDB.GetDatatable($"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE TYPE_ID IN (5,6) AND LANG_ID = {My.Application.User.LanguageId}") For Each oRow As DataRow In My.Tables.DTIDB_ATTRIBUTE.Rows If CBool(oRow.Item("SYS_ATTRIBUTE")) = False And (oRow.Item("TYP_ID") = 5 Or oRow.Item("TYP_ID") = 6) Then @@ -163,9 +162,9 @@ Public Class frmFlowSearch1 collection.Add(orow.Item("TERM")) Next - txtSearchInput.MaskBox.AutoCompleteSource = AutoCompleteSource.CustomSource - txtSearchInput.MaskBox.AutoCompleteMode = AutoCompleteMode.SuggestAppend - txtSearchInput.MaskBox.AutoCompleteCustomSource = collection + TextEditSearch.MaskBox.AutoCompleteSource = AutoCompleteSource.CustomSource + TextEditSearch.MaskBox.AutoCompleteMode = AutoCompleteMode.SuggestAppend + TextEditSearch.MaskBox.AutoCompleteCustomSource = collection TogglesDate = New List(Of ToggleSwitch) From { ToggleSwitchTomorrow, @@ -190,7 +189,7 @@ Public Class frmFlowSearch1 Dim oHandle = SplashScreenManager.ShowOverlayForm(Me) Try - Dim oResult = Await SearchRunner.Run(txtSearchInput.Text, DateEditFrom.EditValue, DateEditTill.EditValue) + Dim oResult = Await SearchRunner.Run(TextEditSearch.Text, DateEditFrom.EditValue, DateEditTill.EditValue) If oResult.OK = False Then bsiStatus.Caption = oResult.ErrorMessage End If @@ -206,29 +205,8 @@ Public Class frmFlowSearch1 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 - Return - End If - - Dim oHandle = SplashScreenManager.ShowOverlayForm(Me) - - Try - Dim oResult = Await SearchRunner.Run(txtSearchInput.Text, DateEditFrom.EditValue, DateEditTill.EditValue) - If oResult.OK = False Then - bsiStatus.Caption = oResult.ErrorMessage - End If - Catch ex As Exception - Logger.Error(ex) - Finally - SplashScreenManager.CloseOverlayForm(oHandle) - End Try - End If - End Function - Private Sub BarButtonReset_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonReset.ItemClick - txtSearchInput.Text = "" + TextEditSearch.Text = "" ResetTogglesDate() ToggleSwitchDateto.IsOn = False SearchRunner.ExplicitDate = False @@ -255,10 +233,13 @@ Public Class frmFlowSearch1 End Sub Private Async Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click + RunSearch() + End Sub + Private Async Sub RunSearch() Dim oHandle = SplashScreenManager.ShowOverlayForm(Me) Try - Dim oResult = Await SearchRunner.Run(txtSearchInput.Text, DateEditFrom.EditValue, DateEditTill.EditValue) + Dim oResult = Await SearchRunner.Run(TextEditSearch.Text, DateEditFrom.EditValue, DateEditTill.EditValue) If oResult.OK = False Then bsiStatus.Caption = oResult.ErrorMessage End If @@ -268,4 +249,18 @@ Public Class frmFlowSearch1 SplashScreenManager.CloseOverlayForm(oHandle) End Try End Sub + + Private Sub TextEditSearch_KeyUp(sender As Object, e As KeyEventArgs) Handles TextEditSearch.KeyUp + If e.KeyCode = Keys.Return Then + If TextEditSearch.Text = String.Empty Then + Return + End If + + RunSearch() + End If + End Sub + + Private Sub PictureEdit1_Click(sender As Object, e As EventArgs) Handles PictureEdit1.Click + RunSearch() + End Sub End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/frmServiceConfig.Designer.vb b/GUIs.ZooFlow/frmServiceConfig.Designer.vb index 3574bdb4..b18877f3 100644 --- a/GUIs.ZooFlow/frmServiceConfig.Designer.vb +++ b/GUIs.ZooFlow/frmServiceConfig.Designer.vb @@ -28,32 +28,32 @@ Partial Class frmServiceConfig Me.btnOK = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.txtServicePort = New DevExpress.XtraEditors.SpinEdit() + Me.txtStatus = New DevExpress.XtraEditors.TextEdit() Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() - Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.txtStatus = New DevExpress.XtraEditors.TextEdit() Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.txtServicePort = New DevExpress.XtraEditors.TextEdit() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.LayoutControl1.SuspendLayout() CType(Me.txtServiceAddress.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtStatus.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtStatus.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'LayoutControl1 ' Me.LayoutControl1.Controls.Add(Me.txtServiceAddress) - Me.LayoutControl1.Controls.Add(Me.txtServicePort) Me.LayoutControl1.Controls.Add(Me.txtStatus) + Me.LayoutControl1.Controls.Add(Me.txtServicePort) Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.LayoutControl1.Location = New System.Drawing.Point(0, 63) Me.LayoutControl1.Name = "LayoutControl1" @@ -105,16 +105,15 @@ Partial Class frmServiceConfig Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "RibbonPageGroup1" ' - 'txtServicePort + 'txtStatus ' - Me.txtServicePort.EditValue = New Decimal(New Integer() {9000, 0, 0, 0}) - Me.txtServicePort.Location = New System.Drawing.Point(105, 70) - Me.txtServicePort.MenuManager = Me.RibbonControl1 - Me.txtServicePort.Name = "txtServicePort" - Me.txtServicePort.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.txtServicePort.Size = New System.Drawing.Size(485, 20) - Me.txtServicePort.StyleController = Me.LayoutControl1 - Me.txtServicePort.TabIndex = 5 + Me.txtStatus.Location = New System.Drawing.Point(105, 100) + Me.txtStatus.MenuManager = Me.RibbonControl1 + Me.txtStatus.Name = "txtStatus" + Me.txtStatus.Properties.ReadOnly = True + Me.txtStatus.Size = New System.Drawing.Size(485, 20) + Me.txtStatus.StyleController = Me.LayoutControl1 + Me.txtStatus.TabIndex = 6 ' 'Root ' @@ -153,21 +152,6 @@ Partial Class frmServiceConfig Me.EmptySpaceItem1.Size = New System.Drawing.Size(610, 72) Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) ' - 'RibbonPage2 - ' - Me.RibbonPage2.Name = "RibbonPage2" - Me.RibbonPage2.Text = "RibbonPage2" - ' - 'txtStatus - ' - Me.txtStatus.Location = New System.Drawing.Point(105, 100) - Me.txtStatus.MenuManager = Me.RibbonControl1 - Me.txtStatus.Name = "txtStatus" - Me.txtStatus.Properties.ReadOnly = True - Me.txtStatus.Size = New System.Drawing.Size(485, 20) - Me.txtStatus.StyleController = Me.LayoutControl1 - Me.txtStatus.TabIndex = 6 - ' 'LayoutControlItem3 ' Me.LayoutControlItem3.Control = Me.txtStatus @@ -178,6 +162,23 @@ Partial Class frmServiceConfig Me.LayoutControlItem3.Text = "Status" Me.LayoutControlItem3.TextSize = New System.Drawing.Size(53, 13) ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'txtServicePort + ' + Me.txtServicePort.EditValue = New Decimal(New Integer() {9000, 0, 0, 0}) + Me.txtServicePort.Location = New System.Drawing.Point(105, 70) + Me.txtServicePort.MenuManager = Me.RibbonControl1 + Me.txtServicePort.Name = "txtServicePort" + Me.txtServicePort.Properties.EditValueChangedFiringMode = DevExpress.XtraEditors.Controls.EditValueChangedFiringMode.Buffered + Me.txtServicePort.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Numeric + Me.txtServicePort.Size = New System.Drawing.Size(485, 20) + Me.txtServicePort.StyleController = Me.LayoutControl1 + Me.txtServicePort.TabIndex = 5 + ' 'frmServiceConfig ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -192,13 +193,13 @@ Partial Class frmServiceConfig Me.LayoutControl1.ResumeLayout(False) CType(Me.txtServiceAddress.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtStatus.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtStatus.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -212,10 +213,10 @@ Partial Class frmServiceConfig Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents btnOK As DevExpress.XtraBars.BarButtonItem Friend WithEvents txtServiceAddress As DevExpress.XtraEditors.TextEdit - Friend WithEvents txtServicePort As DevExpress.XtraEditors.SpinEdit Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem Friend WithEvents txtStatus As DevExpress.XtraEditors.TextEdit Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents txtServicePort As DevExpress.XtraEditors.TextEdit End Class diff --git a/GUIs.ZooFlow/frmServiceConfig.vb b/GUIs.ZooFlow/frmServiceConfig.vb index 0a09f0c3..d33add26 100644 --- a/GUIs.ZooFlow/frmServiceConfig.vb +++ b/GUIs.ZooFlow/frmServiceConfig.vb @@ -19,11 +19,13 @@ Public Class frmServiceConfig txtServiceAddress.Text = oAddress.Item1 txtServicePort.Text = oAddress.Item2 End If - - If My.Application.Service.Client.IsOnline Then - txtStatus.Text = STATUS_CONNECTED + If Not IsNothing(My.Application.Service.Client) Then + If My.Application.Service.Client.IsOnline Then + txtStatus.Text = STATUS_CONNECTED + End If End If + txtServiceAddress.Focus() End Sub diff --git a/GUIs.ZooFlow/frmtest.Designer.vb b/GUIs.ZooFlow/frmtest.Designer.vb index 7c2d4d63..9911b47e 100644 --- a/GUIs.ZooFlow/frmtest.Designer.vb +++ b/GUIs.ZooFlow/frmtest.Designer.vb @@ -38,6 +38,7 @@ Partial Class frmtest Me.txtIDB_OBJ_ID = New System.Windows.Forms.TextBox() Me.txtDoctypeID = New System.Windows.Forms.TextBox() Me.Label3 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() Me.SuspendLayout() ' 'Label2 @@ -172,11 +173,21 @@ Partial Class frmtest Me.Label3.TabIndex = 23 Me.Label3.Text = "DoctypeID" ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(12, 191) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(154, 23) + Me.Button1.TabIndex = 24 + Me.Button1.Text = "AdhocWorkflow" + Me.Button1.UseVisualStyleBackColor = True + ' 'frmtest ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(865, 450) + Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.txtDoctypeID) Me.Controls.Add(Me.txtProfileId) @@ -214,4 +225,5 @@ Partial Class frmtest Friend WithEvents txtProfileId As TextBox Friend WithEvents txtDoctypeID As TextBox Friend WithEvents Label3 As Label + Friend WithEvents Button1 As Button End Class diff --git a/GUIs.ZooFlow/frmtest.vb b/GUIs.ZooFlow/frmtest.vb index 1a30aee0..aeb00231 100644 --- a/GUIs.ZooFlow/frmtest.vb +++ b/GUIs.ZooFlow/frmtest.vb @@ -1,9 +1,14 @@ Imports DigitalData.Modules.EDMI.API.EDMIServiceReference Imports DigitalData.Modules.Base.IDB.FileStore +Imports DigitalData.GUIs.Common +Imports DigitalData.Modules.ZooFlow Public Class frmtest + Private Property Environment As Environment + Private Sub frmtest_Load(sender As Object, e As EventArgs) Handles MyBase.Load cmbObjectStoreType.SelectedIndex = 0 + Environment = My.Application.GetEnvironment() End Sub Private Sub btnOpenFile_Click(sender As Object, e As EventArgs) Handles btnOpenFile.Click @@ -66,4 +71,11 @@ Public Class frmtest End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Dim oForm As New frmWorkflow_Adhoc_start(My.LogConfig, Environment, 4711) + oForm.Show() + oForm.BringToFront() + oForm.Focus() + End Sub End Class \ No newline at end of file