MS17.11
This commit is contained in:
@@ -44,6 +44,8 @@ Public Class frmCheckRightsEntity
|
||||
Exit Sub
|
||||
Else
|
||||
clsLogger.Add(String.Format(">> {0} files must be transferred!", DT_FILES.Rows.Count), False)
|
||||
Dim del = "DELETE FROM TBPMO_USER_RIGHTS_JOBS WHERE ENTITY_ID = " & ENTITY_ID
|
||||
clsDatabase.Execute_non_Query(del)
|
||||
End If
|
||||
btncancel.Visible = True
|
||||
lblstate.Visible = True
|
||||
@@ -103,6 +105,7 @@ Public Class frmCheckRightsEntity
|
||||
End If
|
||||
Next
|
||||
DD_Rights.ClassRights.Finalize_SettingRights()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
|
||||
|
||||
Reference in New Issue
Block a user