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

eAVISO ANpassung, Banchrichtigungen

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-02-02 13:07:05 +01:00
parent a94373cda8
commit f77a8b16d7
6 changed files with 200 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -4981,7 +4981,7 @@ Public Class frmSendungsdetailsNEU
End Sub
Private Sub AuftragATANAKToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuftragATANAKToolStripMenuItem.Click
Private Sub AuftragATANAKToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATANAKTRFraechter.Click, ATANAKEUFraechter.Click
Try
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
@@ -4997,7 +4997,10 @@ Public Class frmSendungsdetailsNEU
Mail.Subject = If(AVISO.ImEx <> "", AVISO.ImEx & " / ", "") & AVISO.LKW_Nr & " / " & "ETA: " & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & " // VERAG"
'Mail.To = "european@atanak.com"
' Mail.To = "european@dailygroupage.com"
Mail.To = "dover@atanak.com"
If sender Is ATANAKEUFraechter Then Mail.To = "dover@atanak.com"
If sender Is ATANAKTRFraechter Then Mail.To = "european@atanak.com"
Dim TextHTML = ""
TextHTML &= "Dear ATANAK Team,<br>"