MS

GUIs.Common/frmWorkflow_Adhoc_start.vb

@@ -0,0 +1,122 @@
+Imports DigitalData.Modules.ZooFlow
+Imports DigitalData.Modules.Logging
+Imports DigitalData.GUIs.Common.Base
+Imports DigitalData.Modules.ZooFlow.Constants
+Imports DigitalData.Modules.EDMI.API
+Imports DevExpress.XtraEditors
+Imports System.Drawing
+Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
+
+Public Class frmWorkflow_Adhoc_start
+    Private ReadOnly Property LogConfig As LogConfig
+    Private ReadOnly Property Logger As Logger
+    Private Property OperationMode As OperationMode
+    Private ReadOnly Environment As Environment
+    Private Client As Client
+    Private IsLoading As Boolean = True
+    Public Sub New(pLogConfig As LogConfig, pEnvironment As Environment, pObjectID As Long)
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        LogConfig = pLogConfig
+        Logger = pLogConfig.GetLogger()
+    End Sub
+    Private Function GetOperationMode() As OperationMode
+        Dim oOperationMode As OperationMode
+
+        If Environment.Service.Client.IsOnline AndAlso Environment.Service.Address <> String.Empty Then
+            oOperationMode = OperationMode.WithAppServer
+        Else
+            oOperationMode = OperationMode.NoAppServer
+        End If
+
+        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
+
+
+            ' Initialize Viewer with GDPicture.NET License
+            ' Hide options relating to a filepath for zooflow
+            If OperationMode = OperationMode.ZooFlow Then
+                '                RibbonPageGroupFilesystem.Visible = False
+            End If
+
+            If OperationMode = OperationMode.NoAppServer Then
+                '               RibbonPageGroupCheckInOut.Visible = False
+                '              RibbonPageGroupWorkflow.Visible = False
+                '             RibbonPageGroupAttribute.Visible = False
+            Else
+                '            RibbonPageGroupFilesystem.Visible = False
+            End If
+            Dim oDatatableUserselect As DataTable
+            Dim oSQL = $"SELECT NAME + ', '  + PRENAME AS FULLNAME,EMAIL,USERNAME FROM TBDD_USER"
+            Dim oResult As GetDatatableResponse = Nothing
+            If OperationMode = OperationMode.ZooFlow Or OperationMode = OperationMode.WithAppServer Then
+                oResult = Client.GetDatatableFromECM(oSQL)
+                If oResult.OK = False Then
+                    Throw New ApplicationException(oResult.ErrorMessage)
+                Else
+                    oDatatableUserselect = oResult.Table
+                End If
+
+            Else
+                oDatatableUserselect = Environment.Database.GetDatatable(oSQL)
+            End If
+
+            If OperationMode = OperationMode.NoAppServer Then
+                ' panelContainerStatus.Visibility = Docking.DockVisibility.Hidden
+            End If
+
+            ' Hide the complete Navigation Ribbon Group if desired
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Error while loading form:")
+
+
+        Finally
+            IsLoading = False
+
+        End Try
+    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"
+        })
+    End Sub
+
+    Private Class ListItem
+        Public Name As String
+        Public email As String
+    End Class
+End Class