Status-Form verbessert

EnvelopeGenerator.Form/frmMain.Designer.vb

@@ -22,6 +22,7 @@ Partial Class frmMain
         Dim SplashScreenManager1 As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, Nothing, True, True)
         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()
         Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
         Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
         Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
@@ -46,6 +47,11 @@ Partial Class frmMain
         Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
         Me.GridCompleted = New DevExpress.XtraGrid.GridControl()
+        Me.ViewReceiversCompleted = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.ColStatusCompleted = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.ColNameCompleted = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.ColEmailCompleted = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.ColSignedDateCompleted = 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()
@@ -66,6 +72,7 @@ Partial Class frmMain
         CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabPage2.SuspendLayout()
         CType(Me.GridCompleted, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ViewReceiversCompleted, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.ViewCompleted, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -250,10 +257,48 @@ 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})
         Me.GridCompleted.MainView = Me.ViewCompleted
         Me.GridCompleted.MenuManager = Me.RibbonControl
         Me.GridCompleted.Name = "GridCompleted"
-        Me.GridCompleted.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewCompleted})
+        Me.GridCompleted.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewReceiversCompleted, 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.OptionsDetail.AllowZoomDetail = False
+        Me.ViewReceiversCompleted.OptionsView.ShowDetailButtons = False
+        Me.ViewReceiversCompleted.OptionsView.ShowGroupPanel = False
+        Me.ViewReceiversCompleted.OptionsView.ShowIndicator = False
+        resources.ApplyResources(Me.ViewReceiversCompleted, "ViewReceiversCompleted")
+        '
+        'ColStatusCompleted
+        '
+        resources.ApplyResources(Me.ColStatusCompleted, "ColStatusCompleted")
+        Me.ColStatusCompleted.FieldName = "StatusTranslated"
+        Me.ColStatusCompleted.Name = "ColStatusCompleted"
+        '
+        'ColNameCompleted
+        '
+        resources.ApplyResources(Me.ColNameCompleted, "ColNameCompleted")
+        Me.ColNameCompleted.FieldName = "Name"
+        Me.ColNameCompleted.Name = "ColNameCompleted"
+        '
+        'ColEmailCompleted
+        '
+        resources.ApplyResources(Me.ColEmailCompleted, "ColEmailCompleted")
+        Me.ColEmailCompleted.FieldName = "Email"
+        Me.ColEmailCompleted.Name = "ColEmailCompleted"
+        '
+        'ColSignedDateCompleted
+        '
+        resources.ApplyResources(Me.ColSignedDateCompleted, "ColSignedDateCompleted")
+        Me.ColSignedDateCompleted.FieldName = "SignedDateDisplayValue"
+        Me.ColSignedDateCompleted.Name = "ColSignedDateCompleted"
         '
         'ViewCompleted
         '
@@ -316,6 +361,7 @@ Partial Class frmMain
         CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabPage2.ResumeLayout(False)
         CType(Me.GridCompleted, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ViewReceiversCompleted, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.ViewCompleted, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
@@ -352,4 +398,9 @@ Partial Class frmMain
     Friend WithEvents GridColumn7 As DevExpress.XtraGrid.Columns.GridColumn
     Friend WithEvents ColName As DevExpress.XtraGrid.Columns.GridColumn
     Friend WithEvents ColSignedDate As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents ViewReceiversCompleted As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents ColStatusCompleted As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents ColNameCompleted As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents ColEmailCompleted As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents ColSignedDateCompleted As DevExpress.XtraGrid.Columns.GridColumn
 End Class