From 16806f5c559cd3625f8c761c5cfcfaf45b497db8 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 26 Sep 2022 10:55:22 +0200 Subject: [PATCH] =?UTF-8?q?Revert=20"Bugfix=20->=20Kundensubstring=20entfe?= =?UTF-8?q?rnt=20(daf=C3=BCr=20muss=20das=20DB-Feld=20"bb=5FKunde"=20auf?= =?UTF-8?q?=20varchar(MAX)."?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This reverts commit a688d3f79fadf110d8b55d975749982823b3ce5d. --- SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb b/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb index 9745b5cb..494d8873 100644 --- a/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb +++ b/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