From 7a9d8ae767b7ba321e3f8971369abf441cec98d5 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 16 Nov 2022 09:04:38 +0100
Subject: [PATCH] Fixes GMVS

---
 Aviso/frmSendungsdetailsNEU.vb | 23 ++++++++---------------
 1 file changed, 8 insertions(+), 15 deletions(-)

diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb
index 1e9203d..953f566 100644
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -5299,6 +5299,8 @@ Public Class frmSendungsdetailsNEU
 
     Private Sub AktuelleSendungGVMSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleEIDRSendungenToolStripMenuItem.Click, AktuelleSendungToolStripMenuItem.Click
         Me.Cursor = Cursors.WaitCursor
+
+        Dim currentFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "")
         Try
             VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
             If True Then
@@ -5331,7 +5333,9 @@ Public Class frmSendungsdetailsNEU
                     End If
 
                     'LEX 
-                    Mail.Subject = "GVMS: Kennzeichen: " & AVISO.LKW_Nr & "  |  Pos: " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr
+                    Mail.Subject = "GVMS: Kennzeichen: " & AVISO.LKW_Nr
+
+                    If OnylSND >= 0 Then Mail.Subject &= "  |  Pos: " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr
 
                     Dim DETextHTML = ""
                     DETextHTML &= "Sehr geehrter Geschäftspartner,<br>"
@@ -5341,7 +5345,7 @@ Public Class frmSendungsdetailsNEU
 
                     DETextHTML &= "Bitte beachten Sie, dass Sie vor der Überfahrt einen GVMS-Eintrag erstellen müssen.<br>"
 
-                    DETextHTML &= "Bitte verwenden Sie als Deklarationstyp die Entry In Declarant's Records (EIDR) und als Referenz die EORI-Nr.<br>"
+                    DETextHTML &= "Bitte verwenden Sie als Deklarationstyp die Entry In Declarant's Records (EIDR) und als Referenz unsere EORI-Nr: GB078068385000 <br>"
 
                     DETextHTML &= "Wir übernehmen gerne die Eintragung für Sie – bitte antworten Sie auf dieses Mail, wenn die Anmeldung durch uns durchgeführt werden sollte.<br><br>"
 
@@ -5363,12 +5367,12 @@ Public Class frmSendungsdetailsNEU
                     Dim TextHTMLtable = ""
 
                     TextHTMLtable &= "<table border=1>"
-                    TextHTMLtable &= "<tr><td>Pos</td><td>Referenz</td><td>Absender/Sender</td><td>Empfänger/Recipient</td><td>Sendung/Shipment</td><td>Kennzeichen/License plate</td><td>Frächter/Carrier</td><td>EORI</td></tr>"
+                    TextHTMLtable &= "<tr><td>Pos</td><td>Referenz</td><td>Absender/Sender</td><td>Empfänger/Recipient</td><td>Sendung/Shipment</td><td>Kennzeichen/License plate</td></tr>"
 
 
                     Dim cnt = 1
                     For Each SND In SENDUNG_LIST
-                        If (OnylSND >= 0 AndAlso SND Is SENDUNG_LIST(OnylSND)) Or (OnylSND < 0 And SND.FilialenNr = 7001 And SND.tblSnd_Abfertigungsart_ID = 46) Then ' Or (OnylSND < 0 And SND.FilialenNr = 7001) Then
+                        If (OnylSND >= 0 AndAlso SND Is SENDUNG_LIST(OnylSND)) Or (OnylSND < 0 And SND.FilialenNr = 7001 And SND.tblSnd_Abfertigungsart_ID = 46) Then
                             TextHTMLtable &= "<tr>"
                             TextHTMLtable &= "<td><b>" & cnt & "</b></td>"
                             TextHTMLtable &= "<td><b>" & SND.FilialenNr & "/" & SND.AbfertigungsNr & "</b></td>"
@@ -5376,17 +5380,6 @@ Public Class frmSendungsdetailsNEU
                             TextHTMLtable &= "<td><b>" & SND.tblSnd_Empfaenger & "</b></td>"
                             TextHTMLtable &= "<td><b>" & SND.tblSnd_Colli & " Pk. " & SND.tblSnd_Warenbezeichnung & "   -  " & SND.tblSnd_Gewicht & " kg </b></td>"
                             TextHTMLtable &= "<td><b>" & AVISO.LKW_Nr & "</b></td>"
-                            TextHTMLtable &= "<td><b>" & AVISO.Frächter_KdNr & "</b></td>"
-
-
-                            Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SND.tblSnd_EmpfaengerKdNr)
-
-                            If KD IsNot Nothing AndAlso KD IsNot Nothing Then
-                                TextHTMLtable &= "<td><b>" & If(KD.EORITIN, "") & "</b></td>"
-                            Else
-                                TextHTMLtable &= "<td><b>-</b></td>"
-                            End If
-
                             TextHTMLtable &= "</tr>"
 
                             cnt += 1