sendungsdet.
This commit is contained in:
@@ -6833,6 +6833,8 @@ Public Class frmSendungsdetailsNEU
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
|
||||
|
||||
Mail.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR")
|
||||
@@ -6840,6 +6842,7 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
End If
|
||||
|
||||
Mail.To = r.txt_fixerEmpfaengerEmail
|
||||
|
||||
Mail.Subject = r.txt_betreff
|
||||
|
||||
@@ -6852,35 +6855,110 @@ Public Class frmSendungsdetailsNEU
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= cFakturierung.getSignature(r.txt_sprache, r.txt_firmaSig, True, True)
|
||||
|
||||
If lblGrenze.Text <> "" Then
|
||||
TextHTML = TextHTML.Replace("%VAR-GRENZE%", lblGrenze.Text & "<br>")
|
||||
Else
|
||||
TextHTML = TextHTML.Replace("%VAR-GRENZE%", "")
|
||||
End If
|
||||
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
|
||||
|
||||
|
||||
|
||||
If AVISO IsNot Nothing Then
|
||||
|
||||
Mail.Subject = Mail.Subject.Replace("%LKW%", AVISO.LKW_Nr)
|
||||
Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
|
||||
TextHTML = TextHTML.Replace("%LKW%", AVISO.LKW_Nr)
|
||||
TextHTML = TextHTML.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
|
||||
|
||||
If AVISO.VoraussichtlichesEintreffen IsNot Nothing Then
|
||||
TextHTML = TextHTML.Replace("%voraus-Eintreffen%", CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString)
|
||||
Mail.Subject = Mail.Subject.Replace("%voraus-Eintreffen%", CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString)
|
||||
End If
|
||||
|
||||
If AVISO.ImEx IsNot Nothing Then
|
||||
If AVISO.ImEx = "" Then
|
||||
TextHTML = TextHTML.Replace("%ImEx%", "Custom")
|
||||
Mail.Subject = Mail.Subject.Replace("%ImEx%", "Custom")
|
||||
Else
|
||||
|
||||
TextHTML = TextHTML.Replace("%ImEx%", AVISO.ImEx)
|
||||
Mail.Subject = Mail.Subject.Replace("%ImEx%", AVISO.ImEx)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If AVISO.Zollstelle IsNot Nothing Then
|
||||
|
||||
If AVISO.Zollstelle <> "" Then
|
||||
|
||||
Dim zollstelleBez = SQL.getValueTxtBySql("SELECT [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & If(AVISO.Zollstelle, "") & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ) ", "FMZOLL")
|
||||
TextHTML = TextHTML.Replace("%Zollstelle%", zollstelleBez)
|
||||
Else
|
||||
|
||||
TextHTML = TextHTML.Replace("%Zollstelle%", AVISO.Zollstelle)
|
||||
Mail.Subject = Mail.Subject.Replace("%Zollstelle%", AVISO.Zollstelle)
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If lblGrenze.Text <> "" Then
|
||||
TextHTML = TextHTML.Replace("%VAR-GRENZE%", lblGrenze.Text & "<br>")
|
||||
Mail.Subject = Mail.Subject.Replace("%VAR-GRENZE%", lblGrenze.Text.Replace(vbCrLf, " "))
|
||||
End If
|
||||
|
||||
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger IsNot Nothing Then
|
||||
Mail.Subject = Mail.Subject.Replace("%Empfaenger%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger)
|
||||
TextHTML = TextHTML.Replace("%Empfaenger%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger)
|
||||
End If
|
||||
|
||||
If SENDUNG_LIST(CURRENT_INDEX).FilialenNr > 0 Then
|
||||
Mail.Subject = Mail.Subject.Replace("%FilialenNr%", SENDUNG_LIST(CURRENT_INDEX).FilialenNr)
|
||||
TextHTML = TextHTML.Replace("%FilialenNr%", SENDUNG_LIST(CURRENT_INDEX).FilialenNr)
|
||||
End If
|
||||
|
||||
If SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr > 0 Then
|
||||
Mail.Subject = Mail.Subject.Replace("%AbfertigungsNr%", SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr)
|
||||
TextHTML = TextHTML.Replace("%AbfertigungsNr%", SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr)
|
||||
End If
|
||||
|
||||
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender <> "" Then
|
||||
Mail.Subject = Mail.Subject.Replace("%Absender%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender)
|
||||
TextHTML = TextHTML.Replace("%Absender%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender)
|
||||
End If
|
||||
|
||||
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht <> "" Then
|
||||
Mail.Subject = Mail.Subject.Replace("%Gewicht%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht)
|
||||
TextHTML = TextHTML.Replace("%Gewicht%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht)
|
||||
End If
|
||||
|
||||
|
||||
Mail.Subject = Mail.Subject.Replace("%LKW%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("%Empfaenger%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("%VAR-GRENZE%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("%voraus-Eintreffen%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("%FilialenNr%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("%AbfertigungsNr%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("%Absender%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("%Gewicht%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("%ImEx%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("%Zollstelle%", "")
|
||||
|
||||
|
||||
TextHTML = TextHTML.Replace("%LKW%", "")
|
||||
TextHTML = TextHTML.Replace("%LKWKennzeichen%", "")
|
||||
TextHTML = TextHTML.Replace("%Empfaenger%", "")
|
||||
TextHTML = TextHTML.Replace("%VAR-GRENZE%", "")
|
||||
TextHTML = TextHTML.Replace("%voraus-Eintreffen%", "")
|
||||
TextHTML = TextHTML.Replace("%FilialenNr%", "")
|
||||
TextHTML = TextHTML.Replace("%AbfertigungsNr%", "")
|
||||
TextHTML = TextHTML.Replace("%Absender%", "")
|
||||
TextHTML = TextHTML.Replace("%Gewicht%", "")
|
||||
TextHTML = TextHTML.Replace("%ImEx%", "")
|
||||
TextHTML = TextHTML.Replace("%Zollstelle%", "")
|
||||
|
||||
For Each anh As DataGridViewRow In dgvAnhang.SelectedRows
|
||||
For Each anh As DataGridViewRow In dgvAnhang.SelectedRows
|
||||
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(anh.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
Next
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
|
||||
|
||||
Mail.Display()
|
||||
If r.txt_sendungsvermerk AndAlso Not r.txt_sendungsvermerkText.ToLower.Contains("test") AndAlso SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID > 0 Then
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, r.txt_sendungsvermerkText, r.txt_sendungsvermerkId)
|
||||
@@ -7136,5 +7214,4 @@ Public Class frmSendungsdetailsNEU
|
||||
sequence)
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user