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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-10-06 16:02:05 +02:00
parent bcb40ba6aa
commit a42ecaa30b
4 changed files with 514 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -332,70 +332,71 @@ Public Class ClassDOC_SEARCH
MsgBox("No Record selected - Please select one!", MsgBoxStyle.Exclamation)
Return False
End If
If LogErrorsOnly = False Then ClassLogger.Add("#### SETTING RIGHTS FPOR FILE ######", False)
DD_Rights.clsLogger.Init(Application.UserAppDataPath() & "\Log", Environment.UserName)
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.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
'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
End If
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
' 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