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

8
app/DD-Record-Organizer/Classes/ClassDOC_SEARCH.vb
View File

@@ -1,5 +1,5 @@
Imports System.IO
Imports DD_LIB_Standards
'Imports DD_LIB_Standards
Public Class ClassDOC_SEARCH
Private Shared DT_RESULTLIST_OPTIONS As DataTable
Private Shared DT_RESULTLIST_SEL_VALUES As DataTable
@@ -518,10 +518,6 @@ Public Class ClassDOC_SEARCH
Try
Dim execute = String.Format("EXEC [dbo].[PRPMO_DOC_CREATE_NEW_DOC] {0},{1},'{2}'", DOC_ID, RECORD_ID, USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(execute) = True Then
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
execute = String.Format("EXEC [dbo].[PRPROXY_DOC_CREATE_NEW_DOC] {0},{1},'{2}'", DOC_ID, RECORD_ID, USER_USERNAME)
MYDB_ECM.ExecuteNonQuery(execute)
End If
Return True
Else
Return False
@@ -602,7 +598,7 @@ Public Class ClassDOC_SEARCH
End Select
Catch ex As Exception
clsLogger.Add("Unexpected Error in Get_File_Rights: " & ex.Message)
LOGGER.Warn("Unexpected Error in Get_File_Rights: " & ex.Message)
Return Nothing
End Try
End Function