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

2022-09-23 09:52:26 +02:00
parent 9aa04793cb
commit a688d3f79f
1 changed files with 2 additions and 6 deletions
--- a/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb
+++ b/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb
@@ -122,13 +122,9 @@
        BB.bb_Kontaktart = cboKontaktart._value
        If If(BB.bb_KundenNr, -1) <= 0 Then
            If txtFirma.Text <> "" Then
-                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.
+                BB.bb_Kunde = "-" 'diese Fall kann nicht eintreten, wird im Formular abgefangen, aber sicherheitshalber :)
            End If
        End If
        BB.bb_Geschaeftsfuehrer = txtGF.Text