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

MS2

Browse Source
This commit is contained in:
SchreiberM
2016-10-05 17:00:35 +02:00
parent e16e64a77c
commit fedad4b50d
11 changed files with 124 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -336,20 +336,66 @@ Public Class ClassDOC_SEARCH
If DD_Rights.clsDatabase.Init(MyConnectionString) = True Then
If DD_Rights.ClassRights.Init(ENTITY_ID, LogErrorsOnly) = True Then
If DD_Rights.ClassRights.Collect_Users(CURRENT_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
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
If DD_Rights.ClassRights.TransferRights2Service(RESULT_DOCID, RESULT_DOC_PATH, False) Then
Dim sql_select = String.Format("SELECT * FROM VWPMO_RIGHTS_2B_WORKED WHERE DOC_ID = {0}", RESULT_DOCID)
Dim DT_RIGHTS2B_CHANGED As DataTable = ClassDatabase.Return_Datatable(sql_select)
If Not IsNothing(DT_RIGHTS2B_CHANGED) Then
If DT_RIGHTS2B_CHANGED.Rows.Count > 0 Then
Try
For Each rightRow As DataRow In DT_RIGHTS2B_CHANGED.Rows
Dim GUID = rightRow.Item("GUID")
Dim USER_ID = rightRow.Item("USER_ID")
Dim USERNAME = rightRow.Item("USERNAME").ToString.ToUpper
Dim TYPE = rightRow.Item("RIGHT_MODIFY")
Dim FILE_RIGHT = rightRow.Item("FILE_RIGHT_ID")
Dim upd
Dim Result As Boolean
Select Case TYPE
Case "ADD RIGHT"
Result = DD_Rights.ClassRights.SetRightExplicit(RESULT_DOCID, RESULT_DOC_PATH, USERNAME, FILE_RIGHT, ClassWindream.oSession)
End Select
'upd = String.Format("UPDATE TBPMO_RIGHTS_WORK_SERVICE SET WORKING = 0 WHERE GUID = {0}", GUID)
'If clsDatabase.Execute_non_Query(upd) = True Then
If Result = True Then
upd = String.Format("UPDATE TBPMO_RIGHTS_WORK_SERVICE SET WORKED = 1 WHERE GUID = {0}", GUID)
ClassDatabase.Execute_non_Query(upd)
Dim msg = DD_Rights.ClassRights.MSG_RESULT
ClassLogger.Add(msg, False)
If DD_Rights.ClassRights.DeleteRightExplicit(RESULT_DOCID, RESULT_DOC_PATH, WD_GROUP1, ClassWindream.oSession) = False Then
msg = DD_Rights.ClassRights.MSG_RESULT
ClassLogger.Add(msg, False)
Else
Return True
End If
Else
Dim msg = String.Format("ERROR: {0} ", DD_Rights.ClassRights.MSG_RESULT)
ClassLogger.Add(msg, True)
End If
'End If
Next
Catch ex As Exception
ClassLogger.Add("Unexpected Error : " & ex.Message, True)
End Try
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
Return True
Else
Return True
End If
Else
Return False
End If
'If DD_Rights.ClassRights.File_DeleteAndSetRight(RESULT_DOCID, RESULT_DOC_PATH, True) Then
' If DD_Rights.ClassRights.MSG_RESULT <> "" Then
' 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
'Else
' Return False
'End If
Else
Return False
End If