MS2

app/DD-Record-Organizer/ClassProxy.vb

@@ -177,5 +177,22 @@ Public Class ClassProxy
             Return BUSY
         End If
     End Function
-
+    Public Shared Function PRPROXY_DOC_VALUES(DocID As Integer)
+        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 & _
+      "EXEC @return_value = [dbo].[PRPROXY_DOC_VALUES] {0} " & vbNewLine & _
+      "SELECT	'Return Value' = @return_value", DocID)
+        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
 End Class