Status-Anzeige Hauptschirm

This commit is contained in:
2023-12-04 15:43:44 +01:00
parent 1b56789858
commit 544d6e9de0
7 changed files with 285 additions and 11 deletions

View File

@@ -30,6 +30,7 @@ Partial Class frmMain
Me.ColReceiverStatus = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ColName = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ColEmail = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ColSignedDate = 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()
@@ -115,7 +116,7 @@ Partial Class frmMain
'
'ViewReceivers
'
Me.ViewReceivers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColReceiverStatus, Me.ColName, Me.ColEmail})
Me.ViewReceivers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColReceiverStatus, Me.ColName, Me.ColEmail, Me.ColSignedDate})
Me.ViewReceivers.GridControl = Me.GridEnvelopes
Me.ViewReceivers.Name = "ViewReceivers"
Me.ViewReceivers.OptionsDetail.AllowZoomDetail = False
@@ -127,7 +128,7 @@ Partial Class frmMain
'ColReceiverStatus
'
resources.ApplyResources(Me.ColReceiverStatus, "ColReceiverStatus")
Me.ColReceiverStatus.FieldName = "Status"
Me.ColReceiverStatus.FieldName = "StatusTranslated"
Me.ColReceiverStatus.Name = "ColReceiverStatus"
Me.ColReceiverStatus.OptionsColumn.AllowEdit = False
'
@@ -136,12 +137,23 @@ Partial Class frmMain
resources.ApplyResources(Me.ColName, "ColName")
Me.ColName.FieldName = "Name"
Me.ColName.Name = "ColName"
Me.ColName.OptionsColumn.AllowEdit = False
'
'ColEmail
'
resources.ApplyResources(Me.ColEmail, "ColEmail")
Me.ColEmail.FieldName = "Email"
Me.ColEmail.Name = "ColEmail"
Me.ColEmail.OptionsColumn.AllowEdit = False
'
'ColSignedDate
'
resources.ApplyResources(Me.ColSignedDate, "ColSignedDate")
Me.ColSignedDate.DisplayFormat.FormatString = "d"
Me.ColSignedDate.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
Me.ColSignedDate.FieldName = "SignedDate"
Me.ColSignedDate.Name = "ColSignedDate"
Me.ColSignedDate.OptionsColumn.AllowEdit = False
'
'ViewEnvelopes
'
@@ -341,4 +353,5 @@ Partial Class frmMain
Friend WithEvents GridColumn6 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn7 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents ColName As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents ColSignedDate As DevExpress.XtraGrid.Columns.GridColumn
End Class