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

Zusatz über Straße <- Kundenübersicht

Browse Source
This commit is contained in:
m.ilhan
2025-02-04 16:42:13 +01:00
parent aa3149d468
commit dc9966ac79
2 changed files with 61 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -408,9 +408,15 @@ Public Class usrCntlKundenuebersicht
lblFirmenname1.Text = checkNullStr(ADRESSE.Name_1)
lblFirmenname2.Text = checkNullStr(ADRESSE.Name_2)
lblAdressZusatz.Text = checkNullStr(KUNDE_ERW.kde_AdressZusatz)
Dim zusatz As String = checkNullStr(KUNDE_ERW.kde_AdressZusatz)
Dim strasse As String = checkNullStr(ADRESSE.Straße)
lblStrasse.Text = checkNullStr(ADRESSE.Straße)
lblStrasse.Text = checkNullStr(KUNDE_ERW.kde_AdressZusatz) & checkNullStr(ADRESSE.Straße)
If zusatz <> "" Then
lblStrasse.Text = zusatz & vbCrLf & strasse
Else
lblStrasse.Text = vbCrLf & strasse
End If
lblLandPlzOrt.Text = checkNullStr(ADRESSE.LandKz) & " - " & checkNullStr(ADRESSE.PLZ) & " - " & checkNullStr(ADRESSE.Ort)
lblPostfach.Text = checkNullStr(ADRESSE.PLZPF) & " - " & checkNullStr(ADRESSE.Postfach)