MS

GUIs.ZooFlow/MyApplication.vb

@@ -72,6 +72,13 @@ Namespace My
                 .User = My.Application.User
             }
         End Function
+        Public Function GetAdHocWorkflow(pObjectID As Long) As AdHocWorkflow
+            Return New AdHocWorkflow With {
+                .AHWF_CMD_LAYOUT_SELECT = AHWF_CMD_LAYOUT_SELECT,
+                .AHWF_CMD_USR_SELECT = AHWF_CMD_USR_SELECT,
+                .OBJECT_ID = pObjectID
+            }
+        End Function
     End Class
 End Namespace