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

WL

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-12-20 16:56:56 +01:00
parent bd7af1e5d4
commit f3401b5f17
3 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -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>"