MS

GUIs.Common/frmWorkflow_Adhoc_start.vb

@@ -7,6 +7,7 @@ Imports DevExpress.XtraEditors
 Imports System.Drawing
 Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
 Imports DevExpress.Utils.Svg
+Imports DevExpress.XtraGrid
 
 Public Class frmWorkflow_Adhoc_start
     Private ReadOnly Property LogConfig As LogConfig
@@ -16,7 +17,8 @@ Public Class frmWorkflow_Adhoc_start
     Private ReadOnly AdHocWorkflow As AdHocWorkflow
     Private Client As Client
     Private IsLoading As Boolean = True
-    Private WFUserList As List(Of WFUSer)
+    Private WFUserList As List(Of User2Workflow)
+    Private WorkflowList As List(Of Workflows)
     Public Sub New(pLogConfig As LogConfig, pEnvironment As Environment, pAdhocWorkflow As AdHocWorkflow)
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
@@ -44,7 +46,8 @@ Public Class frmWorkflow_Adhoc_start
             OperationMode = GetOperationMode()
             Client = Environment.Service.Client
 
-
+            WFUserList = New List(Of User2Workflow)
+            WorkflowList = New List(Of Workflows)
             ' Initialize Viewer with GDPicture.NET License
             ' Hide options relating to a filepath for zooflow
             If OperationMode = OperationMode.ZooFlow Then
@@ -92,16 +95,23 @@ Public Class frmWorkflow_Adhoc_start
                 oDatatableWFSelect = Environment.Database.GetDatatable(oSQL)
             End If
             If Not IsNothing(oDatatableWFSelect) Then
-                cmbWorkflowSelect.DataSource = oDatatableWFSelect
-                cmbWorkflowSelect.ValueMember = oDatatableWFSelect.Columns(0).ColumnName
-                cmbWorkflowSelect.DisplayMember = oDatatableWFSelect.Columns(1).ColumnName
+                For Each oRow As DataRow In oDatatableWFSelect.Rows
+                    WorkflowList.Add(New Workflows() With {
+               .ID = oRow.Item(0),
+               .Description = IIf(IsDBNull(oRow.Item(2)), "", oRow.Item(2)),
+               .Title = oRow.Item(1),
+               .Image = SvgImageCollection1.Item("Workflow")
+                           })
+                Next
             End If
+            GridControlWorkflows.DataSource = WorkflowList
 
+            TileViewWorkflows.FocusedRowHandle = GridControl.InvalidRowHandle
 
             If OperationMode = OperationMode.NoAppServer Then
                 ' panelContainerStatus.Visibility = Docking.DockVisibility.Hidden
             End If
-            WFUserList = New List(Of WFUSer)
+            WFUserList = New List(Of User2Workflow)
             ' Hide the complete Navigation Ribbon Group if desired
 
         Catch ex As Exception
@@ -115,21 +125,15 @@ Public Class frmWorkflow_Adhoc_start
         End Try
     End Sub
 
-    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
-        Dim oUser As New WFUSer() With {
-                .Mail = "Heute",
-                .UserID = "Dokumente, die heute abgelegt wurden",
-                .Image = SvgImageCollection1.Item("actions_user")
-            }
+    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs)
+
     End Sub
 
-    Private Class ListItem
-        Public Name As String
-        Public email As String
-    End Class
-    Friend Class WFUSer
-        Public Property Mail As String
+
+    Friend Class User2Workflow
         Public Property UserID As Integer
+        Public Property EMail As String
+        Public Property FullName As String
         Public Property Image As SvgImage
         Public Property Count As Integer = 0
 
@@ -140,4 +144,58 @@ Public Class frmWorkflow_Adhoc_start
         End Property
 
     End Class
+    Friend Class Workflows
+        Public Property Description As String
+        Public Property Title As String
+        Public Property ID As Integer
+        Public Property Image As SvgImage
+        Public Property Count As Integer = 0
+
+        Public ReadOnly Property DisplayName As String
+            Get
+                Return ID
+            End Get
+        End Property
+
+    End Class
+
+    Private Sub LookUpEdit1_EditValueChanged(sender As Object, e As EventArgs) Handles LookUpEdit1.EditValueChanged
+        Dim editor As DevExpress.XtraEditors.LookUpEdit = CType(sender, DevExpress.XtraEditors.LookUpEdit)
+        Dim row As DataRowView = CType(editor.Properties.GetDataSourceRowByKeyValue(editor.EditValue), DataRowView)
+        Dim UsID As Object = row("ID")
+        Dim UsFname As Object = row("FullName")
+        Dim UsEmail As Object = row("Email")
+        WFUserList.Add(New User2Workflow() With {
+               .UserID = UsID,
+               .FullName = UsFname,
+               .EMail = UsEmail,
+               .Image = SvgImageCollection1.Item("actions_user")
+                           })
+
+        GridSelectedUsers.DataSource = Nothing
+        GridSelectedUsers.DataSource = WFUserList
+
+        TileViewUser.FocusedRowHandle = GridControl.InvalidRowHandle
+        'Else
+        '    Dim omsg = "Bitte wählen Sie zuerst einen Workflow"
+        '    If Environment.User.Language <> "de-DE" Then
+        '        omsg = "Please choose a workflow first"
+        '    End If
+        '    Dim oMsgBox As New frmDialog(omsg, "Error", False)
+        '    oMsgBox.ShowDialog()
+        'End If
+
+    End Sub
+
+    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        Dim oUserRow = TileViewUser.GetRow(TileViewUser.FocusedRowHandle)
+        If oUserRow IsNot Nothing AndAlso TypeOf oUserRow Is User2Workflow Then
+            Dim oDateSearch As User2Workflow = oUserRow
+
+            WFUserList.Remove(oDateSearch)
+            GridSelectedUsers.DataSource = Nothing
+            GridSelectedUsers.DataSource = WFUserList
+        End If
+
+    End Sub
 End Class