MS Logging, Import windream, Hash-wert

app/DD-Record-Organizer/frmNodeNavigation.vb

@@ -459,7 +459,7 @@ Public Class frmNodeNavigation
     End Function
     Public Async Sub ShowDialogAsync2()
         Await Task.Run(Sub()
-                           MsgBox("Der Parent-Node wurde erfolgreich getauscht. Aktualisieren Sie die Ansicht!", MsgBoxStyle.Information)
+                           MsgBox("Der Parent-Node wurde erfolgreich getauscht. Aktualisieren Sie nun die Ansicht!", MsgBoxStyle.Information)
                        End Sub)
     End Sub
 
@@ -2153,7 +2153,9 @@ Public Class frmNodeNavigation
                                 MsgBox("File contains invalid operator '!" & vbNewLine & "Please rename file and try again!", MsgBoxStyle.Exclamation)
                                 Continue For
                             End If
-                            ClassHelper.Insert_USER_File(CURRENT_WORKFILE, DropType)
+                            If ClassHelper.Insert_USER_File(CURRENT_WORKFILE, DropType) = False Then
+                                Exit Sub
+                            End If
                         End If
                     End If
                 Next
@@ -3333,13 +3335,17 @@ Public Class frmNodeNavigation
         End If
     End Sub
 
-    Private Sub KnotenLöschenadminToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KnotenLöschenadminToolStripMenuItem.Click
+    Private Async Sub KnotenLöschenadminToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KnotenLöschenadminToolStripMenuItem.Click
         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_NODEID}, '{USER_USERNAME}', 1, 0"
                 If MYDB_ECM.ExecuteNonQuery(oSQL) = True Then
-                    MsgBox("Knoten wurde erfolgreich gelöscht. Aktualisieren Sie die Ansicht!", MsgBoxStyle.Information)
+                    result = MessageBox.Show("Wollen Sie die Ansicht aktualisieren?", "Knoten wurde erfolgreich gelöscht!", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                    If result = System.Windows.Forms.DialogResult.Yes Then
+                        Await ReloadTreeView()
+                    End If
+
                 End If
             End If
         End If
@@ -3356,4 +3362,8 @@ Public Class frmNodeNavigation
             End If
         End If
     End Sub
+
+    Private Sub frmNodeNavigation_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop
+
+    End Sub
 End Class