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

MSKW37

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-09-19 12:52:35 +02:00
parent 96c08ada63
commit 3a175d04e5
19 changed files with 3463 additions and 3039 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -177,13 +177,13 @@ Public Class ClassProxy
Return BUSY
End If
End Function
Public Shared Function PRPROXY_DOC_VALUES(DocID As Integer)
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
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 sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_DOC_VALUES_UPD] {0}, {1} " & vbNewLine &
"SELECT 'Return Value' = @return_value", DocID, RecId)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then