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

View File

@@ -172,7 +172,7 @@ 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

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