This commit is contained in:
SchreiberM
2016-11-17 16:32:58 +01:00
parent d8ab5633e8
commit 8dd7f6448e
24 changed files with 4223 additions and 2709 deletions

View File

@@ -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