Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/Monorepo

GUIs.ZooFlow/frmFlowForm.vb

@@ -157,10 +157,11 @@ Public Class frmFlowForm
     Private DTIDB_SEARCHES As DataTable
 
     ' Common Helpers Classes
+    Private Logger As Logger
     Private Init As ClassInit
     Private FileEx As Filesystem.File
     Private ErrorHandler As BaseErrorHandler
-    Private Logger As Logger
+    Private Modules As ClassModules
 
     ' Globix Helper Classes
     Private FileDropNew As FileDrop
@@ -219,7 +220,7 @@ Public Class frmFlowForm
             Logger = My.LogConfig.GetLogger()
             Environment = My.Application.GetEnvironment()
             ErrorHandler = New BaseErrorHandler(My.LogConfig, Logger, Me)
-
+            Modules = New ClassModules(My.LogConfig, My.SystemConfig)
 
             FileEx = New Filesystem.File(My.LogConfig)
             ' === Initialize Theming ===
@@ -321,6 +322,16 @@ Public Class frmFlowForm
             End If
 
 
+            Dim oPMPath = Modules.GetProductPath(DigitalData.Modules.Base.ECM.Product.ProcessManager)
+
+
+            ' TODO: This needs an update of the function FNZF_GET_MODULE_INFO
+            If My.Application.ModulesActive.Contains(MODULE_PROCESS_MANAGER) Then
+
+            End If
+
+
+
             If IsNothing(My.Tables.DTIDB_CATALOG_USER) Then
                 Exit Function
             End If
@@ -1045,7 +1056,7 @@ Public Class frmFlowForm
                     Dim oFormTitle = GetResultWindowString(oState.CurrentClipboardContents)
 
                     ' For now we assume these are document results instead of data results
-                    Dim oForm = Await oProfileSearches.GetDocResultForm(oProfile, oFormTitle, Modules.ZooFlow.Constants.OperationMode.ZooFlow)
+                    Dim oForm = Await oProfileSearches.GetDocResultForm(oProfile, oFormTitle, DigitalData.Modules.ZooFlow.Constants.OperationMode.ZooFlow)
                     AddHandler oForm.NeedsRefresh, AddressOf ProfileResultForm_NeedsRefresh
                     oForm.Show()
 
@@ -1057,7 +1068,7 @@ Public Class frmFlowForm
                         .ClipboardContents = oState.CurrentClipboardContents,
                         .MatchingProfiles = oProfiles,
                         .MatchTreeView = oState.MatchTreeView,
-                        .OperationModeOverride = Modules.ZooFlow.Constants.OperationMode.ZooFlow
+                        .OperationModeOverride = DigitalData.Modules.ZooFlow.Constants.OperationMode.ZooFlow
                     }
 
                     Dim oForm As New frmMatch(My.LogConfig, oEnvironment, oParams)
@@ -1130,7 +1141,7 @@ Public Class frmFlowForm
             Dim oParams = New DocumentResultList.Params() With {
                .WindowGuid = "QuickFlowSearch1",
                .WindowTitle = GetResultWindowString(pSearchText),
-               .OperationModeOverride = Modules.ZooFlow.Constants.OperationMode.ZooFlow,
+               .OperationModeOverride = DigitalData.Modules.ZooFlow.Constants.OperationMode.ZooFlow,
                .ProfileGuid = 354521
             }