20200108

Aviso/Anhänge/usrCntlSendungAnhangElement.vb

@@ -118,17 +118,21 @@ Public Class usrCntlSendungAnhangElement
     End Sub
 
     Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click
-        Dim bez = InputBox("Bitte geben Sie den neuen Dateinamen ein:")
-        If bez <> "" Then
-            Try
-                Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(FILE_ANHID)
-                ANH.anh_Name = bez
+        Try
+
+            Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(FILE_ANHID)
+            Dim f As New frmSendungAnhangUmbenennenUmkateg(FILE_NAME, ANH.anh_Art)
+            If f.ShowDialog = DialogResult.OK Then
+
+                ANH.anh_Name = f.txtBezeichnung.Text
+                ANH.anh_Art = f.cboArt._value
                 ANH.SAVE()
-                FILE_NAME = bez
-            Catch ex As Exception
-                MsgBox(ex.Message)
-            End Try
-        End If
+                FILE_NAME = f.txtBezeichnung.Text
+
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
 
     Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click