Feature: T1 Bestätigung
This commit is contained in:
@@ -7,7 +7,7 @@ Imports System.Data.SqlClient
|
||||
Imports iTextSharp.text.pdf
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports DocumentFormat.OpenXml.Presentation
|
||||
Imports CefSharp
|
||||
|
||||
|
||||
Public Class frmSendungsdetailsNEU
|
||||
Public AvisoId As Integer
|
||||
@@ -4011,9 +4011,7 @@ Public Class frmSendungsdetailsNEU
|
||||
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
|
||||
@@ -4025,6 +4023,116 @@ Public Class frmSendungsdetailsNEU
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub GestellungsgarantieToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OhneGestellungsgarantieToolStripMenuItem.Click, MitGestellungsgarantieToolStripMenuItem.Click
|
||||
|
||||
|
||||
Try
|
||||
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
|
||||
|
||||
Try
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
If dgvAnhang.SelectedRows.Count >= 1 Then
|
||||
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)
|
||||
Next
|
||||
End If
|
||||
|
||||
Dim language As String
|
||||
|
||||
Select Case usrcntl_NCTS.sbT1VerzollungsadresseLand.Text
|
||||
Case "DE", "AT", "CH", "D", "A"
|
||||
language = "DE"
|
||||
Case Else
|
||||
language = "EN"
|
||||
|
||||
End Select
|
||||
|
||||
If language = "DE" Then
|
||||
Mail.Subject = "T1 Bestätigung: | "
|
||||
Else
|
||||
Mail.Subject = "T1 Confirmation: | "
|
||||
|
||||
End If
|
||||
|
||||
Mail.Subject &= AVISO.LKW_Nr & " | " & txtEmpfaenger.Text
|
||||
|
||||
|
||||
Dim firstTextHTMLDE = ""
|
||||
firstTextHTMLDE &= "Sehr geehrter Geschäftspartner,<br>"
|
||||
firstTextHTMLDE &= "<br>"
|
||||
firstTextHTMLDE &= "wir bitten um Bestätigung, dass wir für die angefügte Sendung ein T1-Versandschein an folgender Adresse erstellen dürfen:<br>"
|
||||
firstTextHTMLDE &= "Mit der Bestätigung stimmen Sie zu, diesen Versandverfahren bei Ihnen zu beenden.<br>"
|
||||
firstTextHTMLDE &= "<br>"
|
||||
|
||||
Dim firstTextHTMLEN = ""
|
||||
firstTextHTMLEN &= "Dear Business Partner,<br>"
|
||||
firstTextHTMLEN &= "<br>"
|
||||
firstTextHTMLEN &= "we request confirmation that we may issue a T1 dispatch note for the attached item to the following address:<br>"
|
||||
firstTextHTMLEN &= "By confirming, you agree to terminate this shipping procedure with you.<br>"
|
||||
firstTextHTMLEN &= "<br>"
|
||||
|
||||
Dim TextHTMLInfo = ""
|
||||
TextHTMLInfo &= usrcntl_NCTS.txtT1Verzollungsadresse.Text & "<br>"
|
||||
TextHTMLInfo &= usrcntl_NCTS.txtT1VerzollungsadresseStrasse.Text & "<br>"
|
||||
TextHTMLInfo &= usrcntl_NCTS.sbT1VerzollungsadresseLand.Text & "-" & usrcntl_NCTS.txtT1VerzollungsadressePlz.Text & " " & usrcntl_NCTS.txtT1VerzollungsadresseOrt.Text & "<br>"
|
||||
TextHTMLInfo &= usrcntl_NCTS.txtT1VerzollungsadresseBestimmungszollstelle.Text & "<br>"
|
||||
|
||||
Dim lastTextHTMLDE = ""
|
||||
Dim lastTextHTMLEN = ""
|
||||
|
||||
If sender Is MitGestellungsgarantieToolStripMenuItem Then
|
||||
lastTextHTMLDE &= "Für eine dauerhafte Gestellungsgarantie füllen Sie bitte beilg. Formular aus und schicken uns dieses unterzeichnet zurück.<br>"
|
||||
lastTextHTMLEN &= "For a permanent permit, please complete and sign the enclosed form and return it to us.<br>"
|
||||
|
||||
Dim usrcntlGestellungsgarantieNew As New SDL.usrcntlGestellungsgarantie()
|
||||
|
||||
usrcntlGestellungsgarantieNew.cboSprache.changeItem(language.ToString)
|
||||
|
||||
usrcntlGestellungsgarantieNew.txtFirma.Text = usrcntl_NCTS.txtT1Verzollungsadresse.Text
|
||||
usrcntlGestellungsgarantieNew.txtAdresse1.Text = usrcntl_NCTS.txtT1VerzollungsadresseStrasse.Text
|
||||
usrcntlGestellungsgarantieNew.txtAdresse2.Text = usrcntl_NCTS.sbT1VerzollungsadresseLand.Text & " " & usrcntl_NCTS.txtT1VerzollungsadressePlz.Text & " " & usrcntl_NCTS.txtT1VerzollungsadresseOrt.Text
|
||||
usrcntlGestellungsgarantieNew.txtBestimmungszollamt.Text = usrcntl_NCTS.txtT1VerzollungsadresseBestimmungszollstelle.Text
|
||||
|
||||
Dim PDF_PFad = SDL.FormularManagerNEU.genPDF(usrcntlGestellungsgarantieNew).Item(0).ToString
|
||||
|
||||
Mail.Attachments.Add(PDF_PFad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
End If
|
||||
|
||||
|
||||
lastTextHTMLDE &= "Mit freundlichen Grüßen<br>"
|
||||
lastTextHTMLDE &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
lastTextHTMLDE &= "<br>"
|
||||
|
||||
lastTextHTMLEN &= "Best regards<br>"
|
||||
lastTextHTMLEN &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
lastTextHTMLEN &= "<br>"
|
||||
|
||||
|
||||
|
||||
If language = "DE" Then
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & firstTextHTMLDE & TextHTMLInfo & lastTextHTMLDE & SDL.cFakturierung.getSignature(language) & "</div>"
|
||||
Else
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & firstTextHTMLEN & TextHTMLInfo & lastTextHTMLEN & SDL.cFakturierung.getSignature(language) & "</div>"
|
||||
End If
|
||||
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "T1 Bestätigung gesendet", 96)
|
||||
|
||||
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
|
||||
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
|
||||
|
||||
|
||||
Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
|
||||
FormularArt = SDL.FormularManagerArten.Importaviso_VK
|
||||
ctxtWeitereFormulare.Show(Cursor.Position)
|
||||
@@ -5409,10 +5517,9 @@ Public Class frmSendungsdetailsNEU
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & DETextHTML & ENTextHTML & TextHTMLtable & EndTextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||||
Mail.Display()
|
||||
End If
|
||||
|
||||
'AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Doks an Fremdspedition (SUBEN) weitergeleitet.", 46)
|
||||
|
||||
|
||||
|
||||
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
|
||||
@@ -5624,5 +5731,11 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub OhneGestellungsgarantieToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OhneGestellungsgarantieToolStripMenuItem.Click
|
||||
|
||||
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