CMR Bestätigung

2024-03-04 16:22:03 +01:00
parent beaf4e7ade
commit eee4dd8302
5 changed files with 176 additions and 71 deletions
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -6624,4 +6624,82 @@ Public Class frmSendungsdetailsNEU
        f.ShowDialog(Me)
        initAnhang()
    End Sub
+
+    Private Sub CMRBestätigungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CMRBestätigungToolStripMenuItem.Click
+
+
+        Try
+                Dim outl As New Outlook.Application
+                Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+                Mail = outl.CreateItem(0)
+
+            Mail.Subject &= AVISO.LKW_Nr & " Fiskal CMR/packing List"
+
+            Dim firstTextHTMLDE = ""
+                firstTextHTMLDE &= "Sehr geehrte Damen und Herren,<br>"
+                firstTextHTMLDE &= "<br>"
+                firstTextHTMLDE &= "o.g. LKW ist bei uns zur Zollabfertigung eingetroffen.<br>"
+                firstTextHTMLDE &= "Um die Ware im Zollverfahren 4200 (Fiskal) abfertigen zu können, ist es notwendig dass Sie beigefügten CMR im Feld 22 gegenstempeln und unterzeichnen.<br>"
+                firstTextHTMLDE &= "Es ist von äußerster Wichtigkeit, dass Sie den angefügten CMR verwenden. Bitte verwenden Sie keinen anderen CMR.<br>"
+
+            firstTextHTMLDE &= "Alternativ können Sie uns auch eine Packliste mit Original-Stempel und Signatur per Mail übersenden.<br>"
+            firstTextHTMLDE &= " Auf der Packliste müssen folgende Merkmale vorhanden sein:<br>"
+            firstTextHTMLDE &= "<br>"
+            firstTextHTMLDE &= "Versender mit kompletter Anschrift<br>"
+            firstTextHTMLDE &= "Empfänger mit kompletter Anschrift<br>"
+            firstTextHTMLDE &= "Warenbezeichnung<br>"
+            firstTextHTMLDE &= "Packstück + Gewicht<br>"
+            firstTextHTMLDE &= "Stempel + Signatur<br><br><br>"
+
+            '-----------------------------------------------
+
+            firstTextHTMLDE &= "Dear Sir or Madam,<br>"
+            firstTextHTMLDE &= "<br>"
+            firstTextHTMLDE &= "The above-mentioned lorry has arrived at our premises for customs clearance.<br>"
+            firstTextHTMLDE &= "In order to be able to clear the goods in customs procedure 4200 (fiscal), it is necessary that you stamp and sign the attached CMR in field 22.<br>"
+            firstTextHTMLDE &= "It is of utmost importance that you use the attached CMR. Please do not use any other CMR.<br>"
+
+            firstTextHTMLDE &= "Alternatively, you can send us a packing list with original stamp and signature by mail.<br>"
+            firstTextHTMLDE &= " The following features must be present on the packing list:<br>"
+            firstTextHTMLDE &= "<br>"
+            firstTextHTMLDE &= "Consignor with complete address<br>"
+            firstTextHTMLDE &= "Consignee with complete address<br>"
+            firstTextHTMLDE &= "Description of goods<br>"
+            firstTextHTMLDE &= "Package + weight<br>"
+            firstTextHTMLDE &= "Stamp + signature<br><br><br>"
+
+            '-----------------------------------------------
+
+            firstTextHTMLDE &= "Sayin Bay veya Bayan,<br>"
+            firstTextHTMLDE &= "<br>"
+            firstTextHTMLDE &= "Yukarida belirtilen arac gümrük islemleri için bize varis yapmistir.<br>"
+            firstTextHTMLDE &= "Mallarin 4200 (Fiskal) gümrük prosedürüne göre gümrükten çekilebilmesi için, ekteki CMR'yi 22 hanesinin imzlayip ve kaseleyip bize gönderici tarafindan posta yolu ile iletilmesi gerekiyor.<br>"
+            firstTextHTMLDE &= "Ekteki CMR'yi kullanmaniz büyük önem tasimaktadir. Lütfen baska bir CMR kullanmayin.<br>"
+
+            firstTextHTMLDE &= "Alternatif olarak, bize posta yoluyla orijinal kaşe ve imzalı bir çeki listesi gönderebilirsiniz.<br>"
+            firstTextHTMLDE &= "Çeki listesinde aşağıdaki özellikler bulunmalıdır:<br>"
+            firstTextHTMLDE &= "<br>"
+            firstTextHTMLDE &= "Tam adresli gönderici<br>"
+            firstTextHTMLDE &= "Tam adresli alıcı<br>"
+            firstTextHTMLDE &= "Malların tanımı<br>"
+            firstTextHTMLDE &= "Paket + ağırlık<br>"
+            firstTextHTMLDE &= "Damga + imza<br>"
+
+
+
+            Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & firstTextHTMLDE & SDL.cFakturierung.getSignature("DE") & "</div>"
+
+
+            AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Absenderbestätigung angefordert", 76)
+
+            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 Sub
+
+
 End Class