From a688d3f79fadf110d8b55d975749982823b3ce5d Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 23 Sep 2022 09:52:26 +0200 Subject: [PATCH] =?UTF-8?q?Bugfix=20->=20Kundensubstring=20entfernt=20(daf?= =?UTF-8?q?=C3=BCr=20muss=20das=20DB-Feld=20"bb=5FKunde"=20auf=20varchar(M?= =?UTF-8?q?AX).?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb b/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb index 494d8873..9745b5cb 100644 --- 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 + BB.bb_Kunde = txtFirma.Text 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