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

ms

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-12-14 17:05:18 +01:00
parent d061c5e0b5
commit 27abfd0b74
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD-Record-Organizer/ClassWDRights.vb
View File

@@ -172,13 +172,13 @@ Public Class ClassWDRights
Try Try
AccessRights.Delete2(UserOrGroup, WMAccessRightAllRights) AccessRights.Delete2(UserOrGroup, WMAccessRightAllRights)
Catch ex As Exception Catch ex As Exception
Dim msg = "Error in AccessRights.Delete2: " & ex.Message Dim msg = "Error in AccessRights.Delete2 (Doc_RenewRights) Doc-ID: " & doc_id & " - UserGroup: " & UserOrGroup & " - ErrorMsg: " & ex.Message
ClassLogger.Add(msg, True) ClassLogger.Add(msg, True)
Continue For Continue For
End Try End Try
i += 1 i += 1
_msg = _msg.Replace("'", "") _msg = _msg.Replace(" '", "")
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> {0} was deleted.", _msg), False) If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> {0} was deleted.", _msg), False)
Next Next
If LogErrorsOnly = False Then ClassLogger.Add(" >> All rights for doc were deleted....", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> All rights for doc were deleted....", False)
End If End If

1
app/DD-Record-Organizer/frmMass_Change.vb
View File

@@ -41,6 +41,7 @@ Public Class frmMass_Change
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
ClassLogger.Add(String.Format("### Starting MassChange of column '{0}' with value '{1}'....###", cmbColumn.Text, txtNewValue.Text), False) ClassLogger.Add(String.Format("### Starting MassChange of column '{0}' with value '{1}'....###", cmbColumn.Text, txtNewValue.Text), False)
ClassHelper.InsertEssential_Log(USER_GUID, "User-ID", String.Format("### Starting MassChange of column '{0}' with value '{1}'....###", cmbColumn.Text, txtNewValue.Text))
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL WHERE COL_NAME = '{0}' AND FORM_ID = {1}", cmbColumn.Text, CURRENT_ENTITY_ID) SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL WHERE COL_NAME = '{0}' AND FORM_ID = {1}", cmbColumn.Text, CURRENT_ENTITY_ID)
ProgressBar1.Visible = True ProgressBar1.Visible = True