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", "NKD", "VERAG Nickelsdorf")
addBtn(flpFirma, "N", "NEU", "VERAG Neuhaus") addBtn(flpFirma, "N", "NEU", "VERAG Neuhaus")
addBtn(flpFirma, "N", "DTB", "VERAG Dettelbach") addBtn(flpFirma, "N", "DTB", "VERAG Dettelbach")
addBtn(flpFirma, "N", "DTB", "VERAG Neunkirchen (Saar)")
addBtn(flpFirma, "A", "FISK", "VERAG Fiskal") 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: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.4.7")> <Assembly: AssemblyVersion("3.9.4.9")>
<Assembly: AssemblyFileVersion("3.9.4.7")> <Assembly: AssemblyFileVersion("3.9.4.9")>

6
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -4075,7 +4075,7 @@ Public Class frmSendungsdetailsNEU
'ATA FREMD!!! 'ATA FREMD!!!
If sender Is ToolStripMenuItem15 Then 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_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 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 = "" Dim TextHTML = ""
TextHTML &= "Sehr geehrte Damen und Herren,<br>" TextHTML &= "Sehr geehrte Damen und Herren,<br>"
TextHTML &= "<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 &= "<br>"
TextHTML &= "Wir melden uns bei LKW-Ankunft mit der ATB Nummer.<br>" TextHTML &= "Wir melden uns bei LKW-Ankunft mit der ATB Nummer.<br>"
TextHTML &= "<br>" TextHTML &= "<br>"
@@ -4388,7 +4388,7 @@ Public Class frmSendungsdetailsNEU
'ATA FREMD!!! 'ATA FREMD!!!
If sender Is ToolStripMenuItem15 Then 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 = "" Dim TextHTML = ""
TextHTML &= "Sehr geehrte Damen und Herren,<br>" TextHTML &= "Sehr geehrte Damen und Herren,<br>"