MS StructureNodeConfig RightManagementUpdate

app/DD-Record-Organizer/frmRight_Management.vb

@@ -1,10 +1,12 @@
-Public Class frmRight_Management
+Imports DD_Record_Organizer.ControlLoader
+
+Public Class frmRight_Management
     Private Shared _Instance As frmRight_Management = Nothing
     Private insert As Boolean = False
     Private formloaded As Boolean = False
     Private updateIP As Boolean = False
-    Private DGSelection As Boolean = False
     Private ID_CURR As Integer = 0
+
     Public Shared Function Instance() As frmRight_Management
         If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
             _Instance = New frmRight_Management
@@ -126,7 +128,7 @@
     Sub Refresh_Free_Users()
         Dim Sql = $"SELECT T.* FROM TBDD_USER T INNER JOIN TBDD_USER_MODULES T1 ON T.GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID 
 WHERE T2.SHORT_NAME = 'ADDI'   AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGHT_USER WHERE ENTITY_ID = {cmbEntity.SelectedValue}) ORDER BY USERNAME"
-        Dim DT_USER = MYDB_ECM.GetDatatable(sql)
+        Dim DT_USER = MYDB_ECM.GetDatatable(Sql)
         Try
             DD_ECMAdmin.TBAD_Users.Clear()
 
@@ -247,66 +249,27 @@ WHERE T2.SHORT_NAME = 'ADDI'   AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGH
         End Try
     End Sub
 
-    Private Sub EDIT_RECCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles EDIT_RECCheckBox.CheckedChanged
-        If updateIP = False Then
-            Update_RightGroup_VALUE("EDIT_REC", EDIT_RECCheckBox.Checked, IDTextBox.Text)
-        End If
 
-    End Sub
-
-    Private Sub Update_RightGroup_VALUE(pItem As String, obit As Boolean, pID As String)
-        If formloaded = False Or pID = "" Or DGSelection = True Then
-            Exit Sub
-        End If
+    Private Sub Update_RightGroup()
         updateIP = True
-        ID_CURR = pID
-        Dim oupdate = $"UPDATE TBPMO_RIGHT_GROUP SET {pItem} = '{obit}', CHANGED_WHO = '{Environment.UserName}' WHERE GUID = {pID}
-            and {pItem} <> '{obit}'"
+        ID_CURR = IDTextBox.Text
+        Dim oID = IDTextBox.Text
+        Dim oupdate = $"UPDATE TBPMO_RIGHT_GROUP SET EDIT_REC = '{EDIT_RECCheckBox.Checked}',
+ADD_REC = '{ADD_RECCheckBox.Checked}',
+DELETE_REC = '{DELETE_DOCCheckBox.Checked}',
+ADD_DOC = '{ADD_DOCCheckBox.Checked}',
+VIEW_DOC = '{VIEW_DOCCheckBox.Checked}',
+DELETE_DOC = '{DELETE_DOCCheckBox.Checked}',
+CHANGED_WHO = '{Environment.UserName}' WHERE GUID = {oID}"
         If MYDB_ECM.ExecuteNonQuery(oupdate) Then
-            InfoLabel.Text = $"{pItem} updated successfully - {Now.ToLongTimeString}"
+            InfoLabel.Text = $"Group_Definition updated successfully - {Now.ToLongTimeString}"
             Refresh_Rights_Groups()
-            VWPMO_RIGHT_GROUPBindingSource2.Position = VWPMO_RIGHT_GROUPBindingSource2.Find("ID", ID_CURR)
+            VWPMO_RIGHT_GROUPBindingSource2.Position = VWPMO_RIGHT_GROUPBindingSource2.Find("ID", oID)
             updateIP = False
         End If
     End Sub
 
-    Private Sub ADD_RECCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles ADD_RECCheckBox.CheckedChanged
-        If updateIP = False Then
-            Update_RightGroup_VALUE("ADD_REC", ADD_RECCheckBox.Checked, IDTextBox.Text)
-        End If
 
-    End Sub
-
-    Private Sub DELETE_RECCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles DELETE_RECCheckBox.CheckedChanged
-        If updateIP = False Then
-            Update_RightGroup_VALUE("DELETE_REC", DELETE_RECCheckBox.Checked, IDTextBox.Text)
-        End If
-
-    End Sub
-
-    Private Sub ADD_DOCCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles ADD_DOCCheckBox.CheckedChanged
-        If updateIP = False Then
-            Update_RightGroup_VALUE("ADD_DOC", ADD_DOCCheckBox.Checked, IDTextBox.Text)
-        End If
-
-
-    End Sub
-
-    Private Sub VIEW_DOCCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles VIEW_DOCCheckBox.CheckedChanged
-        If updateIP = False Then
-            Update_RightGroup_VALUE("VIEW_DOC", VIEW_DOCCheckBox.Checked, IDTextBox.Text)
-        End If
-
-
-    End Sub
-
-    Private Sub DELETE_DOCCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles DELETE_DOCCheckBox.CheckedChanged
-        If updateIP = False Then
-            Update_RightGroup_VALUE("DELETE_DOC", DELETE_DOCCheckBox.Checked, IDTextBox.Text)
-        End If
-
-
-    End Sub
 
     Private Sub frmRight_Management_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         formloaded = True
@@ -337,4 +300,24 @@ WHERE T2.SHORT_NAME = 'ADDI'   AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGH
             End If
         End If
     End Sub
+
+    Private Sub VWPMO_RIGHT_GROUPBindingSource2_PositionChanged(sender As Object, e As EventArgs) Handles VWPMO_RIGHT_GROUPBindingSource2.PositionChanged
+        If formloaded = False Then
+            Exit Sub
+        End If
+        Try
+            Dim oID = VWPMO_RIGHT_GROUPDataGridView.SelectedRows(0).Cells(0).Value
+            ID_CURR = oID
+            InfoLabel.Text = oID
+        Catch ex As Exception
+            InfoLabel.Text = ex.Message
+        End Try
+
+    End Sub
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        If IDTextBox.Text <> "" Then
+            Update_RightGroup()
+        End If
+    End Sub
 End Class