MS

GUIs.Common/frmWorkflow_Adhoc_start.vb

@@ -12,12 +12,14 @@ Public Class frmWorkflow_Adhoc_start
     Private ReadOnly Property Logger As Logger
     Private Property OperationMode As OperationMode
     Private ReadOnly Environment As Environment
+    Private ReadOnly AdHocWorkflow As AdHocWorkflow
     Private Client As Client
     Private IsLoading As Boolean = True
-    Public Sub New(pLogConfig As LogConfig, pEnvironment As Environment, pObjectID As Long)
+    Public Sub New(pLogConfig As LogConfig, pEnvironment As Environment, pAdhocWorkflow As AdHocWorkflow)
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
-
+        Environment = pEnvironment
+        AdHocWorkflow = pAdhocWorkflow
         LogConfig = pLogConfig
         Logger = pLogConfig.GetLogger()
     End Sub