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

MS clswindream entfernt Umstieg auf Modulwindream

Browse Source
This commit is contained in:
Developer01
2024-11-21 18:02:41 +01:00
parent b5ab9c5e1f
commit f05f6d46f8
85 changed files with 416997 additions and 1790 deletions
Download Patch File Download Diff File Expand all files Collapse all files

85
app/DD-Record-Organizer/Classes/ClassProxy.vb
View File

@@ -20,42 +20,42 @@ Public Class ClassProxy
Return False
End If
End Function
Public Shared Function PRPROXY_SYNC_DOC_OBJECTS()
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 &
"SELECT 'Return Value' = @return_value"
Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
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 PRPROXY_RECORD_DEL(RECID As Integer, ENTITY_ID 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_RECORD_DEL] {0},{1} " & vbNewLine &
"SELECT 'Return Value' = @return_value", RECID, ENTITY_ID)
Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
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 PRPROXY_SYNC_DOC_OBJECTS()
' 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 &
' "SELECT 'Return Value' = @return_value"
' Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
' 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 PRPROXY_RECORD_DEL(RECID As Integer, ENTITY_ID 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_RECORD_DEL] {0},{1} " & vbNewLine &
' "SELECT 'Return Value' = @return_value", RECID, ENTITY_ID)
' Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
' 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 PRPROXY_RECORD_UPD_INS(ENT_ID As Integer, RECID As Integer)
If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False
@@ -182,19 +182,6 @@ Public Class ClassProxy
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
End If
Dim sql = "SELECT SYNC_RUNNING FROM TBPROXY_CONFIG WHERE GUID = 1"
Dim BUSY
BUSY = MYDB_ECM.GetScalarValue(sql)
If IsNothing(BUSY) Then
Return True
Else
Return BUSY
End If
End Function
Public Shared Function PRPROXY_DOC_VALUES_UPD(DocID As Integer, RecId As Integer)
If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False