Revert "Bugfix -> Kundensubstring entfernt (dafür muss das DB-Feld "bb_Kunde" auf varchar(MAX)."

This reverts commit a688d3f79f.

SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb

@@ -122,9 +122,13 @@
         BB.bb_Kontaktart = cboKontaktart._value
         If If(BB.bb_KundenNr, -1) <= 0 Then
             If txtFirma.Text <> "" Then
-                BB.bb_Kunde = txtFirma.Text
+                If txtFirma.Text.Length > 35 Then
+                    BB.bb_Kunde = txtFirma.Text.Substring(0, 35)
+                Else
+                    BB.bb_Kunde = txtFirma.Text
+                End If
             Else
-                BB.bb_Kunde = "-" 'diese Fall kann nicht eintreten, wird im Formular abgefangen, aber sicherheitshalber :)
+                BB.bb_Kunde = "-" 'diese Fall kann nicht eintreten, wird im Formular abgefangen.
             End If
         End If
         BB.bb_Geschaeftsfuehrer = txtGF.Text