MSKW43

app/DD-Record-Organizer/ClassProxy.vb

@@ -164,6 +164,24 @@ Public Class ClassProxy
             Return False
         End If
     End Function
+    Public Shared Function PRPROXY_CONTROL_VALUE_RENEW(RecordID As Integer)
+        If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
+            Return False
+        End If
+        Dim sel = String.Format("DECLARE	@return_value int" & vbNewLine &
+        "EXEC @return_value = [dbo].[PRPROXY_CONTROL_VALUE_RENEW] {0}" & vbNewLine &
+        "SELECT	'Return Value' = @return_value", RecordID)
+        Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
+        If Not IsNothing(Result) Then
+            If Result.Rows(0).Item(0) = 0 Then
+                Return True
+            Else
+                Return False
+            End If
+        Else
+            Return False
+        End If
+    End Function
     Public Shared Function IS_PROXY_BUSY()
         If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
             Return False