edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
d.breimaier
2022-09-23 09:52:26 +02:00
parent 9aa04793cb
commit a688d3f79f
1 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb
View File

@@ -122,13 +122,9 @@
BB.bb_Kontaktart = cboKontaktart._value BB.bb_Kontaktart = cboKontaktart._value
If If(BB.bb_KundenNr, -1) <= 0 Then If If(BB.bb_KundenNr, -1) <= 0 Then
If txtFirma.Text <> "" Then If txtFirma.Text <> "" Then
If txtFirma.Text.Length > 35 Then BB.bb_Kunde = txtFirma.Text
BB.bb_Kunde = txtFirma.Text.Substring(0, 35)
Else
BB.bb_Kunde = txtFirma.Text
End If
Else 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
End If End If
BB.bb_Geschaeftsfuehrer = txtGF.Text BB.bb_Geschaeftsfuehrer = txtGF.Text