ms

GUIs.ZooFlow/ClassInit.vb

@@ -22,6 +22,7 @@ Public Class ClassInit
         _Logger = LogConfig.GetLogger()
         _LogConfig = LogConfig
         _DataASorDB = New ClassDataASorDB(LogConfig)
+        clsDataASorDB = _DataASorDB
     End Sub
 
     Public Sub InitializeApplication()
@@ -136,8 +137,8 @@ Public Class ClassInit
     End Sub
     Private Sub InitBasicData(MyApplication As My.MyApplication)
         Try
-            Dim oSql = "SELECT * FROM TBGI_FUNCTION_REGEX"
-            My.Application.Globix.DT_FUNCTION_REGEX = _DataASorDB.GetDatatable("DD_ECM", oSql, "TBGI_FUNCTION_REGEX", "", "")
+            Dim oSql = ""
+
             oSql = "SELECT * FROM TBIDB_COMMON_SQL WHERE ACTIVE = 1"
             My.DTCOMMON_SQL = _DataASorDB.GetDatatable("IDB", oSql, "TBIDB_COMMON_SQL", "", "")
             oSql = "SELECT * FROM TBIDB_CATALOG"
@@ -174,7 +175,7 @@ Public Class ClassInit
             If Not IsNothing(_Client) Then
                 If _Client.Connect() Then
                     MyApplication.Service.IsActive = True
-
+                    EDMI_SERVICE_ACTIVE = True
                 End If
             End If