AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fuck around in workflow form

Browse Source
This commit is contained in:
Jonathan Jenne
2019-06-27 14:34:51 +02:00
parent bfa6dd3b79
commit 6ab1cf669c
5 changed files with 100 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
GUIs.ClientSuite/Workflow/frmWorkflowOverview.vb
View File

@@ -1,18 +1,49 @@
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"},
New WorkflowItem() With {.Title = "Eingangsrechnung ABC", .State = WorkflowItem.ItemState.Normal, .WorkflowName = "Rechnungseingang"},
New WorkflowItem() With {.Title = "Mietvertrag XYZ läuft aus", .State = WorkflowItem.ItemState.Warning, .WorkflowName = "Vertragsprüfung"}
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