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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-08-29 17:13:55 +02:00
parent 23612edc88
commit eccb3f9dea
9 changed files with 3684 additions and 4943 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
app/RecordOrganizer_RightManager/frmCheckRightsEntity.Designer.vb generated
View File

@@ -56,7 +56,7 @@ Partial Class frmCheckRightsEntity
Me.btnCheckRights.Name = "btnCheckRights"
Me.btnCheckRights.Size = New System.Drawing.Size(335, 39)
Me.btnCheckRights.TabIndex = 2
Me.btnCheckRights.Text = "Check rights for all documents in this entity"
Me.btnCheckRights.Text = "Renew rights for all documents in this entity"
Me.btnCheckRights.UseVisualStyleBackColor = True
'
'BW_RightsEntity

7
app/RecordOrganizer_RightManager/frmCheckRightsEntity.vb
View File

@@ -74,7 +74,7 @@ Public Class frmCheckRightsEntity
If DD_Rights.ClassRights.Collect_Users(row.Item("RECORD_ID"), row.Item("ENTITY_ID")) = True Then
WorkingFiles += 1
CURR_DOCID = row.Item("DocID")
If DD_Rights.ClassRights.File_DeleteAndSetRight(row.Item("DocID"), row.Item("FULL_FILENAME"), True) Then
If DD_Rights.ClassRights.TransferRights2Service(row.Item("DocID"), row.Item("FULL_FILENAME")) Then
If DD_Rights.ClassRights.MSG_RESULT <> "" Then
righterrors = True
End If
@@ -118,10 +118,11 @@ Public Class frmCheckRightsEntity
If righterrors = True Then
MsgBox("All rights of files belonging to entity were checked and refreshed, " & vbNewLine & "BUT some Userrights could not be set. Check the logfile!", MsgBoxStyle.Exclamation, "Attention")
Else
MsgBox("All rights of files belonging to entity were checked and refreshed successfully!", MsgBoxStyle.Information)
MsgBox("All rights of files belonging to entity were queued for central rights service!" & vbNewLine & "Rights will be set within the next 5 minutes!", MsgBoxStyle.Information)
End If
clsDatabase.Execute_non_Query("UPDATE TBPMO_SERVICE_RIGHT_CONFIG SET RUN_SERVICE = 1 WHERE GUID = 1")
Else
MsgBox("Some errors occured while checking and setting the rights...please check the log!" & vbNewLine & ">> " & ClassRights.COUNT_FILES.ToString & " files schould be worked." & _
MsgBox("Some errors occured while preparing and queuing rights...please check the log!" & vbNewLine & ">> " & ClassRights.COUNT_FILES.ToString & " files schould be worked." & _
">> " & ClassRights.WORKED_FILES.ToString & " were worked successfully.", MsgBoxStyle.Exclamation)
End If
clsDatabase.Execute_non_Query("UPDATE TBPMO_KONFIGURATION SET DOC_ID = 0 WHERE GUID = 1")