Anpassungen nach email

SchaumKommiCollo/KommiCollo/frmMain.vb

@@ -401,6 +401,8 @@ Public Class frmMain
             btnAddPaket.Enabled = True
             tsinfolabel.Text = "Vorgang abgebrochen"
             tsinfolabel.Visible = True
+            ListBox1.ResetText()
+            txtFreitext.Text = ""
         Catch ex As Exception
             ShowError("Fehler in Abbruch Paket: " & vbNewLine & ex.Message)
         End Try
@@ -643,8 +645,11 @@ Public Class frmMain
                     btnAddPaket.Enabled = True
                     tsinfolabel.Text = "Vorgang abgebrochen"
                     tsinfolabel.Visible = True
+                    ListBox1.ResetText()
 
                     frmPrintOptions.ShowDialog()
+                    GridControlLHM.DataSource = Nothing
+                    GridViewLHM.Columns.Clear()
                 End If
             End If
         Catch ex As Exception
@@ -802,4 +807,10 @@ Public Class frmMain
             txtFreitext.Text = ""
         End If
     End Sub
+
+    Private Sub txtFreitext_TextChanged(sender As Object, e As EventArgs) Handles txtFreitext.TextChanged
+        If txtFreitext.Text.Length >= 70 Then
+            MsgBox("Achtung: Maximale Anzahl Textzeichen erreicht!", MsgBoxStyle.Critical)
+        End If
+    End Sub
 End Class