einfach alles

2023-12-05 15:40:16 +01:00
parent 763ac96f4e
commit 6f91ecac83
14 changed files with 522 additions and 247 deletions
--- a/EnvelopeGenerator.Form/frmMain.Designer.vb
+++ b/EnvelopeGenerator.Form/frmMain.Designer.vb
@@ -23,6 +23,7 @@ Partial Class frmMain
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
        Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
        Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
        Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
        Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
        Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
@@ -32,6 +33,11 @@ Partial Class frmMain
        Me.ColName = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.ColEmail = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.ColSignedDate = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.ColStatusReceiver = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.ViewHistory = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.ColHistoryStatus = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.ColHistoryUserReference = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.ColHistoryDate = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.ViewEnvelopes = New DevExpress.XtraGrid.Views.Grid.GridView()
        Me.colContractType = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.colStatus = New DevExpress.XtraGrid.Columns.GridColumn()
@@ -42,8 +48,10 @@ Partial Class frmMain
        Me.btnCreateEnvelope = New DevExpress.XtraBars.BarButtonItem()
        Me.btnEditEnvelope = New DevExpress.XtraBars.BarButtonItem()
        Me.btnDeleteEnvelope = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RibbonPageEnvelopeActions = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
        Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
        Me.GridCompleted = New DevExpress.XtraGrid.GridControl()
@@ -68,6 +76,7 @@ Partial Class frmMain
        Me.XtraTabPage1.SuspendLayout()
        CType(Me.GridEnvelopes, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.ViewReceivers, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ViewHistory, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.ViewEnvelopes, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.XtraTabPage2.SuspendLayout()
@@ -82,6 +91,8 @@ Partial Class frmMain
        '
        'SplitContainerControl1
        '
+        Me.SplitContainerControl1.Collapsed = True
+        Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
        resources.ApplyResources(Me.SplitContainerControl1, "SplitContainerControl1")
        Me.SplitContainerControl1.Horizontal = False
        Me.SplitContainerControl1.Name = "SplitContainerControl1"
@@ -114,18 +125,22 @@ Partial Class frmMain
        resources.ApplyResources(Me.GridEnvelopes, "GridEnvelopes")
        GridLevelNode1.LevelTemplate = Me.ViewReceivers
        GridLevelNode1.RelationName = "Receivers"
-        Me.GridEnvelopes.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
+        GridLevelNode2.LevelTemplate = Me.ViewHistory
+        GridLevelNode2.RelationName = "History"
+        Me.GridEnvelopes.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2})
        Me.GridEnvelopes.MainView = Me.ViewEnvelopes
        Me.GridEnvelopes.MenuManager = Me.RibbonControl
        Me.GridEnvelopes.Name = "GridEnvelopes"
        Me.GridEnvelopes.ShowOnlyPredefinedDetails = True
-        Me.GridEnvelopes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewReceivers, Me.ViewEnvelopes})
+        Me.GridEnvelopes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewReceivers, Me.ViewHistory, Me.ViewEnvelopes})
        '
        'ViewReceivers
        '
-        Me.ViewReceivers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColReceiverStatus, Me.ColName, Me.ColEmail, Me.ColSignedDate})
+        Me.ViewReceivers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColReceiverStatus, Me.ColName, Me.ColEmail, Me.ColSignedDate, Me.ColStatusReceiver})
        Me.ViewReceivers.GridControl = Me.GridEnvelopes
        Me.ViewReceivers.Name = "ViewReceivers"
+        Me.ViewReceivers.OptionsBehavior.Editable = False
+        Me.ViewReceivers.OptionsBehavior.ReadOnly = True
        Me.ViewReceivers.OptionsDetail.AllowZoomDetail = False
        Me.ViewReceivers.OptionsView.ShowDetailButtons = False
        Me.ViewReceivers.OptionsView.ShowGroupPanel = False
@@ -160,6 +175,43 @@ Partial Class frmMain
        Me.ColSignedDate.Name = "ColSignedDate"
        Me.ColSignedDate.OptionsColumn.AllowEdit = False
        '
+        'ColStatusReceiver
+        '
+        resources.ApplyResources(Me.ColStatusReceiver, "ColStatusReceiver")
+        Me.ColStatusReceiver.FieldName = "Status"
+        Me.ColStatusReceiver.Name = "ColStatusReceiver"
+        '
+        'ViewHistory
+        '
+        Me.ViewHistory.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColHistoryStatus, Me.ColHistoryUserReference, Me.ColHistoryDate})
+        Me.ViewHistory.GridControl = Me.GridEnvelopes
+        Me.ViewHistory.Name = "ViewHistory"
+        Me.ViewHistory.OptionsBehavior.Editable = False
+        Me.ViewHistory.OptionsBehavior.ReadOnly = True
+        Me.ViewHistory.OptionsView.ShowDetailButtons = False
+        Me.ViewHistory.OptionsView.ShowGroupPanel = False
+        Me.ViewHistory.OptionsView.ShowIndicator = False
+        '
+        'ColHistoryStatus
+        '
+        resources.ApplyResources(Me.ColHistoryStatus, "ColHistoryStatus")
+        Me.ColHistoryStatus.FieldName = "StatusTranslated"
+        Me.ColHistoryStatus.Name = "ColHistoryStatus"
+        '
+        'ColHistoryUserReference
+        '
+        resources.ApplyResources(Me.ColHistoryUserReference, "ColHistoryUserReference")
+        Me.ColHistoryUserReference.FieldName = "UserReference"
+        Me.ColHistoryUserReference.Name = "ColHistoryUserReference"
+        '
+        'ColHistoryDate
+        '
+        resources.ApplyResources(Me.ColHistoryDate, "ColHistoryDate")
+        Me.ColHistoryDate.DisplayFormat.FormatString = "G"
+        Me.ColHistoryDate.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
+        Me.ColHistoryDate.FieldName = "ActionDate"
+        Me.ColHistoryDate.Name = "ColHistoryDate"
+        '
        'ViewEnvelopes
        '
        Me.ViewEnvelopes.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colContractType, Me.colStatus, Me.colTitle, Me.colSubject, Me.colAddedWhen})
@@ -199,12 +251,13 @@ Partial Class frmMain
        'RibbonControl
        '
        Me.RibbonControl.ExpandCollapseItem.Id = 0
-        Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.btnCreateEnvelope, Me.btnEditEnvelope, Me.btnDeleteEnvelope})
+        Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.btnCreateEnvelope, Me.btnEditEnvelope, Me.btnDeleteEnvelope, Me.BarButtonItem1})
        resources.ApplyResources(Me.RibbonControl, "RibbonControl")
-        Me.RibbonControl.MaxItemId = 5
+        Me.RibbonControl.MaxItemId = 6
        Me.RibbonControl.Name = "RibbonControl"
        Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
        Me.RibbonControl.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
        Me.RibbonControl.StatusBar = Me.RibbonStatusBar
        '
        'btnCreateEnvelope
@@ -228,9 +281,16 @@ Partial Class frmMain
        Me.btnDeleteEnvelope.ImageOptions.SvgImage = CType(resources.GetObject("btnDeleteEnvelope.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
        Me.btnDeleteEnvelope.Name = "btnDeleteEnvelope"
        '
+        'BarButtonItem1
+        '
+        resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
+        Me.BarButtonItem1.Id = 5
+        Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem1.Name = "BarButtonItem1"
+        '
        'RibbonPage1
        '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageEnvelopeActions})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageEnvelopeActions, Me.RibbonPageGroup1})
        Me.RibbonPage1.Name = "RibbonPage1"
        resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
        '
@@ -242,6 +302,13 @@ Partial Class frmMain
        Me.RibbonPageEnvelopeActions.Name = "RibbonPageEnvelopeActions"
        resources.ApplyResources(Me.RibbonPageEnvelopeActions, "RibbonPageEnvelopeActions")
        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
+        '
        'RibbonStatusBar
        '
        resources.ApplyResources(Me.RibbonStatusBar, "RibbonStatusBar")
@@ -257,9 +324,9 @@ Partial Class frmMain
        'GridCompleted
        '
        resources.ApplyResources(Me.GridCompleted, "GridCompleted")
-        GridLevelNode2.LevelTemplate = Me.ViewReceiversCompleted
-        GridLevelNode2.RelationName = "Receivers"
-        Me.GridCompleted.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
+        GridLevelNode3.LevelTemplate = Me.ViewReceiversCompleted
+        GridLevelNode3.RelationName = "Receivers"
+        Me.GridCompleted.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3})
        Me.GridCompleted.MainView = Me.ViewCompleted
        Me.GridCompleted.MenuManager = Me.RibbonControl
        Me.GridCompleted.Name = "GridCompleted"
@@ -306,6 +373,7 @@ Partial Class frmMain
        Me.ViewCompleted.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn3, Me.GridColumn4, Me.GridColumn5, Me.GridColumn6, Me.GridColumn7})
        Me.ViewCompleted.GridControl = Me.GridCompleted
        Me.ViewCompleted.Name = "ViewCompleted"
+        Me.ViewCompleted.OptionsView.ShowIndicator = False
        '
        'GridColumn3
        '
@@ -358,6 +426,7 @@ Partial Class frmMain
        Me.XtraTabPage1.ResumeLayout(False)
        CType(Me.GridEnvelopes, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.ViewReceivers, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ViewHistory, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.ViewEnvelopes, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit()
        Me.XtraTabPage2.ResumeLayout(False)
@@ -404,4 +473,11 @@ Partial Class frmMain
    Friend WithEvents ColNameCompleted As DevExpress.XtraGrid.Columns.GridColumn
    Friend WithEvents ColEmailCompleted As DevExpress.XtraGrid.Columns.GridColumn
    Friend WithEvents ColSignedDateCompleted As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents ColStatusReceiver As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents ViewHistory As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents ColHistoryDate As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents ColHistoryUserReference As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents ColHistoryStatus As DevExpress.XtraGrid.Columns.GridColumn
 End Class