AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS_04.01

Browse Source
This commit is contained in:
SchreiberM
2017-01-04 17:09:26 +01:00
parent 4ab7e368b1 29b3857635
commit 26812ffeb7
128 changed files with 17813 additions and 20419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

112
app/DD-Record-Organiser/ClassProxy.vb Normal file
View File

@@ -0,0 +1,112 @@
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
Return False
End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _
"EXEC @return_value = [dbo].[PRROXY_SYNC_OBJECTS]" & vbNewLine & _
"SELECT 'Return Value' = @return_value"
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 Refresh_Object_Change_Data()
If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
Return False
End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _
"EXEC @return_value = [dbo].[PRROXY_SYNC_OBJECTS_CHANGES]" & vbNewLine & _
"SELECT 'Return Value' = @return_value"
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 Refresh_Doc_Data()
If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
Return False
End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _
"EXEC @return_value = [dbo].[PRROXY_SYNC_DOC_OBJECTS]" & vbNewLine & _
"SELECT 'Return Value' = @return_value"
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 Refresh_Control_Data()
If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
Return False
End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _
"EXEC @return_value = [dbo].[PRROXY_SYNC_OBJECTS_CONTROL_VALUES] " & CURRENT_ENTITY_ID & vbNewLine & _
"SELECT 'Return Value' = @return_value"
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 Refresh_Workflow_Data()
If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
Return False
End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _
"EXEC @return_value = [dbo].[PRROXY_SYNC_WORKFLOWS]" & vbNewLine & _
"SELECT 'Return Value' = @return_value"
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 PRROXY_SYNC_DETAIL_OBJECT(Objectname As String)
If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
Return False
End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _
"EXEC @return_value = [dbo].[PRROXY_SYNC_DETAIL_OBJECT] '" & Objectname & "'" & vbNewLine & _
"SELECT 'Return Value' = @return_value"
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