Ambar -> Sendungsdetails -> Emailvorlage für Warenort; Ambar Zollbeschau NEU, GUI-Änderungen Essensbestellungen
This commit is contained in:
@@ -8,7 +8,6 @@ Imports iTextSharp.text.pdf
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports DocumentFormat.OpenXml.Presentation
|
||||
|
||||
|
||||
Public Class frmSendungsdetailsNEU
|
||||
Public AvisoId As Integer
|
||||
Public SendungID As Integer = -1
|
||||
@@ -644,6 +643,12 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnNeueAbfertigungNrVergeben.Visible = True
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "AMBAR"
|
||||
AMBARZollbeschauToolStripMenuItem.Visible = True
|
||||
AMBARZollbeschauNEUToolStripMenuItem.Visible = True
|
||||
WarenortAMBARToolStripMenuItem.Visible = True
|
||||
End Select
|
||||
initDataBinding()
|
||||
|
||||
Catch ex As Exception
|
||||
@@ -3617,6 +3622,7 @@ Public Class frmSendungsdetailsNEU
|
||||
End If
|
||||
Select Case FormularArt
|
||||
Case SDL.FormularManagerArten.Importaviso_VK : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE})
|
||||
Case SDL.FormularManagerArten.Zollbeschau_Protokoll : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Zollbeschau_Protokoll, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE})
|
||||
Case SDL.FormularManagerArten.Importaviso
|
||||
Dim f As SDL.frmFormulare = Nothing
|
||||
SDL.FormularManagerNEU.OPEN_FORM_Byref(SDL.FormularManagerArten.Importaviso, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE},, f)
|
||||
@@ -3964,7 +3970,7 @@ Public Class frmSendungsdetailsNEU
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub EMailAnfügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMailAnfügenToolStripMenuItem.Click, ToolStripMenuItem15.Click
|
||||
Private Sub EMailAnfügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMailAnfügenToolStripMenuItem.Click, ToolStripMenuItem15.Click, WarenortAMBARToolStripMenuItem.Click
|
||||
|
||||
Try
|
||||
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
|
||||
@@ -3989,29 +3995,53 @@ Public Class frmSendungsdetailsNEU
|
||||
' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilenameByDS(ii.coll_pfad, ii.coll_bezeichnung), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
Next
|
||||
Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr
|
||||
|
||||
Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr
|
||||
|
||||
'ATA FREMD!!!
|
||||
If sender Is ToolStripMenuItem15 Then
|
||||
Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr & " | Grenze: " & lblGrenze.Text
|
||||
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
|
||||
Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr & " | Grenze: " & lblGrenze.Text
|
||||
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
|
||||
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= "Sehr geehrte Damen und Herren,<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten um Zusendung der ATA-Nummer.<br>"
|
||||
TextHTML &= "<br>"
|
||||
|
||||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
TextHTML &= "<br>"
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||||
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "ATA-Nr fehlt (Fremdanmeldung) - angefordert", 33)
|
||||
|
||||
ElseIf sender Is WarenortAMBARToolStripMenuItem Then
|
||||
|
||||
Mail.Subject = AVISO.LKW_Nr
|
||||
If If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger, "") <> "" Then Mail.Subject &= " / " & SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger
|
||||
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= "Sehr geehrte Damen und Herren,<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten um Zusendung der ATA-Nummer.<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 &= "<br>"
|
||||
TextHTML &= "Wir melden uns bei LKW-Ankunft mit der ATB Nummer.<br>"
|
||||
TextHTML &= "<br>"
|
||||
|
||||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
TextHTML &= "<br>"
|
||||
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An Fremdspediteur avisiert (Warenort)", 98)
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||||
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "ATA-Nr fehlt (Fremdanmeldung) - angefordert", 33)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Mail.Display()
|
||||
|
||||
Catch ex As Exception
|
||||
@@ -5740,11 +5770,15 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub OhneGestellungsgarantieToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OhneGestellungsgarantieToolStripMenuItem.Click
|
||||
Private Sub AMBARZollbeschauNEUToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AMBARZollbeschauNEUToolStripMenuItem.Click
|
||||
Try
|
||||
FormularArt = SDL.FormularManagerArten.Zollbeschau_Protokoll
|
||||
cntxtVorauskasse.Show(Cursor.Position)
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub MitGestellungsgarantieToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MitGestellungsgarantieToolStripMenuItem.Click
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user