MS0602

app/DD-Record-Organizer/ClassProxy.vb

@@ -1,8 +1,9 @@
-Public Class ClassProxy
+Imports DD_LIB_Standards
+Public Class ClassProxy
     Public Shared MyPROXYConnectionString As String = ""
     Public Shared MyLinkedServer As String
     Public Shared Function Refresh_Object_Data()
-        If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
+        If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
             Return False
         End If
         Dim sel = "DECLARE	@return_value int" & vbNewLine & _
@@ -20,7 +21,7 @@
         End If
     End Function
     Public Shared Function PRPROXY_SYNC_DOC_OBJECTS()
-        If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
+        If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
             Return False
         End If
         Dim sel = "DECLARE	@return_value int" & vbNewLine & _
@@ -38,7 +39,7 @@
         End If
     End Function
     Public Shared Function PRPROXY_RECORD_DEL(RECID As Integer, ENTITY_ID As Integer)
-        If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
+        If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
             Return False
         End If
         Dim sel = String.Format("DECLARE @return_value int" & vbNewLine & _
@@ -56,7 +57,7 @@
         End If
     End Function
     Public Shared Function PRPROXY_RECORD_UPD_INS(ENT_ID As Integer, RECID As Integer)
-        If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
+        If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
             Return False
         End If
         Dim sel = String.Format("DECLARE @return_value int" & vbNewLine & _
@@ -74,7 +75,7 @@
         End If
     End Function
     Public Shared Function PRPROXY_RECORD_CONNECT(PARENT_RECID As Integer, RECID As Integer)
-        If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
+        If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
             Return False
         End If
         Dim sel = String.Format("DECLARE @return_value int" & vbNewLine & _
@@ -92,7 +93,7 @@
         End If
     End Function
     Public Shared Function PRPROXY_CONTROL_DEL(REC_ID As Integer, ENT_ID As Integer, CONTROL_ID As Integer)
-        If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
+        If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
             Return False
         End If
         Dim sel = String.Format("DECLARE @return_value int" & vbNewLine & _
@@ -110,7 +111,7 @@
         End If
     End Function
     Public Shared Function Refresh_Workflow_Data()
-        If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
+        If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
             Return False
         End If
         Dim sel = "DECLARE	@return_value int" & vbNewLine & _
@@ -128,7 +129,7 @@
         End If
     End Function
     Public Shared Function PRPROXY_SYNC_DETAIL_OBJECT(Objectname As String)
-        If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
+        If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
             Return False
         End If
         Dim sel = "DECLARE	@return_value int" & vbNewLine & _
@@ -146,7 +147,7 @@
         End If
     End Function
     Public Shared Function PRPROXY_CONTROL_VALUE_UPD_INS(EntityID As Integer, ControlID As Integer, RecordID As Integer, Value As String)
-        If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
+        If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
             Return False
         End If
         Dim sel = String.Format("DECLARE	@return_value int" & vbNewLine & _
@@ -163,6 +164,18 @@
             Return False
         End If
     End Function
-
+    Public Shared Function IS_PROXY_BUSY()
+        If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
+            Return False
+        End If
+        Dim sql = "SELECT SYNC_RUNNING FROM TBPROXY_CONFIG WHERE GUID = 1"
+        Dim BUSY
+        BUSY = clsDatabase.Execute_Scalar(sql, True)
+        If IsNothing(BUSY) Then
+            Return True
+        Else
+            Return BUSY
+        End If
+    End Function
 
 End Class