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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-08-25 17:08:41 +02:00
parent c02e5e235c
commit 23612edc88
12 changed files with 2303 additions and 3120 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
app/DD-Record-Organiser/ClassDOC_SEARCH.vb
View File

@@ -274,8 +274,12 @@ Public Class ClassDOC_SEARCH
If DD_Rights.ClassRights.Collect_Users(RECORD_ID, ENTITY_ID) = True Then
If DD_Rights.ClassRights.File_DeleteAndSetRight(RESULT_DOCID, RESULT_DOC_PATH, True) Then
If DD_Rights.ClassRights.MSG_RESULT <> "" Then
MsgBox("Unexpected Errors in setting rights: " & vbNewLine & DD_Rights.ClassRights.MSG_RESULT, MsgBoxStyle.Exclamation)
Return False
Dim msg = "Achtung: einige Rechte konnten nicht gesetzt werden: " & vbNewLine & DD_Rights.ClassRights.MSG_RESULT
If USER_LANGUAGE <> "de-DE" Then
msg = "Attention: some rights could not be set: " & vbNewLine & DD_Rights.ClassRights.MSG_RESULT
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
Return True
Else
Return True
End If