MS

GUIs.ZooFlow/frmtest.vb

@@ -5,10 +5,12 @@ Imports DigitalData.Modules.ZooFlow
 
 Public Class frmtest
     Private Property Environment As Environment
+    Private Property AdHoc_Workflow As AdHocWorkflow
 
     Private Sub frmtest_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         cmbObjectStoreType.SelectedIndex = 0
         Environment = My.Application.GetEnvironment()
+
     End Sub
 
     Private Sub btnOpenFile_Click(sender As Object, e As EventArgs) Handles btnOpenFile.Click
@@ -73,7 +75,8 @@ Public Class frmtest
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        Dim oForm As New frmWorkflow_Adhoc_start(My.LogConfig, Environment, 4711)
+        AdHoc_Workflow = My.Application.GetAdHocWorkflow(txtObjectID.Text)
+        Dim oForm As New frmWorkflow_Adhoc_start(My.LogConfig, Environment, AdHoc_Workflow)
         oForm.Show()
         oForm.BringToFront()
         oForm.Focus()