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

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-04-12 13:48:22 +02:00
parent 8c901be00c
commit 292b241fd1
38 changed files with 1445 additions and 1114 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
app/DD-Record-Organizer/ClassProxy.vb
View File

@@ -3,11 +3,11 @@ 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 clsDatabase.DB_PROXY_INITIALIZED = False Then
If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False
End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _
"EXEC @return_value = [dbo].[PRPROXY_SYNC_OBJECTS]" & vbNewLine & _
Dim sel = "DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_SYNC_OBJECTS]" & vbNewLine &
"SELECT 'Return Value' = @return_value"
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then
@@ -21,11 +21,11 @@ Public Class ClassProxy
End If
End Function
Public Shared Function PRPROXY_SYNC_DOC_OBJECTS()
If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False
End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _
"EXEC @return_value = [dbo].[PRPROXY_SYNC_DOC_OBJECTS]" & vbNewLine & _
Dim sel = "DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_SYNC_DOC_OBJECTS]" & vbNewLine &
"SELECT 'Return Value' = @return_value"
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then
@@ -39,11 +39,11 @@ Public Class ClassProxy
End If
End Function
Public Shared Function PRPROXY_RECORD_DEL(RECID As Integer, ENTITY_ID As Integer)
If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
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_RECORD_DEL] {0},{1} " & vbNewLine & _
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_RECORD_DEL] {0},{1} " & vbNewLine &
"SELECT 'Return Value' = @return_value", RECID, ENTITY_ID)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then
@@ -57,11 +57,11 @@ Public Class ClassProxy
End If
End Function
Public Shared Function PRPROXY_RECORD_UPD_INS(ENT_ID As Integer, RECID As Integer)
If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
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_RECORD_UPD_INS] {0},{1} " & vbNewLine & _
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_RECORD_UPD_INS] {0},{1} " & vbNewLine &
"SELECT 'Return Value' = @return_value", ENT_ID, RECID)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then
@@ -75,11 +75,11 @@ Public Class ClassProxy
End If
End Function
Public Shared Function PRPROXY_RECORD_CONNECT(PARENT_RECID As Integer, RECID As Integer)
If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
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_RECORD_CONNECT] {0},{1} " & vbNewLine & _
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_RECORD_CONNECT] {0},{1} " & vbNewLine &
"SELECT 'Return Value' = @return_value", PARENT_RECID, RECID)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then
@@ -93,11 +93,11 @@ Public Class ClassProxy
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 clsDatabase.DB_PROXY_INITIALIZED = False Then
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_DEL] {0},{1},{2}" & vbNewLine & _
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_CONTROL_DEL] {0},{1},{2}" & vbNewLine &
"SELECT 'Return Value' = @return_value", REC_ID, ENT_ID, CONTROL_ID)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then
@@ -111,11 +111,11 @@ Public Class ClassProxy
End If
End Function
Public Shared Function Refresh_Workflow_Data()
If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False
End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _
"EXEC @return_value = [dbo].[PRPROXY_SYNC_WORKFLOWS]" & vbNewLine & _
Dim sel = "DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_SYNC_WORKFLOWS]" & vbNewLine &
"SELECT 'Return Value' = @return_value"
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then
@@ -129,11 +129,11 @@ Public Class ClassProxy
End If
End Function
Public Shared Function PRPROXY_SYNC_DETAIL_OBJECT(Objectname As String)
If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False
End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _
"EXEC @return_value = [dbo].[PRPROXY_SYNC_DETAIL_OBJECT] '" & Objectname & "'" & vbNewLine & _
Dim sel = "DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_SYNC_DETAIL_OBJECT] '" & Objectname & "'" & vbNewLine &
"SELECT 'Return Value' = @return_value"
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then
@@ -147,11 +147,11 @@ Public Class ClassProxy
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 clsDatabase.DB_PROXY_INITIALIZED = False Then
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_UPD_INS] {0},{1},{2},'{3}','{4}'" & vbNewLine & _
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_CONTROL_VALUE_UPD_INS] {0},{1},{2},'{3}','{4}'" & vbNewLine &
"SELECT 'Return Value' = @return_value", EntityID, ControlID, RecordID, Value, USER_USERNAME)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then
@@ -165,7 +165,7 @@ Public Class ClassProxy
End If
End Function
Public Shared Function IS_PROXY_BUSY()
If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False
End If
Dim sql = "SELECT SYNC_RUNNING FROM TBPROXY_CONFIG WHERE GUID = 1"
@@ -178,7 +178,7 @@ Public Class ClassProxy
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
If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False
End If
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine & _