From 6e0422120d8cf594836cda92fbdae29e490f2b0a Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Tue, 19 May 2026 17:01:53 +0200
Subject: [PATCH] Aviso-Status

---
 Aviso/AvisoStatusFunctions.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Aviso/AvisoStatusFunctions.vb b/Aviso/AvisoStatusFunctions.vb
index f2dbcb4..65f042f 100644
--- a/Aviso/AvisoStatusFunctions.vb
+++ b/Aviso/AvisoStatusFunctions.vb
@@ -2174,7 +2174,7 @@ ELSE_ATILLA:
                                 Dim DsId = ""
                                 Dim DsId2 = ""
                                 Dim frist = ""
-                                Dim gestellungsadresse = "<td><td/>"
+                                Dim gestellungsadresse = "<td></td>"
                                 Dim found = False
                                 Select Case s.tblSnd_Abfertigungsart_ID
                                     Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand 
@@ -2294,7 +2294,7 @@ ELSE_ATILLA:
                         If cnt = 1 Then ' wurde nicht erhöht -> keine Einträge
                             SendungslistTXT = ""
                         End If
-                        If KUNDE_ERW.EmailFreigabeSendungsListe Then hText = hText.Replace("%Platzhalter%", SendungslistTXT)
+                        If KUNDE_ERW IsNot Nothing AndAlso KUNDE_ERW.EmailFreigabeSendungsListe Then hText = hText.Replace("%Platzhalter%", SendungslistTXT)
                     End If
                 End If
         End Select