From 27abfd0b74fdeb53b44ee5004c1af9908a06bfcb Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 14 Dec 2017 17:05:18 +0100 Subject: [PATCH] ms --- app/DD-Record-Organizer/ClassWDRights.vb | 6 +++--- app/DD-Record-Organizer/frmMass_Change.vb | 1 + 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/app/DD-Record-Organizer/ClassWDRights.vb b/app/DD-Record-Organizer/ClassWDRights.vb index 9355dc8..659c811 100644 --- a/app/DD-Record-Organizer/ClassWDRights.vb +++ b/app/DD-Record-Organizer/ClassWDRights.vb @@ -172,13 +172,13 @@ Public Class ClassWDRights Try AccessRights.Delete2(UserOrGroup, WMAccessRightAllRights) 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) Continue For End Try i += 1 - _msg = _msg.Replace("'", "") - If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> {0} was deleted.", _msg), False) + _msg = _msg.Replace(" '", "") + If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> {0} was deleted.", _msg), False) Next If LogErrorsOnly = False Then ClassLogger.Add(" >> All rights for doc were deleted....", False) End If diff --git a/app/DD-Record-Organizer/frmMass_Change.vb b/app/DD-Record-Organizer/frmMass_Change.vb index f7fbf2a..1648e8a 100644 --- a/app/DD-Record-Organizer/frmMass_Change.vb +++ b/app/DD-Record-Organizer/frmMass_Change.vb @@ -41,6 +41,7 @@ Public Class frmMass_Change If result = MsgBoxResult.Yes Then Cursor = Cursors.WaitCursor 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 SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL WHERE COL_NAME = '{0}' AND FORM_ID = {1}", cmbColumn.Text, CURRENT_ENTITY_ID) ProgressBar1.Visible = True