From f3401b5f17478ce66068c80766f29fea543fca6b Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Wed, 20 Dec 2023 16:56:56 +0100
Subject: [PATCH] WL

---
 Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb | 1 +
 Aviso/My Project/AssemblyInfo.vb               | 4 ++--
 Aviso/frmSendungsdetailsNEU.vb                 | 6 +++---
 3 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb b/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb
index 80eacaa..4f14202 100644
--- a/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb
+++ b/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb
@@ -269,6 +269,7 @@ Public Class frmAvisoWeiterleiten
             addBtn(flpFirma, "N", "NKD", "VERAG Nickelsdorf")
             addBtn(flpFirma, "N", "NEU", "VERAG Neuhaus")
             addBtn(flpFirma, "N", "DTB", "VERAG Dettelbach")
+            addBtn(flpFirma, "N", "DTB", "VERAG Neunkirchen (Saar)")
 
             addBtn(flpFirma, "A", "FISK", "VERAG Fiskal")
 
diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb
index 89bf19b..733bebc 100644
--- a/Aviso/My Project/AssemblyInfo.vb	
+++ b/Aviso/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("3.9.4.7")>
-<Assembly: AssemblyFileVersion("3.9.4.7")>
+<Assembly: AssemblyVersion("3.9.4.9")>
+<Assembly: AssemblyFileVersion("3.9.4.9")>
diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb
index 0ed5834..a93cd92 100644
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -4075,7 +4075,7 @@ Public Class frmSendungsdetailsNEU
 
                     'ATA FREMD!!!
                     If sender Is ToolStripMenuItem15 Then
-                        Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr & "  |  Grenze: " & lblGrenze.Text
+                        Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr & "  |  Grenze: " & lblGrenze.Text.Replace(vbNewLine, " ")
                         If If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender, "") <> "" Then Mail.Subject &= "  |  Absender: " & SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender
                         If If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht, "") <> "" Then Mail.Subject &= "  |  Gewicht: " & SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht
 
@@ -4101,7 +4101,7 @@ Public Class frmSendungsdetailsNEU
                         Dim TextHTML = ""
                         TextHTML &= "Sehr geehrte Damen und Herren,<br>"
                         TextHTML &= "<br>"
-                        TextHTML &= "der LKW meldet sich mit der Ware lt. Anhang bei uns am Warenort Zollamt " & lblGrenze.Text & ", bitte um Vorbereitung der Verzollung. <br>"
+                        TextHTML &= "der LKW meldet sich mit der Ware lt. Anhang bei uns am Warenort Zollamt " & lblGrenze.Text.Replace(vbNewLine, " ") & ", bitte um Vorbereitung der Verzollung. <br>"
                         TextHTML &= "<br>"
                         TextHTML &= "Wir melden uns bei LKW-Ankunft mit der ATB Nummer.<br>"
                         TextHTML &= "<br>"
@@ -4388,7 +4388,7 @@ Public Class frmSendungsdetailsNEU
 
                     'ATA FREMD!!!
                     If sender Is ToolStripMenuItem15 Then
-                        Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr & "  |  Grenze: " & lblGrenze.Text
+                        Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr & "  |  Grenze: " & lblGrenze.Text.Replace(vbNewLine, " ")
 
                         Dim TextHTML = ""
                         TextHTML &= "Sehr geehrte Damen und Herren,<br>"