workflows

2019-07-02 14:54:57 +02:00
parent 8a30f645f8
commit 507e67309f
14 changed files with 595 additions and 210 deletions
--- a/GUIs.ClientSuite/Workflow/frmWorkflowOverview.Designer.vb
+++ b/GUIs.ClientSuite/Workflow/frmWorkflowOverview.Designer.vb
@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmWorkflowOverview
-    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
+    Inherits DigitalData.GUIs.ClientSuite.Base.BaseRibbonForm

    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    <System.Diagnostics.DebuggerNonUserCode()>
@@ -32,8 +32,8 @@ Partial Class frmWorkflowOverview
        Dim TableRowDefinition3 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
        Dim TableSpan1 As DevExpress.XtraEditors.TableLayout.TableSpan = New DevExpress.XtraEditors.TableLayout.TableSpan()
        Dim TileViewItemElement1 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
-        Dim WindowsUIButtonImageOptions3 As DevExpress.XtraBars.Docking2010.WindowsUIButtonImageOptions = New DevExpress.XtraBars.Docking2010.WindowsUIButtonImageOptions()
-        Dim WindowsUIButtonImageOptions4 As DevExpress.XtraBars.Docking2010.WindowsUIButtonImageOptions = New DevExpress.XtraBars.Docking2010.WindowsUIButtonImageOptions()
+        Dim WindowsUIButtonImageOptions1 As DevExpress.XtraBars.Docking2010.WindowsUIButtonImageOptions = New DevExpress.XtraBars.Docking2010.WindowsUIButtonImageOptions()
+        Dim WindowsUIButtonImageOptions2 As DevExpress.XtraBars.Docking2010.WindowsUIButtonImageOptions = New DevExpress.XtraBars.Docking2010.WindowsUIButtonImageOptions()
        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
        Me.BarCheckItem1 = New DevExpress.XtraBars.BarCheckItem()
        Me.BarCheckItem2 = New DevExpress.XtraBars.BarCheckItem()
@@ -43,15 +43,8 @@ Partial Class frmWorkflowOverview
        Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.NavBarControl1 = New DevExpress.XtraNavBar.NavBarControl()
-        Me.NavBarGroup1 = New DevExpress.XtraNavBar.NavBarGroup()
-        Me.NavBarItem1 = New DevExpress.XtraNavBar.NavBarItem()
-        Me.NavBarItem2 = New DevExpress.XtraNavBar.NavBarItem()
-        Me.NavBarItem3 = New DevExpress.XtraNavBar.NavBarItem()
        Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
-        Me.GridWorkflowOverview = New DevExpress.XtraGrid.GridControl()
-        Me.gvOverview = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.NavControlOverview = New DigitalData.GUIs.ClientSuite.NavControlOverview()
        Me.GridWorkflowDetails = New DevExpress.XtraGrid.GridControl()
        Me.tvDetails = New DevExpress.XtraGrid.Views.Tile.TileView()
        Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
@@ -61,13 +54,10 @@ Partial Class frmWorkflowOverview
        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.SimpleLabelItem2 = New DevExpress.XtraLayout.SimpleLabelItem()
        Me.SimpleLabelItem3 = New DevExpress.XtraLayout.SimpleLabelItem()
+        Me.GridOverview = New DigitalData.GUIs.ClientSuite.GridOverview()
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SplitContainerControl1.SuspendLayout()
-        CType(Me.GridWorkflowOverview, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.gvOverview, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridWorkflowDetails, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.tvDetails, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -149,86 +139,30 @@ Partial Class frmWorkflowOverview
        Me.RibbonPage2.Name = "RibbonPage2"
        Me.RibbonPage2.Text = "RibbonPage2"
        '
-        'NavBarControl1
-        '
-        Me.NavBarControl1.ActiveGroup = Me.NavBarGroup1
-        Me.NavBarControl1.Dock = System.Windows.Forms.DockStyle.Left
-        Me.NavBarControl1.Groups.AddRange(New DevExpress.XtraNavBar.NavBarGroup() {Me.NavBarGroup1})
-        Me.NavBarControl1.Items.AddRange(New DevExpress.XtraNavBar.NavBarItem() {Me.NavBarItem1, Me.NavBarItem2, Me.NavBarItem3})
-        Me.NavBarControl1.Location = New System.Drawing.Point(0, 146)
-        Me.NavBarControl1.Name = "NavBarControl1"
-        Me.NavBarControl1.OptionsNavPane.ExpandedWidth = 200
-        Me.NavBarControl1.OptionsNavPane.GroupImageShowMode = DevExpress.XtraNavBar.GroupImageShowMode.InCollapsedState
-        Me.NavBarControl1.Size = New System.Drawing.Size(200, 556)
-        Me.NavBarControl1.TabIndex = 2
-        Me.NavBarControl1.Text = "NavBarControl1"
-        Me.NavBarControl1.View = New DevExpress.XtraNavBar.ViewInfo.SkinNavigationPaneViewInfoRegistrator()
-        '
-        'NavBarGroup1
-        '
-        Me.NavBarGroup1.Caption = "Workflows"
-        Me.NavBarGroup1.Expanded = True
-        Me.NavBarGroup1.ImageOptions.SmallImage = CType(resources.GetObject("NavBarGroup1.ImageOptions.SmallImage"), System.Drawing.Image)
-        Me.NavBarGroup1.ItemLinks.AddRange(New DevExpress.XtraNavBar.NavBarItemLink() {New DevExpress.XtraNavBar.NavBarItemLink(Me.NavBarItem1), New DevExpress.XtraNavBar.NavBarItemLink(Me.NavBarItem2), New DevExpress.XtraNavBar.NavBarItemLink(Me.NavBarItem3)})
-        Me.NavBarGroup1.Name = "NavBarGroup1"
-        '
-        'NavBarItem1
-        '
-        Me.NavBarItem1.Caption = "Alle Workflows (100)"
-        Me.NavBarItem1.ImageOptions.SmallImage = CType(resources.GetObject("NavBarItem1.ImageOptions.SmallImage"), System.Drawing.Image)
-        Me.NavBarItem1.Name = "NavBarItem1"
-        '
-        'NavBarItem2
-        '
-        Me.NavBarItem2.Caption = "Rechnungseingang (80)"
-        Me.NavBarItem2.ImageOptions.SmallImage = CType(resources.GetObject("NavBarItem2.ImageOptions.SmallImage"), System.Drawing.Image)
-        Me.NavBarItem2.Name = "NavBarItem2"
-        '
-        'NavBarItem3
-        '
-        Me.NavBarItem3.Caption = "Vertragsprüfung (20)"
-        Me.NavBarItem3.ImageOptions.SmallImage = CType(resources.GetObject("NavBarItem3.ImageOptions.SmallImage"), System.Drawing.Image)
-        Me.NavBarItem3.Name = "NavBarItem3"
-        '
        'SplitContainerControl1
        '
        Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainerControl1.Location = New System.Drawing.Point(200, 146)
+        Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 146)
        Me.SplitContainerControl1.Name = "SplitContainerControl1"
-        Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridWorkflowOverview)
+        Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridOverview)
+        Me.SplitContainerControl1.Panel1.Controls.Add(Me.NavControlOverview)
        Me.SplitContainerControl1.Panel1.Text = "Panel1"
        Me.SplitContainerControl1.Panel2.Controls.Add(Me.GridWorkflowDetails)
        Me.SplitContainerControl1.Panel2.Controls.Add(Me.LayoutControl1)
        Me.SplitContainerControl1.Panel2.Text = "Panel2"
-        Me.SplitContainerControl1.Size = New System.Drawing.Size(934, 556)
-        Me.SplitContainerControl1.SplitterPosition = 471
+        Me.SplitContainerControl1.Size = New System.Drawing.Size(1134, 556)
+        Me.SplitContainerControl1.SplitterPosition = 841
        Me.SplitContainerControl1.TabIndex = 5
        Me.SplitContainerControl1.Text = "SplitContainerControl1"
        '
-        'GridWorkflowOverview
+        'NavControlOverview
        '
-        Me.GridWorkflowOverview.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridWorkflowOverview.Location = New System.Drawing.Point(0, 0)
-        Me.GridWorkflowOverview.MainView = Me.gvOverview
-        Me.GridWorkflowOverview.MenuManager = Me.RibbonControl1
-        Me.GridWorkflowOverview.Name = "GridWorkflowOverview"
-        Me.GridWorkflowOverview.Size = New System.Drawing.Size(471, 556)
-        Me.GridWorkflowOverview.TabIndex = 0
-        Me.GridWorkflowOverview.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gvOverview, Me.GridView1})
-        '
-        'gvOverview
-        '
-        Me.gvOverview.GridControl = Me.GridWorkflowOverview
-        Me.gvOverview.Name = "gvOverview"
-        Me.gvOverview.OptionsFind.AlwaysVisible = True
-        Me.gvOverview.OptionsView.GroupDrawMode = DevExpress.XtraGrid.Views.Grid.GroupDrawMode.Office
-        Me.gvOverview.OptionsView.ShowGroupedColumns = True
-        Me.gvOverview.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[True]
-        '
-        'GridView1
-        '
-        Me.GridView1.GridControl = Me.GridWorkflowOverview
-        Me.GridView1.Name = "GridView1"
+        Me.NavControlOverview.DataSource = Nothing
+        Me.NavControlOverview.Dock = System.Windows.Forms.DockStyle.Left
+        Me.NavControlOverview.Location = New System.Drawing.Point(0, 0)
+        Me.NavControlOverview.Name = "NavControlOverview"
+        Me.NavControlOverview.Size = New System.Drawing.Size(185, 556)
+        Me.NavControlOverview.TabIndex = 1
        '
        'GridWorkflowDetails
        '
@@ -237,7 +171,7 @@ Partial Class frmWorkflowOverview
        Me.GridWorkflowDetails.MainView = Me.tvDetails
        Me.GridWorkflowDetails.MenuManager = Me.RibbonControl1
        Me.GridWorkflowDetails.Name = "GridWorkflowDetails"
-        Me.GridWorkflowDetails.Size = New System.Drawing.Size(451, 390)
+        Me.GridWorkflowDetails.Size = New System.Drawing.Size(281, 390)
        Me.GridWorkflowDetails.TabIndex = 1
        Me.GridWorkflowDetails.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.tvDetails})
        '
@@ -273,19 +207,19 @@ Partial Class frmWorkflowOverview
        Me.LayoutControl1.Name = "LayoutControl1"
        Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1186, 56, 650, 400)
        Me.LayoutControl1.Root = Me.LayoutControlGroup1
-        Me.LayoutControl1.Size = New System.Drawing.Size(451, 166)
+        Me.LayoutControl1.Size = New System.Drawing.Size(281, 166)
        Me.LayoutControl1.TabIndex = 0
        Me.LayoutControl1.Text = "LayoutControl1"
        '
        'WindowsUIButtonPanel1
        '
-        WindowsUIButtonImageOptions3.Image = CType(resources.GetObject("WindowsUIButtonImageOptions3.Image"), System.Drawing.Image)
-        WindowsUIButtonImageOptions4.Image = CType(resources.GetObject("WindowsUIButtonImageOptions4.Image"), System.Drawing.Image)
-        Me.WindowsUIButtonPanel1.Buttons.AddRange(New DevExpress.XtraEditors.ButtonPanel.IBaseButton() {New DevExpress.XtraBars.Docking2010.WindowsUIButton("Verlängerung", True, WindowsUIButtonImageOptions3, DevExpress.XtraBars.Docking2010.ButtonStyle.PushButton, "", -1, True, Nothing, True, False, True, Nothing, -1, False), New DevExpress.XtraBars.Docking2010.WindowsUIButton("Kündigung", True, WindowsUIButtonImageOptions4, DevExpress.XtraBars.Docking2010.ButtonStyle.PushButton, "", -1, True, Nothing, True, False, True, Nothing, -1, False)})
+        WindowsUIButtonImageOptions1.Image = CType(resources.GetObject("WindowsUIButtonImageOptions1.Image"), System.Drawing.Image)
+        WindowsUIButtonImageOptions2.Image = CType(resources.GetObject("WindowsUIButtonImageOptions2.Image"), System.Drawing.Image)
+        Me.WindowsUIButtonPanel1.Buttons.AddRange(New DevExpress.XtraEditors.ButtonPanel.IBaseButton() {New DevExpress.XtraBars.Docking2010.WindowsUIButton("Verlängerung", True, WindowsUIButtonImageOptions1, DevExpress.XtraBars.Docking2010.ButtonStyle.PushButton, "", -1, True, Nothing, True, False, True, Nothing, -1, False), New DevExpress.XtraBars.Docking2010.WindowsUIButton("Kündigung", True, WindowsUIButtonImageOptions2, DevExpress.XtraBars.Docking2010.ButtonStyle.PushButton, "", -1, True, Nothing, True, False, True, Nothing, -1, False)})
        Me.WindowsUIButtonPanel1.ContentAlignment = System.Drawing.ContentAlignment.MiddleLeft
        Me.WindowsUIButtonPanel1.Location = New System.Drawing.Point(12, 96)
        Me.WindowsUIButtonPanel1.Name = "WindowsUIButtonPanel1"
-        Me.WindowsUIButtonPanel1.Size = New System.Drawing.Size(427, 55)
+        Me.WindowsUIButtonPanel1.Size = New System.Drawing.Size(257, 55)
        Me.WindowsUIButtonPanel1.TabIndex = 0
        Me.WindowsUIButtonPanel1.Text = "WindowsUIButtonPanel1"
        '
@@ -295,7 +229,7 @@ Partial Class frmWorkflowOverview
        Me.LayoutControlGroup1.GroupBordersVisible = False
        Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.SimpleLabelItem1, Me.LayoutControlItem2, Me.SimpleLabelItem2, Me.SimpleLabelItem3})
        Me.LayoutControlGroup1.Name = "Root"
-        Me.LayoutControlGroup1.Size = New System.Drawing.Size(451, 166)
+        Me.LayoutControlGroup1.Size = New System.Drawing.Size(281, 166)
        Me.LayoutControlGroup1.TextVisible = False
        '
        'SimpleLabelItem1
@@ -307,7 +241,7 @@ Partial Class frmWorkflowOverview
        Me.SimpleLabelItem1.AppearanceItemCaption.Options.UseForeColor = True
        Me.SimpleLabelItem1.Location = New System.Drawing.Point(0, 0)
        Me.SimpleLabelItem1.Name = "SimpleLabelItem1"
-        Me.SimpleLabelItem1.Size = New System.Drawing.Size(431, 34)
+        Me.SimpleLabelItem1.Size = New System.Drawing.Size(261, 34)
        Me.SimpleLabelItem1.Text = "Vertragsnr. 4711"
        Me.SimpleLabelItem1.TextSize = New System.Drawing.Size(151, 30)
        '
@@ -316,7 +250,7 @@ Partial Class frmWorkflowOverview
        Me.LayoutControlItem2.Control = Me.WindowsUIButtonPanel1
        Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 84)
        Me.LayoutControlItem2.Name = "LayoutControlItem2"
-        Me.LayoutControlItem2.Size = New System.Drawing.Size(431, 62)
+        Me.LayoutControlItem2.Size = New System.Drawing.Size(261, 62)
        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0)
        Me.LayoutControlItem2.TextVisible = False
        '
@@ -327,7 +261,7 @@ Partial Class frmWorkflowOverview
        Me.SimpleLabelItem2.AppearanceItemCaption.Options.UseFont = True
        Me.SimpleLabelItem2.Location = New System.Drawing.Point(0, 59)
        Me.SimpleLabelItem2.Name = "SimpleLabelItem2"
-        Me.SimpleLabelItem2.Size = New System.Drawing.Size(431, 25)
+        Me.SimpleLabelItem2.Size = New System.Drawing.Size(261, 25)
        Me.SimpleLabelItem2.Text = "Sunshine GmbH"
        Me.SimpleLabelItem2.TextSize = New System.Drawing.Size(151, 21)
        '
@@ -338,17 +272,24 @@ Partial Class frmWorkflowOverview
        Me.SimpleLabelItem3.AppearanceItemCaption.Options.UseFont = True
        Me.SimpleLabelItem3.Location = New System.Drawing.Point(0, 34)
        Me.SimpleLabelItem3.Name = "SimpleLabelItem3"
-        Me.SimpleLabelItem3.Size = New System.Drawing.Size(431, 25)
+        Me.SimpleLabelItem3.Size = New System.Drawing.Size(261, 25)
        Me.SimpleLabelItem3.Text = "Objekt: Haus Nr. 9"
        Me.SimpleLabelItem3.TextSize = New System.Drawing.Size(151, 21)
        '
+        'GridOverview1
+        '
+        Me.GridOverview.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridOverview.Location = New System.Drawing.Point(185, 0)
+        Me.GridOverview.Name = "GridOverview1"
+        Me.GridOverview.Size = New System.Drawing.Size(656, 556)
+        Me.GridOverview.TabIndex = 2
+        '
        'frmWorkflowOverview
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(1134, 723)
        Me.Controls.Add(Me.SplitContainerControl1)
-        Me.Controls.Add(Me.NavBarControl1)
        Me.Controls.Add(Me.RibbonStatusBar1)
        Me.Controls.Add(Me.RibbonControl1)
        Me.Name = "frmWorkflowOverview"
@@ -356,12 +297,8 @@ Partial Class frmWorkflowOverview
        Me.StatusBar = Me.RibbonStatusBar1
        Me.Text = "Workflow Übersicht"
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.SplitContainerControl1.ResumeLayout(False)
-        CType(Me.GridWorkflowOverview, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.gvOverview, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.GridWorkflowDetails, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.tvDetails, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -379,11 +316,6 @@ Partial Class frmWorkflowOverview
    Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
-    Friend WithEvents NavBarControl1 As DevExpress.XtraNavBar.NavBarControl
-    Friend WithEvents NavBarGroup1 As DevExpress.XtraNavBar.NavBarGroup
-    Friend WithEvents NavBarItem1 As DevExpress.XtraNavBar.NavBarItem
-    Friend WithEvents NavBarItem2 As DevExpress.XtraNavBar.NavBarItem
-    Friend WithEvents NavBarItem3 As DevExpress.XtraNavBar.NavBarItem
    Friend WithEvents RibbonPageCategory1 As DevExpress.XtraBars.Ribbon.RibbonPageCategory
    Friend WithEvents RibbonPage3 As DevExpress.XtraBars.Ribbon.RibbonPage
    Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
@@ -400,7 +332,6 @@ Partial Class frmWorkflowOverview
    Friend WithEvents SimpleLabelItem2 As DevExpress.XtraLayout.SimpleLabelItem
    Friend WithEvents SimpleLabelItem3 As DevExpress.XtraLayout.SimpleLabelItem
    Friend WithEvents tvDetails As DevExpress.XtraGrid.Views.Tile.TileView
-    Friend WithEvents GridWorkflowOverview As DevExpress.XtraGrid.GridControl
-    Friend WithEvents gvOverview As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents NavControlOverview As NavControlOverview
+    Friend WithEvents GridOverview As GridOverview
 End Class