MS

GUIs.Common/frmWorkflow_Adhoc_start.vb

@@ -6,6 +6,7 @@ Imports DigitalData.Modules.EDMI.API
 Imports DevExpress.XtraEditors
 Imports System.Drawing
 Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
+Imports DevExpress.Utils.Svg
 
 Public Class frmWorkflow_Adhoc_start
     Private ReadOnly Property LogConfig As LogConfig
@@ -15,6 +16,7 @@ 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)
     Public Sub New(pLogConfig As LogConfig, pEnvironment As Environment, pAdhocWorkflow As AdHocWorkflow)
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
@@ -34,31 +36,13 @@ Public Class frmWorkflow_Adhoc_start
 
         Return oOperationMode
     End Function
-    Private Function InitAppServer() As Boolean
-        Dim oServerAddress = Client.ParseServiceAddress(Environment.Service.Client.ServerAddress)
-        Dim oAddress As String = oServerAddress.Item1
-        Dim oPort As Integer = oServerAddress.Item2
 
-        Client = New Client(LogConfig, oAddress, oPort)
-
-        If Not Client.Connect() Then
-            Logger.Warn("Client could not connect to Service at [{0}]", Environment.Service.Address)
-            Return False
-        End If
-
-        Return True
-    End Function
     Private Sub frmWorkflow_Adhoc_start_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
             ' Operation mode is either guessed from service settings
             ' or explictly set from OperationModeOverride in Params
             OperationMode = GetOperationMode()
-            If OperationMode = OperationMode.WithAppServer Or OperationMode = OperationMode.ZooFlow Then
-                If InitAppServer() = False Then
-                    Me.Close()
-                End If
-
-            End If
+            Client = Environment.Service.Client
 
 
             ' Initialize Viewer with GDPicture.NET License
@@ -75,7 +59,8 @@ Public Class frmWorkflow_Adhoc_start
                 '            RibbonPageGroupFilesystem.Visible = False
             End If
             Dim oDatatableUserselect As DataTable
-            Dim oSQL = $"SELECT NAME + ', '  + PRENAME AS FULLNAME,EMAIL,USERNAME FROM TBDD_USER"
+            Dim oDatatableWFSelect As DataTable
+            Dim oSQL = AdHocWorkflow.AHWF_CMD_USR_SELECT
             Dim oResult As GetDatatableResponse = Nothing
             If OperationMode = OperationMode.ZooFlow Or OperationMode = OperationMode.WithAppServer Then
                 oResult = Client.GetDatatableFromECM(oSQL)
@@ -88,11 +73,35 @@ Public Class frmWorkflow_Adhoc_start
             Else
                 oDatatableUserselect = Environment.Database.GetDatatable(oSQL)
             End If
+            If Not IsNothing(oDatatableUserselect) Then
+                LookUpEdit1.Properties.DataSource = oDatatableUserselect
+                LookUpEdit1.Properties.ValueMember = oDatatableUserselect.Columns(0).ColumnName
+                LookUpEdit1.Properties.DisplayMember = oDatatableUserselect.Columns(1).ColumnName
+
+            End If
+            oSQL = AdHocWorkflow.AHWF_CMD_LAYOUT_SELECT
+            If OperationMode = OperationMode.ZooFlow Or OperationMode = OperationMode.WithAppServer Then
+                oResult = Client.GetDatatableFromECM(oSQL)
+                If oResult.OK = False Then
+                    Throw New ApplicationException(oResult.ErrorMessage)
+                Else
+                    oDatatableWFSelect = oResult.Table
+                End If
+
+            Else
+                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
+            End If
+
 
             If OperationMode = OperationMode.NoAppServer Then
                 ' panelContainerStatus.Visibility = Docking.DockVisibility.Hidden
             End If
-
+            WFUserList = New List(Of WFUSer)
             ' Hide the complete Navigation Ribbon Group if desired
 
         Catch ex As Exception
@@ -107,18 +116,28 @@ Public Class frmWorkflow_Adhoc_start
     End Sub
 
     Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
-        ListBoxControl1.Items.Add(New ListItem() With {
-            .Name = "Marlon Schreiber",
-            .email = "m.schreiber@digitaldata.works"
-        })
-        ListBoxControl1.Items.Add(New ListItem() With {
-            .Name = "Jonathan Jenne",
-            .email = "j.jenner@digitaldata.works"
-        })
+        Dim oUser As New WFUSer() With {
+                .Mail = "Heute",
+                .UserID = "Dokumente, die heute abgelegt wurden",
+                .Image = SvgImageCollection1.Item("actions_user")
+            }
     End Sub
 
     Private Class ListItem
         Public Name As String
         Public email As String
     End Class
+    Friend Class WFUSer
+        Public Property Mail As String
+        Public Property UserID As Integer
+        Public Property Image As SvgImage
+        Public Property Count As Integer = 0
+
+        Public ReadOnly Property DisplayName As String
+            Get
+                Return UserID
+            End Get
+        End Property
+
+    End Class
 End Class