49 lines
1.8 KiB
VB.net
49 lines
1.8 KiB
VB.net
Imports System.ComponentModel
|
|
Imports DevExpress.Utils
|
|
|
|
Public Class frmWorkflowOverview
|
|
Private WorkflowItems As BindingList(Of WorkflowItem)
|
|
Private WorkflowDetails As BindingList(Of WorkflowDetail)
|
|
|
|
Private Sub frmWorkflowOverview_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
WorkflowItems = New BindingList(Of WorkflowItem) From {
|
|
New WorkflowItem() With {
|
|
.Title = "Eingangsrechnung XYZ",
|
|
.State = WorkflowItem.ItemState.Danger,
|
|
.WorkflowName = "Rechnungseingang",
|
|
.CreatedAt = DateTime.Now.AddDays(-3)
|
|
},
|
|
New WorkflowItem() With {
|
|
.Title = "Eingangsrechnung ABC",
|
|
.State = WorkflowItem.ItemState.Normal,
|
|
.WorkflowName = "Rechnungseingang",
|
|
.CreatedAt = DateTime.Now
|
|
},
|
|
New WorkflowItem() With {
|
|
.Title = "Mietvertrag XYZ läuft aus",
|
|
.State = WorkflowItem.ItemState.Warning,
|
|
.WorkflowName = "Vertragsprüfung",
|
|
.CreatedAt = DateTime.Now.AddDays(-1)
|
|
}
|
|
}
|
|
|
|
WorkflowDetails = New BindingList(Of WorkflowDetail) From {
|
|
New WorkflowDetail() With {
|
|
.Title = "foooo!"
|
|
}
|
|
}
|
|
|
|
GridWorkflowOverview.DataSource = WorkflowItems
|
|
GridWorkflowDetails.DataSource = WorkflowDetails
|
|
|
|
gvOverview.GroupFormat = "[#image]{1} {2}"
|
|
|
|
With gvOverview.Columns.Item("CreatedAt")
|
|
.OptionsFilter.FilterPopupMode = DevExpress.XtraGrid.Columns.FilterPopupMode.DateAlt
|
|
.GroupInterval = DevExpress.XtraGrid.ColumnGroupInterval.DateRange
|
|
.SortOrder = DevExpress.Data.ColumnSortOrder.Descending
|
|
.Group()
|
|
End With
|
|
|
|
End Sub
|
|
End Class |