kundenubersicht

2025-02-13 17:13:03 +01:00
parent 69ddef3391
commit f18807908c
3 changed files with 83 additions and 82 deletions
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -411,9 +411,9 @@ Public Class usrCntlKundenuebersicht
            Dim zusatz As String = checkNullStr(KUNDE_ERW.kde_AdressZusatz)
            Dim strasse As String = checkNullStr(ADRESSE.Straße)

-            lblStrasse.Text = checkNullStr(KUNDE_ERW.kde_AdressZusatz) & checkNullStr(ADRESSE.Straße)
+            'lblStrasse.Text = checkNullStr(KUNDE_ERW.kde_AdressZusatz) & " " & checkNullStr(ADRESSE.Straße)
            If zusatz <> "" Then
-                lblStrasse.Text = zusatz & vbCrLf & strasse
+                lblStrasse.Text = strasse & vbCrLf & zusatz
            Else
                lblStrasse.Text = vbCrLf & strasse
            End If