MS V 3.1.3 Beta RightGroups und NodeConfig-Adding

app/DD-Record-Organizer/frmNodeConfigAdd.vb

@@ -0,0 +1,23 @@
+
+Public Class frmNodeConfigAdd
+    Private pENTITYD As Integer
+    Public Sub New(pParentID As Integer, pEntID As Integer, pEntity As String)
+        MyBase.New()
+        pENTITYD = pEntID
+
+        InitializeComponent()
+        ' Add any initialization after the InitializeComponent() call.
+        Me.txtNodeParentID.Text = pParentID
+        Me.txtEntityName.Text = pEntity
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim oInsert = $"INSERT INTO TBPMO_STRUCTURE_NODES_CONFIGURATION ([PARENT_NODE],[NAME],[ENTITY_ID],[COMMENT],[ADDED_WHO]) VALUES 
+            ({txtNodeParentID.Text},'{txtName.Text}',{pENTITYD},'{txtComment.Text}','{Environment.UserName}')"
+        If MYDB_ECM.ExecuteNonQuery(oInsert) Then
+            Me.Close()
+        Else
+            MsgBox("An error occured on insert! Check Your log!", MsgBoxStyle.Exclamation)
+        End If
+    End Sub
+End Class