ms

GUIs.ZooFlow/ClassDataASorDB.vb

@@ -6,10 +6,10 @@ Public Class ClassDataASorDB
     Public Sub New(LogConfig As LogConfig)
         _Logger = LogConfig.GetLogger
     End Sub
-    Public Function GetDatatable(pDB As String, pSQL As String, pAppServDT As String, pAppServFilter As String, pAppServSort As String, Optional pForce As String = "") As DataTable
+    Public Function GetDatatable(pDB As String, pSQL As String, pAppServDT As String, pAppServFilter As String, Optional pAppServSort As String = "", Optional pForce As String = "") As DataTable
         Try
             Dim oReturnDT As DataTable
-            If My.Application.Service.IsActive = True And pForce = String.Empty Then
+            If EDMI_SERVICE_ACTIVE = True And pForce = String.Empty Then
                 Try
                     Dim oTableResult As TableResult = _Client.GetDatatableByName(pAppServDT, pAppServFilter, pAppServSort)
                     oReturnDT = oTableResult.Table