06-12-23 HistoryView ergänzt

2023-12-06 11:00:27 +01:00
parent 489c7879da
commit d0b7c6fbd8
3 changed files with 137 additions and 2 deletions
--- a/EnvelopeGenerator.Form/frmMain.Designer.vb
+++ b/EnvelopeGenerator.Form/frmMain.Designer.vb
@@ -25,6 +25,7 @@ Partial Class 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()
+        Dim GridLevelNode4 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()
@@ -66,6 +67,10 @@ Partial Class frmMain
        Me.ColNameCompleted = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.ColEmailCompleted = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.ColSignedDateCompleted = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.ViewHistoryCompleted = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.ColHistoryStatusCompleted = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.ColHistoryUserReferenceCompleted = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.ColHistoryDateCompleted = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.ViewCompleted = New DevExpress.XtraGrid.Views.Grid.GridView()
        Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn()
@@ -89,6 +94,7 @@ Partial Class frmMain
        Me.XtraTabPage2.SuspendLayout()
        CType(Me.GridCompleted, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.ViewReceiversCompleted, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ViewHistoryCompleted, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.ViewCompleted, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
@@ -224,6 +230,8 @@ Partial Class frmMain
        Me.ViewEnvelopes.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colEnvelopeId, Me.colContractType, Me.colStatus, Me.colTitle, Me.colSubject, Me.colAddedWhen})
        Me.ViewEnvelopes.GridControl = Me.GridEnvelopes
        Me.ViewEnvelopes.Name = "ViewEnvelopes"
+        Me.ViewEnvelopes.OptionsBehavior.Editable = False
+        Me.ViewEnvelopes.OptionsBehavior.ReadOnly = True
        '
        'colEnvelopeId
        '
@@ -370,18 +378,22 @@ Partial Class frmMain
        resources.ApplyResources(Me.GridCompleted, "GridCompleted")
        GridLevelNode3.LevelTemplate = Me.ViewReceiversCompleted
        GridLevelNode3.RelationName = "Receivers"
-        Me.GridCompleted.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3})
+        GridLevelNode4.LevelTemplate = Me.ViewHistoryCompleted
+        GridLevelNode4.RelationName = "History"
+        Me.GridCompleted.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3, GridLevelNode4})
        Me.GridCompleted.MainView = Me.ViewCompleted
        Me.GridCompleted.MenuManager = Me.RibbonControl
        Me.GridCompleted.Name = "GridCompleted"
        Me.GridCompleted.ShowOnlyPredefinedDetails = True
-        Me.GridCompleted.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewReceiversCompleted, Me.ViewCompleted})
+        Me.GridCompleted.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewReceiversCompleted, Me.ViewHistoryCompleted, Me.ViewCompleted})
        '
        'ViewReceiversCompleted
        '
        Me.ViewReceiversCompleted.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColStatusCompleted, Me.ColNameCompleted, Me.ColEmailCompleted, Me.ColSignedDateCompleted})
        Me.ViewReceiversCompleted.GridControl = Me.GridCompleted
        Me.ViewReceiversCompleted.Name = "ViewReceiversCompleted"
+        Me.ViewReceiversCompleted.OptionsBehavior.Editable = False
+        Me.ViewReceiversCompleted.OptionsBehavior.ReadOnly = True
        Me.ViewReceiversCompleted.OptionsDetail.AllowZoomDetail = False
        Me.ViewReceiversCompleted.OptionsView.ShowDetailButtons = False
        Me.ViewReceiversCompleted.OptionsView.ShowGroupPanel = False
@@ -412,11 +424,43 @@ Partial Class frmMain
        Me.ColSignedDateCompleted.FieldName = "SignedDateDisplayValue"
        Me.ColSignedDateCompleted.Name = "ColSignedDateCompleted"
        '
+        'ViewHistoryCompleted
+        '
+        Me.ViewHistoryCompleted.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColHistoryStatusCompleted, Me.ColHistoryUserReferenceCompleted, Me.ColHistoryDateCompleted})
+        Me.ViewHistoryCompleted.GridControl = Me.GridCompleted
+        Me.ViewHistoryCompleted.Name = "ViewHistoryCompleted"
+        Me.ViewHistoryCompleted.OptionsBehavior.Editable = False
+        Me.ViewHistoryCompleted.OptionsBehavior.ReadOnly = True
+        Me.ViewHistoryCompleted.OptionsDetail.AllowZoomDetail = False
+        Me.ViewHistoryCompleted.OptionsView.ShowDetailButtons = False
+        Me.ViewHistoryCompleted.OptionsView.ShowGroupPanel = False
+        Me.ViewHistoryCompleted.OptionsView.ShowIndicator = False
+        '
+        'ColHistoryStatusCompleted
+        '
+        resources.ApplyResources(Me.ColHistoryStatusCompleted, "ColHistoryStatusCompleted")
+        Me.ColHistoryStatusCompleted.FieldName = "StatusTranslated"
+        Me.ColHistoryStatusCompleted.Name = "ColHistoryStatusCompleted"
+        '
+        'ColHistoryUserReferenceCompleted
+        '
+        resources.ApplyResources(Me.ColHistoryUserReferenceCompleted, "ColHistoryUserReferenceCompleted")
+        Me.ColHistoryUserReferenceCompleted.FieldName = "UserReference"
+        Me.ColHistoryUserReferenceCompleted.Name = "ColHistoryUserReferenceCompleted"
+        '
+        'ColHistoryDateCompleted
+        '
+        resources.ApplyResources(Me.ColHistoryDateCompleted, "ColHistoryDateCompleted")
+        Me.ColHistoryDateCompleted.FieldName = "ActionDate"
+        Me.ColHistoryDateCompleted.Name = "ColHistoryDateCompleted"
+        '
        'ViewCompleted
        '
        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.OptionsBehavior.Editable = False
+        Me.ViewCompleted.OptionsBehavior.ReadOnly = True
        Me.ViewCompleted.OptionsView.ShowIndicator = False
        '
        'GridColumn3
@@ -481,6 +525,7 @@ Partial Class frmMain
        Me.XtraTabPage2.ResumeLayout(False)
        CType(Me.GridCompleted, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.ViewReceiversCompleted, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ViewHistoryCompleted, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.ViewCompleted, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()
@@ -535,4 +580,8 @@ Partial Class frmMain
    Friend WithEvents btnContactReceiver As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
    Friend WithEvents colEnvelopeId As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents ViewHistoryCompleted As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents ColHistoryStatusCompleted As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents ColHistoryUserReferenceCompleted As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents ColHistoryDateCompleted As DevExpress.XtraGrid.Columns.GridColumn
 End Class