workflows

GUIs.ClientSuite/Workflow/frmWorkflowOverview.vb

@@ -5,45 +5,42 @@ 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)
-            }
-        }
+    Private Async Sub frmWorkflowOverview_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Dim oDatatable As DataTable
+        Dim oWorkflows As New List(Of WorkflowItem)
 
-        WorkflowDetails = New BindingList(Of WorkflowDetail) From {
-            New WorkflowDetail() With {
-                .Title = "foooo!"
-            }
-        }
+        Try
+            oDatatable = Await My.Common.Views.VWIDB_GUI_WF_OVERVIEW(70, 104)
 
-        GridWorkflowOverview.DataSource = WorkflowItems
-        GridWorkflowDetails.DataSource = WorkflowDetails
+            For Each oRow As DataRow In oDatatable.Rows
+                oWorkflows.Add(New WorkflowItem() With {
+                     .Title = oRow.Item("REQUEST_TITLE"),
+                     .State = oRow.Item("STATETITLE"),
+                     .Process = oRow.Item("PROCESS_NAME")
+                })
+            Next
+        Catch ex As Exception
+            ShowErrorMessage(ex)
+        End Try
 
-        gvOverview.GroupFormat = "[#image]{1} {2}"
+        GridOverview.DataSource = oWorkflows
+        NavControlOverview.DataSource = oWorkflows
 
-        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
+
+
+
+
+        '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
+
+    Private Sub frmWorkflowOverview_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        RibbonControl1.SelectPage(RibbonPage3)
+    End Sub
 End Class