MS Admin Contextmenü

app/DD-Record-Organizer/frmNodeNavigation.vb

@@ -371,7 +371,7 @@ Public Class frmNodeNavigation
 
 
         ' END NEW NODE
-
+        CURRENT_NODEID = oGuid
         If oHasRecordId Then
             Update_Status_Label(True, $"NodeGUID {oGuid} - RecordID {oRecordId}", EditState.None)
 
@@ -434,17 +434,34 @@ Public Class frmNodeNavigation
 
             Await Show_Selected_Record_Data(0)
         End If
-        If ParentNodeChangeinAction = True And CURRENT_NODE_GUID <> 0 Then
-            Dim result As DialogResult = MessageBox.Show("Der Parent-Node wird nun getauscht? Wollen Sie fortfahren?", "Bestätigung erforderlich", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-            If result = System.Windows.Forms.DialogResult.Yes Then
-                Dim oSQL = $"UPDATE TBPMO_STRUCTURE_NODES SET PARENT_ID = {CURRENT_NODE_GUID} , CHANGED_WHO = '{USER_USERNAME}' WHERE GUID = {ChildNodeGuid}0"
+        If ParentNodeChangeinAction = True And CURRENT_NODEID <> 0 Then
+            Dim result As DialogResult = Await ShowDialogAsync()
+            If result = DialogResult.Yes Then
+                Dim oSQL = $"UPDATE TBPMO_STRUCTURE_NODES SET PARENT_GUID = {CURRENT_NODEID} , CHANGED_WHO = '{USER_USERNAME}' WHERE GUID = {ChildNodeGuid}"
                 If MYDB_ECM.ExecuteNonQuery(oSQL) = True Then
-                    MsgBox("Der Parent-Node wurde erfolgreich getauscht. Aktualisieren Sie die Ansicht!", MsgBoxStyle.Information)
+                    ShowDialogAsync2()
+                Else
+                    Console.WriteLine("Fehler")
                 End If
                 ParentNodeChangeinAction = False
+            Else
+                MessageBox.Show("Abgebrochen!", "Info")
             End If
         End If
     End Sub
+    Public Async Function ShowDialogAsync() As Task(Of DialogResult)
+        Return Await Task.Run(Function()
+                                  Return MessageBox.Show("Der Parent-Node wird nun getauscht? Wollen Sie fortfahren?",
+                                                     "Bestätigung erforderlich",
+                                                     MessageBoxButtons.YesNo,
+                                                     MessageBoxIcon.Question)
+                              End Function)
+    End Function
+    Public Async Sub ShowDialogAsync2()
+        Await Task.Run(Sub()
+                           MsgBox("Der Parent-Node wurde erfolgreich getauscht. Aktualisieren Sie die Ansicht!", MsgBoxStyle.Information)
+                       End Sub)
+    End Sub
 
     Public Sub Update_Document_Label(pDocumentCount As Integer)
         Dim oMessage
@@ -3317,10 +3334,10 @@ Public Class frmNodeNavigation
     End Sub
 
     Private Sub KnotenLöschenadminToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KnotenLöschenadminToolStripMenuItem.Click
-        If CURRENT_NODE_GUID <> 0 Then
+        If CURRENT_NODEID <> 0 Then
             Dim result As DialogResult = MessageBox.Show("Wollen Sie fortfahren? Der Knoten wird in Folge mit den Unterknoten als gelöscht markiert!", "Bestätigung erforderlich", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
             If result = System.Windows.Forms.DialogResult.Yes Then
-                Dim oSQL = $"EXEC [dbo].[PRPMO_DELETE_NODE] {CURRENT_NODE_GUID}, '{USER_USERNAME}', 1, 0"
+                Dim oSQL = $"EXEC [dbo].[PRPMO_DELETE_NODE] {CURRENT_NODEID}, '{USER_USERNAME}', 1, 0"
                 If MYDB_ECM.ExecuteNonQuery(oSQL) = True Then
                     MsgBox("Knoten wurde erfolgreich gelöscht. Aktualisieren Sie die Ansicht!", MsgBoxStyle.Information)
                 End If
@@ -3330,14 +3347,12 @@ Public Class frmNodeNavigation
     End Sub
 
     Private Sub KnotenVerschiebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KnotenVerschiebenToolStripMenuItem.Click
-        If CURRENT_NODE_GUID <> 0 Then
+        If CURRENT_NODEID <> 0 Then
             Dim result As DialogResult = MessageBox.Show("Wollen Sie diesen Knoten verschieben?", "Bestätigung erforderlich", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
             If result = System.Windows.Forms.DialogResult.Yes Then
-                result = MessageBox.Show("Dann wählen Sie nun bitte den Knoten aus, welcher als Parent für den zu verschiebenden Knoten agieren soll!", "Bestätigung erforderlich", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-                If result = System.Windows.Forms.DialogResult.Yes Then
-                    ParentNodeChangeinAction = True
-                    ChildNodeGuid = CURRENT_NODE_GUID
-                End If
+                MessageBox.Show("Dann wählen Sie nun bitte den Knoten aus, welcher als Parent für den zu verschiebenden Knoten agieren soll!", "Bestätigung erforderlich", MessageBoxButtons.OKCancel, MessageBoxIcon.Exclamation)
+                ParentNodeChangeinAction = True
+                ChildNodeGuid = CURRENT_NODEID
             End If
         End If
     End Sub