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

Rundungsdiff. Gesamtsicherheiten, Motis Email-Templage

Browse Source
This commit is contained in:
d.breimaier
2023-01-20 15:58:27 +01:00
parent 139c1b93ae
commit c07f717dc9
4 changed files with 440 additions and 352 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -5795,4 +5795,59 @@ Public Class frmSendungsdetailsNEU
End Sub
Private Sub AuftragMOTISToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuftragMOTISToolStripMenuItem.Click
Try
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
If dgvAnhang.SelectedRows.Count >= 1 Then
Try
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.To = "clearance@motisfreeflow.com"
Mail.Subject = "Arrival Notice " & If(AVISO.LKW_Nr <> "", AVISO.LKW_Nr, "") & " our Ref: " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr
Dim TextHTML = ""
TextHTML &= "Dear Motis Free Flow Team,<br>"
TextHTML &= "<br>"
TextHTML &= "please see attached.<br>"
TextHTML &= "<br>"
For Each r As DataGridViewRow In dgvAnhang.SelectedRows
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
'If (r.Cells("anh_ART").Value <> "***" Or r.Cells("anh_ART").Value <> "") Then
' TextHTML &= r.Cells("anh_ART").Value
' TextHTML &= "<br>"
'End If
Next
TextHTML &= "Import document <br>"
TextHTML &= "T1 <br>"
TextHTML &= "Commercial Invoice <br>"
TextHTML &= "Packing list <br>"
TextHTML &= "<br>"
TextHTML &= "ETA to MOTIS " & IIf(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "")
TextHTML &= "<br>"
TextHTML &= "<br>"
TextHTML &= "Best regards<br>"
TextHTML &= "<b>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "</b><br>"
TextHTML &= "<br>"
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "</div>"
Dim answer = MsgBox("Vermerk 'An MOTIS avisiert' eintragen?", vbYesNoCancel)
If vbYes = answer Then
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An MOTIS avisiert", 43)
End If
Mail.Display()
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
End Try
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
End Try
End Sub
End Class