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

1
Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb
View File

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

4
Aviso/My Project/AssemblyInfo.vb
View File

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

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